My 3D Engine - GameCreators Forum

Author

Message

Chris K

21

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 1st Jun 2004 15:30

Link

This is really a 20-liner but everyone knows that board is pretty much dead.

I was thinking about making a Wolf remake so I made this.
It took me about 3 hours:

set display mode 800,600,32:ink 0,0:hide mouse:dim objpos#(3):dim cam#(4)
sync on:do:cls rgb(255,255,255)
if upkey()=1 then cam#(1)=newxvalue(cam#(1),cam#(4),0.01):cam#(3)=newzvalue(cam#(3),cam#(4),0.01)
if downkey()=1 then cam#(1)=newxvalue(cam#(1),cam#(4),-0.01):cam#(3)=newzvalue(cam#(3),cam#(4),-0.01)
if leftkey()=1 then cam#(1)=newxvalue(cam#(1),cam#(4)-90,0.01):cam#(3)=newzvalue(cam#(3),cam#(4)-90,0.01)
if rightkey()=1 then cam#(1)=newxvalue(cam#(1),cam#(4)+90,0.01):cam#(3)=newzvalue(cam#(3),cam#(4)+90,0.01)
if mouseclick()=1 then cam#(4)=cam#(4)-1
if mouseclick()=2 then cam#(4)=cam#(4)+1
mx#=mousex():spin#=(mx#-400)/7:cam#(4)=cam#(4)+spin#:position mouse 400,300
for vx#= -0.05 to 0.05 step 0.05:for vy#= -0.05 to 0.05 step 0.05:for vz#= -0.05 to 0.05 step 0.05
x#=rgx(objpos#(1)+vx#,objpos#(3)+vz#):y#=objpos#(2)+vy#-cam#(2):z#=rgz(objpos#(1)+vx#,objpos#(3)+vz#)
gradx#=x#/z#:sx#=(gradx#/2)*1000+400:grady#=y#/z#:sy#=600-((grady#/2)*1000+300):circle sx#,sy#,1:next vz#:next vy#:next vx#
sync
loop
function rgx(x#,z#)
dx#=cam#(1)-x#:dz#=cam#(3)-z#:dist#=sqrt(dx#^2+dz#^2):a#=atan(dx#/dz#)-cam#(4):rx#=dist#*sin(a#)
endfunction rx#
function rgz(x#,z#)
dx#=cam#(1)-x#:dz#=cam#(3)-z#:dist#=sqrt(dx#^2+dz#^2):a#=atan(dx#/dz#)-cam#(4):rz#=dist#*cos(a#)
endfunction rz#

+ Code Snippet

set display mode 800,600,32:ink 0,0:hide mouse:dim objpos#(3):dim cam#(4)
sync on:do:cls rgb(255,255,255)
if upkey()=1 then cam#(1)=newxvalue(cam#(1),cam#(4),0.01):cam#(3)=newzvalue(cam#(3),cam#(4),0.01)
if downkey()=1 then cam#(1)=newxvalue(cam#(1),cam#(4),-0.01):cam#(3)=newzvalue(cam#(3),cam#(4),-0.01)
if leftkey()=1 then cam#(1)=newxvalue(cam#(1),cam#(4)-90,0.01):cam#(3)=newzvalue(cam#(3),cam#(4)-90,0.01)
if rightkey()=1 then cam#(1)=newxvalue(cam#(1),cam#(4)+90,0.01):cam#(3)=newzvalue(cam#(3),cam#(4)+90,0.01)
if mouseclick()=1 then cam#(4)=cam#(4)-1
if mouseclick()=2 then cam#(4)=cam#(4)+1
mx#=mousex():spin#=(mx#-400)/7:cam#(4)=cam#(4)+spin#:position mouse 400,300
for vx#= -0.05 to 0.05 step 0.05:for vy#= -0.05 to 0.05 step 0.05:for vz#= -0.05 to 0.05 step 0.05
x#=rgx(objpos#(1)+vx#,objpos#(3)+vz#):y#=objpos#(2)+vy#-cam#(2):z#=rgz(objpos#(1)+vx#,objpos#(3)+vz#)
gradx#=x#/z#:sx#=(gradx#/2)*1000+400:grady#=y#/z#:sy#=600-((grady#/2)*1000+300):circle sx#,sy#,1:next vz#:next vy#:next vx#
sync
loop
function rgx(x#,z#)
dx#=cam#(1)-x#:dz#=cam#(3)-z#:dist#=sqrt(dx#^2+dz#^2):a#=atan(dx#/dz#)-cam#(4):rx#=dist#*sin(a#)
endfunction rx#
function rgz(x#,z#)
dx#=cam#(1)-x#:dz#=cam#(3)-z#:dist#=sqrt(dx#^2+dz#^2):a#=atan(dx#/dz#)-cam#(4):rz#=dist#*cos(a#)
endfunction rz#

It's amazing how if you put a few dots in the right places you're immeadiately convinced that you're walking round a 3D area.

Arrow keys to move, mouse to look.

Make sure you walk backwards at the start else everything will be reversed (it still draws everything even when it's behind the camera)

Back to top

Profile PM

Chris K

21

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 2nd Jun 2004 15:48

Link

set display mode 800,600,32:ink 0,0:hide mouse

dim objpos#(3):dim cam#(4):dim vert#(8,3)
dim p(800,600)
cam#(3)=-0.7

sync on
do
cls rgb(255,255,255)

if rightkey()=1 then a#=wrapvalue(a#+1)
if leftkey()=1 then a#=wrapvalue(a#-1)
placevert(a#)

for t = 1 to 8
x#=rgx(vert#(t,1),vert#(t,3))
y#=vert#(t,2)-cam#(2)
z#=rgz(vert#(t,1),vert#(t,3))
p(sx(x#,y#,z#),sy(x#,y#,z#))=rgb(255,0,0)
next t

fillit()
frameit()
sync
loop

function rgx(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rx#=dist#*sin(a#)
endfunction rx#
function rgz(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rz#=dist#*cos(a#)
endfunction rz#
function sy(x#,y#,z#)
grady#=y#/z#
sy#=600-((grady#/2)*1000+300)
endfunction sy#
function sx(x#,y#,z#)
gradx#=x#/z#
sx#=(gradx#/2)*1000+400
endfunction sx#
function placevert(a#)
blah=0
for t = 1 to 7 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t

blah=0
for t = 2 to 8 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=-0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t
endfunction
function frameit()

for t = 1 to 7 step 2
x#=rgx(vert#(t,1),vert#(t,3))
y#=vert#(t,2)
z#=rgz(vert#(t+1,1),vert#(t+1,3))
x2#=rgx(vert#(t+1,1),vert#(t+1,3))
y2#=vert#(t+1,2)
z2#=rgz(vert#(t+1,1),vert#(t+1,3))
ink 0,0
line sx(x#,y#,z#),sy(x#,y#,z#),sx(x2#,y2#,z2#),sy(x2#,y2#,z2#)
next t

endfunction
function fillit()

for DUFA = 1 to 5 step 2

x#=rgx(vert#(DUFA,1),vert#(DUFA,3))
y#=vert#(DUFA,2)
z#=rgz(vert#(DUFA,1),vert#(DUFA,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUFA+2,1),vert#(DUFA+2,3))
y#=vert#(DUFA+2,2)
z#=rgz(vert#(DUFA+2,1),vert#(DUFA+2,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

tree#=y2#

gt#=(y1#-y2#)/(x1#-x2#)
DUuFA=DUFA
x#=rgx(vert#(DUuFA+1,1),vert#(DuUFA+1,3))
y#=vert#(DUuFA+1,2)
z#=rgz(vert#(DuUFA+1,1),vert#(DUuFA+1,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
y#=vert#(DUuFA+3,2)
z#=rgz(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

gb#=(y1#-y2#)/(x1#-x2#)

n=(x1#-x2#)
for a# = x2# to x2#+n
x#=a#-x2#
line a#,x#*gt#+tree#,a#,x#*gb#+y2#
next a#

NEXT DUFA

endfunction

+ Code Snippet

set display mode 800,600,32:ink 0,0:hide mouse

dim objpos#(3):dim cam#(4):dim vert#(8,3)
dim p(800,600)
cam#(3)=-0.7

sync on
do
cls rgb(255,255,255)

if rightkey()=1 then a#=wrapvalue(a#+1)
if leftkey()=1 then a#=wrapvalue(a#-1)
placevert(a#)

for t = 1 to 8
x#=rgx(vert#(t,1),vert#(t,3))
y#=vert#(t,2)-cam#(2)
z#=rgz(vert#(t,1),vert#(t,3))
p(sx(x#,y#,z#),sy(x#,y#,z#))=rgb(255,0,0)
next t

fillit()
frameit()
sync
loop

function rgx(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rx#=dist#*sin(a#)
endfunction rx#
function rgz(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rz#=dist#*cos(a#)
endfunction rz#
function sy(x#,y#,z#)
grady#=y#/z#
sy#=600-((grady#/2)*1000+300)
endfunction sy#
function sx(x#,y#,z#)
gradx#=x#/z#
sx#=(gradx#/2)*1000+400
endfunction sx#
function placevert(a#)
blah=0
for t = 1 to 7 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t

blah=0
for t = 2 to 8 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=-0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t
endfunction
function frameit()

for t = 1 to 7 step 2
x#=rgx(vert#(t,1),vert#(t,3))
y#=vert#(t,2)
z#=rgz(vert#(t+1,1),vert#(t+1,3))
x2#=rgx(vert#(t+1,1),vert#(t+1,3))
y2#=vert#(t+1,2)
z2#=rgz(vert#(t+1,1),vert#(t+1,3))
ink 0,0
line sx(x#,y#,z#),sy(x#,y#,z#),sx(x2#,y2#,z2#),sy(x2#,y2#,z2#)
next t

endfunction
function fillit()

for DUFA = 1 to 5 step 2

x#=rgx(vert#(DUFA,1),vert#(DUFA,3))
y#=vert#(DUFA,2)
z#=rgz(vert#(DUFA,1),vert#(DUFA,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUFA+2,1),vert#(DUFA+2,3))
y#=vert#(DUFA+2,2)
z#=rgz(vert#(DUFA+2,1),vert#(DUFA+2,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

tree#=y2#

gt#=(y1#-y2#)/(x1#-x2#)
DUuFA=DUFA
x#=rgx(vert#(DUuFA+1,1),vert#(DuUFA+1,3))
y#=vert#(DUuFA+1,2)
z#=rgz(vert#(DuUFA+1,1),vert#(DUuFA+1,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
y#=vert#(DUuFA+3,2)
z#=rgz(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

gb#=(y1#-y2#)/(x1#-x2#)

n=(x1#-x2#)
for a# = x2# to x2#+n
x#=a#-x2#
line a#,x#*gt#+tree#,a#,x#*gb#+y2#
next a#

NEXT DUFA

endfunction

A box with (3) sides.

Back to top

Profile PM

Mussi

21

Years of Service

User Offline

Joined: 27th Jan 2003

Location: Netherlands

Posted: 2nd Jun 2004 18:10

Link

cool

Specs: AMD Athlon 1800, 256 DDRRam 266mhz, 80GB HD 7200rmp U133, Geforce 4 Ti4400 128mb

Back to top

Profile PM

Turoid

21

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 2nd Jun 2004 19:12

Link

wo man, i'm really interested in this, do you think that you can make a function libary for a whole engine? with simpel primitives etc. BTW this is really nice

do you think that this is faster than an normal 3d eninge?

cheers,

if I = 1 then I = 1 else I = 0

Back to top

Profile PM

Turoid

21

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 2nd Jun 2004 19:20

Link

i've added some color

set display mode 800,600,32:ink 0,0:hide mouse

dim objpos#(3):dim cam#(4):dim vert#(8,3)
dim p(800,600)
cam#(3)=-0.7

sync on
do

cls rgb(255,255,255)

set cursor 0,0
print screen fps()
if rightkey()=1 then a#=wrapvalue(a#+1)
if leftkey()=1 then a#=wrapvalue(a#-1)
placevert(a#)

fillit()
frameit()
sync
loop

function rgx(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rx#=dist#*sin(a#)
endfunction rx#
function rgz(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rz#=dist#*cos(a#)
endfunction rz#
function sy(x#,y#,z#)
grady#=y#/z#
sy#=600-((grady#/2)*1000+300)
endfunction sy#
function sx(x#,y#,z#)
gradx#=x#/z#
sx#=(gradx#/2)*1000+400
endfunction sx#
function placevert(a#)
blah=0
for t = 1 to 7 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t

blah=0
for t = 2 to 8 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=-0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t
endfunction
function frameit()

for t = 1 to 7 step 2
x#=rgx(vert#(t,1),vert#(t,3))
y#=vert#(t,2)
z#=rgz(vert#(t+1,1),vert#(t+1,3))
x2#=rgx(vert#(t+1,1),vert#(t+1,3))
y2#=vert#(t+1,2)
z2#=rgz(vert#(t+1,1),vert#(t+1,3))
ink 0,0
line sx(x#,y#,z#),sy(x#,y#,z#),sx(x2#,y2#,z2#),sy(x2#,y2#,z2#)
next t

endfunction
function fillit()

for DUFA = 1 to 5 step 2

x#=rgx(vert#(DUFA,1),vert#(DUFA,3))
y#=vert#(DUFA,2)
z#=rgz(vert#(DUFA,1),vert#(DUFA,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUFA+2,1),vert#(DUFA+2,3))
y#=vert#(DUFA+2,2)
z#=rgz(vert#(DUFA+2,1),vert#(DUFA+2,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

tree#=y2#

gt#=(y1#-y2#)/(x1#-x2#)
DUuFA=DUFA
x#=rgx(vert#(DUuFA+1,1),vert#(DuUFA+1,3))
y#=vert#(DUuFA+1,2)
z#=rgz(vert#(DuUFA+1,1),vert#(DUuFA+1,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
y#=vert#(DUuFA+3,2)
z#=rgz(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

gb#=(y1#-y2#)/(x1#-x2#)

n=(x1#-x2#)
for a# = x2# to x2#+n
x#=a#-x2#

a=a+1
if a = 1
ink rgb(100,123,250),0
endif
if a=2
ink rgb(0,123,250),0
endif
if a=3 then a=0
line a#,x#*gt#+tree#,a#,x#*gb#+y2#
next a#

NEXT DUFA

endfunction

+ Code Snippet

set display mode 800,600,32:ink 0,0:hide mouse

dim objpos#(3):dim cam#(4):dim vert#(8,3)
dim p(800,600)
cam#(3)=-0.7

sync on
do

cls rgb(255,255,255)

set cursor 0,0
print screen fps()
if rightkey()=1 then a#=wrapvalue(a#+1)
if leftkey()=1 then a#=wrapvalue(a#-1)
placevert(a#)

fillit()
frameit()
sync
loop

function rgx(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rx#=dist#*sin(a#)
endfunction rx#
function rgz(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rz#=dist#*cos(a#)
endfunction rz#
function sy(x#,y#,z#)
grady#=y#/z#
sy#=600-((grady#/2)*1000+300)
endfunction sy#
function sx(x#,y#,z#)
gradx#=x#/z#
sx#=(gradx#/2)*1000+400
endfunction sx#
function placevert(a#)
blah=0
for t = 1 to 7 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t

blah=0
for t = 2 to 8 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=-0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t
endfunction
function frameit()

for t = 1 to 7 step 2
x#=rgx(vert#(t,1),vert#(t,3))
y#=vert#(t,2)
z#=rgz(vert#(t+1,1),vert#(t+1,3))
x2#=rgx(vert#(t+1,1),vert#(t+1,3))
y2#=vert#(t+1,2)
z2#=rgz(vert#(t+1,1),vert#(t+1,3))
ink 0,0
line sx(x#,y#,z#),sy(x#,y#,z#),sx(x2#,y2#,z2#),sy(x2#,y2#,z2#)
next t

endfunction
function fillit()

for DUFA = 1 to 5 step 2

x#=rgx(vert#(DUFA,1),vert#(DUFA,3))
y#=vert#(DUFA,2)
z#=rgz(vert#(DUFA,1),vert#(DUFA,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUFA+2,1),vert#(DUFA+2,3))
y#=vert#(DUFA+2,2)
z#=rgz(vert#(DUFA+2,1),vert#(DUFA+2,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

tree#=y2#

gt#=(y1#-y2#)/(x1#-x2#)
DUuFA=DUFA
x#=rgx(vert#(DUuFA+1,1),vert#(DuUFA+1,3))
y#=vert#(DUuFA+1,2)
z#=rgz(vert#(DuUFA+1,1),vert#(DUuFA+1,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
y#=vert#(DUuFA+3,2)
z#=rgz(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

gb#=(y1#-y2#)/(x1#-x2#)

n=(x1#-x2#)
for a# = x2# to x2#+n
x#=a#-x2#

a=a+1
if a = 1
ink rgb(100,123,250),0
endif
if a=2
ink rgb(0,123,250),0
endif
if a=3 then a=0
line a#,x#*gt#+tree#,a#,x#*gb#+y2#
next a#

NEXT DUFA

endfunction

if I = 1 then I = 1 else I = 0

Back to top

Profile PM

Chris K

21

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 2nd Jun 2004 19:29

Link

The reason I'm making this is because I wanted to code some shaders into it (like depth of field).

Seeing as I'm telling it how to draw everthing anyway I should be able to draw it blurred quite easily and, you shouldn't need a 3DFX card to do it.

The speed tests I've run so far are a bit slow but I should be able to get it up with some little tricks.

I should have a demo soon that draws everything blurred. Then I should be able to add them together into a depth of field thingy.

Back to top

Profile PM

Chris K

21

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 2nd Jun 2004 19:35

Link

Better color:

set display mode 800,600,32:ink 0,0:hide mouse

dim objpos#(3):dim cam#(4):dim vert#(8,3)
dim p(800,600)
cam#(3)=-0.7

sync on
do

cls rgb(255,255,255)

set cursor 0,0
print screen fps()
if rightkey()=1 then a#=wrapvalue(a#+1)
if leftkey()=1 then a#=wrapvalue(a#-1)
placevert(a#)

fillit()
frameit()
sync
loop

function rgx(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rx#=dist#*sin(a#)
endfunction rx#
function rgz(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rz#=dist#*cos(a#)
endfunction rz#
function sy(x#,y#,z#)
grady#=y#/z#
sy#=600-((grady#/2)*1000+300)
endfunction sy#
function sx(x#,y#,z#)
gradx#=x#/z#
sx#=(gradx#/2)*1000+400
endfunction sx#
function placevert(a#)
blah=0
for t = 1 to 7 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t

blah=0
for t = 2 to 8 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=-0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t
endfunction
function frameit()

for t = 1 to 7 step 2
x#=rgx(vert#(t,1),vert#(t,3))
y#=vert#(t,2)
z#=rgz(vert#(t+1,1),vert#(t+1,3))
x2#=rgx(vert#(t+1,1),vert#(t+1,3))
y2#=vert#(t+1,2)
z2#=rgz(vert#(t+1,1),vert#(t+1,3))
ink 0,0
line sx(x#,y#,z#),sy(x#,y#,z#),sx(x2#,y2#,z2#),sy(x2#,y2#,z2#)
next t

endfunction
function fillit()

for DUFA = 1 to 5 step 2

x#=rgx(vert#(DUFA,1),vert#(DUFA,3))
y#=vert#(DUFA,2)
z#=rgz(vert#(DUFA,1),vert#(DUFA,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUFA+2,1),vert#(DUFA+2,3))
y#=vert#(DUFA+2,2)
z#=rgz(vert#(DUFA+2,1),vert#(DUFA+2,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

tree#=y2#

gt#=(y1#-y2#)/(x1#-x2#)
DUuFA=DUFA
x#=rgx(vert#(DUuFA+1,1),vert#(DuUFA+1,3))
y#=vert#(DUuFA+1,2)
z#=rgz(vert#(DuUFA+1,1),vert#(DUuFA+1,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
y#=vert#(DUuFA+3,2)
z#=rgz(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

gb#=(y1#-y2#)/(x1#-x2#)

n=(x1#-x2#)
for a# = x2# to x2#+n
x#=a#-x2#
1#=(n/3)+x2#
2#=((n/3)*2)+x2#
if a#<1# then ink rgb(255,0,0),0
if a#>1# and a#<2# then ink rgb(0,255,0),0
if a#>2# then ink rgb(0,0,255),0
line a#,x#*gt#+tree#,a#,x#*gb#+y2#
next a#

NEXT DUFA

endfunction

+ Code Snippet

set display mode 800,600,32:ink 0,0:hide mouse

dim objpos#(3):dim cam#(4):dim vert#(8,3)
dim p(800,600)
cam#(3)=-0.7

sync on
do

cls rgb(255,255,255)

set cursor 0,0
print screen fps()
if rightkey()=1 then a#=wrapvalue(a#+1)
if leftkey()=1 then a#=wrapvalue(a#-1)
placevert(a#)

fillit()
frameit()
sync
loop

function rgx(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rx#=dist#*sin(a#)
endfunction rx#
function rgz(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rz#=dist#*cos(a#)
endfunction rz#
function sy(x#,y#,z#)
grady#=y#/z#
sy#=600-((grady#/2)*1000+300)
endfunction sy#
function sx(x#,y#,z#)
gradx#=x#/z#
sx#=(gradx#/2)*1000+400
endfunction sx#
function placevert(a#)
blah=0
for t = 1 to 7 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t

blah=0
for t = 2 to 8 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=-0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t
endfunction
function frameit()

for t = 1 to 7 step 2
x#=rgx(vert#(t,1),vert#(t,3))
y#=vert#(t,2)
z#=rgz(vert#(t+1,1),vert#(t+1,3))
x2#=rgx(vert#(t+1,1),vert#(t+1,3))
y2#=vert#(t+1,2)
z2#=rgz(vert#(t+1,1),vert#(t+1,3))
ink 0,0
line sx(x#,y#,z#),sy(x#,y#,z#),sx(x2#,y2#,z2#),sy(x2#,y2#,z2#)
next t

endfunction
function fillit()

for DUFA = 1 to 5 step 2

x#=rgx(vert#(DUFA,1),vert#(DUFA,3))
y#=vert#(DUFA,2)
z#=rgz(vert#(DUFA,1),vert#(DUFA,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUFA+2,1),vert#(DUFA+2,3))
y#=vert#(DUFA+2,2)
z#=rgz(vert#(DUFA+2,1),vert#(DUFA+2,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

tree#=y2#

gt#=(y1#-y2#)/(x1#-x2#)
DUuFA=DUFA
x#=rgx(vert#(DUuFA+1,1),vert#(DuUFA+1,3))
y#=vert#(DUuFA+1,2)
z#=rgz(vert#(DuUFA+1,1),vert#(DUuFA+1,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
y#=vert#(DUuFA+3,2)
z#=rgz(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

gb#=(y1#-y2#)/(x1#-x2#)

n=(x1#-x2#)
for a# = x2# to x2#+n
x#=a#-x2#
1#=(n/3)+x2#
2#=((n/3)*2)+x2#
if a#<1# then ink rgb(255,0,0),0
if a#>1# and a#<2# then ink rgb(0,255,0),0
if a#>2# then ink rgb(0,0,255),0
line a#,x#*gt#+tree#,a#,x#*gb#+y2#
next a#

NEXT DUFA

endfunction

Back to top

Profile PM

Chris K

21

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 2nd Jun 2004 20:16

Link

Here's a very crude blur example:

set display mode 800,600,32:ink 0,0:hide mouse

dim objpos#(3):dim cam#(4):dim vert#(8,3)
dim blur(1)
blur(1)=5
cam#(3)=-0.7

load dll "user32.dll",1
load dll "gdi32.dll",2
hWnd = call dll(1,"GetActiveWindow")
hDC = call dll(1,"GetWindowDC",hWnd)

sync on
do

cls rgb(255,255,255)

set cursor 0,0
print screen fps()
if rightkey()=1 then a#=wrapvalue(a#+1)
if leftkey()=1 then a#=wrapvalue(a#-1)
placevert(a#)

fillit()
frameit()
sync
loop

function rgx(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rx#=dist#*sin(a#)
endfunction rx#
function rgz(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rz#=dist#*cos(a#)
endfunction rz#
function sy(x#,y#,z#)
grady#=y#/z#
sy#=600-((grady#/2)*1000+300)
endfunction sy#
function sx(x#,y#,z#)
gradx#=x#/z#
sx#=(gradx#/2)*1000+400
endfunction sx#
function placevert(a#)
blah=0
for t = 1 to 7 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t

blah=0
for t = 2 to 8 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=-0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t
endfunction
function frameit()

for t = 1 to 7 step 2
x#=rgx(vert#(t,1),vert#(t,3))
y#=vert#(t,2)
z#=rgz(vert#(t+1,1),vert#(t+1,3))
x2#=rgx(vert#(t+1,1),vert#(t+1,3))
y2#=vert#(t+1,2)
z2#=rgz(vert#(t+1,1),vert#(t+1,3))
ink 0,0
line sx(x#,y#,z#),sy(x#,y#,z#),sx(x2#,y2#,z2#),sy(x2#,y2#,z2#)
next t

endfunction
function fillit()

for DUFA = 1 to 5 step 2

x#=rgx(vert#(DUFA,1),vert#(DUFA,3))
y#=vert#(DUFA,2)
z#=rgz(vert#(DUFA,1),vert#(DUFA,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUFA+2,1),vert#(DUFA+2,3))
y#=vert#(DUFA+2,2)
z#=rgz(vert#(DUFA+2,1),vert#(DUFA+2,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

tree#=y2#

gt#=(y1#-y2#)/(x1#-x2#)
DUuFA=DUFA
x#=rgx(vert#(DUuFA+1,1),vert#(DuUFA+1,3))
y#=vert#(DUuFA+1,2)
z#=rgz(vert#(DuUFA+1,1),vert#(DUuFA+1,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
y#=vert#(DUuFA+3,2)
z#=rgz(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

gb#=(y1#-y2#)/(x1#-x2#)

n=(x1#-x2#)
for a# = x2# to x2#+n
x#=a#-x2#
1#=(n/3)+x2#
2#=((n/3)*2)+x2#
if a#<1# then ink rgb(255,0,0),0
if a#>1# and a#<2# then ink rgb(0,255,0),0
if a#>2# then ink rgb(0,0,255),0
line a#,x#*gt#+tree#,a#,x#*gb#+y2#

if spacekey()=1
q=0
for x# = 1#-blur(1) to 1#+blur(1)
q=q+1
fade=q*(230/(blur(1)*2))
ink rgb(255-fade,fade,0),0
line x#,220,x#,380
next x#
q=0
for x# = 2#-blur(1) to 2#+blur(1)
q=q+1
fade=q*(230/(blur(1)*2))
ink rgb(0,255-fade,fade),0
line x#,220,x#,380
next x#
n#=n+x2#
q=0
for x# = n#-blur(1) to n#+blur(1)
q=q+1
fade=q*(230/(blur(1)*2))
ink rgb(fade,0,255-fade),0
line x#,220,x#,380
next x#
endif
next a#

NEXT DUFA

endfunction

+ Code Snippet

set display mode 800,600,32:ink 0,0:hide mouse

dim objpos#(3):dim cam#(4):dim vert#(8,3)
dim blur(1)
blur(1)=5
cam#(3)=-0.7

load dll "user32.dll",1
load dll "gdi32.dll",2
hWnd = call dll(1,"GetActiveWindow")
hDC = call dll(1,"GetWindowDC",hWnd)

sync on
do

cls rgb(255,255,255)

set cursor 0,0
print screen fps()
if rightkey()=1 then a#=wrapvalue(a#+1)
if leftkey()=1 then a#=wrapvalue(a#-1)
placevert(a#)

fillit()
frameit()
sync
loop

function rgx(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rx#=dist#*sin(a#)
endfunction rx#
function rgz(x#,z#)
dx#=cam#(1)-x#
dz#=cam#(3)-z#
dist#=sqrt(dx#^2+dz#^2)
a#=atan(dx#/dz#)-cam#(4)
rz#=dist#*cos(a#)
endfunction rz#
function sy(x#,y#,z#)
grady#=y#/z#
sy#=600-((grady#/2)*1000+300)
endfunction sy#
function sx(x#,y#,z#)
gradx#=x#/z#
sx#=(gradx#/2)*1000+400
endfunction sx#
function placevert(a#)
blah=0
for t = 1 to 7 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t

blah=0
for t = 2 to 8 step 2
blah=blah+1
if blah=1 then b#=0+45
if blah=2 then b#=90+45
if blah=3 then b#=180+45
if blah=4 then b#=270+45
vert#(t,1)=newxvalue(0,a#+b#,0.1)
vert#(t,2)=-0.1
vert#(t,3)=newzvalue(0,a#+b#,0.1)
next t
endfunction
function frameit()

for t = 1 to 7 step 2
x#=rgx(vert#(t,1),vert#(t,3))
y#=vert#(t,2)
z#=rgz(vert#(t+1,1),vert#(t+1,3))
x2#=rgx(vert#(t+1,1),vert#(t+1,3))
y2#=vert#(t+1,2)
z2#=rgz(vert#(t+1,1),vert#(t+1,3))
ink 0,0
line sx(x#,y#,z#),sy(x#,y#,z#),sx(x2#,y2#,z2#),sy(x2#,y2#,z2#)
next t

endfunction
function fillit()

for DUFA = 1 to 5 step 2

x#=rgx(vert#(DUFA,1),vert#(DUFA,3))
y#=vert#(DUFA,2)
z#=rgz(vert#(DUFA,1),vert#(DUFA,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUFA+2,1),vert#(DUFA+2,3))
y#=vert#(DUFA+2,2)
z#=rgz(vert#(DUFA+2,1),vert#(DUFA+2,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

tree#=y2#

gt#=(y1#-y2#)/(x1#-x2#)
DUuFA=DUFA
x#=rgx(vert#(DUuFA+1,1),vert#(DuUFA+1,3))
y#=vert#(DUuFA+1,2)
z#=rgz(vert#(DuUFA+1,1),vert#(DUuFA+1,3))
x1#=sx(x#,y#,z#)
y1#=sy(x#,y#,z#)
x#=rgx(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
y#=vert#(DUuFA+3,2)
z#=rgz(vert#(DUuFA+3,1),vert#(DuUFA+3,3))
x2#=sx(x#,y#,z#)
y2#=sy(x#,y#,z#)

gb#=(y1#-y2#)/(x1#-x2#)

n=(x1#-x2#)
for a# = x2# to x2#+n
x#=a#-x2#
1#=(n/3)+x2#
2#=((n/3)*2)+x2#
if a#<1# then ink rgb(255,0,0),0
if a#>1# and a#<2# then ink rgb(0,255,0),0
if a#>2# then ink rgb(0,0,255),0
line a#,x#*gt#+tree#,a#,x#*gb#+y2#

if spacekey()=1
q=0
for x# = 1#-blur(1) to 1#+blur(1)
q=q+1
fade=q*(230/(blur(1)*2))
ink rgb(255-fade,fade,0),0
line x#,220,x#,380
next x#
q=0
for x# = 2#-blur(1) to 2#+blur(1)
q=q+1
fade=q*(230/(blur(1)*2))
ink rgb(0,255-fade,fade),0
line x#,220,x#,380
next x#
n#=n+x2#
q=0
for x# = n#-blur(1) to n#+blur(1)
q=q+1
fade=q*(230/(blur(1)*2))
ink rgb(fade,0,255-fade),0
line x#,220,x#,380
next x#
endif
next a#

NEXT DUFA

endfunction

Spacekey to put it out of focus

As you can see the speed dies pretty much completely.

Back to top

Profile PM

Mussi

21

Years of Service

User Offline

Joined: 27th Jan 2003

Location: Netherlands

Posted: 2nd Jun 2004 20:39

Link

the DBP basic 2d commands are way to slow for this

, would be impossible to create a 3d engine with it

Specs: AMD Athlon 1800, 256 DDRRam 266mhz, 80GB HD 7200rmp U133, Geforce 4 Ti4400 128mb

Back to top

Profile PM

TheOneRing

21

Years of Service

User Offline

Joined: 28th Aug 2003

Location: Right here.

Posted: 2nd Jun 2004 20:53

Link

Lock the backbuffer to make the 2D drawing faster...

Visit http://www.mighty-atom.com/d-zone for the Transform-i scripting engine project.

Back to top

Profile PM Email Website

Chris K

21

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 2nd Jun 2004 21:01

Link

That just seems to give me a blank screen

Back to top

Profile PM

Mussi

21

Years of Service

User Offline

Joined: 27th Jan 2003

Location: Netherlands

Posted: 3rd Jun 2004 00:19

Link

you need to unlock it to

Specs: AMD Athlon 1800, 256 DDRRam 266mhz, 80GB HD 7200rmp U133, Geforce 4 Ti4400 128mb

Back to top

Profile PM

Sorry your browser is not supported!

Work in Progress / My 3D Engine