chiark / gitweb /
wip pastel
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Jul 2022 12:35:22 +0000 (13:35 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Jul 2022 12:35:22 +0000 (13:35 +0100)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
overflow-tube.ps.pl

index 6042462c8442431027001609c0b246172ae1e34a..be424e4f4b0543213b3b5b34012458f47c82ff33 100755 (executable)
@@ -82,7 +82,11 @@ sub veepsq ($) {
                $sqx  $sqy lineto
                $sqx -$sqy lineto closepath
 
-       gsave 1 setgray fill grestore
+       gsave 
+             0.66 0.85 0.75 setrgbcolor
+             fill
+       grestore
+       0.19 0.35 0.25 setrgbcolor
        0.5 setlinewidth
        stroke
     grestore