🚀 go-pugleaf

$B>._7$5$/!wElBg$G$9!%(B

x0,y0,x1,y1,...,xn-1,yn-1 $B$H$$$&:BI8CM$N$J$i$S$rMWAG$K;}$DG[Ns$K$7$?$,$C(B
$B$F%Q%9$rIA$3$&$H!$0J2<$N$h$&$J%W%m%0%i%`$r=q$$$F$_$^$7$?!%(B
------------>8------------ C U T   H E R E ------------>8------------
/points [ 0 0  100 0  100 100  0 100 ] def
points aload       % x0 y0 ... xn-1 yn-1 points
length 2 div 1 sub % x0 y0 ... xn-1 yn-1 n/2-1
3 1 roll           % x0 y0 ... xn-2 yn-2 n/2-1 xn-1 yn-1
moveto             % x0 y0 ... xn-2 yn-2 n/2-1
{ lineto } repeat
stroke closepath
------------>8------------ C U T   H E R E ------------>8------------
$B5U=g(B(xn-1,yn-1,...,x0,y0)$B$K$O$J$k$b$N$N!$$3$l$GIA2h$G$-$k$H;W$C$?$N$G(B
$B$9$,!$(Bghostscript $B$K?)$o$;$F$_$?$H$3$m!$(B
------------>8------------ C U T   H E R E ------------>8------------
Error: /typecheck in --repeat--
Operand stack:
    0  0  100  0  100  100  3  {lineto}
Execution stack:
    %interp_exit    --nostringval--  --nostringval--  %loop_continue  --nostringval--  --nostringval--  false  --nostringval--  --nostringval--  --nostringval--  false  --nostringval--  --nostringval--  --nostringval--
Dictionary stack:
    446/449  29/200
------------>8------------ C U T   H E R E ------------>8------------
$B$H$J$j<:GT$7$^$7$?!%(B
$B;d$NC1=c$J4*0c$$$+$b$7$l$^$;$s$,!$@5$7$$%W%m%0%i%`$r65$($F$/$@$5$$!%(B
--
A rope may form a trail in a maze.

$B>._7:wO:(B <mailto:ozawa@prince.pe.u-tokyo.ac.jp>
GCS/E C++ UL++S+@ P+++ L++>+++ E+>++ W++@ N++ w-- M+() R+>+++ tv+ b+++