plus one more show how to texture the side of a cube, and then mess it up.
shout if it your code I am part using.
Rem Project: texturecube2
Rem Created: 16/07/2006 00:40:33
Rem ***** Main Source File *****
Rem Project: texturingacube
Rem Created: 5/5/2005 5:21:23 PM
rem someones code if its your give a shout.
Rem ***** Main Source File *****
sync on : sync rate 60 : autocam off
randomize timer()
` make a texture (3 by 2) or load one in
makeatexture()
` make an object
make object sphere 1,10
texture object 1,1
` make object to show what image looks like
make object plain 2,80,30
texture object 2,1
position object 2,0,0,10
` rearrange uv coordinates - faces are ordered
` front, back, top, bottom, right, left
lock vertexdata for limb 1,0
for face=1 to 6
for corner=1 to 4
vert=((face-1)*4)+corner-1
u#=get vertexdata u(vert)
v#=get vertexdata v(vert)
my=(face-1)/3
mx=face-(my*3)-1
newu#=((mx+u#)/3.0)
newv#=((my+v#)/2.0)
set vertexdata uv vert,newu#,newv#
next corner
next face
unlock vertexdata
position camera 0,0,-50
time=timer()
do
control camera using arrowkeys 0,1,1
turn object left 1,0.5
pitch object up 1,0.3
while timer()>time
face1=rnd(5)+1
stageindex=rnd(5)+1
imagenumber=rnd(5)+1
textcordmode=rnd(17)
blendmode=rnd(17)
set sphere mapping on 1,face1
SET BLEND MAPPING ON 1, stageindex,imagenumber,textcordmode,blendmode
SET LIGHT MAPPING ON 1, ImageNumber
time=timer()+5000
endwhile
ink RGB(255,255,255),0
set cursor 0,0
center text screen width()/2,0,"Please wait something will happen"
print "face1=";face1
`print "face2=";face2
`print "face3=";face3
`print "face4=";face4
`print "face5=";face5
`print "face6=";face6
print "sttageindex=";stageindex
print "image number=";imagenumber
print "textcordmode=";textcordmode
print "blend mode=";blendmode
sync
loop
function makeatexture()
ink rgb(255,0,0),0 : box 0,0,128,128
ink rgb(0,255,0),0 : box 128,0,256,128
ink rgb(0,0,255),0 : box 256,0,384,128
ink rgb(255,0,255),0 : box 0,128,128,256
ink rgb(255,255,0),0 : box 128,128,256,256
ink rgb(0,255,255),0 : box 256,128,384,256
s=0
savetextsize=text size()
set text size 60
ink rgb(255,255,255),0
for y=0 to 1
for x=0 to 2
inc s
cx=(x*128)+64
cy=(y*128)+64
s$=str$(s)
text cx-(text width(s$)/2),cy-(text height(s$)/2),s$
circle cx,cy,60
next x
next y
set text size savetextsize
`load image "pictureofnumbers.bmp",1
`paste image 1,0,0,0
get image 1,0,0,384,256,1
save image "pic1.bmp",1
wait 100
cls
load image "pic1.bmp",1,1
paste image 1,0,0
get image 1,0,0,384,256,1
cls
box 0,0,256,256,rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255))
get image 2,0,0,256,256,1
sync
wait 1000
endfunction
I'm not getting you down am I, Ho Look! another fancy Door?
