a strawberry and blue flavour quantum ripple : inspired by those lovely IBM quantum tunneling microscope pictures.
enjoy, geecee3.
set display mode 1600,1200,32 : hide mouse : backdrop on : color backdrop rgb(0,0,0) : autocam off : position camera 500,500,-250 : point camera 500,0,500 : sync on : sync rate 0 : set ambient light 0
dim layer_a#(100) : count_a# = 0.0 : speed_a# = 5.0 : for j = 1 to 100 : make object cube j,10 : scale object j,90,90,10000 : color object j,rgb(0,30,255) : layer_a#(j) = count_a# : count_a# = count_a# + speed_a# : next j
dim layer_b#(100) : count_b# = 0.0 : speed_b# = 10.0 : for k = 101 to 200 : make object cube k,10 : scale object k,10000,91,91 : color object k,rgb(255,0,30) : layer_b#(k-100) = count_b# : count_b# = count_b# + speed_b# : next k
color light 0,0,0,0 : make light 1 : set point light 1,0,250,500 : color light 1,4000,4000,4000 : speed_a# = 2.0 : speed_b# = 2.0 : cam_orb# = 250.0 : cam_vel# = 0.25 : cam_cnt#=0.0
do : for j = 1 to 100 : position object j,j*10,sin(layer_a#(j))*20.0,500 : layer_a#(j) = layer_a#(j) + speed_a# : next j
for k = 101 to 200 : kk=k-100 : position object k,500,sin(layer_b#(kk))*20,kk*10 : layer_b#(kk) = layer_b#(kk) - speed_b# : next k
position camera 500+(sin(cam_cnt#)*cam_orb#),200,500+(cos(cam_cnt#)*cam_orb#) : point camera 500,0,500 : cam_cnt# = cam_cnt# + cam_vel# : sync : loop : end
`quantum carpet, 7 lines.
`geecee3 2004
`coded to - roni size (in the mode) , breakbeat era (ultra obscene)
`greetz to the massive.
