Peano curve: Difference between revisions
Content added Content deleted
(Added Easylang) |
|||
Line 381: | Line 381: | ||
=={{header|EasyLang}}== |
=={{header|EasyLang}}== |
||
[https://easylang.online/show/#cod=jZK9boMwFIV3P8WRhbogrKQ/QwavnphYIwYXnMaqY5BNArx95YAJoR06INnnfNzje3Vb11QwfvRqaGHUTRkwyEE3lwTuapRPjiUYAXBqHAy6ZqKCAkDaBByUztfAVAm0he9cdZbOz7Vmf0Y0OPbwnWrxOlW0S9iDBKBPUdclOKrkyQVCGF8QpNiXW+LTKfmN/ZPMyF/H0MvLKiRavpdtHIm0d5cRRto4udrJPvoDRkj7BTb9bbRVva67M3bsLQiX5qYCRP4xLH2a2qOCPh45IOWoGo9au4c6BtVr+6yG9BgGQJmlYraqWGuHjIdX/+bSDZeuORYnMffOQXNKlqXhOAYBNBeFyDORFSIXRSrS+52CFuFba5GhKElcyfftMpLtyD9w2OGwI+QH Run it] |
|||
[https://easylang.online/show/#cod=jZK9boMwFIV3P8WRhbogLNKfIYNXT0ysEYMLprHqGGSThLx95YAJoR06INnnfNzje3V719VQYy9tA6MuyoBBjro7JXBno3xyqMAIgLZzMBi6iQoKAGkTcFA6XwNTJ9AWfnD1UTo/15r9GdHg2MEPqsfrVNEuYQ8SgG6jritw1MmTC4QwviBIsau2xKdT8hu7J5mRv46hl5dVSLT8VfZxJNLeXUYY6cPgGiev0Rtxg7RfYNOfRlt11c1wRM7egnDqLipA5B+D0u3UGhX08cARKUfdeTTaPdRbUL22z2pIj2EAlFkqZquKjXbIeHj1by7dcOmaY3EKc+8ctKBkWRiOQxBAC1GKIhNZKQpRpiK93yloGb61FhmKiszb+L7dQ7Ke9gf2OfY5IT8= Run it] |
|||
<syntaxhighlight> |
<syntaxhighlight> |
||
proc |
proc lsysexp level . axiom$ rules$[] . |
||
for l to level |
for l to level |
||
an$ = "" |
an$ = "" |
||
Line 399: | Line 399: | ||
. |
. |
||
. |
. |
||
proc |
proc lsysdraw axiom$ x y ang . . |
||
linewidth 0.3 |
linewidth 0.3 |
||
move x y |
move x y |
||
Line 416: | Line 416: | ||
axiom$ = "L" |
axiom$ = "L" |
||
rules$[] = [ "L" "LFRFL-F-RFLFR+F+LFRFL" "R" "RFLFR+F+LFRFL-F-RFLFR" ] |
rules$[] = [ "L" "LFRFL-F-RFLFR+F+LFRFL" "R" "RFLFR+F+LFRFL-F-RFLFR" ] |
||
lsysexp 4 axiom$ rules$[] |
|||
lsysdraw axiom$ 5 90 90 |
|||
</syntaxhighlight> |
</syntaxhighlight> |
||