home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / ACE / Prgs / Gfx / ham.b < prev    next >
Text File  |  1994-08-15  |  785b  |  46 lines
  1.  
  2. '..A test of HAM screen mode in ACE.
  3. '..Based upon a C program in "Inside Amiga Graphics", p 259-262.
  4. '..David J Benn, August 1994.
  5.  
  6. DEFLNG a-z
  7.  
  8. const modblu = 10
  9. const modred = 20
  10. const modgrn = 30
  11.  
  12. screen 1,320,200,6,5
  13.  
  14. palette 0,0,0,0
  15. palette 1,0,.53,.53
  16. palette 2,.67,0,.27
  17. palette 3,.2,.6,0
  18.  
  19. window 1,,(0,0)-(320,200),32,1
  20.  
  21. '..demo
  22. for c=1 to 15
  23.   color modred+c
  24.   line (18*c,20)-(18*c+17,40),,bf
  25.   line (18*c,110)-(18*c+17,130),modred+c,bf
  26.  
  27.   color modgrn+c
  28.   line (18*c,50)-(18*c+17,70),,bf
  29.   line (18*c,140)-(18*c+17,160),modred+c,bf
  30.   
  31.   color modblu+c
  32.   line (18*c,80)-(18*c+17,100),,bf
  33.   line (18*c,170)-(18*c+17,190),modred+c,bf
  34. next
  35.  
  36. for c=1 to 3
  37.   color c
  38.   line (18,30*c+80)-(18,30*c+100)
  39.   sleep for .25
  40. next
  41.  
  42. while inkey$="":sleep:wend
  43.  
  44. window close 1
  45. screen close 1
  46.