Sorry your browser is not supported!

sync on
sync rate 60

// make dummy texture
for x = 1 to 256
    for y = 1 to 256
        setColorR = rnd(255)
        setColorG = rnd(255)
        setColorB = rnd(255)
        dot x,y,rgb(setColorR,setColorG,setColorB)
    next y
next x
get image 1,0,0,256,256

// make object and texture it
make object plain 1,100,100
texture object 1,1
 
dim myColor(2000) as dword

lock vertexdata for limb 1,0
vertexCount=get vertexdata vertex count()
 
for i=0 to vertexCount-1
    myColor(i)=get vertexdata diffuse(i)
next i
unlock vertexdata 

 do
 
    // display vertex diffuse colors
    for i = 0 to vertexCount-1
        text 10,10*i,"myColor("+str$(i)+"): "+str$(myColor(i))
    next i
    
 sync
 loop

sync on
sync rate 60

// make dummy texture
for x = 1 to 256
    for y = 1 to 256
        setColorR = rnd(255)
        setColorG = rnd(255)
        setColorB = rnd(255)
        dot x,y,rgb(setColorR,setColorG,setColorB)
    next y
next x
get image 1,0,0,256,256

// make object and texture it
make object plain 1,100,100
texture object 1,1
 
dim myColor(2000) as dword

lock vertexdata for limb 1,0
vertexCount=get vertexdata vertex count()
 
for i=0 to vertexCount-1
    // set color red
    set vertexdata diffuse i,rgb(255,0,0)
    // get color
    myColor(i)=get vertexdata diffuse(i)
    
next i
unlock vertexdata 


 do
 
    // display vertex diffuse colors
    for i = 0 to vertexCount-1
        text 10,10*i,"myColor("+str$(i)+"): "+str$(myColor(i))
    next i
    
 sync
 loop

disable escapekey
sync on
sync rate 60

dim myColor(2000) as dword

// make dummy texture
for x = 1 to 256
    for y = 1 to 256
        setColorR = rnd(255)
        setColorG = rnd(255)
        setColorB = rnd(255)
        dot x,y,rgb(setColorR,setColorG,setColorB)
    next y
next x
get image 1,0,0,256,256

// make memblock from image
make memblock from image 1,1
imageWidth = memblock dword(1,0)
imageHeight = memblock dword(1,4)
bytes = memblock dword(1,8)/8

// create cube and a mesh and make another memblock from mesh
make object cube 1,10
make mesh from object 1,1
make memblock from mesh 2,1

// assign fvfFormat to this mesh
fvfFormat = 338

//write it to update it
write memblock dword 2,0,fvfFormat
mSize = MEMBLOCK DWORD (2,4)
verticesNum = MEMBLOCK DWORD (2,8)
 
// access the mesh settings 
lock vertexdata for mesh 1
vertexCount=get vertexdata vertex count()
 
for i=0 to vertexCount-1
    for row = 0 to imageHeight-1
        for col = 0 to imageWidth-1
    
            // make sure it gets x,y of image
            post = col*bytes + row*bytes*screenWidth
            
            // get the color data from the memblock
            currentvalueB = memblock byte(1,post)
            currentvalueG = memblock byte(1,post+1)
            currentvalueR = memblock byte(1,post+2)
            currentvalueA = memblock byte(1,post+3)
            
            // set the color of the mesh from the memblock
            tempU = get vertexdata u(i)
            tempV = get vertexdata v(i)
            
            // I don't see how this  textures each uv section set vertexdata diffuse only gets the vertex index and the color. It can't actally get the triangle space of each poly. It's only getting 1 point in the triangle space.
            for v = 1 to (tempU+tempV)*10
                set vertexdata diffuse i,rgb(currentvalueR,currentvalueG,currentvalueB)
            next v
        next col
    next row
next i
unlock vertexdata
//make the object from the mesh settings 
make object 2,1

// delete stuff we don't need
delete mesh 1
delete object 1

 do
    
    if escapekey()=1
        delete memblock 1
        delete memblock 2
        cls
        print "everything cleared!"
        sync
        wait 1000
        end
        
    endif
 sync
 loop

// Loop through every vertex
local VertexIndex as integer
for VertexIndex = 0 to get vertexData vertex count(ObjectId)

    // Get the UV data for where the vertex maps to the texture
    local U as float : U = get vertexData u(VertexIndex)
    local V as float : V = get vertexData v(VertexIndex)
    
    // Get the position on the texture that the UV maps to
    local ImageX as integer : ImageX = U * image width(ImageId)
    local ImageY as integer : ImageY = V * image height(ImageId)
    
    // Calculate the memblock position to read the colour data from and read it
    local MemblockPosition as integer : MemblockPosition = (ImageX + (ImageY * image width(ImageId))) * bytes
    local B as integer : B = memblock byte(1, MemblockPosition)
    local G as integer : G = memblock byte(1, MemblockPosition + 1)
    local R as integer : R = memblock byte(1, MemblockPosition + 2)
    
    // Apply this colour to the vertex
    set vertexdata diffuse VertexIndex, rgb(R, G, B)
    
next VertexIndex

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem load your model and texture into memory
load object "whatever.x", 1
load image "whatever_texture.png", 1

rem model needs to have diffuse data or this whole thing will be pointless
convert object fvf 1, 338

rem create memblocks from object and texture
make mesh from object 1, 1
make memblock from mesh 1, 1
delete object 1
make memblock from image 2, 1

rem get vertex count
vertCount = memblock dword( 1, 8 )

rem get image dimensions
imgWidth = memblock dword( 2, 0 )-1
imgHeight = memblock dword( 2, 4 )-1

rem loop through all vertices
for i = 1 to vertCount

   rem calculate offset to next vertex in memblock (36 bytes per vertex, 12 bytes in header)
   memMeshOffset = (i*36) - 24

   rem get UV data
   u# = memblock float( 1, memMeshOffset+28 )
   v# = memblock float( 1, memMeshOffset+32 )

   rem convert UV data to pixel coordinates
   px = u#*imgWidth
   py = v#*imgHeight

   rem convert pixel coordinates to memblock offset (4 bytes per pixel, 12 bytes in header)
   memTexOffset = (imgHeight*px*4) + (py*4) + 12

   rem NOTE: The above could be compressed, but I was unsure if the pixel data is ordered X over Y, or Y over X,
   rem       so I left it unoptimized for convenience's sake.

   rem get colour data
   colour = memblock dword( 2, memTexOffset )

   rem if you want to remove the alpha channel, uncomment the following
   `colour = (0xFF000000 && colour)

   rem set diffuse colour in object
   write memblock dword 1, memMeshOffset+24, colour

next i

rem convert the memblock back to an object
make mesh from memblock 1, 1
make object 1, 1, 0

rem clean up
delete memblock 1
delete memblock 2
delete image 1
delete mesh 1

rem INSERT YOUR METHOD OF RENDERING VERTICES ONLY HERE

rem setup camera values
dist# = 40

rem main loop
do

   rem get user input
   angle# = wrapvalue( angle# + (mousemovex()*0.5) )
   inc height#, mousemovey()*0.5
   inc dist#, mousemovez()

   rem control camera
   set camera to follow 0, 0, 0, angle#, dist#, height#, 3, 0
   point camera 0, 0, 0

   rem refresh screen
   sync

rem end of main loop
loop

// Darkvee's texture a object without the command texture object or shader

disable escapekey
sync on
sync rate 60

// make dummy texture
randomize timer()

for x = 1 to 256
    for y = 1 to 256
        setColorR = rnd(255)
        setColorG = rnd(255)
        setColorB = rnd(255)
        dot x,y,rgb(setColorR,setColorG,setColorB)
    next y
next x
get image 1,0,0,256,256

// make memblock from image
make memblock from image 1,1
imageWidth = memblock dword(1,0)
imageHeight = memblock dword(1,4)
bytes = memblock dword(1,8)/8

// create cube and a mesh and make another memblock from mesh
make object sphere 1,10

// convert object to 338 so we can change vertex diffuse
convert object fvf 1,338
setColor as dword

lock vertexdata for limb 1,0
vertexCount = get vertexdata vertex count()
 
for i=0 to vertexCount-1
    for row = 0 to imageHeight-1
        for col = 0 to imageWidth-1
    
            // make sure it gets x,y of image
            post = col*bytes + row*bytes*imageWidth
            
            currentvalueB = memblock byte(1,post)
            currentvalueG = memblock byte(1,post+1)
            currentvalueR = memblock byte(1,post+2)
            
            // pick a random byte color   
            pickColor = rnd(2)
             
            select pickColor
                case 0: 
                    setColor = rgb(currentvalueR,0,0)
                endcase
                
                case 1:
                    setColor =rgb(0,currentvalueG,0)
                endcase
                
                case 2:
                    setColor = rgb(0,0,currentvalueB)
                endcase
             endselect
        
         // update vertex color        
         set vertexdata diffuse i,setColor
         
        next col
    next row
    
    
next i
unlock vertexdata

do
    inc angX
    dec angY
    rotate object 1,angX,angY,0
    
    if escapekey()=1
        delete memblock 1
        end
    endif

sync
loop

// -------------------------------------------------------------------------------
// Point Cloud Shader - Renders the vertices of an object to the screen
// -------------------------------------------------------------------------------
// Original Author : Aaron Miller
// Modified by : TheComet
// -------------------------------------------------------------------------------

// -------------------------------------------------------------------------------
// Un-Tweaks
// -------------------------------------------------------------------------------

float4x4 gWVP : WorldViewProjection;

// -------------------------------------------------------------------------------
// Structs
// -------------------------------------------------------------------------------

struct input
{
    float3 Pos:POSITION;
    float3 UV:TEXCOORD;
};
struct output
{
    float4 OPos:POSITION;
    float2 Tex:TEXCOORD0;
};

// ----------------------------------------------------
// Vertex Shader
// ----------------------------------------------------

output VS(input IN)
{
    output OUT;

    OUT.OPos = mul(float4(IN.Pos.xyz, 1.0f), gWVP);
    OUT.Tex = IN.UV;

    return OUT;
}

// ----------------------------------------------------
// Pixel Shader
// ----------------------------------------------------

float4 PS(input IN): COLOR0
{
    return float4(tex2D(Base, IN.UV));
}

// ----------------------------------------------------
// Techniques
// ----------------------------------------------------

technique T1
{
    pass P1
    {
        VertexShader = compile vs_2_0 VS();
        FillMode = Point;
        PixelShader = compile ps_2_0 PS();
    }
}

Rem Project: Dark Basic Pro Project
Rem Created: Saturday, October 27, 2012

Rem ***** Main Source File *****

disable escapekey
sync on
sync rate 60
backdrop on
color backdrop 0,0


//make image
for x = 1 to 256
    for y = 1 to 256
        setColorR = rnd(255)
        setColorG = rnd(255)
        setColorB = rnd(255)
        dot x,y,rgb(setColorR,setColorG,setColorB)
    next y
next x
// get image
get image 1,0,0,256,256
//make memblock from the image

make memblock from image 1,1

//get width and height of the image
imageWidth = image width(1)
imageHeight = image height(1)

make object cube 1,10
convert object fvf 1,338
make mesh from object 1,1
make memblock from mesh 2,1

formatFvf = memblock dword(2,0)
fvfSize = memblock dword(2,4)
numberOfVertices = memblock dword(2,8)

// make a custom mesh that I can add my uv values I need pixel by pixel
getCorrectSize = numberOfVertices*(imageWidth*imageHeight)

make memblock 3,getCorrectSize
// make sure it is the same as the mesh at the first
write memblock dword 3,0,formatFvf
write memblock dword 3,4,fvfSize
write memblock dword 3,8,numberOfVertices

// now copy the same values from the mesh to this memblock
    for c = 0 TO numberOfVertices-1
        
        post = 12 + c*entrysize
        
        x#  = memblock float(2,post)
        y#  = memblock float(2,post+4)
        z#  = memblock float(2,post+8)
        nx# = memblock float(2,post+12)
        
        ny# = memblock float (2,post+16)
        nz# = memblock float(2,post+20)
        
        // we don't need the u or v. Were going to write that custom uv values for the pixel by pixel code
        
        // write the data
        write memblock float 3,post,x#
        write memblock float 3,post+4,y#
        write memblock float 3,post+8,z#
        
        write memblock float 3,post+12,nx#
        write memblock float 3,post+16,ny#
        write memblock float 3,post+20,nz#
     
    next c 
    
// now get our uv offsets from the width and height of image so we know the correct values to map the image on the mesh
getUDigit$ = str$(imageHeight)
getVDigit$ = str$(imageWidth)

// get length of the digits
offsetU# = len(getUDigit$)
offsetV# = len(getVDigit$)

// figure out how many digits and set the correct offset for u
if offsetU# = 5 then offsetU# = 0.0001
if offsetU# = 4 then offsetU# = 0.001
if offsetU# = 3 then offsetU# = 0.01
if offsetU# = 2 then offsetU# = 0.1

// figure out how many digits and set the correct offset for uv
if offsetV# = 5 then offsetV# = 0.0001
if offsetV# = 4 then offsetV# = 0.001
if offsetV# = 3 then offsetV# = 0.01
if offsetV# = 2 then offsetV# = 0.1

// we use this value to start with
startOffsetU# = 0.0
startOffsetV# = 0.0

for v = 0 to getCorrectSize-1
    
     // gets the memblock mesh size
     postTwo = 12 + v*fvfSize
     
     for row = 0 to imageHeight-1
            for col = 0 to imageWidth-1
        
                // make sure it gets x,y of image
                post = col*bytes + row*bytes*imageWidth
                
                currentvalueB = memblock byte(1,post)
                currentvalueG = memblock byte(1,post+1)
                currentvalueR = memblock byte(1,post+2)
                
                // writes the correct v at the pixel location
                startOffsetV# = startOffsetV# + offsetV#
                write memblock float 3,postTwo+28,startOffsetV#
            next col
            
            // writes the correct u at the pixel location
            startOffsetU# = startOffsetU# + offsetU#
            write memblock float 3,postTwo+24,startOffsetU#
     next row
next v

make object 2,1
delete object 1
delete mesh 1

//now I need to set the vertexdata diffuse color

do
   
       
   
    if escapekey()=1
        delete memblock 1
        delete memblock 2
        delete memblock 3
        end
    endif

    sync
loop

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

randomize timer()

for x = 1 to 256
    for y = 1 to 256
        setColorR = rnd(255)
        setColorG = rnd(255)
        setColorB = rnd(255)
        dot x,y,rgb(setColorR,setColorG,setColorB)
    next y
next x
get image 1,0,0,256,256
sync

make object cube 1,10

rem model needs to have diffuse data or this whole thing will be pointless
convert object fvf 1, 338

rem create memblocks from object and texture
make mesh from object 1, 1
make memblock from mesh 1, 1
delete object 1
make memblock from image 2, 1

rem get vertex count
vertCount = memblock dword( 1, 8 )

rem get image dimensions
imgWidth = memblock dword( 2, 0 )-1
imgHeight = memblock dword( 2, 4 )-1

rem loop through all vertices
for i = 1 to vertCount

   rem calculate offset to next vertex in memblock (36 bytes per vertex, 12 bytes in header)
   memMeshOffset = (i*36) - 24

   rem get UV data
   u# = memblock float( 1, memMeshOffset+28 )
   v# = memblock float( 1, memMeshOffset+32 )

   rem convert UV data to pixel coordinates
   px = u#*imgWidth
   py = v#*imgHeight

   rem convert pixel coordinates to memblock offset (4 bytes per pixel, 12 bytes in header)
   memTexOffset = (imgHeight*px*4) + (py*4) + 12

   rem NOTE: The above could be compressed, but I was unsure if the pixel data is ordered X over Y, or Y over X,
   rem       so I left it unoptimized for convenience's sake.

   rem get colour data
   colour = memblock dword( 2, memTexOffset )

   rem if you want to remove the alpha channel, uncomment the following
   `colour = (0xFF000000 && colour)

   rem set diffuse colour in object
   write memblock dword 1, memMeshOffset+24, colour

next i

rem convert the memblock back to an object
make mesh from memblock 1, 1
make object 1, 1, 0

rem clean up
delete memblock 1
delete memblock 2
//delete image 1
delete mesh 1

rem INSERT YOUR METHOD OF RENDERING VERTICES ONLY HERE

rem setup camera values
dist# = 40

//display the image
sprite 1,0,0,1

rem main loop
do

   rem get user input
   angle# = wrapvalue( angle# + (mousemovex()*0.5) )
   inc height#, mousemovey()*0.5
   inc dist#, mousemovez()

   rem control camera
   set camera to follow 0, 0, 0, angle#, dist#, height#, 3, 0
   point camera 0, 0, 0

   rem refresh screen
   sync

rem end of main loop
loop

rem setup screen
sync on
sync rate 0
backdrop on
color backdrop 0
hide mouse

randomize timer()

for x = 1 to 256
    for y = 1 to 256
        setColorR = rnd(255)
        setColorG = rnd(255)
        setColorB = rnd(255)
        dot x,y,rgb(setColorR,setColorG,setColorB)
    next y
next x
get image 1,0,0,256,256
sync

make object plain 1,10,10,100,100
xrotate object 1, 270

rem model needs to have diffuse data or this whole thing will be pointless
convert object fvf 1, 338

rem create memblocks from object and texture
make mesh from object 1, 1
make memblock from mesh 1, 1
delete object 1
make memblock from image 2, 1

rem get vertex count
vertCount = memblock dword( 1, 8 )

rem get image dimensions
imgWidth = memblock dword( 2, 0 )-1
imgHeight = memblock dword( 2, 4 )-1

rem loop through all vertices
for i = 1 to vertCount

   rem calculate offset to next vertex in memblock (36 bytes per vertex, 12 bytes in header)
   memMeshOffset = (i*36) - 24

   rem get UV data
   u# = memblock float( 1, memMeshOffset+28 )
   v# = memblock float( 1, memMeshOffset+32 )

   rem convert UV data to pixel coordinates
   px = u#*imgWidth
   py = v#*imgHeight

   rem convert pixel coordinates to memblock offset (4 bytes per pixel, 12 bytes in header)
   memTexOffset = (imgHeight*px*4) + (py*4) + 12

   rem NOTE: The above could be compressed, but I was unsure if the pixel data is ordered X over Y, or Y over X,
   rem       so I left it unoptimized for convenience's sake.

   rem get colour data
   colour = memblock dword( 2, memTexOffset )

   rem if you want to remove the alpha channel, uncomment the following
   `colour = (0xFF000000 && colour)

   rem set diffuse colour in object
   write memblock dword 1, memMeshOffset+24, colour

next i

rem convert the memblock back to an object
make mesh from memblock 1, 1
make object 1, 1, 0

rem clean up
delete memblock 1
delete memblock 2
//delete image 1
delete mesh 1

rem INSERT YOUR METHOD OF RENDERING VERTICES ONLY HERE

rem setup camera values
dist# = 40

//display the image
sprite 1,0,0,1

rem main loop
do

   rem get user input
   angle# = wrapvalue( angle# + (mousemovex()*0.5) )
   inc height#, mousemovey()*0.5
   inc dist#, mousemovez()

   rem control camera
   set camera to follow 0, 0, 0, angle#, dist#, height#, 3, 0
   point camera 0, 0, 0
	
	rem information
	text 0, 300, "fps: " + str$(screen fps())
	text 0, 315, "polygons: " + str$(statistic(1))

   rem refresh screen
   sync

rem end of main loop
loop

`%ProjectTitle%
`======================
`©P.Parkinson
`======================
`Main Source File

`*********************************
`enviroment set up

IF CHECK DISPLAY MODE(1024,768,32) 
	SET DISPLAY MODE 1024,768,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-512
	posy=h/2-384
ELSE
	SET DISPLAY MODE 640,480,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-320
	posy=h/2-240
ENDIF
SET WINDOW POSITION posx,posy

SYNC ON
SYNC RATE 0
AUTOCAM OFF
HIDE MOUSE
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT

POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()

`*********************************	
`declarations and setup starts here
d3d_init


`*********************************
`main loop starts here
DO
	cls
	D3D_BATCH_SET_DOT3D 60000
	
	D3D_BATCH_SET_DOT3D_SIZE 3
	FOR y=0 TO 100
		FOR x=0 TO 100
			posx#=x/10.0
			posy#=y/10.0
			D3D_BATCH_ADD_DOT3D posx#-5.0,posy#-5.0,-5.0,rgb(rnd(255),0,0)
		NEXT x
	NEXT y
	
	FOR y=0 TO 100
		FOR x=0 TO 100
			posx#=x/10.0
			posy#=y/10.0
			D3D_BATCH_ADD_DOT3D posx#-5.0,posy#-5.0,5.0,rgb(0,rnd(255),0)
		NEXT x
	NEXT y	
	
	FOR y=0 TO 100
		FOR z=0 TO 100
			posz#=z/10.0
			posy#=y/10.0
			D3D_BATCH_ADD_DOT3D 5.0,posy#-5.0,posz#-5.0,rgb(0,0,rnd(255))
		NEXT z
	NEXT y
	
	FOR y=0 TO 100
		FOR z=0 TO 100
			posz#=z/10.0
			posy#=y/10.0
			D3D_BATCH_ADD_DOT3D -5.0,posy#-5.0,posz#-5.0,rgb(rnd(255),0,rnd(255))
		NEXT z
	NEXT y
	
	FOR x=0 TO 100
		FOR z=0 TO 100
			posx#=x/10.0
			posz#=z/10.0
			D3D_BATCH_ADD_DOT3D posx#-5.0,5.0,posz#-5.0,rgb(rnd(255),rnd(255),0)
		NEXT z
	NEXT x
	
	FOR x=0 TO 100
		FOR z=0 TO 100
			posx#=x/10.0
			posz#=z/10.0
			D3D_BATCH_ADD_DOT3D posx#-5.0,-5.0,posz#-5.0,rgb(0,rnd(255),rnd(255))
		NEXT z
	NEXT x
	
	D3D_BATCH_DRAW_DOT3D 0,1,1
	mouse_control(1.0)
	text 0,0,str$(screen fps())
	SYNC
LOOP

`*********************************
`functions start here
FUNCTION mouse_control(speed AS FLOAT)
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	IF MOUSECLICK()=1 THEN MOVE CAMERA speed
	IF MOUSECLICK()=2 THEN MOVE CAMERA (0-speed)
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
ENDFUNCTION

rem setup screen
autocam off
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

d3d_init

randomize timer()

for x = 1 to 256
    for y = 1 to 256
        setColorR = rnd(255)
        setColorG = rnd(255)
        setColorB = rnd(255)
        d3d_dot x, y,rgb(setColorR,setColorG,setColorB)
        //dot x,y,rgb(setColorR,setColorG,setColorB)
    next y
next x
get image 1,0,0,256,256
sync

make object plane 1,10,10,104,104

rem model needs to have diffuse data or this whole thing will be pointless
convert object fvf 1, 338

rem create memblocks from object and texture
make mesh from object 1, 1
make memblock from mesh 1, 1
delete object 1
make memblock from image 2, 1

rem get vertex count
vertCount = memblock dword( 1, 8 )

rem get image dimensions
imgWidth = memblock dword( 2, 0 )-1
imgHeight = memblock dword( 2, 4 )-1

rem loop through all vertices
for i = 1 to vertCount

   rem calculate offset to next vertex in memblock (36 bytes per vertex, 12 bytes in header)
   memMeshOffset = (i*36) - 24
    
   post = 12 + c*entrysize
   
   rem get UV data
   u# = memblock float( 1, memMeshOffset+28 )
   v# = memblock float( 1, memMeshOffset+32 )

   rem convert UV data to pixel coordinates
   px = u#*imgWidth
   py = v#*imgHeight

   rem convert pixel coordinates to memblock offset (4 bytes per pixel, 12 bytes in header)
   memTexOffset = (imgHeight*px*4) + (py*4) + 12

   rem NOTE: The above could be compressed, but I was unsure if the pixel data is ordered X over Y, or Y over X,
   rem       so I left it unoptimized for convenience's sake.

   rem get colour data
   colour = memblock dword( 2, memTexOffset )

   rem if you want to remove the alpha channel, uncomment the following
   `colour = (0xFF000000 && colour)

   rem set diffuse colour in object
   write memblock dword 1, memMeshOffset+24, colour
next i

rem convert the memblock back to an object
make mesh from memblock 1, 1
make object 1, 1, 0

rem clean up
delete memblock 1
delete memblock 2
//delete image 1
delete mesh 1

rem INSERT YOUR METHOD OF RENDERING VERTICES ONLY HERE

rem setup camera values
dist# = 40

//display the image
sprite 1,0,0,1
xrotate object 1,-90

position camera 0,0,-10
rem main loop
do

   rem get user input
   angle# = wrapvalue( angle# + (mousemovex()*0.5) )
   inc height#, mousemovey()*0.5
   inc dist#, mousemovez()

   rem control camera
   //set camera to follow 0, 0, 0, angle#, dist#, height#, 3, 0
   //point camera 0, 0, 0

   rem refresh screen
   sync

rem end of main loop
loop

set object filter objId, flag

rem setup screen
autocam off
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

//d3d_init

randomize timer()

for x = 1 to 256
    for y = 1 to 256
        setColorR = rnd(255)
        setColorG = rnd(255)
        setColorB = rnd(255)
        //d3d_dot x, y,rgb(setColorR,setColorG,setColorB)
        dot x,y,rgb(setColorR,setColorG,setColorB)
    next y
next x
get image 1,0,0,256,256
sync

make object plane 1,10,10,104,104

rem model needs to have diffuse data or this whole thing will be pointless
convert object fvf 1, 338
rem create memblocks from object and texture
make mesh from object 1, 1
make memblock from mesh 1, 1
delete object 1
make memblock from image 2, 1

rem get vertex count
vertCount = memblock dword( 1, 8 )

rem get image dimensions
imgWidth = memblock dword( 2, 0 )-1
imgHeight = memblock dword( 2, 4 )-1

rem loop through all vertices
for i = 1 to vertCount

   rem calculate offset to next vertex in memblock (36 bytes per vertex, 12 bytes in header)
   memMeshOffset = (i*36) - 24
    
   post = 12 + c*entrysize
   
   rem get UV data
   u# = memblock float( 1, memMeshOffset+28 )
   v# = memblock float( 1, memMeshOffset+32 )

   rem convert UV data to pixel coordinates
   px = u#*imgWidth
   py = v#*imgHeight

   rem convert pixel coordinates to memblock offset (4 bytes per pixel, 12 bytes in header)
   memTexOffset = (imgHeight*px*4) + (py*4) + 12

   rem NOTE: The above could be compressed, but I was unsure if the pixel data is ordered X over Y, or Y over X,
   rem       so I left it unoptimized for convenience's sake.

   rem get colour data
   colour = memblock dword( 2, memTexOffset )

   rem if you want to remove the alpha channel, uncomment the following
   `colour = (0xFF000000 && colour)

   rem set diffuse colour in object
   write memblock dword 1, memMeshOffset+24, colour
next i

rem convert the memblock back to an object
make mesh from memblock 1, 1
make object 1, 1

// set filter on
set object filter 1,2

rem clean up
delete memblock 1
delete memblock 2
//delete image 1
delete mesh 1

rem INSERT YOUR METHOD OF RENDERING VERTICES ONLY HERE

rem setup camera values
dist# = 40

//display the image
sprite 1,0,0,1
xrotate object 1,-90

position camera 0,0,-10
rem main loop
do

   rem get user input
   angle# = wrapvalue( angle# + (mousemovex()*0.5) )
   inc height#, mousemovey()*0.5
   inc dist#, mousemovez()

   rem control camera
   //set camera to follow 0, 0, 0, angle#, dist#, height#, 3, 0
   //point camera 0, 0, 0

   rem refresh screen
   sync

rem end of main loop
loop

`%ProjectTitle%
`======================
`©P.Parkinson
`======================
`Main Source File

`*********************************
`enviroment set up

IF CHECK DISPLAY MODE(1024,768,32) 
	SET DISPLAY MODE 1024,768,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-512
	posy=h/2-384
ELSE
	SET DISPLAY MODE 640,480,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-320
	posy=h/2-240
ENDIF
SET WINDOW POSITION posx,posy

SYNC ON
SYNC RATE 0
AUTOCAM OFF
HIDE MOUSE
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT

POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()

`*********************************	
`declarations and setup starts here
d3d_init
LOAD IMAGE "gothic_T.bmp",1
MAKE MEMBLOCK FROM IMAGE 1,1


`*********************************
`main loop starts here
DO
	cls
	D3D_BATCH_SET_DOT3D 60000
	
	D3D_BATCH_SET_DOT3D_SIZE 4
	
	mb_pos=12
	FOR y=0 TO 100
		FOR x=0 TO 100
			posx#=x/10.0
			posy#=y/10.0
			D3D_BATCH_ADD_DOT3D posx#-5.0,posy#-5.0,-5.0,MEMBLOCK DWORD(1,mb_pos)
			mb_pos=mb_pos+4
		NEXT x
	NEXT y
	
	mb_pos=12
	FOR y=0 TO 100
		FOR x=0 TO 100
			posx#=x/10.0
			posy#=y/10.0
			D3D_BATCH_ADD_DOT3D posx#-5.0,posy#-5.0,5.0,MEMBLOCK DWORD(1,mb_pos)
			mb_pos=mb_pos+4
		NEXT x
	NEXT y	
	
	mb_pos=12
	FOR y=0 TO 100
		FOR z=0 TO 100
			posz#=z/10.0
			posy#=y/10.0
			D3D_BATCH_ADD_DOT3D 5.0,posy#-5.0,posz#-5.0,MEMBLOCK DWORD(1,mb_pos)
			mb_pos=mb_pos+4
		NEXT z
	NEXT y
	
	mb_pos=12
	FOR y=0 TO 100
		FOR z=0 TO 100
			posz#=z/10.0
			posy#=y/10.0
			D3D_BATCH_ADD_DOT3D -5.0,posy#-5.0,posz#-5.0,MEMBLOCK DWORD(1,mb_pos)
			mb_pos=mb_pos+4
		NEXT z
	NEXT y
	
	mb_pos=12
	FOR x=0 TO 100
		FOR z=0 TO 100
			posx#=x/10.0
			posz#=z/10.0
			D3D_BATCH_ADD_DOT3D posx#-5.0,5.0,posz#-5.0,MEMBLOCK DWORD(1,mb_pos)
			mb_pos=mb_pos+4
		NEXT z
	NEXT x
	
	mb_pos=12
	FOR x=0 TO 100
		FOR z=0 TO 100
			posx#=x/10.0
			posz#=z/10.0
			D3D_BATCH_ADD_DOT3D posx#-5.0,-5.0,posz#-5.0,MEMBLOCK DWORD(1,mb_pos)
			mb_pos=mb_pos+4
		NEXT z
	NEXT x
	
	D3D_BATCH_DRAW_DOT3D 0,1,1
	mouse_control(1.0)
	text 0,0,str$(screen fps())
	SYNC
LOOP

`*********************************
`functions start here
FUNCTION mouse_control(speed AS FLOAT)
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	IF MOUSECLICK()=1 THEN MOVE CAMERA speed
	IF MOUSECLICK()=2 THEN MOVE CAMERA (0-speed)
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
ENDFUNCTION

rem setup screen
autocam off
sync on
sync rate 60
backdrop on
color backdrop 0
`hide mouse
hide light 0
set ambient light 100

randomize timer()

for x = 1 to 256
    for y = 1 to 256
        setColorR = rnd(255)
        setColorG = rnd(255)
        setColorB = rnd(255)
        dot x,y,rgb(setColorR,setColorG,setColorB)
    next y
next x
get image 1,0,0,256,256
sync

make object plane 1,10,10,104,104
texture object 1, 1
// set filter on
set object filter 1,0

rem setup camera values
dist# = 40

//display the image
sprite 1,0,0,1
xrotate object 1, -90

position camera 0,0,-10
rem main loop
do

   rem refresh screen
   sync

rem end of main loop
loop