chiark / gitweb /
overflow-tube: wip cut2 (whitespace)
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 12 Nov 2022 16:42:33 +0000 (16:42 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 12 Nov 2022 16:42:33 +0000 (16:42 +0000)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
overflow-tube.ps.pl

index be1eb64b4ca8a1090ca1ecb29c035c0c0db45f66..5f15bfeb9f4e894de79c1276527382e2a2efb686 100755 (executable)
@@ -55,14 +55,14 @@ END
 o <<GS, some_cut_line(<<GR), <<END;
 /cut_line {
 GS
-                              newpath
-  $x_cut2 0                   moveto
-  $x_cut2 $y_cut2             lineto
-  $x_cut  $y_cut2 $y_cut2d add lineto
-  $x_cut $y_cut               lineto
-  0      $y_cut $y_cutd add   lineto
-  0      $y_top               lineto
-                              stroke
+                                          newpath
+  $x_cut2     0                           moveto
+  $x_cut2     $y_cut2                     lineto
+  $x_cut      $y_cut2   $y_cut2d add      lineto
+  $x_cut      $y_cut                      lineto
+  0           $y_cut    $y_cutd add       lineto
+  0           $y_top                      lineto
+                                          stroke
 GR
 } def
 END