How to fill-in a diamond without PAINT

[OldMoses]

Wouldn't a diamond be just a line in the middle, then a line 2 pixels smaller above and below, until it reachs less than 2 pixels?

Well....yes, but where's the fun in that?

Code: (Select All)

SCREEN _NEWIMAGE(800, 600, 32)
x = 200
y = 200
s = 100: s1 = _SHR(s, 1): s2 = s1
DO
    LINE (x - s1, y - (s2 - s1))-(x + s1, y - (s2 - s1))
    LINE (x - s1, y + (s2 - s1))-(x + s1, y + (s2 - s1))
    s1 = s1 - 1
LOOP UNTIL s1 < 0