Бейсик. Построение поверхности

Бейсик. Построение поверхности. Программа из книги Хирн, Бейкер. Микрокомпьютерная графика. - М.: Мир, 1987: 150 SCREEN 12 160 DIM ub(424), lb(424) 170 xc = 320 180 yc = 115 190 xr = 175 200 zr = 120 210 h = 40 220 w = .043 230 xa = 107 250 FOR s = 1 TO 424 260 ub(s) = 0 270 lb(s) = 1000 280 NEXT s 300 FOR z = -zr + 1 TO zr - 1 STEP 5 310 xl = INT(xr * SQR(1 - (z * z) / (zr * zr)) + .5) 320 x = -xl 330 y = h * SIN(w * SQR(x * x + z * z)) 340 x1 = x + xc + z 350 y1 = INT(199 - (yc + y + z / 2) + .5) 360 FOR x = -xl + 1 TO xl - 1 370 y = h * SIN(w * SQR(x * x + z * z)) 380 x2 = xc + x + z 390 y2 = INT(199 - (yc + y + z / 2) + .5) 410 IF y2 ﹥= lb(x2 - xa) THEN 450 420 lb(x2 - xa) = y2 430 IF ub(x2 - xa) = 0 THEN ub(x2 - xa) = y2 440 GOTO 470 450 IF y2 ﹤= ub(x2 - xa) THEN 480 460 ub(x2 - xa) = y2 470 LINE (x1, y1)-(x2, y2) 480 x1 = x2 490 y1 = y2 500 NEXT x 510 NEXT z 520 END