14 lines
165 B
Text
14 lines
165 B
Text
:1→X:1→Y
|
|
:Zdecimal
|
|
:Horizontal 3.1
|
|
:Vertical -4.5
|
|
:While 1
|
|
:X+1→X
|
|
:DS<(Y,1
|
|
:While 0
|
|
:X→Y
|
|
:1→X
|
|
:End
|
|
:If pxl-Test(Y-1,X) xor (pxl-Test(Y,X-1
|
|
:PxlOn(Y,X
|
|
:End
|