home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / rgbproc2.amos / rgbproc2.amosSourceCode
Encoding:
AMOS Source Code  |  1990-10-24  |  1.1 KB  |  42 lines
  1. ' A Simple Colour selector  which appears on current screen after saving its 
  2. ' background . Waits for user to select a colour and returns the colours 
  3. ' number as a param.   
  4. '
  5. ' By Gary Fearn  31/8/90 
  6. '
  7. Flash Off : Curs Off 
  8. '                         INPUTS: X,Y coordinates and the size of the selector 
  9. RGBWINDOW[120,20,12]
  10. _COL=Param
  11. Print " You have selected colour ";
  12. Pen _COL
  13. Print _COL
  14. Wait Key 
  15. Edit 
  16. '
  17. Procedure RGBWINDOW[X,Y,SIZE]
  18. '** This Proc returns the selcted colour as a param number  ** 
  19. '
  20.    NCOLS=Screen Colour
  21.    Get Cblock 1,X-10,Y-10,X+(SIZE*2)+10,Y+(SIZE*NCOLS/2)+10
  22.    Bar X-8,Y-8 To X+(SIZE*2)+8,Y+(SIZE*NCOLS/2)+8
  23.    Reserve Zone NCOLS+1
  24.    For B=0 To NCOLS/2 Step NCOLS/2
  25.       For A=0 To(NCOLS/2)-1
  26.          Ink A+B : Bar X,Y To X+SIZE,Y+SIZE
  27.          Set Zone A+B+1,X,Y To X+SIZE,Y+SIZE
  28.          Add Y,SIZE
  29.       Next A
  30.       Add X,SIZE
  31.       Add Y,-(SIZE*(NCOLS/2))
  32.    Next B
  33. AGAIN:
  34.    While M=0
  35.       X=Mouse Zone
  36.       M=Mouse Key
  37.    Wend 
  38.    If X=0 Then Goto AGAIN
  39.    Put Cblock 1
  40.    Reset Zone 
  41.    RGB=X-1 : Rem RGB = selected colour  
  42. End Proc[RGB]