home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CDPD Public Domain Collection for CDTV 4
/
CDPD_IV.bin
/
fish
/
911-930
/
ff925
/
donsgenies
/
frenchgenies.lha
/
Rexx
/
GrilleIsom騁rique60.pprx
< prev
next >
Wrap
Text File
|
1993-08-03
|
1KB
|
59 lines
/*
@BGrilleIsométrique60 @P @I Ecrit et © par Don Cox en Février 1993
@IN'est pas du Domaine Publique. Tous Droits Réservés.
Traduit par Fabien Larini le 24/07/93.
Ce Génie met en place une grille de 0.25 par 0.433 si l'unité courante
est le cm, de 0.125 par 0.2165 si l'unité est l'inch, de 1 par 1.9 si
l'unité est le pica, et active l'alignement sur grille. Il sauvegarde les
anciennes dimensions afin de pouvoir les rappeler avec le Génie
"RestoreGrille".
*/
/*IsometricGrid60*/
/* This Genie sets up an isometric grid and enables snap.
Written by Don Cox © Feb 93 Not public domain. All rights reserved. */
signal on error
signal on syntax
address command
call SafeEndEdit.rexx()
call ppm_AutoUpdate(0)
cr="0a"x
gsize = ppm_GetGridSize()
gwidth = word(gsize,1)
gheight = word(gsize,2)
call ppm_SaveText("ram:gridsize",gsize)
currentunits = ppm_GetUnits()
call ppm_SetGrid(1)
select
when currentunits = 1 then call ppm_SetGridSize(0.125,0.2165)
when currentunits = 2 then call ppm_SetGridSize(.25,.433)
otherwise call ppm_SetGridSize(1,1.9) /* not so accurate in picas */
end
call ppm_SetGridSnap(1)
call exit_msg()
end
error:
syntax:
do
exit_msg("Arrêt du Génie dû à l'erreur: "errortext(rc))
end
exit_msg:
do
parse arg message
if message ~= "" then
call ppm_Inform(1,message,)
call ppm_ClearStatus()
call ppm_AutoUpdate(1)
exit
end