home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd591 / proc / graphics / tbox.amos / tbox.amosSourceCode
AMOS Source Code  |  1994-02-02  |  883b  |  30 lines
  1. Screen Open 0,320,200,16,0 : Curs Off : Flash Off : Cls 1
  2. Palette $666,0,$222,$333,$444,$555,$666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF
  3. TBOX[10,10,69,69,False]
  4. Ink 10 : Paint 50,50
  5. TBOX[110,10,169,69,True]
  6. Ink 10 : Paint 150,50
  7.  
  8. '********************************************************* 
  9. '
  10. 'TBOX[X1,Y1,X2,Y2,IN]  
  11. '
  12. 'NOTE: This procedure assumes that for an N colour screen: 
  13. '
  14. ' - Colour 0 is black, or very dark
  15. ' - Colour N-1 is white, or very pale
  16. '
  17. 'TBOX draws a box from co-ordinates X1,Y1 to X2,Y2.
  18. '
  19. 'If IN = True, the top & left edges are dark(colour 0), and the bottom & 
  20. 'right edges are pale (Colour N-1). Otherwise the opposite is true.  
  21. '
  22. 'TBOX is useful for: Drawing 3D effect control panels  
  23. '
  24. Procedure TBOX[X1,Y1,X2,Y2,IN]
  25.    A=Screen Colour-1
  26.    Ink A+IN*A
  27.    Polyline X1,Y2-1 To X1,Y1 To X2,Y1
  28.    Ink -IN*A
  29.    Polyline X1,Y2 To X2,Y2 To X2,Y1+1
  30. End Proc