@BCopierEtRΘpΘterDeLuxe @P@I Ecrit et ⌐ par Don Cox en juillet 92
@IN'est pas du Domaine Publique. Tous Droits RΘservΘs.
Traduit par Fabien Larini le 27/07/93.
Ce GΘnie fait des copies multiples d'un boεte en utilisant le dΘcalage et
l'angle de rotation indiquΘs par l'utilisateur. Vous pouvez aussi
appliquer un facteur d'Θchelle pour les copies ainsi que le centre de
rotation.
*/
/*
StepAndRepeatDeLuxe
This Genie will make multiple copies of a box with user specified offset and rotation between copies. You can also scale the copies and set the centre of rotation.
Written by Don Cox July 92.
*/
if ~show(l, "gdarexxsupport.library") then
if ~addlib("gdarexxsupport.library", 0, -30) then
exit_msg("Installez gdarexxsupport.library dans votre rΘpertoire Libs: avant d'utiliser ce Genie !")
cr = '0a'x
address command
call SafeEndEdit.rexx()
units = ppm_GetUnits()
if units = 3 then call ppm_SetUnits(2)
signal on halt
signal on break_c
signal on break_e
signal on break_d
cu = "in"
if units = 2 then cu = "cm"
call ppm_AutoUpdate(0)
call ppm_NewGroup()
box = ppm_ClickOnBox("Clickez Dans la Boεte α Copier")
if box = 0 then exit_msg("Pas de Boεte SΘlectionnΘe")
call ppm_AddToGroup(box) /* whole set grouped including original box */