rem *** Loads the Object in direct x format ***
obj_Palm_x = LoadObject( "Palm.x" )
rem *** Use this to get the texture name for each image ***
TexImage$=GetObjectTextureName(obj_Palm_x,2) : rem *** Texture index 1 to 2
rem *** Position Object to fill screen ***
SetObjectposition(obj_Palm_x,0,-10,0)
rem *** scale object ***
SetObjectScale(obj_Palm_x,.2,.2,.2)
rem *** load images found from GetObjectTextureName ***
img_palm02 = LoadImage( "palm02.png" )
img_date_palm_leaf = LoadImage( "date palm leaf.png" )
rem *** set images to mesh ***
SetObjectMeshImage(obj_Palm_x,1,img_palm02,0)
SetObjectMeshImage(obj_Palm_x,2,img_date_palm_leaf,1)
rem *** darken scene a bit ***
SetAmbientColor(50,50,50)
rem *** turn on apha masking ***
SetObjectAlphaMask( obj_Palm_x,1 )
rem *** Cullmode to 0 ***
SetObjectCullMode( obj_Palm_x, 0 )
do
Print(TexImage$)
Sync()
loop
C.R.Sellen