- save pat;
-
- path pat;
-
- pat = z1 + penradius * right {up} --
- z2 + penradius * right {up} ..
- z2 + penradius * up {left} --
- z3 + penradius * up {left} ..
- z3 + penradius * left {down} --
- z4 + penradius * left {down} ..
- z4 + penradius * down {right} --
- z5 + penradius * (down + left) --
- z1 + penradius * left {down} ..
- z1 + penradius * down {right} ..
- cycle;
-
- fill pat;
-
+ fill z1 + penradius * right {up}
+ -- z2 + penradius * right {up}
+ .. z2 + penradius * up {left}
+ -- z3 + penradius * up {left}
+ .. z3 + penradius * left {down}
+ -- z4 + penradius * left {down}
+ .. z4 + penradius * down {right}
+ -- z5 + penradius * (down + left)
+ -- z1 + penradius * left {down}
+ .. z1 + penradius * down {right}
+ .. cycle;