wps

PostScript for the Web
git clone https://logand.com/git/wps.git/
Log | Files | Refs | LICENSE

commit 0a02046efaf1d122e3a94b7ee8eb404665994cf8
parent 676ee856da06028ea3d77722dcc88594178844ea
Author: tomas <tomas@logand.com>
Date:   Sat, 23 Jan 2010 15:13:34 +0100

changes from 2009-07-14

Diffstat:
Mwps.js | 2++
Mwps.wps | 8+++-----
2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/wps.js b/wps.js @@ -380,6 +380,8 @@ function Wps() { // savetype }; +// Sd["save"] = function() {Os.push([]);}; // TODO +// Sd["restore"] = function() {Os.pop();}; // TODO Sd["save"] = function() { var X = Ds.slice(); for(var I = 0; I < X.length; I++) { diff --git a/wps.wps b/wps.wps @@ -360,7 +360,7 @@ initmatrix /M{setmiterlimit}.bdef /d{setdash}.bdef % TODO /ri{}.bdef % TODO -/i{}.bdef % TODO +/i{1 .min setflat}.bdef /gs{}.bdef % TODO /q{gsave}.bdef /Q{grestore}.bdef @@ -368,10 +368,8 @@ initmatrix /m{newpath moveto}.bdef % TODO only if not m previously /l{lineto}.bdef /c{.bezierCurveTo}.bdef -%/v{currentpoint cp2 p3 c}.bdef % TODO fix arg order -/v{}.bdef % TODO fix arg order -%/y{cp1 p3 p3 c}.bdef % TODO fix arg order -/y{}.bdef % TODO fix arg order +/v{currentpoint 6 2 roll c}.bdef +/y{2 copy c}.bdef /h{closepath}.bdef % TODO /re{.rect}.bdef % TODO really, or x y m , x+w y l , x+w y+h l , x y+h l , h /S{stroke}.bdef