here is an 11 liner scener style demo for y'all
enjoyisms, geecee3.
set display mode 1024,768,32 : hide mouse : backdrop on : color backdrop rgb(0,0,0) : fog on : fog color rgb(0,0,0) : fog distance 500 : autocam off : set ambient light 20 : sync on : sync rate 0 : position camera 0,40,-100 : point camera 0,40,0
set text font "tahoma" : set text size 48 : center text 128,128,"Atomic Baby" : set text size 11 : center text 192,168,"geecee3 2004" : get image 1,1,1,256,256 : make object plain 3000,180,120 : texture object 3000,1 : position object 3000,0,60,50
make object sphere 1000,7 : offset limb 1000,0,-5,0,0 : color object 1000,rgb(255,255,255) : position object 1000,0,0,0 : for j=1 to 6 : clone object j,1000 : next j : rot=0 : for r = 1 to 4 : rotate object r,0,rot,0 : rot=rot+90 : next r
rotate object 5,0,0,90 : rotate object 6,0,0,270 : rot=45 : for n=7 to 14 : clone object n,1000 : next n : rotate object 7,0,315,135 : rotate object 8,0,315,315 : rotate object 9,0,135,315 : rotate object 10,0,135,135 : rotate object 11,0,45,45
rotate object 12,0,315,45 : rotate object 13,0,135,45 : rotate object 14,0,215,45 : for j=1 to 14 : fix object pivot j : next j : hide object 1000 : for v=7 to 14 : color object v,rgb(255,0,0) : next v
make object sphere 1001,2 : offset limb 1001,0,-20,0,0 : position object 1001,0,0,0 : for g=51 to 100 : clone object g,1001 : color object g,rgb(0,255,255) : rotate object g,rnd(359),rnd(359),rnd(359)
s=rnd(50)+50 : scale object g,s,s,s : fix object pivot g : next g :dim ex#(50) : dim ey#(50) : for p=1 to 50 : ex#(p)=rnd(5.5)+1.1 : ey#(p)=rnd(5.5)+1.1 : next p : hide object 1001
left = -55 : right = 55 : orbit#=30.0 : counter=0 : countermax = 179 : bouncespeed = 5 : linearspeed = 1 : direct = 1 : xpos=0
do : if counter > countermax : counter = 0 : endif : height#=sin(counter)*orbit# : counter=counter+bouncespeed : if xpos > right : if direct = 1 : xpos=right : direct = 0 : endif : endif
if xpos < left : if direct=0 : direct = 1 : xpos=left : endif : endif : if direct = 1 : xpos = xpos + linearspeed : endif : if direct = 0 : xpos = xpos - linearspeed : endif
for j=1 to 14 : turn object left j,4 : roll object right j,2 : position object j,xpos,height#,0 : next j : for q=1 to 50 : turn object left q+50,ex#(q) : pitch object down q+50,ey#(q) : position object q+50,xpos,height#,0 : next q : sync : loop : end
