home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Amos / AmosCRAFT2Turbo.DMS / in.adf / demos / general / Newgraphicinstructions.AMOS / Newgraphicinstructions.amosSourceCode
Encoding:
AMOS Source Code  |  1994-01-29  |  3.2 KB  |  109 lines
  1. '*************************************************************************** 
  2. '*                                                                         * 
  3. '*                 AMOS/PRO NEW GRAPHIC INSTRUCTIONS DEMO                  * 
  4. '*                                                                         * 
  5. '*                 CODE WRITTEN BY : MANUEL ANDRE                          * 
  6. '*                                                                         * 
  7. '*             ANY SUGGESTIONS OR IMPROVEMENTS WRITE TO :                  * 
  8. '*                                                                         * 
  9. '*                    MANUEL ANDRE                                         * 
  10. '*                    ARBEIDERSSTRAAT 9                                    * 
  11. '*                    2600    BERCHEM                                      * 
  12. '*                    BELGIUM                                              * 
  13. '*                                                                         * 
  14. '*************************************************************************** 
  15. '
  16. '
  17. Flash Off 
  18. Curs Off 
  19. COMBINE
  20. Wait Key 
  21. Cls 
  22. SQUARE
  23. Wait Key 
  24. Cls 
  25. _FILL_SQUARE
  26. Wait Key 
  27. Cls 
  28. FIRST_BLOCK
  29. Wait Key 
  30. ENLARGE_FINER
  31. Wait Key 
  32. Cls 
  33. BLOCKS
  34. Cls 
  35. End 
  36. Procedure COMBINE
  37.    Text 10,62,"Draw combined with R Draw"
  38.    Text 10,72,"Press any key..."
  39.    Draw 100,0 To 100,50
  40.     Extension_12_0182 50,0
  41.    Draw To 150,0
  42.     Extension_12_0182 -50,0
  43. End Proc
  44. Procedure SQUARE
  45.    Text 10,50,"The R Box instruction"
  46.    Text 10,62,"for hollow rectangles."
  47.    Text 10,74,"Press any key..."
  48.    Gr Locate 100,100
  49.     Extension_12_0192 100,10
  50.     Extension_12_0172 0,50
  51.     Extension_12_0192 40,40
  52. End Proc
  53. Procedure _FILL_SQUARE
  54.    Text 10,50,"The R Bar instruction"
  55.    Text 10,62,"for filled rectangles."
  56.    Text 10,74,"Press any key..."
  57.    Gr Locate 100,100
  58.     Extension_12_01B0 100,10
  59.     Extension_12_0172 0,50
  60.     Extension_12_01B0 40,40
  61. End Proc
  62. Procedure FIRST_BLOCK
  63.    Text 10,20,"These instructions can make life very "
  64.    Text 10,32,"easy..."
  65.    Text 10,44,"Press any key..."
  66.     Extension_12_01A0 30,50
  67.    For I=1 To 10
  68.        Extension_12_0182 170,0
  69.        Extension_12_0172 0,5
  70.        Extension_12_0182 -170,0
  71.        Extension_12_0172 0,5
  72.    Next 
  73.     Extension_12_0172 0,-5
  74.    For I=1 To 9
  75.        Extension_12_0182 0,-95
  76.        Extension_12_0172 10,0
  77.        Extension_12_0182 0,95
  78.        Extension_12_0172 10,0
  79.    Next 
  80. End Proc
  81. Procedure ENLARGE_FINER
  82.    Text 67,32,"and very complex !"
  83.    For J=0 To 100 Step 15
  84.        Extension_12_01A0 30+J,50
  85.       For I=1 To 10
  86.           Extension_12_0182 170,0
  87.           Extension_12_0172 0,5
  88.           Extension_12_0182 -170,0
  89.           Extension_12_0172 0,5
  90.       Next 
  91.        Extension_12_0172 0,-5
  92.       For I=1 To 9
  93.           Extension_12_0182 0,-95
  94.           Extension_12_0172 10,0
  95.           Extension_12_0182 0,95
  96.           Extension_12_0172 10,0
  97.       Next 
  98.    Next 
  99. End Proc
  100. Procedure BLOCKS
  101.    Repeat 
  102.       Text 20,100,"Left mouse button to stop..."
  103.        Extension_12_01A0 Rnd(280),Rnd(160) : Rem of Gr Locate Rnd(),Rnd() 
  104.        Extension_12_0182 20,40
  105.        Extension_12_0182 40,0
  106.        Extension_12_0182 -20,-40
  107.        Extension_12_0182 -40,0
  108.    Until Mouse Click
  109. End Proc