%%%%%%%%%%%%%%%% les deplacements a l echelle %%%%%%%%%%%%%%%%%%%
/v@ct_I {xunit 0} def
/v@ct_J {angle_repere cos yunit mul angle_repere sin yunit mul} def
/xscale {} def
/yscale {} def
/xscale-1 {} def
/yscale-1 {} def
/gtransform {} def
/gtransform-1 {} def
/jtoppoint {
2 dict begin
gtransform
/y exch yscale def
/x exch xscale def
v@ct_I x mulv
v@ct_J y mulv
addv
end
} def
/rptojpoint {
xtranslate ytranslate
3 1 roll %% xA yB yA xB
4 1 roll %% xB xA yB yA
sub neg 3 1 roll %% yB-yA xB xA
sub neg exch
ptojpoint
} def
/rptoppoint {
xtranslate ytranslate
3 1 roll %% xA yB yA xB
4 1 roll %% xB xA yB yA
sub neg 3 1 roll %% yB-yA xB xA
sub neg exch
} def
/ptojpoint {
4 dict begin
/Y exch yscale-1 def
/X exch xscale-1 def
/y Y yunit angle_repere sin mul div def
/x X y yunit mul angle_repere cos mul sub xunit div def
x y
gtransform-1
end
} def
/smoveto {
jtoppoint
moveto
} def
/srmoveto {
jtoppoint
rmoveto
} def
/slineto {
jtoppoint
lineto
} def
/srlineto {
jtoppoint
rlineto
} def
/stranslate {
jtoppoint
translate
} def
/jtopnumber {
dup jtoppoint pop
} def
/ptojnumber {
dup ptojpoint pop
} def
/coords {
jtoppoint
} def
|