Category talk:Jq-turtle: Difference between revisions

# Move to $xy = [$x,$y] without changing orientation

def turtleMove($xy):

$xy as [$x, $y]

| .svg += "M \($x),\($y)";

# Move to $xy = [$x,$y] in SVG co-ordinates and change orientation to ($angle % 360) degrees,

# but if $xy is not an array, then just adjust the orientation.

def turtleMove($xy; $angle):

if $xy|type == "array"

then $xy as [$x, $y]

| .svg += "M \($x),\($y)"

else .

end

| .angle = ($angle % 360);

else ($d * (.angle|cosDegrees|rnd)) as $dx

| ($d * (.angle|sinDegrees|rnd) * -1) as $dy

def turtleRotate($angle): .angle = (360 + (.angle + $angle)) % 360;

def turtleArcRight($r):

if .angle== 0 then .svg += " a\($r),\($r) 0 0 1 \($r),\($r)" # checked

elif .angle== 90 then .svg += " a\($r),\($r) 0 0 1 \($r),-\($r)" # checked

elif .angle==180 then .svg += " a\($r),\($r) 0 0 1 -\($r),-\($r)" # checked

elif .angle==270 then .svg += " a\($r),\($r) 0 0 1 -\($r),\($r)" # checked

else "turtleArcRight at \(.angle) not yet supported" | error

end

| turtleRotate(-90);

def turtleArcLeft($r):

if .angle== 0 then .svg += " a\($r),\($r) 0 0 0 \($r),-\($r)" # check

elif .angle== 90 then .svg += " a\($r),\($r) 0 0 0 -\($r),-\($r)" # check

elif .angle==180 then .svg += " a\($r),\($r) 0 0 0 -\($r),\($r)" # check

elif .angle==270 then .svg += " a\($r),\($r) 0 0 0 \($r),\($r)"

else "turtleArcRight at \(.angle) not yet supported" | error

end

| turtleRotate(90);

#################################################################################