Hi all. It looks like a graphic challenge.One month ago I was bore at home and start painting with code and....that what I had.
Sorry ...if it is the wrong place I will delete it.
cheers.
autocam off
sync on
rem floor texture
ink rgb(90,90,90),1
box 0,0,50,50
ink rgb(70,70,70),1
box 5,5,45,45
get image 52,0,0,50,50
rem wood texture
cls
create bitmap 1,100,100
ink rgb(160,70,40),1
box 0,0,100,100:
ink rgb(140,50,20),1
for a= 1 to 2
for i= 1 to 100 step 5
line 0,i-13+rnd(16),100,i-13+rnd(16)
ink rgb(60+rnd(100),20,20),1
next i
next a
ink rgb(0,0,0),1
box 0,24,100,26
box 0,49,100,51
box 0,74,100,76
blur bitmap 1,2
get image 5,0,0,100,100
get image 2,0,0,50,50
delete bitmap 1
rem -----------------------------------------
cls
ink rgb(100,130,100),1
box 0,0,150,100
for i= 1 to 80
inc cl
ink rgb(150-i,150-i,0),1
line 80,20,100-i/1.1,90-i/10
line 80,20,100-i/1.2,90-i/11
ink rgb(150+i,100+i,0),1
line 80,20,100+i/2,90-i/5
line 80,20,100+i/2.1,90-i/5.1
next
set text size 40
ink rgb(70,60,0),1
set cursor 45,55
print "DARK"
get image 50,0,0,150,100,1
rem -----------------------------------------
cls
for i= 1 to 12500
c=1+rnd(15)
ink rgb(120+c,c,c),1
dot 5+rnd(100),5+rnd(100)
next i
get image 1,0,0,107,110
rem picture on the wall ----------------------
ink rgb(155,155,0),1
box 0,0,640,480
x=300
y=200
for i= 1 to 300
inc g,5
inc c
if c>255 then c=50
x=newxvalue(x,g,i/50)
y=newyvalue(y,g,i/50)
ink rgb(c*2,c,0),1
box x,y,x+i/10,y+i/30
next i
get image 53,110,100,300,210
rem ------------------------------------------
make object box 1,5,0.02,3 :position object 1,0,0.05,0
clone object 2,1 :position object 2,0,-1,0
texture object 1,50
make object box 3,5,1,0.1 :position object 3,0,-0.5,-1.5
make object box 4,5,1,0.1 :position object 4,0,-0.5,-1.46
texture object 3,1:set object 3,1,1,1
make object box 5,5,1,0.1 :position object 5,0,-0.5,1.5
make object box 6,5,0.02,2.9:position object 6,2,-0.9,0
make object box 7,5,0.9,0.02:position object 7,2,-0.5,-1.5
make object box 8,5,0.9,0.02:position object 8,2,-0.5,1.45
make object box 9,0.02,0.9,2.95:position object 9,4.5,-0.5,0
make object box 10,4.2,0.1,0.1
position object 10,0,0,-5
make object sphere 11,0.3
scale object 11,130,80,80
make mesh from object 1,11
delete object 11
add limb 10,1,1
offset limb 10,1,2.1,0,0
color object 10,rgb(120,120,90)
color limb 10,1,rgb(180,0,115)
for i= 20 to 29
inc p#,0.3
clone object i,10
position object i,2.1,-0.4,-1.5+p#
clone object i+10,i
position object i+10,2,-0.2,-1.6+p#
next i
texture limb 10,1,1:yrotate object 10,-20
move object right 33,1
zrotate object 33,7
move object right 34,0.7
zrotate object 34,7
rem table
make object box 100,30,0,30
position object 100,0,-2,-2
texture object 100,5
yrotate object 100,-15
rem burned match
for i= 1 to 30
make object box 50+i,0.1,0.1,0.1
position object 50+i,1,0.1,-6
yrotate object 50+i,50+i*2
scale object 50+i,100-i*2.5,100-i*2.5,100-i*2.5
move object 50+i,1
next i
offset limb 51,0,-0.05,0,0
scale object 51,1000,100,100
add limb 80,1,1
scale object 80,70,70,70
for i= 52 to 80
texture object i,1
next i
color object 51,rgb(120,120,90)
make light 1
position light 1,-150,100,100
rem floor
make object box 150,100,1,100
texture object 150,52:scale object texture 150,30,30
yrotate object 150,-15
rem room
make object box 151,50,25,50
set object cull 151,0
yrotate object 151,-15
rem picture on the wall
make object box 152,20,10,1
texture object 152,53
position object 152,-10,5,20
yrotate object 152,-15
set object emissive 152,rgb(150,150,0)
make object box 153,21,11,1
texture object 153,2
position object 153,-10,5,20.1
yrotate object 153,-15
set object emissive 153,rgb(100,100,100)
position object 150,0,-2.7,0
position camera 7,5,-7
point camera 0,0,0
do
sync
loop
I'm not a grumpy grandpa
