/* This Genie sets up an isometric grid and enables snap.
Written by Don Cox */


signal on error
signal on syntax
address command
call SafeEndEdit.rexx()
call ppm_AutoUpdate(0)
cr="0a"x

currentunits = ppm_GetUnits()
call ppm_SetGrid(1)
select
    when currentunits = 1 then call ppm_SetGridSize(0.2165,0.125)
    when currentunits = 2 then call ppm_SetGridSize(.433,.25)
    otherwise call ppm_SetGridSize(1.9,1)  /* not so accurate in picas  */
    end
call ppm_SetGridSnap(1)

call exit_msg()

end

error:
syntax:
    do
    exit_msg("Genie failed due to error: "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