home *** CD-ROM | disk | FTP | other *** search
/ Amiga Computing 64 / ac064.adf / Rexx / Designs.ifx < prev    next >
Text File  |  1978-01-13  |  2KB  |  86 lines
  1. /*
  2.  * $VER: Designs 1.00.00 (24.9.92)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * This program will draw into the main buffer a series of random
  8.  * designs, demonstrating the use of the drawing tools from Arexx.
  9.  *
  10.  */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. GetMain
  15. IF result = "" THEN DO
  16.    /* create buffer if one doesn't exist. */
  17.    CreateBuffer 320 200 Force
  18.    GetMain
  19.    END
  20.  
  21. PARSE VAR result name width height depth
  22.  
  23. SaveUndo ; Redraw Off
  24.  
  25. LockInput
  26.  
  27. Message 'Drawing Points'
  28. BeginBar 'Points' 100
  29. DO i = 0 TO 99
  30.    Bar i
  31.    LockGUI
  32.    SetPalette '-1' RANDOM(0,255) RANDOM(0,255) RANDOM(0,255)
  33.    Point RANDOM(0,width-1) RANDOM(0,height-1)
  34.    UnlockGUI Quiet
  35.    END
  36. EndBar
  37.  
  38. Redraw On ; Redraw ; Redraw Off
  39.  
  40. Message 'Drawing Lines'
  41. BeginBar 'Lines' 30
  42. DO i = 0 TO 29
  43.    Bar i
  44.    LockGUI
  45.    SetPalette '-1' RANDOM(0,255) RANDOM(0,255) RANDOM(0,255)
  46.    Line RANDOM(0,width-1) RANDOM(0,height-1) RANDOM(0,width-1) RANDOM(0,height-1)
  47.    UnlockGUI Quiet
  48.    END
  49. EndBar
  50.  
  51. Redraw On ; Redraw ; Redraw Off
  52.  
  53. Message 'Drawing Boxes'
  54. BeginBar 'Boxes' 30
  55. DO i = 0 TO 29
  56.    Bar i
  57.    LockGUI
  58.    SetPalette '-1' RANDOM(0,255) RANDOM(0,255) RANDOM(0,255)
  59.    x = RANDOM(0,width-1)
  60.    y = RANDOM(0,height-1)
  61.    Box x y RANDOM(0,width-x-1) RANDOM(0,height-y-1)
  62.    UnlockGUI Quiet
  63.    END
  64. EndBar
  65.  
  66. Redraw On ; Redraw ; Redraw Off
  67.  
  68. Message 'Drawing Ovals'
  69. BeginBar 'Ovals' 30
  70. DO i = 0 TO 29
  71.    Bar i
  72.    LockGUI
  73.    SetPalette '-1' RANDOM(0,255) RANDOM(0,255) RANDOM(0,255)
  74.    x = RANDOM(0,width-1)
  75.    y = RANDOM(0,height-1)
  76.    Oval x y RANDOM(0,width/2) RANDOM(0,height/2)
  77.    UnlockGUI Quiet
  78.    END
  79. EndBar
  80.  
  81. UnlockInput
  82.  
  83. Redraw On ; Redraw
  84.  
  85. EXIT
  86.