home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 2 of 3).adf / 3D_MENUS / 3d_menus_source.lha / 3D_Display_Proc.amos / 3D_Display_Proc.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  1.0 KB  |  72 lines
  1. '
  2. '********************************************
  3. '
  4. '            3D SCREEN DISPLAY   
  5. '            ----------------- 
  6. '
  7. '         By Malcolm Lavery 1993 
  8. '
  9. '********************************************
  10. '
  11. '
  12. Screen Open 0,640,256,16,Hires
  13. Palette $0,$FFF,,,$CCC,$EEE,$999,$333,$88F
  14. Curs Off : Cls 0 : Flash Off 
  15. '
  16. '
  17. _FILL=6
  18. '
  19. '
  20. _3D_DISPLAY[0,0,640,10,0,8]
  21. _3D_DISPLAY[0,11,640,250,0,6]
  22. _3D_DISPLAY[7,15,625,236,1,6]
  23. '
  24. Ink 0,8
  25. Text 3,7,"FILE:Df0:3D_Display"
  26. '
  27. For Y=40 To 140 Step 17
  28.    For X=60 To 240 Step 32
  29.       '
  30.       '
  31.       '
  32.       _3D_DISPLAY[X,Y,30,15,1,6]
  33.       '
  34.       '
  35.       '
  36.    Next X
  37. Next Y
  38. '
  39.  
  40. '
  41. '
  42. '
  43. Procedure _3D_DISPLAY[X,Y,WIDTH,HEIGHT,IN_OUT,_FILL]
  44.    '
  45.    '
  46.    '
  47.    If IN_OUT=0
  48.       HILIGHT=5
  49.       SHADOW=7
  50.    End If 
  51.    '
  52.    '
  53.    If IN_OUT=1
  54.       HILIGHT=7
  55.       SHADOW=5
  56.    End If 
  57.    '
  58.    '
  59.    Ink HILIGHT
  60.    Draw X,Y To X+WIDTH,Y
  61.    Draw X,Y To X,Y+HEIGHT
  62.    '
  63.    Ink SHADOW
  64.    Draw X+WIDTH,Y To X+WIDTH,Y+HEIGHT
  65.    Draw X+WIDTH,Y+HEIGHT To X,Y+HEIGHT
  66.    '
  67.    Ink _FILL
  68.    Bar X+1,Y+1 To X+WIDTH-1,Y+HEIGHT-1
  69.    '
  70.    '
  71.    '
  72. End Proc