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 >
Text File  |  1993-08-03  |  1KB  |  59 lines
  1. /*
  2. @BGrilleIsométrique60 @P @I Ecrit et © par Don Cox en Février 1993
  3. @IN'est pas du Domaine Publique. Tous Droits Réservés.
  4. Traduit par Fabien Larini le 24/07/93.
  5.  
  6. Ce Génie met en  place une grille de 0.25 par 0.433 si l'unité courante 
  7. est le cm, de 0.125 par 0.2165 si l'unité est l'inch, de 1 par 1.9 si 
  8. l'unité est le pica, et active l'alignement sur grille. Il sauvegarde les
  9. anciennes dimensions afin de pouvoir les rappeler avec le Génie
  10. "RestoreGrille".
  11. */
  12.  
  13. /*IsometricGrid60*/
  14. /* This Genie sets up an isometric grid and enables snap.
  15. Written by Don Cox © Feb 93 Not public domain. All rights reserved.  */
  16.  
  17.  
  18. signal on error
  19. signal on syntax
  20. address command
  21. call SafeEndEdit.rexx()
  22. call ppm_AutoUpdate(0)
  23. cr="0a"x
  24.  
  25. gsize = ppm_GetGridSize()
  26. gwidth = word(gsize,1)
  27. gheight = word(gsize,2)
  28. call ppm_SaveText("ram:gridsize",gsize)
  29.  
  30. currentunits = ppm_GetUnits()
  31. call ppm_SetGrid(1)
  32. select
  33.     when currentunits = 1 then call ppm_SetGridSize(0.125,0.2165)
  34.     when currentunits = 2 then call ppm_SetGridSize(.25,.433)
  35.     otherwise call ppm_SetGridSize(1,1.9)  /* not so accurate in picas  */
  36.     end
  37. call ppm_SetGridSnap(1)
  38.  
  39. call exit_msg()
  40.  
  41. end
  42.  
  43. error:
  44. syntax:
  45.     do
  46.     exit_msg("Arrêt du Génie dû à l'erreur: "errortext(rc))
  47.     end
  48.  
  49. exit_msg:
  50.     do
  51.     parse arg message
  52.     if message ~= "" then
  53.     call ppm_Inform(1,message,)
  54.     call ppm_ClearStatus()
  55.     call ppm_AutoUpdate(1)
  56.     exit
  57.     end
  58.                                         
  59.