Peano curve: Difference between revisions

m
(Added Easylang)
Line 381:
 
=={{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>
proc expandlsysexp level . axiom$ rules$[] .
for l to level
an$ = ""
Line 399:
.
.
proc drawlsysdraw axiom$ x y ang . .
linewidth 0.3
move x y
Line 416:
axiom$ = "L"
rules$[] = [ "L" "LFRFL-F-RFLFR+F+LFRFL" "R" "RFLFR+F+LFRFL-F-RFLFR" ]
expandlsysexp 4 axiom$ rules$[]
drawlsysdraw axiom$ 5 90 90
</syntaxhighlight>
 
2,033

edits