TheGameCreators - CodeBase - Bump Map Editor

Return to the CodeBase listing

Category: 3D Effects

Version: 1.0

Information

Uploaded: 18th Sep 2004 08:45

Modified: 1st Jan 1970 01:00

Author: Turoid

Summary

Need bump maps :) ? use this tool ;) ..

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

`created by jopie dopie

`have fun! :)

set window on

sync on

sync rate 60

make object cube 2,-40

make object cube 1,10

set shadow shading on 1

ink rgb(255,255,255),0

box 0,0,40,40

get image 10,0,0,30,30

texture object 1,10

cls

ink rgb(89,255,172),0

box 400,0,420,20

get image 1,400,0,403,3

ink rgb(128,128,255),314531456823653245

box 0,0,256,256

set camera view 260,0,512,256

sc=8

sync

if mouseclick()=1

clicked=1

if mousex()<256

if mousey()<256

paste image 1,mousex(),mousey(),1

endif

bumped=0

endif

if mouseclick()=0 then clicked=0

if clicked=0 and bumped=0

get image 2,0,0,256,256

set bump mapping on 1,2

bumped=1

endif

rotate object 1,object angle x(1)+0.2,object angle y(1)+0.2,object angle z(1)+0.2

set cursor 0,340

if button("Reset",530,0)=1

cls

ink rgb(128,128,255),314531456823653245

box 0,0,256,256

get image 2,0,0,256,256

set bump mapping on 1,2

endif

if button("Negative edge",550,40)=1

ink rgb(89,255,172),0

box 400,0,420,20

get image 1,400,0,401+sc,1+sc

endif

if button("Positive edge",550,80)=1

ink rgb(222,118,220),0

box 400,0,420,20

get image 1,400,0,401+sc,1+sc

endif

if button("Smooth Bumpmap",554,120)=1

set current bitmap 0

blur bitmap 0,7

ink rgb(128,128,255),314531456823653245

box 253,0,256,256

box 0,253,256,256

endif

set cursor 500,140

print "press + and -, to change scale"

set cursor 480,160

print "you must select an edge after scaling it"

if inkey$()="+" then sc=sc+1

if inkey$()="-" then sc=sc-1

if sc=<1 then sc=1

if sc>20 then sc=20

if button("Save Bumpmap",550,180)=1

set cursor 480,200

print "The image is stored in: "

set cursor 280,215

print get dir$()

if file exist("bumpmap.bmp") =1 then delete file "bumpmap.bmp"

save image "bumpmap.bmp",2

endif

loop

function button(caption$,x,y)

ink rgb(255,0,0),0

box x+text width(caption$)-text width(caption$)-text width(caption$)/2,y,x+text width(caption$)/2,y+17

ink rgb(255,255,255),0

center text x,y,caption$

if mouseclick()=1

if mousex() > x+text width(caption$)-text width(caption$)-text width(caption$)/2

if mousey() > y

if mousex() < x+text width(caption$)/2

if mousey() < y+17

exitf= 1

endif

endfunction exitf

Download

Please login to download

Comments

No comments yet.

Author Name:	Turoid
CodeBase Entries:	1

CodeBase - Bump Map Editor

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments