wps

commit dce4344cbac0765f0ad72f5e2ab431d3ab322206
parent d0bfa45b282a10b957221208490d873b586476bd
Author: tomas <tomas@logand.com>
Date:   Sat, 23 Jan 2010 15:07:48 +0100

clock2 from 2009-07-14

Diffstat:
M
clock2.wps
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/clock2.wps b/clock2.wps
@@ -28,17 +28,18 @@
 /hand { % segment angle color width --
   origin moveto
   width mul setlinewidth
-  cvx exec
+%  cvx exec
+  load exec
   2 copy   cos mul
   3 1 roll sin mul
   lineto stroke
 } bind def
 
 /draw {
-  gsave
   /$h .date (getHours)   0 .call def
   /$m .date (getMinutes) 0 .call def
   /$s .date (getSeconds) 0 .call def
+  gsave
   width setlinewidth
   black clippath fill % background
   center dup translate