[pavelzb]

Реализация "Фрактала"
(blog.qbasic.su/2010/12/01/fraktalyi-na-qbasic/)
закинуть в 2D скрипт.   
тормоз словите на любой машине
_________________________________
Kc = 130
a = 640: b = 480
!p = -.1: q = -1.92
p = .5: q = -.1
!p = -.5: q = -.9
!p = -.5: q = .9
!p = .5: q = 1
100:
Xmin = -1.75: Ymin = -1.25
Xmax = 1.75: Ymax = 1.25
M = 100
dx = (Xmax - Xmin) / (a - 1)
dy = (Ymax - Ymin) / (b - 1)
FOR Nx = 1 TO a - 1
FOR Ny = 1 TO b - 1
xk = Xmin + Nx * dx
yk = Ymin + Ny * dy
k = 0
200:
xk1 = xk * xk - yk * yk + p
yk1 = 2 * xk * yk + q
k = k + 1
c = k
300:
r = xk1 * xk1 + yk1 * yk1
xk = xk1: yk = yk1
IF r > M THEN
c = k
GOTO 400
ENDIF
IF k = Kc THEN
c = 0
GOTO 400
ENDIF
GOTO 200
400:
pen c+1
CIRCLE2 Nx/1000, Ny/1000, 0.0005
NEXT Ny
NEXT Nx

[pavelzb]

!p = -.1: q = -1.92
p = .5: q = -.1
!p = -.5: q = -.9
!p = -.5: q = .9
!p = .5: q = 1

"!" убрать/добавить у любого значения или вписать свои числа

[vm4e]

это то, чем делаются процедурные текстуры типа мрамор?

[pavelzb]

это то, чем делаются процедурные текстуры типа мрамор?

Все один раздел - математика - формулы .
_______________
"CIRCLE2 Nx/1000, Ny/1000, 0.0005"
 - заменить на
"Lin_ Nx/1000, Ny/1000, 0, Nx/1000, Ny/1000, (c+1)/100"
И заслать в 3D скрипт тормозов меньше

[MAYDAY]

Прикольно) а в 3д если? можно как-то?
?