1 REM https://rosettacode.org/wiki/Draw_a_sphere 5 PRINT "SVG sphere" 10 HTML 20 PRINT "<svg width = '640' height = '480'>" 30 LET j = 2 40 FOR i = 221 TO 0 STEP j * -1 50 FOR k = PI * -1 TO PI STEP .02 60 PRINT "<rect x = '"; 221 + i * sin(k); "' y = '"; 222 + 221 * cos(k); "' width = '1' height = '1' />" 70 PRINT "<rect x = '"; 221 + 221 * sin(k); "' y = '"; 222 + (i - 1) * cos(k); "' width = '1' height = '1' />" 80 NEXT k 90 LET j = j + 1 100 NEXT i 110 PRINT "</svg>" Return to Example Index