chiark / gitweb /
landscape
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Jul 2022 11:14:49 +0000 (12:14 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Jul 2022 11:14:49 +0000 (12:14 +0100)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
overflow-tube.ps.pl

index 23b30ebd33cb48203789a0b5ba2ec7b4a8cca26e..96b701e2f36b3b686a9668b932a441a1eb1942bf 100755 (executable)
@@ -8,13 +8,16 @@ use strict;
 BEGIN { unshift @INC, '.'; }
 use Quacks;
 
-ps_start();
-
 sub o {
   local $_;
   for (@_) { $ps_framing .= $_ }
 }
 
+ps_start(<<END);
+90 rotate
+0 -210 translate
+END
+
 o <<END;
 0 0 moveto 20 20 lineto stroke
 END