home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / create.strx < prev    next >
Encoding:
Text File  |  1993-10-19  |  2.0 KB  |  91 lines
  1. /* $VER: Create.strx 1.0 (14.Oct.93) */
  2.  
  3.  
  4. /*
  5. call open STDOUT,"RAD:RxOut.txt",W
  6. call open STDERR,"RAD:RxErr.txt",W
  7. trace R
  8. */
  9.  
  10.  
  11. options results
  12.  
  13. /* Define Public Screen */
  14. Gads.PubScreen = "STYLUSTRACER"
  15.  
  16. /* Define Window */ 
  17. Gads.0.LeftEdge = 16; Gads.0.TopEdge = 12
  18. Gads.0.Width = 300; Gads.0.Height = 88
  19. Gads.0.Label = "New image"
  20.  
  21. /* Define Label Gadgets */
  22. Gads.1.LeftEdge = 96; Gads.1.TopEdge = 8
  23. Gads.1.Width = 112; Gads.1.Height = 12
  24. Gads.1.Type = Integer
  25. Gads.1.Size = 16
  26. Gads.1.Label = "Width:"
  27. Gads.1.Value = 640
  28.  
  29. Gads.2.LeftEdge = 96; Gads.2.TopEdge = 24
  30. Gads.2.Width = 112; Gads.2.Height = 12
  31. Gads.2.Type = Integer
  32. Gads.2.Size = 16
  33. Gads.2.Label = "Height:"
  34. Gads.2.Value = 400
  35.  
  36. Gads.3.LeftEdge = 96; Gads.3.TopEdge = 40
  37. Gads.3.Width = 112; Gads.3.Height = 12
  38. Gads.3.Type = Cycle
  39. Gads.3.Descr.0 = "Black+White"
  40. Gads.3.Descr.1 = "Indexed"
  41. Gads.3.Descr.2 = "Greyscale"
  42. Gads.3.Descr.3 = "Full Color"
  43. Gads.3.Size = 4
  44. Gads.3.Label = "Type:"
  45. Gads.3.Value = 1
  46.  
  47. Gads.4.LeftEdge = 96; Gads.4.TopEdge = 56
  48. Gads.4.Width = 112; Gads.4.Height = 12
  49. Gads.4.Type = Integer
  50. Gads.4.Size = 16
  51. Gads.4.Label = "Colors:"
  52. Gads.4.Value = 16
  53.  
  54. Gads.5.LeftEdge = 64; Gads.5.TopEdge = 72
  55. Gads.5.Width = 64; Gads.5.Height = 12
  56. Gads.5.Type = Button
  57. Gads.5.Label = "OK"
  58. Gads.5.EndGad = 1
  59.  
  60. Gads.6.LeftEdge = 164; Gads.6.TopEdge = 72
  61. Gads.6.Width = 64; Gads.6.Height = 12
  62. Gads.6.Type = Button
  63. Gads.6.Label = "Cancel"
  64. Gads.6.EndGad = -1
  65.  
  66. /* Total Gadgets + Window */
  67. Gads.NumGads = 7
  68.  
  69. address REXXREQUEST
  70. 'GetRequest Gads';    OK = Result
  71.  
  72. if OK >= 1 then do
  73.     Address StylusTracer
  74.     if Gads.3.Value = 1 then
  75.     'Create' Gads.3.Value Gads.4.Value Gads.1.Value Gads.2.Value
  76.     else
  77.     'Create' Gads.3.Value Gads.1.Value Gads.2.Value
  78. end
  79. /*
  80. CREATE Syntax:
  81.     'CREATE' Type [Colors] Width Height
  82.  
  83.     Type follows the same form as the IMGTYPE command;
  84.        that is a numeric value from the following table:
  85.        0 = B&W
  86.        1 = Indexed
  87.        2 = Greyscale
  88.        3 = True Color
  89.     The Colors arg is only required for Type = 1 (Indexed)
  90. */
  91.