Guru
Joined: 01/10/2023
Location: UkrainePosts: 560
| Posted: 11:07am 09 May 2026 |
"The Fragility of Being" by Sierpinsky
Const N=1023
Const SclX=N/MM.HRES
Const SclY=N/MM.VRES
Dim integer X,Y
Colour RGB(Green):CLS
For X=0 To N
For Y=0 To N
If X And Y Then Y=Y+(X And Y)\2
Pixel (X+Y\2)/SclX,MM.VRES-Y/SclY
Next
Next
Const SclX=N/MM.HRES
Const SclY=N/MM.VRES
Dim integer X,Y
Colour RGB(Green):CLS
For X=0 To N
For Y=0 To N
If X And Y Then Y=Y+(X And Y)\2
Pixel (X+Y\2)/SclX,MM.VRES-Y/SclY
Next
Next
Edited 2026-05-09 21:08 by javavi