Category talk:Jq-turtle: Difference between revisions
minx maxx miny maxy
(minx maxx miny maxy) |
|||
Line 10:
<pre>
# The turtle's state: {svg, up, angle, x, y, minx, maxx, miny, maxy}
# Angle:
Line 25:
# $start : [$x, $y]
def turtle($start):
def mm: .minx = .x | .miny = .y | .maxx = .x | .maxy = .y;
$start
| if type == "array"
then "M \($start|join(","))"
| {svg: ., up:true, angle:0};▼
else turtle([0,0])
end
| mm ;
def turtleUp: .up=true;
def turtleDown: .up=false;
def minmax:
.minx = ([.minx, .x]|min)
| .miny = ([.miny, .y]|min)
| .maxx = ([.maxx, .x]|max)
| .maxy = ([.maxy, .y]|max) ;
# Move to $xy = [$x,$y] without changing orientation
def turtleMove($xy):
$xy as [$x, $y]
| .
| .svg += "M \($x),\($y)"
| minmax;
# Move to $xy = [$x,$y] in SVG co-ordinates and change orientation to ($angle % 360) degrees,
Line 43 ⟶ 56:
then $xy as [$x, $y]
| .svg += "M \($x),\($y)"
| .x = $x | .y = $y
| minmax
else .
end
| .angle = ($angle % 360);
def turtleForward($d):
def rnd: 1000*.|round/1000;
if .up
then if .angle== 0 then .svg += " m \($d),0" | .x += $d
elif .angle== 90 then .svg += " m 0,-\($d)" | .y -= $d
elif .angle==180 then .svg += " m -\($d),0" | .x -= $d
elif .angle==270 then .svg += " m 0,\($d)" | .y += $d
else ($d * (.angle|cosDegrees
| ($d * (.angle|sinDegrees
| .svg += " m\($dx|rnd),\($dy|rnd)\n"
| .x += $dx
| .y += $dy
end
else if .angle== 0 then .svg += " h \($d)" | .x += $d
elif .angle== 90 then .svg += " v -\($d)" | .y -= $d
elif .angle==180 then .svg += " h -\($d)" | .x -= $d
elif .angle==270 then .svg += " v \($d)" | .y += $d
else ($d * (.angle|cosDegrees
| ($d * (.angle|sinDegrees
| .svg += " l\($dx|rnd),\($dy|rnd)\n"
| .x += $dx
| .y += $dy
end
end
| minmax;
def turtleRotate($angle): .angle = (360 + (.angle + $angle)) % 360;
def turtleArcRight($r):
if .angle== 0 then .svg += " a\($r),\($r) 0 0 1 \($r),\($r)"
elif .angle== 90 then .svg += " a\($r),\($r) 0 0 1 \($r),-\($r)"
elif .angle==180 then .svg += " a\($r),\($r) 0 0 1 -\($r),-\($r)"|
elif .angle==270 then .svg += " a\($r),\($r) 0 0 1 -\($r),\($r)"
else "turtleArcRight at \(.angle) not yet supported" | error
end
| minmax
| turtleRotate(-90);
def turtleArcLeft($r):
if .angle== 0 then .svg += " a\($r),\($r) 0 0 0 \($r),-\($r)"
elif .angle== 90 then .svg += " a\($r),\($r) 0 0 0 -\($r),-\($r)"|
elif .angle==180 then .svg += " a\($r),\($r) 0 0 0 -\($r),\($r)"
elif .angle==270 then .svg += " a\($r),\($r) 0 0 0 \($r),\($r)" | .x += $r | .y += $r
else "turtleArcRight at \(.angle) not yet supported" | error
end
| minmax
| turtleRotate(90);
def svg($size):
Line 94 ⟶ 116:
.,
"</svg>";
def path($fill; $stroke; $width):
"<path fill=\"\($fill)\" stroke=\"\($stroke)\" stroke-width=\"
def draw($size):
path("none"; "red"; 1) | svg($size)
</pre>
| |||