mirror of
https://github.com/lucaspalomodevelop/JSSTE_Doku.git
synced 2026-03-12 23:37:21 +00:00
12 lines
417 B
Plaintext
12 lines
417 B
Plaintext
%!
|
|
/N{def}def/B{bind def}N/S{exch}N/X{SN}B
|
|
/uscale 1 N
|
|
/chp 10 string N
|
|
/acp {currentpoint transform} B /rcp {chp cvs print} B
|
|
/Cpos{/ishr X uscale mul /hbox X uscale mul /dbox X uscale mul /wbox X
|
|
acp /ycpt X ishr{wbox neg add}{dbox neg hbox add /hbox X 0 /dbox X }ifelse /xcpt X
|
|
(x1=) print xcpt rcp ( y1=) print ycpt hbox add rcp
|
|
( x2=) print xcpt wbox add rcp ( y2=) print ycpt dbox add rcp =
|
|
} B
|
|
|