SCREEN 13
RANDOMIZE TIMER
FOR i = 0 TO 63
  PALETTE i, 256 * i
NEXT
'radius:
p = 90
'const of oo
ccc = 0
'vector osvechenia:
xx = 1
yy = 1
zz = 1
gg = p * SQR(xx * xx + yy * yy + zz * zz)
k = 1'.15
FOR x = -p TO p STEP 1 / 1.2
   FOR y = -p TO p
     IF x * x + y * y <= p * p THEN
        z = SQR(p * p - x * x - y * y)
        c = (x * xx + y * yy + z * zz) / (gg)
        IF c > 0 THEN
          PSET (160 + (x) * k, 100 - y), (c) * (62 - ccc) + ccc + RND
        ELSE
            PSET (160 + (x) * k, 100 - y), ccc
        END IF
     END IF
   NEXT
NEXT