TheGameCreators - CodeBase - draw to texture using memblocks

Category: Memblocks

Version: 1.0

Information

Uploaded: 21st May 2004 20:36

Modified: 21st May 2004 20:39

Author: Phaelax

Summary

press the mouse button and move around the screen. The movements are written onto an image which has been textured to a plane.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

screenwidth = 800

screenheight = 600

set display mode screenwidth,screenheight,32

load image "fog.bmp", 1, 1

make memblock from image 1, 1

width as dword

height as dword

depth as dword

global width

width = memblock dword(1,0)

height = memblock dword(1,4)

depth = memblock dword(1,8)

size = get memblock size(1)

make image from memblock 2, 1

sync on

autocam off

backdrop on

position camera 0,0,0

make object plain 1, 100,100

position object 1, -50,0,400

texture object 1, 1

make image from memblock 2, 1

make object plain 2, 100,100

position object 2, 100,0,400

texture object 2,2

if mouseclick()=1

fx = mousex()/(screenwidth/width) + 1

fy = mousey()/(screenheight/height) + 1

location = gridToSingle(fx, fy)* 4 + 12

write memblock dword 1, location, rgb(0,255,0)

make image from memblock 1, 1

endif

if mouseclick()=2

fx = mousex()/8 + 1

fy = mousey()/6 + 1

location = gridToSingle(fx, fy)* 4 + 12

write memblock dword 1, location, rgb(125,150,0)

make image from memblock 1, 1

endif

set cursor 0,0

print "width - ",width

print "height - ",height

print "depth - ",depth

print "size - ",size

print screen fps()

sync

loop

function gridToSingle(x as integer, y as integer)

thing = (y-1)*width + x - 1

endfunction thing

Download

Please login to download

Comments

No comments yet.

Author Name:	Phaelax
CodeBase Entries:	25

CodeBase - draw to texture using memblocks