home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0925.lha / DonsGenies / FrenchGenies.lha / Rexx / CopierEtRépéterRelié.pprx < prev    next >
Text File  |  1993-08-03  |  3KB  |  102 lines
  1. /*
  2. @BCopierEtRΘpΘterReliΘ  @P@ICopyright Gold Disk Inc., FΘvrier 1992
  3. ModifiΘ par Don Cox.
  4.  
  5. Ce Genie permet de crΘer plusieurs copies d'une mΩme boεte en spΘcifiant la distance et l'angle entre ces diffΘrentes copies. Les boεtes sont reliΘes.
  6. */
  7. cr = '0a'x
  8. address command
  9. call SafeEndEdit.rexx()
  10. units = ppm_GetUnits()
  11. if units = 3 then
  12.     call ppm_SetUnits(1)
  13.  
  14. signal on halt
  15. signal on break_c
  16. signal on break_e
  17. signal on break_d
  18. form    = "Colonnes"cr"RangΘes"cr"GouttiΦre"
  19.  
  20. /* This Genie allows user to duplicate, move and rotate a box
  21.  * in one step
  22.  */
  23.  
  24. box = ppm_ClickOnBox("Cliquez sur la boεte α copier...")
  25. if box = 0 then exit_msg()
  26. dup = 0
  27.  
  28. boxpos  = ppm_GetBoxPosition(box)
  29. cur_x   = word(boxpos, 1 )
  30. cur_y   = word(boxpos, 2 )
  31.  
  32. boxsize = ppm_GetBoxSize(box)
  33. width   = word(boxsize, 1 )
  34. height  = word(boxsize, 2 )
  35.  
  36. if units = 3 then
  37. do
  38.    call ppm_ShowStatus("Position: " || ppm_ConvertUnits(1, 3, cur_x) || ", " || ppm_ConvertUnits(1, 3, cur_y) || " taille: l" || ppm_ConvertUnits(1, 3, width) || ", h" || ppm_ConvertUnits(1, 3, height))
  39.  
  40.    form = "Nombre de copies:1"cr"Distance horizontale:" || ppm_ConvertUnits(1, 3, width)||cr"Distance verticale:" || ppm_ConvertUnits(1, 3, height)||cr"Angle"
  41.  
  42. end
  43. else
  44. do
  45.    call ppm_ShowStatus("Position: "cur_x", "cur_y" taille: l"width", h"height)
  46.    form ="Nombre de copies:1"cr"Distance horizontale:"width||cr"Distance verticale:"height||cr"Angle"
  47. end
  48.  
  49. form = ppm_GetForm("SΘlection des options", 8, form)
  50. if form = '' then exit_msg()
  51. parse var form count '0a'x  horizontal '0a'x vertical '0a'x angle
  52.  
  53. if count = '' then count = 1
  54. if horizontal = '' then horizontal = 0
  55. if vertical = '' then vertical = 0
  56. if angle = '' then angle = 0
  57.  
  58. if ~(datatype(count, n) & datatype(horizontal, n) & datatype(vertical, n) & datatype(angle, n)) then exit_msg("Saisie incorrecte")
  59.  
  60. if units = 3 then
  61. do
  62.    horizontal = ppm_ConvertUnits(3, 1, horizontal)
  63.    vertical = ppm_ConvertUnits(3, 1, vertical)
  64. end
  65.  
  66. call ppm_AutoUpdate(0)
  67. rotationangle = angle
  68.  
  69. do i = 1 to count
  70.  
  71.     newbox = ppm_CloneBox(box, horizontal, vertical)
  72.     
  73.     linked = ppm_LinkBox(box,newbox)
  74.  
  75.     if angle ~= 0 then
  76.     do
  77.         call ppm_SetBoxAngle(newbox, rotationangle)
  78.         rotationangle = rotationangle + angle
  79.     end
  80.  
  81.     box = newbox
  82.  
  83. end
  84.  
  85. exit_msg()
  86. break_d:
  87. break_e:
  88. break_c:
  89. halt:
  90.     call exit_msg("Abandon du Genie par l'utilisateur !")
  91.  
  92. exit_msg: procedure  expose units
  93. do
  94.     parse arg message
  95.  
  96.     if message ~= '' then call ppm_Inform(1, message,)
  97.     call ppm_ClearStatus()
  98.    if units = 3 then call ppm_SetUnits(3)
  99.     call ppm_AutoUpdate(1)
  100.     exit
  101. end
  102.