wps

commit b0b0c6847b33930845323e84a805a7269ab611c9
parent 66a6ea71ddfcfab379efeec941d89957e7242379
Author: tomas <tomas@logand.com>
Date:   Sat, 23 Jan 2010 14:29:31 +0100

Changes from 2009-06-30

Diffstat:
M
wps.wps
 | 
14
++++++--------

1 file changed, 6 insertions(+), 8 deletions(-)
diff --git a/wps.wps b/wps.wps
@@ -161,7 +161,9 @@ systemdict/def{currentdict 2 index 2 index put pop pop}put
 /.clip{(clip)0 .gcall0}def
 /.isPointInPath{(isPointInPath)2 .gcall1}def
 /.fillText{(fillText)4 .gcall0}def
+/.fillText{}def % TODO not working in Firefox
 /.strokeText{(strokeText)4 .gcall0}def
+/.strokeText{}def % TODO not working in Firefox
 /.measureText{(measureText)1 .gcall1}def
 /.drawImage1{(drawImage1)5 .gcall0}def
 /.drawImage2{(drawImage2)9 .gcall0}def
@@ -227,8 +229,8 @@ systemdict/def{currentdict 2 index 2 index put pop pop}put
   .tm exch .mmul setmatrix % = .tm x m
 } def
 
-/transform{dup type(arraytype)ne{.tm}if .xy}def
-/itransform{dup type(arraytype)ne{.tm}if .minv .xy}def
+/transform{dup type(arraytype)ne{.tmd}if .xy}def % TODO why .tmd not .tm?
+/itransform{dup type(arraytype)ne{.tmd}if .minv .xy}def % TODO why .tmd not .tm?
 
 /.scaleM{0 0 3 2 roll 0 0 6 array astore}def % x y -- [x 0 0 y 0 0]
 /.scale3{pop .scaleM}def
@@ -289,7 +291,7 @@ systemdict/def{currentdict 2 index 2 index put pop pop}put
 /setrgbcolor{3{255 mul round 3 1 roll}repeat .rgb dup .setStrokeStyle .setFillStyle}def
 /setfont{} def % TODO C.font = N + "pt " + F.V;
 /clippath{0 0 .gcanvas(width)get .gcanvas(height)get .rect}def % TODO
-/show{currentpoint 3 2 roll .fillText .strokeText}def % TODO
+/show{currentpoint 3 2 roll 3 copy .fillText .strokeText}def % TODO
 
 /rlineto{.tmd .xy .py add exch .px add exch .tmd .minv .xy lineto}def
 
@@ -298,8 +300,6 @@ systemdict/def{currentdict 2 index 2 index put pop pop}put
 
 /showpage{}def % TODO
 
-%/arc{.deg2rad exch .deg2rad exch true (arc)6 .gcall0}def % TODO currentpoint
-%/arcn{.deg2rad exch .deg2rad exch false(arc)6 .gcall0}def % TODO currentpoint
 /arc{.deg2rad exch .deg2rad exch true .arc}def % TODO currentpoint
 /arcn{.deg2rad exch .deg2rad exch false .arc}def % TODO currentpoint
 
@@ -309,7 +309,7 @@ systemdict/def{currentdict 2 index 2 index put pop pop}put
 
 /stroke{.stroke newpath currentpoint .moveTo}def
 
-/curveto{2 copy .setPoint .bezierCurveTo}def
+/curveto{2 copy .setPoint 2 copy .setPath/.tmd matrix def .bezierCurveTo}def
 
 /grestoreall{}def % TODO
 
@@ -389,8 +389,6 @@ systemdict/def{currentdict 2 index 2 index put pop pop}put
 /BX{}def % TODO
 /EX{}def % TODO
 
-/PS{cvx exec}def
-
 % /Operators 50 dict begin
 %   /cs { //ResolveColorSpace exec //SetColorSpaceSafe exec
 %       } bind def