ЛА и компьютерное творчество
 

Quasi M13.Попробуйте отловить стерео! (У кого что получится?.. Но должно, должно...) Картинка стереоскопическая. Для получения эффекта "стерео" необходимо правым глазом смотреть на левую и наоборот с расстояния наилучшего зрения (технология была изложена когда-то в "Науке и Жизни", смотреть одновременно обоими открытыми глазами, трёх-пяти попыток хватит для получения навыка). А вот программа отрисовки картинки для AutoCad:Sub m13()amax# = 360:Dim rmx#(4): rmx(0) = 3: rmx(1) = 4: rmx(2) = 8: rmx(3) = 15Dim k#(4): k(0) = 1600: k(1) = 800: k(2) = 400: k(3) = 200For j# = 0 To 3 For i# = 0 To k(j) Randomize r$ = CStr(Int((rmx(j) + 1) * Rnd)) ang1$ = CStr(Int((amax# + 1) * Rnd)) ang2$ = CStr(Int((amax# + 1) * Rnd)) ThisDrawing.SendCommand ("point " + r$ + "