Isometric Perspective? - GameCreators Forum

Author

Message

Invincibob 8

17

Years of Service

User Offline

Joined: 4th Feb 2008

Location: Some Place Somewhere

Posted: 14th Sep 2008 02:51

Link

If I use 2d isometric sprites, how would I get the correct collision, and control what draws over what and when it does? Basically, I want an isometric tutorial, or at least an understandable explanation.

Once, I fell of a bridge and died. When I came back, I decided to haunt this forum.

Back to top

Profile PM Website

Sinani201

18

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 14th Sep 2008 07:00

Link

I know there was a thread that attempted to do a project with an isometric RPG, but I forgot the name. I'll try to dig it out. It had a bunch of links to isomeric tutorials. However, the best way to get tutorials on anything is to search it on Google!

"I reveal my trap card, GEORGE DUBYA BUSH!
America loses 2000 Life Points! America loses." -Deucalion2

Back to top

Profile PM

Invincibob 8

17

Years of Service

User Offline

Joined: 4th Feb 2008

Location: Some Place Somewhere

Posted: 14th Sep 2008 16:50

Link

I don't know, most of the results I get are for pixelling isometric sprites..

Once, I fell of a bridge and died. When I came back, I decided to haunt this forum.

Back to top

Profile PM Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 14th Sep 2008 23:32 Edited at: 14th Sep 2008 23:33

Link

Quote: "I know there was a thread that attempted to do a project with an isometric RPG"

I worked on that project, unfortunately it didn't get off the ground.

Here's some code I made for the isometric world...
(Use the directional keys to move around and shift/ctrl to move up and down.)

hide mouse
sync on : sync rate 0

cyan = rgb(0,255,255)
blue = rgb(0,0,128)
red = rgb(255,0,0)

DO

`controls
if upkey()=1 then inc pz#,5
if downkey()=1 then dec pz#,5
if leftkey()=1 then dec px#,5
if rightkey()=1 then inc px#,5
if shiftkey()=1 then inc py#,5
if controlkey()=1 then dec py#,5
if spacekey()=1 or py# < 0.0 then py# = 0.0

`convert character position to isometric
pscreenx# = @iso_screenx(px#,pz#)
pscreeny# = @iso_screeny(px#,py#,pz#)

`draw floor tiles
for z = -100 to 100 step 50
   for x = -100 to 100 step 50
      x#=x : z#=z
      @iso_tile(x#,z#,cyan,blue)
   next x
next z

`info
print "Use arrow keys to move, use SHIFT and CTRL to move up and down, press space to reset Y-Axis."
print

`draw character
ink red,0
circle pscreenx#,pscreeny#,9
@iso_line(px#,py#,pz#, px#,.0,pz#) : `player height line

print "Circle Position In World"
print "X: "; px#
print "Y: "; py#
print "Z: "; pz#

sync
cls
LOOP

END

`-------------------
` FUNCTIONS
`-------------------
`Iso ScreenX
FUNCTION @iso_screenx(cx#,cz#)
   scrw = screen width()
   ix# = (scrw/2) + (cx#*(2/3.0)) - (cz#*(2/3.0))
ENDFUNCTION ix#
`Iso ScreenY
FUNCTION @iso_screeny(cx#,cy#,cz#)
   scrh = screen height()
   iy# = (scrh/2) - (cy#*(2/3.0)) - (cx#*(1/3.0)) + (cz#*(1/3.0))
ENDFUNCTION iy#

`Iso Tile
FUNCTION @iso_tile(x#,z#,hilite,lolite)
   ink lolite,0
   @iso_line(x#-25,.0,z#-25, x#+25,.0,z#-25) : `bottom
   @iso_line(x#+25,.0,z#-25, x#+25,.0,z#+25) : `right
   ink hilite,0
   @iso_line(x#+25,.0,z#+25, x#-25,.0,z#+25) : `top
   @iso_line(x#-25,.0,z#+25, x#-25,.0,z#-25) : `left
ENDFUNCTION

`Iso Line
FUNCTION @iso_line(sx#,sy#,sz#, ex#,ey#,ez#)
   scrw = screen width()
   scrh = screen height()

x1# = (sx#*(2/3.0)) - (sz#*(2/3.0))
   y1# = scrh-(sy#*(2/3.0)) - (sx#*(1/3.0)) + (sz#*(1/3.0))

x2# = (ex#*(2/3.0)) - (ez#*(2/3.0))
   y2# = scrh-(ey#*(2/3.0)) - (ex#*(1/3.0)) + (ez#*(1/3.0))

x1 = @RUP(x1#) : y1 = @RUP(y1#)
   x2 = @RUP(x2#) : y2 = @RUP(y2#)

`draw the line
   @dline(x1+scrw/2,y1-scrh/2,x2+scrw/2,y2-scrh/2)
ENDFUNCTION

`Round up
FUNCTION @RUP(n#)
 if n#<>0 then f# = n# / abs(n#*2)
 n# = n# + f#
 n = n#
ENDFUNCTION n

`DLine Function by OBese87
FUNCTION @dline(l,t,r,b)
   w = r-l : h = b-t
   if w >= 0 then xstep = 1 else xstep = -1
   if h >= 0 then ystep = 1 else ystep = -1
   w# = ABS(w) : h# = ABS(h)
   if w#=0 then w#=0.1
   if h#=0 then h#=0.1
   xfact# = w#/h#
   yfact# = h#/w#

x = 0 : y = 0
   repeat
      `don't overshoot
      if abs(x+xstep) > abs(w) then xstep = 0
      if abs(y+ystep) > abs(h) then ystep = 0

dot x+l,y+t
      if yfact# > xfact#
         inc y,ystep
         if ABS(x) < ABS(y*xfact#) then inc x,xstep
      else
         inc x,xstep
         if ABS(y) < ABS(x*yfact#) then inc y,ystep
      endif
   until xstep = 0 and ystep = 0
ENDFUNCTION

+ Code Snippet

hide mouse
sync on : sync rate 0

cyan = rgb(0,255,255)
blue = rgb(0,0,128)
red = rgb(255,0,0)

DO

`controls
if upkey()=1 then inc pz#,5
if downkey()=1 then dec pz#,5
if leftkey()=1 then dec px#,5
if rightkey()=1 then inc px#,5
if shiftkey()=1 then inc py#,5
if controlkey()=1 then dec py#,5
if spacekey()=1 or py# < 0.0 then py# = 0.0

`convert character position to isometric
pscreenx# = @iso_screenx(px#,pz#)
pscreeny# = @iso_screeny(px#,py#,pz#)

`draw floor tiles
for z = -100 to 100 step 50
   for x = -100 to 100 step 50
      x#=x : z#=z
      @iso_tile(x#,z#,cyan,blue)
   next x
next z

`info
print "Use arrow keys to move, use SHIFT and CTRL to move up and down, press space to reset Y-Axis."
print

`draw character
ink red,0
circle pscreenx#,pscreeny#,9
@iso_line(px#,py#,pz#, px#,.0,pz#) : `player height line

print "Circle Position In World"
print "X: "; px#
print "Y: "; py#
print "Z: "; pz#

sync
cls
LOOP

END

`-------------------
` FUNCTIONS
`-------------------
`Iso ScreenX
FUNCTION @iso_screenx(cx#,cz#)
   scrw = screen width()
   ix# = (scrw/2) + (cx#*(2/3.0)) - (cz#*(2/3.0))
ENDFUNCTION ix#
`Iso ScreenY
FUNCTION @iso_screeny(cx#,cy#,cz#)
   scrh = screen height()
   iy# = (scrh/2) - (cy#*(2/3.0)) - (cx#*(1/3.0)) + (cz#*(1/3.0))
ENDFUNCTION iy#

`Iso Tile
FUNCTION @iso_tile(x#,z#,hilite,lolite)
   ink lolite,0
   @iso_line(x#-25,.0,z#-25, x#+25,.0,z#-25) : `bottom
   @iso_line(x#+25,.0,z#-25, x#+25,.0,z#+25) : `right
   ink hilite,0
   @iso_line(x#+25,.0,z#+25, x#-25,.0,z#+25) : `top
   @iso_line(x#-25,.0,z#+25, x#-25,.0,z#-25) : `left
ENDFUNCTION

`Iso Line
FUNCTION @iso_line(sx#,sy#,sz#, ex#,ey#,ez#)
   scrw = screen width()
   scrh = screen height()

   x1# = (sx#*(2/3.0)) - (sz#*(2/3.0))
   y1# = scrh-(sy#*(2/3.0)) - (sx#*(1/3.0)) + (sz#*(1/3.0))

   x2# = (ex#*(2/3.0)) - (ez#*(2/3.0))
   y2# = scrh-(ey#*(2/3.0)) - (ex#*(1/3.0)) + (ez#*(1/3.0))

   x1 = @RUP(x1#) : y1 = @RUP(y1#)
   x2 = @RUP(x2#) : y2 = @RUP(y2#)

   `draw the line
   @dline(x1+scrw/2,y1-scrh/2,x2+scrw/2,y2-scrh/2)
ENDFUNCTION

`Round up
FUNCTION @RUP(n#)
 if n#<>0 then f# = n# / abs(n#*2)
 n# = n# + f#
 n = n#
ENDFUNCTION n

`DLine Function by OBese87
FUNCTION @dline(l,t,r,b)
   w = r-l : h = b-t
   if w >= 0 then xstep = 1 else xstep = -1
   if h >= 0 then ystep = 1 else ystep = -1
   w# = ABS(w) : h# = ABS(h)
   if w#=0 then w#=0.1
   if h#=0 then h#=0.1
   xfact# = w#/h#
   yfact# = h#/w#

   x = 0 : y = 0
   repeat
      `don't overshoot
      if abs(x+xstep) > abs(w) then xstep = 0
      if abs(y+ystep) > abs(h) then ystep = 0

      dot x+l,y+t
      if yfact# > xfact#
         inc y,ystep
         if ABS(x) < ABS(y*xfact#) then inc x,xstep
      else
         inc x,xstep
         if ABS(y) < ABS(x*yfact#) then inc y,ystep
      endif
   until xstep = 0 and ystep = 0
ENDFUNCTION

The functions that are of most interest to you are the ones that convert the 3D co-ordinates into 2D isometric...

+ Code Snippet

`Iso ScreenX
FUNCTION @iso_screenx(cx#,cz#)
   scrw = screen width()
   ix# = (scrw/2) + (cx#*(2/3.0)) - (cz#*(2/3.0))
ENDFUNCTION ix#
`Iso ScreenY
FUNCTION @iso_screeny(cx#,cy#,cz#)
   scrh = screen height()
   iy# = (scrh/2) - (cy#*(2/3.0)) - (cx#*(1/3.0)) + (cz#*(1/3.0))
ENDFUNCTION iy#

This demo should be helpful, it shows how a 3D cube can be drawn and what happens to the 3D coordinates.

`X axis
ink rgb(255,0,0),0
iso_line(0.0,0.0,0.0, 50.0,0.0,0.0)
`Z axis
ink rgb(0,0,255),0
iso_line(0.0,0.0,0.0, 0.0,0.0,50.0)
`Complete Base
ink rgb(255,0,255),0
iso_line(50.0,0.0,0.0, 50.0,0.0,50.0)
iso_line(50.0,0.0,50.0, 0.0,0.0,50.0)

`Y axis
ink rgb(0,255,0),0
iso_line(0.0,0.0,0.0, 0.0,50.0,0.0)
`Complete XY
ink rgb(255,255,0),0
iso_line(50.0,0.0,0.0, 50.0,50.0,0.0)
iso_line(50.0,50.0,0.0, 0.0,50.0,0.0)
`Complete ZY
ink rgb(0,255,255),0
iso_line(0.0,0.0,50.0, 0.0,50.0,50.0)
iso_line(0.0,50.0,50.0, 0.0,50.0,0.0)

`Complete cube
ink rgb(255,255,255),0
iso_line(0.0,50.0,50.0, 50.0,50.0,50.0)
iso_line(50.0,50.0,50.0, 50.0,50.0,0.0)

wait key

END

`FUNCTIONS
FUNCTION iso_line(sx#,sy#,sz#, ex#,ey#,ez#)
   x1# = (sx#/1.5) - (sz#/1.5)
   y1# = screen height()-(sy#/1.5) - ((sx#/3)+(sz#/3))

x2# = (ex#/1.5) - (ez#/1.5)
   y2# = screen height()-(ey#/1.5) - ((ex#/3)+(ez#/3))

x1 = Round(x1#) : y1 = Round(y1#) : x2 = Round(x2#) : y2 = Round(y2#)

`print the line vertice points
   print sx#; ", "; sy#; ", "; sz#;
   print " to ";
   print ex#; ", "; ey#; ", "; ez#
   `draw the line
   dline(x1+320,y1-240,x2+320,y2-240)
`   line x1+320,y1-240,x2+320,y2-240
ENDFUNCTION

`line
FUNCTION dline(l,t,r,b)
   w = r-l : h = b-t
   if w >= 0 then xstep = 1 else xstep = -1
   if h >= 0 then ystep = 1 else ystep = -1
   w# = ABS(w) : h# = ABS(h)
   if w#=0 then w#=0.1
   if h#=0 then h#=0.1
   xfact# = w#/h#
   yfact# = h#/w#

x = 0 : y = 0
   repeat
      `don't overshoot
      if abs(x+xstep) > abs(w) then xstep = 0
      if abs(y+ystep) > abs(h) then ystep = 0

dot x+l,y+t
      if yfact# > xfact#
         inc y,ystep
         if ABS(x) < ABS(y*xfact#) then inc x,xstep
      else
         inc x,xstep
         if ABS(y) < ABS(x*yfact#) then inc y,ystep
      endif
   until xstep = 0 and ystep = 0
ENDFUNCTION

`round up
function round(n#)
   a=n#+n#
   b=n#
   n=a-b
endfunction n

+ Code Snippet

`X axis
ink rgb(255,0,0),0
iso_line(0.0,0.0,0.0, 50.0,0.0,0.0)
`Z axis
ink rgb(0,0,255),0
iso_line(0.0,0.0,0.0, 0.0,0.0,50.0)
`Complete Base
ink rgb(255,0,255),0
iso_line(50.0,0.0,0.0, 50.0,0.0,50.0)
iso_line(50.0,0.0,50.0, 0.0,0.0,50.0)

`Y axis
ink rgb(0,255,0),0
iso_line(0.0,0.0,0.0, 0.0,50.0,0.0)
`Complete XY
ink rgb(255,255,0),0
iso_line(50.0,0.0,0.0, 50.0,50.0,0.0)
iso_line(50.0,50.0,0.0, 0.0,50.0,0.0)
`Complete ZY
ink rgb(0,255,255),0
iso_line(0.0,0.0,50.0, 0.0,50.0,50.0)
iso_line(0.0,50.0,50.0, 0.0,50.0,0.0)

`Complete cube
ink rgb(255,255,255),0
iso_line(0.0,50.0,50.0, 50.0,50.0,50.0)
iso_line(50.0,50.0,50.0, 50.0,50.0,0.0)

wait key

END

`FUNCTIONS
FUNCTION iso_line(sx#,sy#,sz#, ex#,ey#,ez#)
   x1# = (sx#/1.5) - (sz#/1.5)
   y1# = screen height()-(sy#/1.5) - ((sx#/3)+(sz#/3))

   x2# = (ex#/1.5) - (ez#/1.5)
   y2# = screen height()-(ey#/1.5) - ((ex#/3)+(ez#/3))

   x1 = Round(x1#) : y1 = Round(y1#) : x2 = Round(x2#) : y2 = Round(y2#)

   `print the line vertice points
   print sx#; ", "; sy#; ", "; sz#;
   print " to ";
   print ex#; ", "; ey#; ", "; ez#
   `draw the line
   dline(x1+320,y1-240,x2+320,y2-240)
`   line x1+320,y1-240,x2+320,y2-240
ENDFUNCTION

`line
FUNCTION dline(l,t,r,b)
   w = r-l : h = b-t
   if w >= 0 then xstep = 1 else xstep = -1
   if h >= 0 then ystep = 1 else ystep = -1
   w# = ABS(w) : h# = ABS(h)
   if w#=0 then w#=0.1
   if h#=0 then h#=0.1
   xfact# = w#/h#
   yfact# = h#/w#

   x = 0 : y = 0
   repeat
      `don't overshoot
      if abs(x+xstep) > abs(w) then xstep = 0
      if abs(y+ystep) > abs(h) then ystep = 0

      dot x+l,y+t
      if yfact# > xfact#
         inc y,ystep
         if ABS(x) < ABS(y*xfact#) then inc x,xstep
      else
         inc x,xstep
         if ABS(y) < ABS(x*yfact#) then inc y,ystep
      endif
   until xstep = 0 and ystep = 0
ENDFUNCTION

`round up
function round(n#)
   a=n#+n#
   b=n#
   n=a-b
endfunction n

It is far better to complete a 10 line program than to start a 10,000 line program.

Back to top

Profile PM Email

Invincibob 8

17

Years of Service

User Offline

Joined: 4th Feb 2008

Location: Some Place Somewhere

Posted: 15th Sep 2008 03:02

Link

Okay, this'll help a lot. Thanks everyone!

Once, I fell of a bridge and died. When I came back, I decided to haunt this forum.

Back to top

Profile PM Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 17th Sep 2008 22:12

Link

I was playing around with isometric trying to understand it better myself and I wrote a program that I think is a bit like a boring slide-show but it might help you visualise isometric.

rem setup
Dim w(0)
Dim h(0)
w(0)= 512
h(0)= 384
Set Display Mode w(0)*2,h(0)*2,32
h(0)= 512 : rem reposition vertical centre for drawing purposes
hide mouse
set text font "tahoma",1
set text size 18
sync on : sync rate 40

rem Define some colours
white = rgb(255,255,255)
grey  = rgb(127,127,127)
red   = 255*65536
green = 255*256
blue  = 255

rem --Axis Lines--
ink white,0
text 0,0,"Here are the 3D axis as they are represented in isometric 2D."

rem X axis
ink red,0
IsoLine(0,0,0,400,0,0)
center text IsoX(420,10,0),IsoY(420,10,0),"X"
rem Y axis
ink green,0
IsoLine(0,0,0,0,400,0)
center text IsoX(0,440,0),IsoY(0,440,0),"Y"
rem Z axis
ink blue,0
IsoLine(0,0,0,0,0,400)
center text IsoX(0,10,420),IsoY(0,10,420),"Z"

sync
wait key
cls 0

rem --Ground Level X/Z Grid--
ink white,0
text 0,0,"This is an X/Z grid positioned at 0 on the Y axis."

For n= 0 to 400 step 40
  rem X axis
  ink red,0
  IsoLine(0,0,n,400,0,n)
  rem Z axis
  ink blue,0
  IsoLine(n,0,0,n,0,400)
Next n

sync
wait key

rem --First Floor X/Z Grid--
rem animate extruding second floor
For y= 0 to 110
  cls
  ink white,0
  text 0,0,"A second floor is extruded to show how 3D height affects 2D position."

For n= 0 to 400 step 40
    rem -Ground-
    ink white,0
    rem X axis
    IsoLine(0,0,n,400,0,n)
    rem Z axis
    IsoLine(n,0,0,n,0,400)

rem -Floor 1-
    ink green,0
    rem X axis
    IsoLine(0,y,n,400,y,n)
    rem Z axis
    IsoLine(n,y,0,n,y,400)
  Next n

sync
Next y

wait key
cls

rem --Join by Y axis--
ink white,0
text 0,0,"The two floors are joined to make an array of cuboids."

For n= 0 to 400 step 40
  ink white,0
  rem -Ground-
  rem X axis
  IsoLine(0,0,n,400,0,n)
  rem Z axis
  IsoLine(n,0,0,n,0,400)

rem -Floor 1-
  rem X axis
  IsoLine(0,110,n,400,110,n)
  rem Z axis
  IsoLine(n,110,0,n,110,400)

rem -Joiners-
  ink green,0
  for z= 0 to 400 step 20
    IsoLine(n,0,z,n,110,z)
  next z
Next n

sync
wait key
cls

rem --3D Shapes--
ink white,0
text 0,0,"Isometric coordinates can be used to represent 3D objects with relative ease."

rem -Cube-
ink red,0
rem base
IsoLine(-100,0,0,-100,0,50)
IsoLine(-50,0,0,-100,0,0)
rem left side
IsoLine(-100,0,50,-100,50,50)
rem right side
IsoLine(-50,0,0,-50,50,0)
rem centre side
IsoLine(-100,0,0,-100,50,0)
rem top face
IsoLine(-100,50,50,-50,50,50)
IsoLine(-50,50,50,-50,50,0)
IsoLine(-100,50,0,-100,50,50)
IsoLine(-50,50,0,-100,50,0)

rem -Pyramid-
ink green,0
rem base
IsoLine(0,0,0,0,0,50)
IsoLine(50,0,0,0,0,0)
rem left side
IsoLine(0,0,50,25,50,25)
rem right side
IsoLine(50,0,0,25,50,25)
rem centre line
IsoLine(0,0,0,25,50,25)

sync
wait key
cls

END

`------------
` Functions
`------------
`---Tier 2---
rem Isometric Line
Function IsoLine(ax,ay,az,bx,by,bz)
  cx= IsoX(ax,ay,az)
  cy= IsoY(ax,ay,az)
  dx= IsoX(bx,by,bz)
  dy= IsoY(bx,by,bz)
  line cx,cy,dx,dy
Endfunction

`---Tier 1---
rem Isometric X
Function IsoX(x,y,z)
  sx = w(0)+ (x+x)/3. - (z+z)/3.
Endfunction sx

rem Isometric Y
Function IsoY(x,y,z)
  sy = h(0)- (x/3. + z/3. + (y+y)/3.)
Endfunction sy

+ Code Snippet

rem setup
Dim w(0)
Dim h(0)
w(0)= 512
h(0)= 384
Set Display Mode w(0)*2,h(0)*2,32
h(0)= 512 : rem reposition vertical centre for drawing purposes
hide mouse
set text font "tahoma",1
set text size 18
sync on : sync rate 40

rem Define some colours
white = rgb(255,255,255)
grey  = rgb(127,127,127)
red   = 255*65536
green = 255*256
blue  = 255

rem --Axis Lines--
ink white,0
text 0,0,"Here are the 3D axis as they are represented in isometric 2D."

rem X axis
ink red,0
IsoLine(0,0,0,400,0,0)
center text IsoX(420,10,0),IsoY(420,10,0),"X"
rem Y axis
ink green,0
IsoLine(0,0,0,0,400,0)
center text IsoX(0,440,0),IsoY(0,440,0),"Y"
rem Z axis
ink blue,0
IsoLine(0,0,0,0,0,400)
center text IsoX(0,10,420),IsoY(0,10,420),"Z"

sync
wait key
cls 0

rem --Ground Level X/Z Grid--
ink white,0
text 0,0,"This is an X/Z grid positioned at 0 on the Y axis."

For n= 0 to 400 step 40
  rem X axis
  ink red,0
  IsoLine(0,0,n,400,0,n)
  rem Z axis
  ink blue,0
  IsoLine(n,0,0,n,0,400)
Next n

sync
wait key

rem --First Floor X/Z Grid--
rem animate extruding second floor
For y= 0 to 110
  cls
  ink white,0
  text 0,0,"A second floor is extruded to show how 3D height affects 2D position."

  For n= 0 to 400 step 40
    rem -Ground-
    ink white,0
    rem X axis
    IsoLine(0,0,n,400,0,n)
    rem Z axis
    IsoLine(n,0,0,n,0,400)

    rem -Floor 1-
    ink green,0
    rem X axis
    IsoLine(0,y,n,400,y,n)
    rem Z axis
    IsoLine(n,y,0,n,y,400)
  Next n

  sync
Next y

wait key
cls

rem --Join by Y axis--
ink white,0
text 0,0,"The two floors are joined to make an array of cuboids."

For n= 0 to 400 step 40
  ink white,0
  rem -Ground-
  rem X axis
  IsoLine(0,0,n,400,0,n)
  rem Z axis
  IsoLine(n,0,0,n,0,400)

  rem -Floor 1-
  rem X axis
  IsoLine(0,110,n,400,110,n)
  rem Z axis
  IsoLine(n,110,0,n,110,400)

  rem -Joiners-
  ink green,0
  for z= 0 to 400 step 20
    IsoLine(n,0,z,n,110,z)
  next z
Next n

sync
wait key
cls

rem --3D Shapes--
ink white,0
text 0,0,"Isometric coordinates can be used to represent 3D objects with relative ease."

rem -Cube-
ink red,0
rem base
IsoLine(-100,0,0,-100,0,50)
IsoLine(-50,0,0,-100,0,0)
rem left side
IsoLine(-100,0,50,-100,50,50)
rem right side
IsoLine(-50,0,0,-50,50,0)
rem centre side
IsoLine(-100,0,0,-100,50,0)
rem top face
IsoLine(-100,50,50,-50,50,50)
IsoLine(-50,50,50,-50,50,0)
IsoLine(-100,50,0,-100,50,50)
IsoLine(-50,50,0,-100,50,0)

rem -Pyramid-
ink green,0
rem base
IsoLine(0,0,0,0,0,50)
IsoLine(50,0,0,0,0,0)
rem left side
IsoLine(0,0,50,25,50,25)
rem right side
IsoLine(50,0,0,25,50,25)
rem centre line
IsoLine(0,0,0,25,50,25)

sync
wait key
cls

END

`------------
` Functions
`------------
`---Tier 2---
rem Isometric Line
Function IsoLine(ax,ay,az,bx,by,bz)
  cx= IsoX(ax,ay,az)
  cy= IsoY(ax,ay,az)
  dx= IsoX(bx,by,bz)
  dy= IsoY(bx,by,bz)
  line cx,cy,dx,dy
Endfunction

`---Tier 1---
rem Isometric X
Function IsoX(x,y,z)
  sx = w(0)+ (x+x)/3. - (z+z)/3.
Endfunction sx

rem Isometric Y
Function IsoY(x,y,z)
  sy = h(0)- (x/3. + z/3. + (y+y)/3.)
Endfunction sy

A small program that works is better than a large one that doesn't.

DBC Challenge Rank: Rookie

Back to top

Profile PM Email

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 18th Sep 2008 01:35

Link

Wow, obese that is a pretty cool video/program tutorial. Very well done.

Now for my two cents:

The angles are 30,90,30 (x,y,z). If you keep that in mind it should be easier to work with (as always, I say you should use trig, but that's just one way, some people don't like trig)

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 19th Sep 2008 00:49 Edited at: 19th Sep 2008 00:49

Link

@BN2

Quote: "The angles are 30,90,30 (x,y,z). If you keep that in mind it should be easier to work with (as always, I say you should use trig"

I've found this formula very easy to use...

x= 2x/3 + 2z/3
y= x/3 + z/3 + 2y/3

But I haven't really pushed it so I don't know how accurate it is.
How would you use trig?

A small program that works is better than a large one that doesn't.

DBC Challenge Rank: Rookie

Back to top

Profile PM Email

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 19th Sep 2008 00:54

Link

Those formulas would work.

x=starting point-z*cos(150)
y=starting point-z*sin(150)

Will project a point back along the x axis.

For the z axis, you change 150 to 30 and add the x, rather than subtract.

The starting point would be wherever you are projecting from.

Will write some code to demonstrate as soon as I reinstall darkbasic.

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Invincibob 8

17

Years of Service

User Offline

Joined: 4th Feb 2008

Location: Some Place Somewhere

Posted: 30th Sep 2008 00:56

Link

Wow, even more helpful advice, and I haven't even been flamed for asking. This is by far my favorite forum.

Once, I fell of a bridge and died. When I came back, I decided to haunt this forum.

Back to top

Profile PM Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 30th Sep 2008 11:31

Link

Just to smooth this code out:

+ Code Snippet

x=starting point-z*cos(150)
y=starting point-z*sin(150)

If you do the math of the sine and cosine every loop, you will waste some speed. Store the sine and cosine in variables:

+ Code Snippet

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

rem store sine and cosine in variables
cosine#=cos(150)
sine#=sin(150)

rem start of loop
do

rem math
x=starting point-z*cosine#
y=starting point-z*sine#

rem whatever else goes in the loop

rem refresh screen
sync

rem end of main loop
loop

You will save some speed.

TheComet

Suicide is away of telling God, You can’t fire me I quit !!!!!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Isometric Perspective?