https://rosettacode.org/wiki/Peano_curve'==================================================
Task
Produce a graphical or ASCII-art representation of a Peano curve of at least order 3.
'==================================================
Const wide
= 243 'must be a power of 3 sw = 729: sh = sw
Call Peano
(0, 0, wide
, 0, 0)
iX = x: iY = y: iL = lg
iL = iL \ 3
Call Peano
(iX
+ (2 * p
* iL
), iY
+ (2 * p
* iL
), iL
, p
, q
) Call Peano
(iX
+ ((p
- q
+ 1) * iL
), iY
+ ((p
+ q
) * iL
), iL
, p
, 1 - q
) Call Peano
(iX
+ iL
, iY
+ iL
, iL
, p
, 1 - q
) Call Peano
(iX
+ ((p
+ q
) * iL
), iY
+ ((p
- q
+ 1) * iL
), iL
, 1 - p
, 1 - q
) Call Peano
(iX
+ (2 * q
* iL
), iY
+ (2 * (1 - q
) * iL
), iL
, p
, q
) Call Peano
(iX
+ ((1 + q
- p
) * iL
), iY
+ ((2 - p
- q
) * iL
), iL
, p
, q
) Call Peano
(iX
+ (2 * (1 - p
) * iL
), iY
+ (2 * (1 - p
) * iL
), iL
, p
, q
) Call Peano
(iX
+ ((2 - p
- q
) * iL
), iY
+ ((1 + q
- p
) * iL
), iL
, 1 - p
, q
) Call Peano
(iX
+ (2 * (1 - q
) * iL
), iY
+ (2 * q
* iL
), iL
, 1 - p
, q
)