Cartography Shop style map editor

Author

Message

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 21st Jun 2003 19:23 Edited at: 28th Jun 2003 22:36

Link

Note: This is not finished yet!

This is my first attempt at trying to make a mapping prog, like CShop. I hope I'll be able to finish it!

- 4 views, 3D, XZ, XY, ZY
- Drag out boxes to make level
- 3D navigation (hold dowm mouse on 3d screen for mouselook, arrow keys)
- Save (press space)
- Select box by clicking, delete by pressing delete
- Resize handles

Updated code below

set display mode 800,600,32

sync rate 0
sync on
autocam off

position camera -150,150,0
point camera 0,0,0
set camera range 1,1000000
make matrix 1,10000,10000,100,100
position matrix 1,10000/-2,0,10000/-2

type rect
x1 as integer
x2 as integer
y1 as integer
y2 as integer
z1 as integer
z2 as integer
endtype

dim boxes(100000) as rect

ink rgb(0,0,255),0

xs = 800
ys = 600
xp = 80
yp = 60

`View 1 : XZ
st1x1 = 400
st1y1 = 0
st1x2 = 800
st1y2 = 300

`View 2 : XY
st2x1 = 400
st2y1 = 300
st2x2 = 800
st2y2 = 600

`View 3 : YZ
st3x1 = 0
st3y1 = 300
st3x2 = 400
st3y2 = 600

`View 4 : 3D
st4x1 = 0
st4y1 = 0
st4x2 = 400
st4y2 = 300

` Snap to Grid
ppx# = (xp * 1.0) / (xs * 1.0)
ppy# = (yp * 1.0) / (ys * 1.0)

` Defaults
CurrX1 = 10
CurrX2 = -10
CurrY1 = 10
CurrY2 = 00
CurrZ1 = 10
CurrZ2 = -10

` 3D view : camera
set camera view st4x1,st4y1,st4x2,st4y2

`Grid
grid1 = 65000
grid2 = 65001
make object box grid1,1000000,6,6
make object box grid2,6,6,1000000
color object grid1,rgb(200,0,0)
color object grid2,rgb(200,0,0)

do
  ` cls rgb(200,200,200)
  if mouseclick()=2 and (timer()-exitt) > 500 then goSub Place

set cursor 0,10

text 10,10,"FPS: "+str$(screen fps())

if spacekey() then goSub SaveMap

goSub Display1
  goSub Display2
  goSub Display3

` *-*
  sync

loop

Rem *** Include File: Function.dba ***
Rem Created: 21/06/03 14:27:42

Rem Included in Project: C:Program FilesDark Basic SoftwareDark Basic ProfessionalProjectsMiscdragableedit.dbpro

Function LB(x,y,x2,y2)
  line x,y,x2,y
  line x,y2,x2,y2
  line x,y,x,y2
  line x2,y,x2,y2
endfunction

Function Trans(value,pp#)
  value = int(value * pp#)*10
EndFunction value

Function Over(x,y,x2,y2)
  if mousex() > x and mousey() > y and mousex() < x2 and mousey() < y2 then over = 1 else over = 0
endfunction overRem *** Include File: Placement.dba ***
Rem Created: 21/06/03 14:27:59

Rem Included in Project: C:Program FilesDark Basic SoftwareDark Basic ProfessionalProjectsMiscdragableedit.dbpro
`---------------------------------------
Place:
  goSub Place1
  goSub Place2
  goSub Place3
  goSub Cam

return

Place1:
  If Over(st1x1,st1y1,st1x2,st1y2)=1
    StartX = Trans(mousex(),ppx#)
    StartY = Trans(mousey(),ppy#)

goSub Drag

if StartX = EndX and endy = starty then return

jx = st1x2 - st1x1
    jy = st1y2 - st1y1

Boxes(NumPlaced).X1 = StartX - st1x1 - (jx / 2)
    Boxes(NumPlaced).Y1 = CurrY1 * -1
    Boxes(NumPlaced).Z1 = StartY - st1y1 - (jy / 2)
    Boxes(NumPlaced).X2 = EndX - st1x1  - (jx / 2)
    Boxes(NumPlaced).Y2 = CurrY2 * -1
    Boxes(NumPlaced).Z2 = EndY - st1y1  - (jy / 2)

`   input boxes(numplaced).x1,o
    `   input boxes(numplaced).z1,o
    `  input boxes(numplaced).x2,o
    `  input boxes(numplaced).z2,o

goSub Add

Inc NumPlaced

endif

return

Place2:
  If Over(st2x1,st2y1,st2x2,st2y2)=1
    StartX = Trans(mousex(),ppx#)
    StartY = Trans(mousey(),ppy#)

goSub Drag

if StartX = EndX and endy = starty then return

jx = st2x2 - st2x1
    jy = st2y2 - st2y1

Boxes(NumPlaced).X1 = StartX - st2x1 - (jx / 2)
    Boxes(NumPlaced).Y1 = StartY - st2y1 - (jy / 2)
    Boxes(NumPlaced).Z1 = CurrZ1 * -1
    Boxes(NumPlaced).X2 = EndX - st2x1  - (jx / 2)
    Boxes(NumPlaced).Y2 = EndY - st2y1  - (jy / 2)
    Boxes(NumPlaced).Z2 = CurrZ2 * -1

`   input boxes(numplaced).x1,o
    `   input boxes(numplaced).z1,o
    `  input boxes(numplaced).x2,o
    `  input boxes(numplaced).z2,o

goSub Add

Inc NumPlaced

endif

return

Place3:
  If Over(st3x1,st3y1,st3x2,st3y2)=1
    StartX = Trans(mousex(),ppx#)
    StartY = Trans(mousey(),ppy#)

goSub Drag

if StartX = EndX and endy = starty then return

jx = st3x2 - st3x1
    jy = st3y2 - st3y1

Boxes(NumPlaced).X1 = CurrX1 * -1
    Boxes(NumPlaced).Y1 = StartY - st3y1 - (jy / 2)
    Boxes(NumPlaced).Z1 = StartX - st3x1 - (jx / 2)
    Boxes(NumPlaced).X2 = CurrX2 * -1
    Boxes(NumPlaced).Y2 = EndY - st3y1  - (jy / 2)
    Boxes(NumPlaced).Z2 = EndX - st3x1  - (jx / 2)

`   input boxes(numplaced).x1,o
    `   input boxes(numplaced).z1,o
    `  input boxes(numplaced).x2,o
    `  input boxes(numplaced).z2,o

goSub Add

Inc NumPlaced

endif

return

Cam:

rem Control Cam view

if Over(st4x1,st4y1,st4x2,st4y2)=1

bx = mousex()
    by = mousey()

cax = camera angle x()
    cay = camera angle y()

while mouseclick()<>0

inc cax,mousemovey()
      inc cay,mousemovex()

rotate camera cax,cay,0

position mouse bx,by

if upkey()=1 then move camera 0.5
      if downkey()=1 then move camera -0.5

sync

endwhile

endif

return

Add:

width = Boxes(NumPlaced).X2 - Boxes(NumPlaced).X1
  height = Boxes(NumPlaced).Y2 - Boxes(NumPlaced).Y1
  depth = Boxes(NumPlaced).Z2 - Boxes(NumPlaced).Z1

cls
  set cursor 0,250
  print width
  print height
  print depth
  print "-"
  print Boxes(NumPlaced).X1
  print Boxes(NumPlaced).Y1
  print Boxes(NumPlaced).Z1

Make object box NumPlaced + 1,depth,height,width
  position object NumPlaced + 1, (Boxes(NumPlaced).Z1 + (0.5 * depth))*-1,(Boxes(NumPlaced).Y1+ (0.5 * height))*-1,(Boxes(NumPlaced).X1 + (0.5 * width))*-1

set object cull NumPlaced+1,0

return

Drag:

while mouseclick()<>0
    EndX = Trans(mousex(),ppx#)
    EndY = Trans(mousey(),ppy#)
    `  print endx
    `  print endy

`cls rgb(200,200,200)

DrawDotIt(st1x1,st1y1,st1x2,st1y2,"XZ")
    for b = 0 to NumPlaced
      lb(st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy)
      line st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy
    next b

goSub display2
    goSub display3

lb(StartX,StartY,EndX,EndY)

sync

endwhile

returnRem *** Include File: DisplayVIews.dba ***
Rem Created: 21/06/03 14:28:12

Rem Included in Project: C:Program FilesDark Basic SoftwareDark Basic ProfessionalProjectsMiscdragableedit.dbpro
Display1:

DrawDotIt(st1x1,st1y1,st1x2,st1y2,"XZ")

ink rgb(25,25,255),0

jx = (st1x2 - st1x1)/2
  jy = (st1y2 - st1y1)/2

for b = NumPlaced to 0 step -1
    if over(st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy)=1
      ink rgb(0,255,0),0
    else
      ink rgb(25,25,255),0
    endif
    lb(st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy)
    line st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy
    if over(st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy)=1 and mouseclick()=1
      Curr = b
      goSub resize1
    endif

next b

return

Display2:

DrawDotIt(st2x1,st2y1,st2x2,st2y2,"XY")

ink rgb(25,25,255),0

jx = (st1x2 - st1x1)/2
  jy = (st1y2 - st1y1)/2

for b = NumPlaced to 0 step -1

if over(st2x1 + boxes(b).x1+jx,st2y1 + boxes(b).y1+jy,st2x1 + boxes(b).x2+jx,st2y1 + boxes(b).y2+jy)=1
      ink rgb(0,255,0),0
    else
      ink rgb(25,25,255),0
    endif

lb(st2x1 + boxes(b).x1+jx,st2y1 + boxes(b).y1+jy,st2x1 + boxes(b).x2+jx,st2y1 + boxes(b).y2+jy)
    line st2x1 + boxes(b).x1+jx,st2y1 + boxes(b).y1+jy,st2x1 + boxes(b).x2+jx,st2y1 + boxes(b).y2+jy

if over(st2x1 + boxes(b).x1+jx,st2y1 + boxes(b).y1+jy,st2x1 + boxes(b).x2+jx,st2y1 + boxes(b).y2+jy)=1 and mouseclick()=1
      Curr = b
      goSub resize2
    endif

next b

return

Display3:

DrawDotIt(st3x1,st3y1,st3x2,st3y2,"ZY")

` ink rgb(25,25,255),0

jx = (st3x2 - st3x1)/2
  jy = (st3y2 - st3y1)/2

for b = NumPlaced to 0 step -1

if over(st3x1 + boxes(b).z1+jx,st3y1 + boxes(b).y1+jy,st3x1 + boxes(b).z2+jx,st3y1 + boxes(b).y2+jy)=1
      ink rgb(0,255,0),0
    else
      ink rgb(25,25,255),0
    endif

lb(st3x1 + boxes(b).z1+jx,st3y1 + boxes(b).y1+jy,st3x1 + boxes(b).z2+jx,st3y1 + boxes(b).y2+jy)
    line st3x1 + boxes(b).z1+jx,st3y1 + boxes(b).y1+jy,st3x1 + boxes(b).z2+jx,st3y1 + boxes(b).y2+jy

if over(st3x1 + boxes(b).z1+jx,st3y1 + boxes(b).y1+jy,st3x1 + boxes(b).z2+jx,st3y1 + boxes(b).y2+jy)=1 and mouseclick()=1
      Curr = b
      goSub resize3
    endif

next b
return

Function DrawDotIt(st1x1,st1y1,st1x2,st1y2,t$)

rem Background
  ink rgb(200,200,200),0
  box st1x1,st1y1,st1x2,st1y2

rem Border
  ink 0,0
  lb(st1x1 ,st1y1 ,st1x2 ,st1y2 )

rem Lines - minor
  ink rgb(255,255,255),0
  for dx = st1x1+10 to st1x2 step 20
    for dy = st1y1+10 to st1y2 step 20
      line dx-10,dy,dx+10,dy
      line dx,dy-10,dx,dy+10
    next dy
  next dx

rem Dots - minor
  ink rgb(110,110,110),0
  for dx = st1x1+10 to st1x2 step 10
    for dy = st1y1+10 to st1y2 step 10
      dot dx,dy
    next dy
  next dx

rem Dots - major
  ink rgb(0,0,0),0
  for dx = st1x1+10 to st1x2 step 20
    for dy = st1y1+10 to st1y2 step 20
      dot dx,dy
    next dy
  next dx

rem Root
  jx = (st1x2 - st1x1)/2
  jy = (st1y2 - st1y1)/2

ink rgb(200,0,0),0
  line st1x1+jx,st1y1,st1x1+jx,st1y2
  line st1x1,st1y1+jy,st1x2,st1y1+jy

rem Text Label
  ink rgb(0,0,200),0
  text st1x1+5,st1y1+5,t$

EndFunctionRem *** Include File: Save.dba ***
Rem Created: 21/06/03 16:45:52

Rem Included in Project: C:Program FilesDark Basic SoftwareDark Basic ProfessionalProjectsMiscdragableedit.dbpro
SaveMap:

cls
  set cursor 10,400

input "File name: ",n$

open to write 1,n$

write string 1,"Saved map from DTEdit"
  write string 1,"---------------------"

for o = 0 to NumPlaced
    write file 1,Boxes(o).X1
    write file 1,Boxes(o).Y1
    write file 1,Boxes(o).Z1

write file 1,Boxes(o).X2
    write file 1,Boxes(o).Y2
    write file 1,Boxes(o).Z2
  next o

close file 1

returnRem *** Include File: Resize.dba ***
Rem Created: 21/06/03 18:46:08

Rem Included in Project: C:Program FilesDark Basic SoftwareDark Basic ProfessionalProjectsMiscdragableedit.dbpro
Resize1:
  ` Draw handles on edges
  x1 = st1x1 + boxes(curr).x1+jx
  y1 = st1y1 + boxes(curr).z1+jy
  x2 = st1x1 + boxes(curr).x2+jx
  y2 = st1y1 + boxes(curr).z2+jy

do

goSub updateothers

if object exist(curr+1) and scancode()=211 then delete object curr+1

ink rgb(0,200,0),0
    ` TL
    box x1-5,y1-5,x1+5,y1+5
    if over(x1-5,y1-5,x1+5,y1+5)=1 and mouseclick() = 1 then goSub SizeTL1

` TR
    box x2-5,y1-5,x2+5,y1+5
    if over(x2-5,y1-5,x2+5,y1+5)=1 and mouseclick() = 1 then goSub SizeTR1

` BL
    box x1-5,y2-5,x1+5,y2+5
    if over(x1-5,y2-5,x1+5,y2+5)=1 and mouseclick() = 1 then goSub SizeBL1

` BR
    box x2-5,y2-5,x2+5,y2+5
    if over(x2-5,y2-5,x2+5,y2+5)=1 and mouseclick() = 1 then goSub SizeBR1

if upkey()=1 then dec y1 : dec y2
    if downkey()=1 then inc y1 : inc y2

if scancode()=211 then array delete element boxes(0),curr : return

`  set cursor 0,400
    `  print x1;".";y1;".";x2;".";y2
    `   if controlkey()=1 then exit

if mouseclick() = 1 and over(x1,y1,x2,y2)=0 then exit

sync

loop

return

UpdateOthers:
  ` Draw others
  DrawDotIt(st1x1,st1y1,st1x2,st1y2,"XZ")
  for b = 0 to NumPlaced
    lb(st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy)
    line st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy
  next b

DrawDotIt(st2x1,st2y1,st2x2,st2y2,"XY")
  ink rgb(25,25,255),0
  for b = 0 to NumPlaced
    lb(st2x1 + boxes(b).x1+jx,st2y1 + boxes(b).y1+jy,st2x1 + boxes(b).x2+jx,st2y1 + boxes(b).y2+jy)
    line st2x1 + boxes(b).x1+jx,st2y1 + boxes(b).y1+jy,st2x1 + boxes(b).x2+jx,st2y1 + boxes(b).y2+jy
  next b

for b = NumPlaced to 0 step -1
    lb(st3x1 + boxes(b).z1+jx,st3y1 + boxes(b).y1+jy,st3x1 + boxes(b).z2+jx,st3y1 + boxes(b).y2+jy)
    line st3x1 + boxes(b).z1+jx,st3y1 + boxes(b).y1+jy,st3x1 + boxes(b).z2+jx,st3y1 + boxes(b).y2+jy
  next b
return

SizeTR1:
  sy1 = y1
  sx1 = x2
  goSub DragOutTR
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x2 = rEndX
  y1 = rEndY
  inc Boxes(curr).Z1,ydiff
  inc Boxes(curr).X2,xdiff
return

SizeTL1:
  sy1 = y1
  sx1 = x1
  goSub DragOutTL
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x1 = rEndX
  y1 = rEndY
  inc Boxes(curr).Z1,ydiff
  inc Boxes(curr).X1,xdiff
return

SizeBR1:
  sy1 = y2
  sx1 = x2
  goSub DragOutBR
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x2 = rEndX
  y2 = rEndY
  inc Boxes(curr).Z2,ydiff
  inc Boxes(curr).X2,xdiff
return

SizeBL1:
  sy1 = y2
  sx1 = x1
  goSub DragOutBL
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x1 = rEndX
  y2 = rEndY
  inc Boxes(curr).Z2,ydiff
  inc Boxes(curr).X1,xdiff
return

rem Subs for dragging/resizing shapes
DragOutTR:
  do
    rEndX = Trans(mousex(),ppx#)
    rEndY = Trans(mousey(),ppy#)
    goSub updateothers
    LB(x1,y2,rEndX,rEndY)
    if mouseclick()=0 then exit
    sync
  loop
return
DragOutTL:
  do
    rEndX = Trans(mousex(),ppx#)
    rEndY = Trans(mousey(),ppy#)
    goSub updateothers
    LB(x2,y2,rEndX,rEndY)
    if mouseclick()=0 then exit
    sync
  loop
return
DragOutBR:
  do
    rEndX = Trans(mousex(),ppx#)
    rEndY = Trans(mousey(),ppy#)
    goSub updateothers
    LB(x1,y1,rEndX,rEndY)
    if mouseclick()=0 then exit
    sync
  loop
return
DragOutBL:
  do
    rEndX = Trans(mousex(),ppx#)
    rEndY = Trans(mousey(),ppy#)
    goSub updateothers
    LB(x2,y1,rEndX,rEndY)
    if mouseclick()=0 then exit
    sync
  loop
return

rem ---------------------------------------------------------------------------------
rem                                    VIEW 2 RESIZE
rem ---------------------------------------------------------------------------------

Resize2:
  ` Draw handles on edges
  x1 = st2x1 + boxes(curr).x1+jx
  y1 = st2y1 + boxes(curr).y1+jy
  x2 = st2x1 + boxes(curr).x2+jx
  y2 = st2y1 + boxes(curr).y2+jy

do

goSub updateothers

if object exist(curr+1) and scancode()=211 then delete object curr+1

ink rgb(0,200,0),0
    ` TL
    box x1-5,y1-5,x1+5,y1+5
    if over(x1-5,y1-5,x1+5,y1+5)=1 and mouseclick() = 1 then goSub SizeTL2

` TR
    box x2-5,y1-5,x2+5,y1+5
    if over(x2-5,y1-5,x2+5,y1+5)=1 and mouseclick() = 1 then goSub SizeTR2

` BL
    box x1-5,y2-5,x1+5,y2+5
    if over(x1-5,y2-5,x1+5,y2+5)=1 and mouseclick() = 1 then goSub SizeBL2

` BR
    box x2-5,y2-5,x2+5,y2+5
    if over(x2-5,y2-5,x2+5,y2+5)=1 and mouseclick() = 1 then goSub SizeBR2

if upkey()=1 then dec y1 : dec y2
    if downkey()=1 then inc y1 : inc y2

if scancode()=211 then array delete element boxes(0),curr : return
    if mouseclick() = 1 and over(x1,y1,x2,y2)=0 then exit

sync

loop

return
REMSTART
---------------------------
HOW TO WORK OUT X/Y CO-ORDS
---------------------------

With X/Y view, X is X and Y is Y, pretty easy to remember.

Boxes().X1 = StartX
    Boxes().Y1 = StartY
    Boxes().Z1 = n/a
    Boxes().X2 = EndX
    Boxes().Y2 = EndY
    Boxes().Z2 = n/a

REMEND

SizeTR2:
  sy1 = y1
  sx1 = x2
  goSub DragOutTR
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x2 = rEndX
  y1 = rEndY
  inc Boxes(curr).Y1,ydiff
  inc Boxes(curr).X2,xdiff
return

SizeTL2:
  sy1 = y1
  sx1 = x1
  goSub DragOutTL
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x1 = rEndX
  y1 = rEndY
  inc Boxes(curr).Y1,ydiff
  inc Boxes(curr).X1,xdiff
return

SizeBR2:
  sy1 = y2
  sx1 = x2
  goSub DragOutBR
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x2 = rEndX
  y2 = rEndY
  inc Boxes(curr).Y2,ydiff
  inc Boxes(curr).X2,xdiff
return

SizeBL2:
  sy1 = y2
  sx1 = x1
  goSub DragOutBL
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x1 = rEndX
  y2 = rEndY
  inc Boxes(curr).Y2,ydiff
  inc Boxes(curr).X1,xdiff
return

rem ---------------------------------------------------------------------------------
rem                                    VIEW 3 RESIZE
rem ---------------------------------------------------------------------------------

Resize3:
  ` Draw handles on edges
  x1 = st3x1 + boxes(curr).z1+jx
  y1 = st3y1 + boxes(curr).y1+jy
  x2 = st3x1 + boxes(curr).z2+jx
  y2 = st3y1 + boxes(curr).y2+jy

do

goSub updateothers

if object exist(curr+1) and scancode()=211 then delete object curr+1

ink rgb(0,200,0),0
    ` TL
    box x1-5,y1-5,x1+5,y1+5
    if over(x1-5,y1-5,x1+5,y1+5)=1 and mouseclick() = 1 then goSub SizeTL3

` TR
    box x2-5,y1-5,x2+5,y1+5
    if over(x2-5,y1-5,x2+5,y1+5)=1 and mouseclick() = 1 then goSub SizeTR3

` BL
    box x1-5,y2-5,x1+5,y2+5
    if over(x1-5,y2-5,x1+5,y2+5)=1 and mouseclick() = 1 then goSub SizeBL3

` BR
    box x2-5,y2-5,x2+5,y2+5
    if over(x2-5,y2-5,x2+5,y2+5)=1 and mouseclick() = 1 then goSub SizeBR3

if upkey()=1 then dec y1 : dec y2
    if downkey()=1 then inc y1 : inc y2

if scancode()=211 then array delete element boxes(0),curr : return
    if mouseclick() = 1 and over(x1,y1,x2,y2)=0 then exit

sync

loop

return
REMSTART
---------------------------
HOW TO WORK OUT Z/Y CO-ORDS
---------------------------

With Z/Y view, X co-ords are Z and Y is Y

Boxes().X1 = n/a
    Boxes().Y1 = StartY
    Boxes().Z1 = StartX
    Boxes().X2 = n/a
    Boxes().Y2 = EndY
    Boxes().Z2 = EndX

REMEND

SizeTR3:
  sy1 = y1
  sx1 = x2
  goSub DragOutTR
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x2 = rEndX
  y1 = rEndY
  inc Boxes(curr).Y1,ydiff
  inc Boxes(curr).Z2,xdiff
return

SizeTL3:
  sy1 = y1
  sx1 = x1
  goSub DragOutTL
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x1 = rEndX
  y1 = rEndY
  inc Boxes(curr).Y1,ydiff
  inc Boxes(curr).Z1,xdiff
return

SizeBR3:
  sy1 = y2
  sx1 = x2
  goSub DragOutBR
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x2 = rEndX
  y2 = rEndY
  inc Boxes(curr).Y2,ydiff
  inc Boxes(curr).Z2,xdiff
return

SizeBL3:
  sy1 = y2
  sx1 = x1
  goSub DragOutBL
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x1 = rEndX
  y2 = rEndY
  inc Boxes(curr).Y2,ydiff
  inc Boxes(curr).Z1,xdiff
return

+ Code Snippet

set display mode 800,600,32


sync rate 0
sync on
autocam off

position camera -150,150,0
point camera 0,0,0
set camera range 1,1000000
make matrix 1,10000,10000,100,100
position matrix 1,10000/-2,0,10000/-2


type rect
x1 as integer
x2 as integer
y1 as integer
y2 as integer
z1 as integer
z2 as integer
endtype

dim boxes(100000) as rect

ink rgb(0,0,255),0

xs = 800
ys = 600
xp = 80
yp = 60

`View 1 : XZ
st1x1 = 400
st1y1 = 0
st1x2 = 800
st1y2 = 300

`View 2 : XY
st2x1 = 400
st2y1 = 300
st2x2 = 800
st2y2 = 600

`View 3 : YZ
st3x1 = 0
st3y1 = 300
st3x2 = 400
st3y2 = 600

`View 4 : 3D
st4x1 = 0
st4y1 = 0
st4x2 = 400
st4y2 = 300

` Snap to Grid
ppx# = (xp * 1.0) / (xs * 1.0)
ppy# = (yp * 1.0) / (ys * 1.0)

` Defaults
CurrX1 = 10
CurrX2 = -10
CurrY1 = 10
CurrY2 = 00
CurrZ1 = 10
CurrZ2 = -10

` 3D view : camera
set camera view st4x1,st4y1,st4x2,st4y2

`Grid
grid1 = 65000
grid2 = 65001
make object box grid1,1000000,6,6
make object box grid2,6,6,1000000
color object grid1,rgb(200,0,0)
color object grid2,rgb(200,0,0)

do
  ` cls rgb(200,200,200)
  if mouseclick()=2 and (timer()-exitt) > 500 then goSub Place

  set cursor 0,10

  text 10,10,"FPS: "+str$(screen fps())

  if spacekey() then goSub SaveMap


  goSub Display1
  goSub Display2
  goSub Display3

  ` *-*
  sync

loop


Rem *** Include File: Function.dba ***
Rem Created: 21/06/03 14:27:42

Rem Included in Project: C:Program FilesDark Basic SoftwareDark Basic ProfessionalProjectsMiscdragableedit.dbpro

Function LB(x,y,x2,y2)
  line x,y,x2,y
  line x,y2,x2,y2
  line x,y,x,y2
  line x2,y,x2,y2
endfunction

Function Trans(value,pp#)
  value = int(value * pp#)*10
EndFunction value

Function Over(x,y,x2,y2)
  if mousex() > x and mousey() > y and mousex() < x2 and mousey() < y2 then over = 1 else over = 0
endfunction overRem *** Include File: Placement.dba ***
Rem Created: 21/06/03 14:27:59

Rem Included in Project: C:Program FilesDark Basic SoftwareDark Basic ProfessionalProjectsMiscdragableedit.dbpro
`---------------------------------------
Place:
  goSub Place1
  goSub Place2
  goSub Place3
  goSub Cam

return

Place1:
  If Over(st1x1,st1y1,st1x2,st1y2)=1
    StartX = Trans(mousex(),ppx#)
    StartY = Trans(mousey(),ppy#)

    goSub Drag

    if StartX = EndX and endy = starty then return

    jx = st1x2 - st1x1
    jy = st1y2 - st1y1

    Boxes(NumPlaced).X1 = StartX - st1x1 - (jx / 2)
    Boxes(NumPlaced).Y1 = CurrY1 * -1
    Boxes(NumPlaced).Z1 = StartY - st1y1 - (jy / 2)
    Boxes(NumPlaced).X2 = EndX - st1x1  - (jx / 2)
    Boxes(NumPlaced).Y2 = CurrY2 * -1
    Boxes(NumPlaced).Z2 = EndY - st1y1  - (jy / 2)

    `   input boxes(numplaced).x1,o
    `   input boxes(numplaced).z1,o
    `  input boxes(numplaced).x2,o
    `  input boxes(numplaced).z2,o

    goSub Add

    Inc NumPlaced


  endif

return

Place2:
  If Over(st2x1,st2y1,st2x2,st2y2)=1
    StartX = Trans(mousex(),ppx#)
    StartY = Trans(mousey(),ppy#)

    goSub Drag

    if StartX = EndX and endy = starty then return

    jx = st2x2 - st2x1
    jy = st2y2 - st2y1

    Boxes(NumPlaced).X1 = StartX - st2x1 - (jx / 2)
    Boxes(NumPlaced).Y1 = StartY - st2y1 - (jy / 2)
    Boxes(NumPlaced).Z1 = CurrZ1 * -1
    Boxes(NumPlaced).X2 = EndX - st2x1  - (jx / 2)
    Boxes(NumPlaced).Y2 = EndY - st2y1  - (jy / 2)
    Boxes(NumPlaced).Z2 = CurrZ2 * -1

    `   input boxes(numplaced).x1,o
    `   input boxes(numplaced).z1,o
    `  input boxes(numplaced).x2,o
    `  input boxes(numplaced).z2,o

    goSub Add

    Inc NumPlaced

  endif

return

Place3:
  If Over(st3x1,st3y1,st3x2,st3y2)=1
    StartX = Trans(mousex(),ppx#)
    StartY = Trans(mousey(),ppy#)

    goSub Drag

    if StartX = EndX and endy = starty then return

    jx = st3x2 - st3x1
    jy = st3y2 - st3y1

    Boxes(NumPlaced).X1 = CurrX1 * -1
    Boxes(NumPlaced).Y1 = StartY - st3y1 - (jy / 2)
    Boxes(NumPlaced).Z1 = StartX - st3x1 - (jx / 2)
    Boxes(NumPlaced).X2 = CurrX2 * -1
    Boxes(NumPlaced).Y2 = EndY - st3y1  - (jy / 2)
    Boxes(NumPlaced).Z2 = EndX - st3x1  - (jx / 2)

    `   input boxes(numplaced).x1,o
    `   input boxes(numplaced).z1,o
    `  input boxes(numplaced).x2,o
    `  input boxes(numplaced).z2,o

    goSub Add

    Inc NumPlaced

  endif

return


Cam:

  rem Control Cam view

  if Over(st4x1,st4y1,st4x2,st4y2)=1

    bx = mousex()
    by = mousey()

    cax = camera angle x()
    cay = camera angle y()

    while mouseclick()<>0

      inc cax,mousemovey()
      inc cay,mousemovex()

      rotate camera cax,cay,0

      position mouse bx,by

      if upkey()=1 then move camera 0.5
      if downkey()=1 then move camera -0.5

      sync

    endwhile

  endif

return

Add:

  width = Boxes(NumPlaced).X2 - Boxes(NumPlaced).X1
  height = Boxes(NumPlaced).Y2 - Boxes(NumPlaced).Y1
  depth = Boxes(NumPlaced).Z2 - Boxes(NumPlaced).Z1

  cls
  set cursor 0,250
  print width
  print height
  print depth
  print "-"
  print Boxes(NumPlaced).X1
  print Boxes(NumPlaced).Y1
  print Boxes(NumPlaced).Z1

  Make object box NumPlaced + 1,depth,height,width
  position object NumPlaced + 1, (Boxes(NumPlaced).Z1 + (0.5 * depth))*-1,(Boxes(NumPlaced).Y1+ (0.5 * height))*-1,(Boxes(NumPlaced).X1 + (0.5 * width))*-1

  set object cull NumPlaced+1,0


return

Drag:

  while mouseclick()<>0
    EndX = Trans(mousex(),ppx#)
    EndY = Trans(mousey(),ppy#)
    `  print endx
    `  print endy

    `cls rgb(200,200,200)

    DrawDotIt(st1x1,st1y1,st1x2,st1y2,"XZ")
    for b = 0 to NumPlaced
      lb(st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy)
      line st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy
    next b

    goSub display2
    goSub display3

    lb(StartX,StartY,EndX,EndY)


    sync

  endwhile

returnRem *** Include File: DisplayVIews.dba ***
Rem Created: 21/06/03 14:28:12

Rem Included in Project: C:Program FilesDark Basic SoftwareDark Basic ProfessionalProjectsMiscdragableedit.dbpro
Display1:

  DrawDotIt(st1x1,st1y1,st1x2,st1y2,"XZ")

  ink rgb(25,25,255),0

  jx = (st1x2 - st1x1)/2
  jy = (st1y2 - st1y1)/2

  for b = NumPlaced to 0 step -1
    if over(st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy)=1
      ink rgb(0,255,0),0
    else
      ink rgb(25,25,255),0
    endif
    lb(st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy)
    line st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy
    if over(st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy)=1 and mouseclick()=1
      Curr = b
      goSub resize1
    endif

  next b

return

Display2:

  DrawDotIt(st2x1,st2y1,st2x2,st2y2,"XY")

  ink rgb(25,25,255),0

  jx = (st1x2 - st1x1)/2
  jy = (st1y2 - st1y1)/2

  for b = NumPlaced to 0 step -1

    if over(st2x1 + boxes(b).x1+jx,st2y1 + boxes(b).y1+jy,st2x1 + boxes(b).x2+jx,st2y1 + boxes(b).y2+jy)=1
      ink rgb(0,255,0),0
    else
      ink rgb(25,25,255),0
    endif

    lb(st2x1 + boxes(b).x1+jx,st2y1 + boxes(b).y1+jy,st2x1 + boxes(b).x2+jx,st2y1 + boxes(b).y2+jy)
    line st2x1 + boxes(b).x1+jx,st2y1 + boxes(b).y1+jy,st2x1 + boxes(b).x2+jx,st2y1 + boxes(b).y2+jy

    if over(st2x1 + boxes(b).x1+jx,st2y1 + boxes(b).y1+jy,st2x1 + boxes(b).x2+jx,st2y1 + boxes(b).y2+jy)=1 and mouseclick()=1
      Curr = b
      goSub resize2
    endif

  next b

return

Display3:

  DrawDotIt(st3x1,st3y1,st3x2,st3y2,"ZY")

 ` ink rgb(25,25,255),0

  jx = (st3x2 - st3x1)/2
  jy = (st3y2 - st3y1)/2

  for b = NumPlaced to 0 step -1

    if over(st3x1 + boxes(b).z1+jx,st3y1 + boxes(b).y1+jy,st3x1 + boxes(b).z2+jx,st3y1 + boxes(b).y2+jy)=1
      ink rgb(0,255,0),0
    else
      ink rgb(25,25,255),0
    endif


    lb(st3x1 + boxes(b).z1+jx,st3y1 + boxes(b).y1+jy,st3x1 + boxes(b).z2+jx,st3y1 + boxes(b).y2+jy)
    line st3x1 + boxes(b).z1+jx,st3y1 + boxes(b).y1+jy,st3x1 + boxes(b).z2+jx,st3y1 + boxes(b).y2+jy


    if over(st3x1 + boxes(b).z1+jx,st3y1 + boxes(b).y1+jy,st3x1 + boxes(b).z2+jx,st3y1 + boxes(b).y2+jy)=1 and mouseclick()=1
      Curr = b
      goSub resize3
    endif

  next b
return


Function DrawDotIt(st1x1,st1y1,st1x2,st1y2,t$)

  rem Background
  ink rgb(200,200,200),0
  box st1x1,st1y1,st1x2,st1y2

  rem Border
  ink 0,0
  lb(st1x1 ,st1y1 ,st1x2 ,st1y2 )

  rem Lines - minor
  ink rgb(255,255,255),0
  for dx = st1x1+10 to st1x2 step 20
    for dy = st1y1+10 to st1y2 step 20
      line dx-10,dy,dx+10,dy
      line dx,dy-10,dx,dy+10
    next dy
  next dx

  rem Dots - minor
  ink rgb(110,110,110),0
  for dx = st1x1+10 to st1x2 step 10
    for dy = st1y1+10 to st1y2 step 10
      dot dx,dy
    next dy
  next dx

  rem Dots - major
  ink rgb(0,0,0),0
  for dx = st1x1+10 to st1x2 step 20
    for dy = st1y1+10 to st1y2 step 20
      dot dx,dy
    next dy
  next dx

  rem Root
  jx = (st1x2 - st1x1)/2
  jy = (st1y2 - st1y1)/2

  ink rgb(200,0,0),0
  line st1x1+jx,st1y1,st1x1+jx,st1y2
  line st1x1,st1y1+jy,st1x2,st1y1+jy

  rem Text Label
  ink rgb(0,0,200),0
  text st1x1+5,st1y1+5,t$

EndFunctionRem *** Include File: Save.dba ***
Rem Created: 21/06/03 16:45:52

Rem Included in Project: C:Program FilesDark Basic SoftwareDark Basic ProfessionalProjectsMiscdragableedit.dbpro
SaveMap:

  cls
  set cursor 10,400

  input "File name: ",n$

  open to write 1,n$

  write string 1,"Saved map from DTEdit"
  write string 1,"---------------------"

  for o = 0 to NumPlaced
    write file 1,Boxes(o).X1
    write file 1,Boxes(o).Y1
    write file 1,Boxes(o).Z1

    write file 1,Boxes(o).X2
    write file 1,Boxes(o).Y2
    write file 1,Boxes(o).Z2
  next o

  close file 1

returnRem *** Include File: Resize.dba ***
Rem Created: 21/06/03 18:46:08

Rem Included in Project: C:Program FilesDark Basic SoftwareDark Basic ProfessionalProjectsMiscdragableedit.dbpro
Resize1:
  ` Draw handles on edges
  x1 = st1x1 + boxes(curr).x1+jx
  y1 = st1y1 + boxes(curr).z1+jy
  x2 = st1x1 + boxes(curr).x2+jx
  y2 = st1y1 + boxes(curr).z2+jy

  do

    goSub updateothers


    if object exist(curr+1) and scancode()=211 then delete object curr+1


    ink rgb(0,200,0),0
    ` TL
    box x1-5,y1-5,x1+5,y1+5
    if over(x1-5,y1-5,x1+5,y1+5)=1 and mouseclick() = 1 then goSub SizeTL1

    ` TR
    box x2-5,y1-5,x2+5,y1+5
    if over(x2-5,y1-5,x2+5,y1+5)=1 and mouseclick() = 1 then goSub SizeTR1

    ` BL
    box x1-5,y2-5,x1+5,y2+5
    if over(x1-5,y2-5,x1+5,y2+5)=1 and mouseclick() = 1 then goSub SizeBL1

    ` BR
    box x2-5,y2-5,x2+5,y2+5
    if over(x2-5,y2-5,x2+5,y2+5)=1 and mouseclick() = 1 then goSub SizeBR1

    if upkey()=1 then dec y1 : dec y2
    if downkey()=1 then inc y1 : inc y2

    if scancode()=211 then array delete element boxes(0),curr : return

    `  set cursor 0,400
    `  print x1;".";y1;".";x2;".";y2
    `   if controlkey()=1 then exit




    if mouseclick() = 1 and over(x1,y1,x2,y2)=0 then exit

    sync

  loop



return

UpdateOthers:
  ` Draw others
  DrawDotIt(st1x1,st1y1,st1x2,st1y2,"XZ")
  for b = 0 to NumPlaced
    lb(st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy)
    line st1x1 + boxes(b).x1+jx,st1y1 + boxes(b).z1+jy,st1x1 + boxes(b).x2+jx,st1y1 + boxes(b).z2+jy
  next b

  DrawDotIt(st2x1,st2y1,st2x2,st2y2,"XY")
  ink rgb(25,25,255),0
  for b = 0 to NumPlaced
    lb(st2x1 + boxes(b).x1+jx,st2y1 + boxes(b).y1+jy,st2x1 + boxes(b).x2+jx,st2y1 + boxes(b).y2+jy)
    line st2x1 + boxes(b).x1+jx,st2y1 + boxes(b).y1+jy,st2x1 + boxes(b).x2+jx,st2y1 + boxes(b).y2+jy
  next b

  for b = NumPlaced to 0 step -1
    lb(st3x1 + boxes(b).z1+jx,st3y1 + boxes(b).y1+jy,st3x1 + boxes(b).z2+jx,st3y1 + boxes(b).y2+jy)
    line st3x1 + boxes(b).z1+jx,st3y1 + boxes(b).y1+jy,st3x1 + boxes(b).z2+jx,st3y1 + boxes(b).y2+jy
  next b
return

SizeTR1:
  sy1 = y1
  sx1 = x2
  goSub DragOutTR
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x2 = rEndX
  y1 = rEndY
  inc Boxes(curr).Z1,ydiff
  inc Boxes(curr).X2,xdiff
return

SizeTL1:
  sy1 = y1
  sx1 = x1
  goSub DragOutTL
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x1 = rEndX
  y1 = rEndY
  inc Boxes(curr).Z1,ydiff
  inc Boxes(curr).X1,xdiff
return

SizeBR1:
  sy1 = y2
  sx1 = x2
  goSub DragOutBR
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x2 = rEndX
  y2 = rEndY
  inc Boxes(curr).Z2,ydiff
  inc Boxes(curr).X2,xdiff
return

SizeBL1:
  sy1 = y2
  sx1 = x1
  goSub DragOutBL
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x1 = rEndX
  y2 = rEndY
  inc Boxes(curr).Z2,ydiff
  inc Boxes(curr).X1,xdiff
return

rem Subs for dragging/resizing shapes
DragOutTR:
  do
    rEndX = Trans(mousex(),ppx#)
    rEndY = Trans(mousey(),ppy#)
    goSub updateothers
    LB(x1,y2,rEndX,rEndY)
    if mouseclick()=0 then exit
    sync
  loop
return
DragOutTL:
  do
    rEndX = Trans(mousex(),ppx#)
    rEndY = Trans(mousey(),ppy#)
    goSub updateothers
    LB(x2,y2,rEndX,rEndY)
    if mouseclick()=0 then exit
    sync
  loop
return
DragOutBR:
  do
    rEndX = Trans(mousex(),ppx#)
    rEndY = Trans(mousey(),ppy#)
    goSub updateothers
    LB(x1,y1,rEndX,rEndY)
    if mouseclick()=0 then exit
    sync
  loop
return
DragOutBL:
  do
    rEndX = Trans(mousex(),ppx#)
    rEndY = Trans(mousey(),ppy#)
    goSub updateothers
    LB(x2,y1,rEndX,rEndY)
    if mouseclick()=0 then exit
    sync
  loop
return

rem ---------------------------------------------------------------------------------
rem                                    VIEW 2 RESIZE
rem ---------------------------------------------------------------------------------

Resize2:
  ` Draw handles on edges
  x1 = st2x1 + boxes(curr).x1+jx
  y1 = st2y1 + boxes(curr).y1+jy
  x2 = st2x1 + boxes(curr).x2+jx
  y2 = st2y1 + boxes(curr).y2+jy

  do

    goSub updateothers


    if object exist(curr+1) and scancode()=211 then delete object curr+1


    ink rgb(0,200,0),0
    ` TL
    box x1-5,y1-5,x1+5,y1+5
    if over(x1-5,y1-5,x1+5,y1+5)=1 and mouseclick() = 1 then goSub SizeTL2

    ` TR
    box x2-5,y1-5,x2+5,y1+5
    if over(x2-5,y1-5,x2+5,y1+5)=1 and mouseclick() = 1 then goSub SizeTR2

    ` BL
    box x1-5,y2-5,x1+5,y2+5
    if over(x1-5,y2-5,x1+5,y2+5)=1 and mouseclick() = 1 then goSub SizeBL2

    ` BR
    box x2-5,y2-5,x2+5,y2+5
    if over(x2-5,y2-5,x2+5,y2+5)=1 and mouseclick() = 1 then goSub SizeBR2

    if upkey()=1 then dec y1 : dec y2
    if downkey()=1 then inc y1 : inc y2

    if scancode()=211 then array delete element boxes(0),curr : return
    if mouseclick() = 1 and over(x1,y1,x2,y2)=0 then exit

    sync

  loop

return
REMSTART
---------------------------
HOW TO WORK OUT X/Y CO-ORDS
---------------------------

With X/Y view, X is X and Y is Y, pretty easy to remember.

    Boxes().X1 = StartX
    Boxes().Y1 = StartY
    Boxes().Z1 = n/a
    Boxes().X2 = EndX
    Boxes().Y2 = EndY
    Boxes().Z2 = n/a

REMEND


SizeTR2:
  sy1 = y1
  sx1 = x2
  goSub DragOutTR
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x2 = rEndX
  y1 = rEndY
  inc Boxes(curr).Y1,ydiff
  inc Boxes(curr).X2,xdiff
return

SizeTL2:
  sy1 = y1
  sx1 = x1
  goSub DragOutTL
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x1 = rEndX
  y1 = rEndY
  inc Boxes(curr).Y1,ydiff
  inc Boxes(curr).X1,xdiff
return

SizeBR2:
  sy1 = y2
  sx1 = x2
  goSub DragOutBR
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x2 = rEndX
  y2 = rEndY
  inc Boxes(curr).Y2,ydiff
  inc Boxes(curr).X2,xdiff
return

SizeBL2:
  sy1 = y2
  sx1 = x1
  goSub DragOutBL
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x1 = rEndX
  y2 = rEndY
  inc Boxes(curr).Y2,ydiff
  inc Boxes(curr).X1,xdiff
return

rem ---------------------------------------------------------------------------------
rem                                    VIEW 3 RESIZE
rem ---------------------------------------------------------------------------------

Resize3:
  ` Draw handles on edges
  x1 = st3x1 + boxes(curr).z1+jx
  y1 = st3y1 + boxes(curr).y1+jy
  x2 = st3x1 + boxes(curr).z2+jx
  y2 = st3y1 + boxes(curr).y2+jy

  do

    goSub updateothers


    if object exist(curr+1) and scancode()=211 then delete object curr+1


    ink rgb(0,200,0),0
    ` TL
    box x1-5,y1-5,x1+5,y1+5
    if over(x1-5,y1-5,x1+5,y1+5)=1 and mouseclick() = 1 then goSub SizeTL3

    ` TR
    box x2-5,y1-5,x2+5,y1+5
    if over(x2-5,y1-5,x2+5,y1+5)=1 and mouseclick() = 1 then goSub SizeTR3

    ` BL
    box x1-5,y2-5,x1+5,y2+5
    if over(x1-5,y2-5,x1+5,y2+5)=1 and mouseclick() = 1 then goSub SizeBL3

    ` BR
    box x2-5,y2-5,x2+5,y2+5
    if over(x2-5,y2-5,x2+5,y2+5)=1 and mouseclick() = 1 then goSub SizeBR3

    if upkey()=1 then dec y1 : dec y2
    if downkey()=1 then inc y1 : inc y2

    if scancode()=211 then array delete element boxes(0),curr : return
    if mouseclick() = 1 and over(x1,y1,x2,y2)=0 then exit

    sync

  loop

return
REMSTART
---------------------------
HOW TO WORK OUT Z/Y CO-ORDS
---------------------------

With Z/Y view, X co-ords are Z and Y is Y

    Boxes().X1 = n/a
    Boxes().Y1 = StartY
    Boxes().Z1 = StartX
    Boxes().X2 = n/a
    Boxes().Y2 = EndY
    Boxes().Z2 = EndX

REMEND


SizeTR3:
  sy1 = y1
  sx1 = x2
  goSub DragOutTR
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x2 = rEndX
  y1 = rEndY
  inc Boxes(curr).Y1,ydiff
  inc Boxes(curr).Z2,xdiff
return

SizeTL3:
  sy1 = y1
  sx1 = x1
  goSub DragOutTL
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x1 = rEndX
  y1 = rEndY
  inc Boxes(curr).Y1,ydiff
  inc Boxes(curr).Z1,xdiff
return

SizeBR3:
  sy1 = y2
  sx1 = x2
  goSub DragOutBR
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x2 = rEndX
  y2 = rEndY
  inc Boxes(curr).Y2,ydiff
  inc Boxes(curr).Z2,xdiff
return

SizeBL3:
  sy1 = y2
  sx1 = x1
  goSub DragOutBL
  xdiff = rEndX - sx1
  ydiff = rEndY - sy1
  x1 = rEndX
  y2 = rEndY
  inc Boxes(curr).Y2,ydiff
  inc Boxes(curr).Z1,xdiff
return

Run as 800 x 600. The code should set this. Recommended running in window.

To be put in:
- Moving boxes while being dragged
- Some sort of GUI
- Exporting to a common format
- Texturing

There may be some quirs and bugs, plus some of the source if uncommented and very tricky!

If only I could fit it into 20 lines - I might even win something then!

You are the

th person to view this signature.
GRAVITY: I fought the law but the law won

Back to top

Profile PM Email Website

Oliver

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Switzerland

Posted: 21st Jun 2003 20:28

Link

Nice

, this could be really cool when you finish it.

You might want to have a look at the origninal CShop. I think it was made in DB. The source code is available, I had it some where...

Back to top

Profile PM

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 21st Jun 2003 20:29

Link

David89
this is great

please keep us informed of your progres.

one thing,i only got two views

dave

just trying to learn

Back to top

Profile PM

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 21st Jun 2003 21:13

Link

Quote: "You might want to have a look at the origninal CShop. I think it was made in DB. The source code is available, I had it some where..."

Really? I know CShop was written in Blitz, but I though Josh Klint was licensing out the code (I'll ask on the CS forums).

Quote: "David89
this is great
please keep us informed of your progres.

one thing,i only got two views

dave"

There are actually 3 including the 3D view, only 2 are 2D.

I might be able to upload an updated version source version tonight, with fixed placement and maybe a 3rd view. And resizing if you're really, really lucky!

You are the

th person to view this signature.
Programmers don't die, they just Gosub without return....

Back to top

Profile PM Email Website

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 21st Jun 2003 22:23

Link

i'le keep my fingers crosed

dave

just trying to learn

Back to top

Profile PM

gbuilder

21

Years of Service

User Offline

Joined: 26th Aug 2002

Location: New Zealand

Posted: 22nd Jun 2003 00:05 Edited at: 22nd Jun 2003 00:07

Link

Nice,
I'll be interested to see how it developes and what sort of 'Save and Export' functions it has.. Keep at it,

gbuilder.

AMD900mhz, 256mb Ram, 64mb GForce2 MX400 Graphics card, Windows ME.

Back to top

Profile PM Email

indi

21

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 22nd Jun 2003 00:12

Link

thats a great snippet when the csg commands into play

http://www.lunarpixel.com
http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 22nd Jun 2003 00:32

Link

Hi all,

Thank for all the comments.

I've just got a 3rd viewport in, plus object selectionj an deleting objects. However, I still can't get the resizing working just right

I'll upload the code later tonight.

You are the

th person to view this signature.
Programmers don't die, they just Gosub without return....

Back to top

Profile PM Email Website

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 22nd Jun 2003 01:10

Link

Updated Source - 4 viewports, object selection, save (press space and type name - no load yet), object deletion (press delete when selected, larger resolution, general improvements.

Code below, no media needed.

You are the

th person to view this signature.
Programmers don't die, they just Gosub without return....

Back to top

Profile PM Email Website

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 22nd Jun 2003 01:12

Link

Here's a pic of what I've got so far

You are the

th person to view this signature.
Programmers don't die, they just Gosub without return....

Back to top

Profile PM Email Website

gbuilder

21

Years of Service

User Offline

Joined: 26th Aug 2002

Location: New Zealand

Posted: 22nd Jun 2003 01:45

Link

Unable to draw boxes now for some reason..

gbuilder.

AMD900mhz, 256mb Ram, 64mb GForce2 MX400 Graphics card, Windows ME.

Back to top

Profile PM Email

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 22nd Jun 2003 01:55 Edited at: 22nd Jun 2003 02:35

Link

same as gbuilder

Unable to draw boxes

dave

just found that if you click both mouse
buttons together then you can now draw
boxes,hope that helps

dave

just trying to learn

Back to top

Profile PM

gbuilder

21

Years of Service

User Offline

Joined: 26th Aug 2002

Location: New Zealand

Posted: 22nd Jun 2003 07:43

Link

Yep, that's it both buttons now (I think I preferred just one).
What would be useful is 'handles' on the box ends for shaping.

gbuilder.

AMD900mhz, 256mb Ram, 64mb GForce2 MX400 Graphics card, Windows ME.

Back to top

Profile PM Email

Oliver

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Switzerland

Posted: 22nd Jun 2003 12:37 Edited at: 22nd Jun 2003 12:46

Link

@David89

I was talking about the very first version of cshop. It's very similar to yours. It exported the collision data to a *.txt file and created a *.asc file which could then be converted to an *.x in a program like 3d exploration.

This was for DBC, so with DBPro you would need to export collision information, just the object file. Are you planning on making it work with any angle, not just 90 degree boxes?

As for the old cshop, you could search for it on google, though I managed to find it along time ago, it might not be there anymore.

Just some ideas

A tool which allows you to carve one object out of another (like in hammer). Though as far as I can see it would be next to impossible.

Some sort of menu. I remember in the old cshop there were lots of commands like Ctrl+S for save and it got confusing.

Good Luck!

Back to top

Profile PM

indi

21

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 22nd Jun 2003 16:44

Link

A tool which allows you to carve one object out of another (like in hammer).

patch 5 csg commands will cover that like a charm

Some sort of menu. I remember in the old cshop there were lots of commands like Ctrl+S for save and it got confusing.

make your own or use the brilliant LMS Lightweight menu system by scofflaw? i forget who.

http://www.lunarpixel.com
http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 25th Jun 2003 00:50

Link

any news David89
i cant contact you,web site down
i wonderd if you could post a comented version of what
you have done with this so far.
thanks

dave

just trying to learn

Back to top

Profile PM

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 28th Jun 2003 12:53

Link

Hi Everybody. I've been away for a week (and forgot to tell you

) but I've been following this thread on my smartphone (Pocket Internet Explorer).

Quote: "Yep, that's it both buttons now (I think I preferred just one).
What would be useful is 'handles' on the box ends for shaping."

Click on an object to get handles. However resizing isn't in yet.
The reason is is now both buttons is because you can also select a box by clicking the LMB. Having two checks in the same loop causes everthing to get a bit mucked up, so it's either LMB for drawing and RMB for select, or the other way round.

Quote: "Some sort of menu. I remember in the old cshop there were lots of commands like Ctrl+S for save and it got confusing.

make your own or use the brilliant LMS Lightweight menu system by scofflaw? i forget who."

You may have noticed this is in Code Snippets, not beta announcements because it is a code snippet. I might consider developing it further. I probably will, but it's still a snippet!

Quote: "i cant contact you,web site down
i wonderd if you could post a comented version of what "

I haven't made my email public, so naturally you should have trouble contacting me

however my web site shouldn't be down. I'll check right away.

You are the

th person to view this signature.
Programmers don't die, they just Gosub without return....

Back to top

Profile PM Email Website

Shady Simpson

21

Years of Service

User Offline

Joined: 15th Mar 2003

Location: United Kingdom

Posted: 28th Jun 2003 15:58

Link

just read the post and can't wait for it to be finished, looks cool m8, BTW RobK has also made a menu system. It's somewhere on the RGT DLL forums but I haven't got a link.

Back to top

Profile PM

Shady Simpson

21

Years of Service

User Offline

Joined: 15th Mar 2003

Location: United Kingdom

Posted: 28th Jun 2003 16:09

Link

just a suggestion:

You should put it into a window, don't know about you but I can't stand a program that's not in a window.

Back to top

Profile PM

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 28th Jun 2003 21:03

Link

Quote: "just a suggestion:

You should put it into a window, don't know about you but I can't stand a program that's not in a window."

Just a suggestion: as this is a code snippet paste it into DBP and put it in a window yourself. I'm sorry if that was a bit abrupt but that is the way to put it in a window, after all

Plus, once again, this is a code snippet! Don't assume it will be finished! I hope to but I've mainly posted it to show people how to create something similar. But knowing all of you you just want a map editor

You are the

th person to view this signature.
GRAVITY: I fought the law but the law won

Back to top

Profile PM Email Website

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 28th Jun 2003 21:40

Link

Update: Resizing with handles in all 4 directions in first view. Should be easy to port over to other 2 views.

You are the

th person to view this signature.
GRAVITY: I fought the law but the law won

Back to top

Profile PM Email Website

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 28th Jun 2003 22:02

Link

gets better all the time

dave

just trying to learn

Back to top

Profile PM

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 28th Jun 2003 22:06 Edited at: 28th Jun 2003 22:09

Link

Thanks

Edit: Yay I got resizing working in XZ and XY views now

You are the

th person to view this signature.
GRAVITY: I fought the law but the law won

Back to top

Profile PM Email Website

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 28th Jun 2003 22:34

Link

UPDATED CODE

Additions / changed:

- Drag RMB to create
- Handles for resizing - select shape and drag handles to resize

See first post for code.

You are the

th person to view this signature.
GRAVITY: I fought the law but the law won

Back to top

Profile PM Email Website

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 28th Jun 2003 23:34

Link

thanks for sharing this this
however far you take it this will be a great
start fore anyone who wants to write there own editor

(thanks for the comments)

dave

just trying to learn

Back to top

Profile PM

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 29th Jun 2003 00:13 Edited at: 29th Jun 2003 12:42

Link

Quote: "thanks for sharing this this
however far you take it this will be a great
start fore anyone who wants to write there own editor

(thanks for the comments)

dave"

No problem. However, I didn't put too many coments in

tomorrow I'll add more.

[Edit]

.X exporter going in now..... I hope this works!

You are the

th person to view this signature.
GRAVITY: I fought the law but the law won

Back to top

Profile PM Email Website

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 29th Jun 2003 15:13

Link

Yay I got the .x exporter in. It still needs a bit of refinement, as there is no exturing in yet (and so the model is invisible) but here is what is exported:

xof 0302txt 0032
// DTEdit .x export - exporter written by David Tattersall
Header {
1;
0;
1;
}
Mesh object0 {
FrameTransformMatrix {
1.0,0.0,0.0,0.0,
0.0,1.0,0.0,0.0,
0.0,0.0,1.0,0.0,
30,5,22;;
}
8;
60;20;32;,
40;20;32;,
40;20;52;,
60;20;52;,
60;10;32;,
40;10;32;,
40;10;52;,
60;10;52;,
12;            // 12 faces in a cube
3;0,1,2;,            // face 0 has 3 vertices
3;0,2,3;,            // and so on
3;0,4,5;,
3;0,5,1;,
3;1,5,6;,
3;1,6,2;,
3;2,6,7;,
3;2,7,3;,
3;3,7,4;,
3;3,4,0;,
3;4,7,6;,
3;4,6,5;;
}
Mesh object1 {
FrameTransformMatrix {
1.0,0.0,0.0,0.0,
0.0,1.0,0.0,0.0,
0.0,0.0,1.0,0.0,
30,5,-18;;
}
8;
60;20;-8;,
40;20;-8;,
40;20;12;,
60;20;12;,
60;10;-8;,
40;10;-8;,
40;10;12;,
60;10;12;,
12;            // 12 faces in a cube
3;0,1,2;,            // face 0 has 3 vertices
3;0,2,3;,            // and so on
3;0,4,5;,
3;0,5,1;,
3;1,5,6;,
3;1,6,2;,
3;2,6,7;,
3;2,7,3;,
3;3,7,4;,
3;3,4,0;,
3;4,7,6;,
3;4,6,5;;
}
Mesh object2 {
FrameTransformMatrix {
1.0,0.0,0.0,0.0,
0.0,1.0,0.0,0.0,
0.0,0.0,1.0,0.0,
-30,5,22;;
}
8;
0;20;32;,
-20;20;32;,
-20;20;52;,
0;20;52;,
0;10;32;,
-20;10;32;,
-20;10;52;,
0;10;52;,
12;            // 12 faces in a cube
3;0,1,2;,            // face 0 has 3 vertices
3;0,2,3;,            // and so on
3;0,4,5;,
3;0,5,1;,
3;1,5,6;,
3;1,6,2;,
3;2,6,7;,
3;2,7,3;,
3;3,7,4;,
3;3,4,0;,
3;4,7,6;,
3;4,6,5;;
}
Mesh object3 {
FrameTransformMatrix {
1.0,0.0,0.0,0.0,
0.0,1.0,0.0,0.0,
0.0,0.0,1.0,0.0,
-30,5,-18;;
}
8;
0;20;-8;,
-20;20;-8;,
-20;20;12;,
0;20;12;,
0;10;-8;,
-20;10;-8;,
-20;10;12;,
0;10;12;,
12;            // 12 faces in a cube
3;0,1,2;,            // face 0 has 3 vertices
3;0,2,3;,            // and so on
3;0,4,5;,
3;0,5,1;,
3;1,5,6;,
3;1,6,2;,
3;2,6,7;,
3;2,7,3;,
3;3,7,4;,
3;3,4,0;,
3;4,7,6;,
3;4,6,5;;
}
Mesh object4 {
FrameTransformMatrix {
1.0,0.0,0.0,0.0,
0.0,1.0,0.0,0.0,
0.0,0.0,1.0,0.0,
0,5,-28;;
}
8;
60;20;52;,
20;20;52;,
20;20;212;,
60;20;212;,
60;10;52;,
20;10;52;,
20;10;212;,
60;10;212;,
12;            // 12 faces in a cube
3;0,1,2;,            // face 0 has 3 vertices
3;0,2,3;,            // and so on
3;0,4,5;,
3;0,5,1;,
3;1,5,6;,
3;1,6,2;,
3;2,6,7;,
3;2,7,3;,
3;3,7,4;,
3;3,4,0;,
3;4,7,6;,
3;4,6,5;;
}
Mesh object5 {
FrameTransformMatrix {
1.0,0.0,0.0,0.0,
0.0,1.0,0.0,0.0,
0.0,0.0,1.0,0.0,
0,0,0;;
}
8;
0;0;0;,
0;0;0;,
0;0;0;,
0;0;0;,
0;0;0;,
0;0;0;,
0;0;0;,
0;0;0;,
12;            // 12 faces in a cube
3;0,1,2;,            // face 0 has 3 vertices
3;0,2,3;,            // and so on
3;0,4,5;,
3;0,5,1;,
3;1,5,6;,
3;1,6,2;,
3;2,6,7;,
3;2,7,3;,
3;3,7,4;,
3;3,4,0;,
3;4,7,6;,
3;4,6,5;;
}

+ Code Snippet

xof 0302txt 0032
// DTEdit .x export - exporter written by David Tattersall
Header {
1;
0;
1;
}
Mesh object0 {
FrameTransformMatrix {
1.0,0.0,0.0,0.0,
0.0,1.0,0.0,0.0,
0.0,0.0,1.0,0.0,
30,5,22;;
}
8;
60;20;32;,
40;20;32;,
40;20;52;,
60;20;52;,
60;10;32;,
40;10;32;,
40;10;52;,
60;10;52;,
12;            // 12 faces in a cube
3;0,1,2;,            // face 0 has 3 vertices
3;0,2,3;,            // and so on
3;0,4,5;,
3;0,5,1;,
3;1,5,6;,
3;1,6,2;,
3;2,6,7;,
3;2,7,3;,
3;3,7,4;,
3;3,4,0;,
3;4,7,6;,
3;4,6,5;;
}
Mesh object1 {
FrameTransformMatrix {
1.0,0.0,0.0,0.0,
0.0,1.0,0.0,0.0,
0.0,0.0,1.0,0.0,
30,5,-18;;
}
8;
60;20;-8;,
40;20;-8;,
40;20;12;,
60;20;12;,
60;10;-8;,
40;10;-8;,
40;10;12;,
60;10;12;,
12;            // 12 faces in a cube
3;0,1,2;,            // face 0 has 3 vertices
3;0,2,3;,            // and so on
3;0,4,5;,
3;0,5,1;,
3;1,5,6;,
3;1,6,2;,
3;2,6,7;,
3;2,7,3;,
3;3,7,4;,
3;3,4,0;,
3;4,7,6;,
3;4,6,5;;
}
Mesh object2 {
FrameTransformMatrix {
1.0,0.0,0.0,0.0,
0.0,1.0,0.0,0.0,
0.0,0.0,1.0,0.0,
-30,5,22;;
}
8;
0;20;32;,
-20;20;32;,
-20;20;52;,
0;20;52;,
0;10;32;,
-20;10;32;,
-20;10;52;,
0;10;52;,
12;            // 12 faces in a cube
3;0,1,2;,            // face 0 has 3 vertices
3;0,2,3;,            // and so on
3;0,4,5;,
3;0,5,1;,
3;1,5,6;,
3;1,6,2;,
3;2,6,7;,
3;2,7,3;,
3;3,7,4;,
3;3,4,0;,
3;4,7,6;,
3;4,6,5;;
}
Mesh object3 {
FrameTransformMatrix {
1.0,0.0,0.0,0.0,
0.0,1.0,0.0,0.0,
0.0,0.0,1.0,0.0,
-30,5,-18;;
}
8;
0;20;-8;,
-20;20;-8;,
-20;20;12;,
0;20;12;,
0;10;-8;,
-20;10;-8;,
-20;10;12;,
0;10;12;,
12;            // 12 faces in a cube
3;0,1,2;,            // face 0 has 3 vertices
3;0,2,3;,            // and so on
3;0,4,5;,
3;0,5,1;,
3;1,5,6;,
3;1,6,2;,
3;2,6,7;,
3;2,7,3;,
3;3,7,4;,
3;3,4,0;,
3;4,7,6;,
3;4,6,5;;
}
Mesh object4 {
FrameTransformMatrix {
1.0,0.0,0.0,0.0,
0.0,1.0,0.0,0.0,
0.0,0.0,1.0,0.0,
0,5,-28;;
}
8;
60;20;52;,
20;20;52;,
20;20;212;,
60;20;212;,
60;10;52;,
20;10;52;,
20;10;212;,
60;10;212;,
12;            // 12 faces in a cube
3;0,1,2;,            // face 0 has 3 vertices
3;0,2,3;,            // and so on
3;0,4,5;,
3;0,5,1;,
3;1,5,6;,
3;1,6,2;,
3;2,6,7;,
3;2,7,3;,
3;3,7,4;,
3;3,4,0;,
3;4,7,6;,
3;4,6,5;;
}
Mesh object5 {
FrameTransformMatrix {
1.0,0.0,0.0,0.0,
0.0,1.0,0.0,0.0,
0.0,0.0,1.0,0.0,
0,0,0;;
}
8;
0;0;0;,
0;0;0;,
0;0;0;,
0;0;0;,
0;0;0;,
0;0;0;,
0;0;0;,
0;0;0;,
12;            // 12 faces in a cube
3;0,1,2;,            // face 0 has 3 vertices
3;0,2,3;,            // and so on
3;0,4,5;,
3;0,5,1;,
3;1,5,6;,
3;1,6,2;,
3;2,6,7;,
3;2,7,3;,
3;3,7,4;,
3;3,4,0;,
3;4,7,6;,
3;4,6,5;;
}

Wow that was hard but also fun. Thanks go to the kind soul at Microsoft who wrote the .x specification - a real help.

You are the

th person to view this signature.
GRAVITY: I fought the law but the law won

Back to top

Profile PM Email Website

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 29th Jun 2003 16:40 Edited at: 29th Jun 2003 16:41

Link

still trying to work out what's what :-s

dave

just trying to learn

Back to top

Profile PM

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 29th Jun 2003 17:26 Edited at: 29th Jun 2003 17:27

Link

What's what in what? If you're talking about the exported .x file DBP will handle that for you

Plus, the exported file above had a few mistakes in it so the exporter is being rewritten. Here is the code for the exporter if you want:

ExportX:

cls
  set cursor 10,400

input "File name: ",n$

open to write 1,n$

write string 1,"xof 0302txt 0032"
  write string 1,"// DTEdit .x export - exporter written by David Tattersall"
  write string 1,"Header {"
  write string 1,"1;"
  write string 1,"0;"
  write string 1,"1;"
  write string 1,"}"

remstart
  ----------------------------------------------------------
  Here we would export all materials but since there are
  no textures yet just go straight to the meshes
  ----------------------------------------------------------
  remend

for o = 0 to NumPlaced

` START NEW FRAME
   write string 1,"Frame Obj"+str$(o)+" {"

` TRANSFORM DATA - POSITION OF BOX GOES HERE
    ` Work out all bits of info about box
    width = Boxes(o).X2 - Boxes(o).X1
    height = Boxes(o).Y2 - Boxes(o).Y1
    depth = Boxes(o).Z2 - Boxes(o).Z1

xp = (Boxes(o).Z1 + (0.5 * depth))*-1
    yp = (Boxes(o).Y1+ (0.5 * height))*-1
    zp = (Boxes(o).X1 + (0.5 * width))*-1

x1 = (Boxes(o).Z1)*-1
    y1 = (Boxes(o).Y1)*-1
    z1 = (Boxes(o).X1)*-1

x2 = x1 + depth
    y2 = y1 + height
    z2 = z1 + width

write string 1,"FrameTransformMatrix {"
    write string 1,"1.0,0.0,0.0,0.0,"
    write string 1,"0.0,1.0,0.0,0.0,"
    write string 1,"0.0,0.0,1.0,0.0,"
    write string 1,str$(xp)+","+str$(yp)+","+str$(zp)+";;" :`Position
    write string 1,"}"

` START NEW MESH
    write string 1,"Mesh object"+str$(o)+" {"

` VERTICES - 8 CORNERS OF THE CUBE
    write string 1,"8;" : `Number of vertices - in a cube that is 8
    write string 1,str$(x2)+";"+str$(y2)+";"+str$(z1)+";," :`X2 Y2 Z1
    write string 1,str$(x1)+";"+str$(y2)+";"+str$(z1)+";," :`X1 Y2 Z1
    write string 1,str$(x1)+";"+str$(y2)+";"+str$(z2)+";," :`X1 Y2 Z2
    write string 1,str$(x2)+";"+str$(y2)+";"+str$(z2)+";," :`X2 Y2 Z2
    write string 1,str$(x2)+";"+str$(y1)+";"+str$(z1)+";," :`X2 Y1 Z1
    write string 1,str$(x1)+";"+str$(y1)+";"+str$(z1)+";," :`X1 Y1 Z1
    write string 1,str$(x1)+";"+str$(y1)+";"+str$(z2)+";," :`X1 Y1 Z2
    write string 1,str$(x2)+";"+str$(y1)+";"+str$(z2)+";," :`X2 Y1 Z2

` FACES - THERE ARE 12 FACES IN A CUBE - DESCRIBE THEM
    write string 1,"12;            // 12 faces in a cube"
    write string 1,"3;0,1,2;,            // face 0 has 3 vertices"
    write string 1,"3;0,2,3;,            // and so on"
    write string 1,"3;0,4,5;,"
    write string 1,"3;0,5,1;,"
    write string 1,"3;1,5,6;,"
    write string 1,"3;1,6,2;,"
    write string 1,"3;2,6,7;,"
    write string 1,"3;2,7,3;,"
    write string 1,"3;3,7,4;,"
    write string 1,"3;3,4,0;,"
    write string 1,"3;4,7,6;,"
    write string 1,"3;4,6,5;;"

` HERE WE WOULD DESCRIBE MATERIALS, BUT THERE ARE NONE YET
    `------

`FINISH MESH
    write string 1,"}"

` FINISH FRAME
    write string 1,"}"

next o

close file 1

return

+ Code Snippet

ExportX:

  cls
  set cursor 10,400

  input "File name: ",n$

  open to write 1,n$

  write string 1,"xof 0302txt 0032"
  write string 1,"// DTEdit .x export - exporter written by David Tattersall"
  write string 1,"Header {"
  write string 1,"1;"
  write string 1,"0;"
  write string 1,"1;"
  write string 1,"}"

  remstart
  ----------------------------------------------------------
  Here we would export all materials but since there are
  no textures yet just go straight to the meshes
  ----------------------------------------------------------
  remend

  for o = 0 to NumPlaced

  ` START NEW FRAME
   write string 1,"Frame Obj"+str$(o)+" {"

    ` TRANSFORM DATA - POSITION OF BOX GOES HERE
    ` Work out all bits of info about box
    width = Boxes(o).X2 - Boxes(o).X1
    height = Boxes(o).Y2 - Boxes(o).Y1
    depth = Boxes(o).Z2 - Boxes(o).Z1

    xp = (Boxes(o).Z1 + (0.5 * depth))*-1
    yp = (Boxes(o).Y1+ (0.5 * height))*-1
    zp = (Boxes(o).X1 + (0.5 * width))*-1

    x1 = (Boxes(o).Z1)*-1
    y1 = (Boxes(o).Y1)*-1
    z1 = (Boxes(o).X1)*-1

    x2 = x1 + depth
    y2 = y1 + height
    z2 = z1 + width

    write string 1,"FrameTransformMatrix {"
    write string 1,"1.0,0.0,0.0,0.0,"
    write string 1,"0.0,1.0,0.0,0.0,"
    write string 1,"0.0,0.0,1.0,0.0,"
    write string 1,str$(xp)+","+str$(yp)+","+str$(zp)+";;" :`Position
    write string 1,"}"

    ` START NEW MESH
    write string 1,"Mesh object"+str$(o)+" {"

    ` VERTICES - 8 CORNERS OF THE CUBE
    write string 1,"8;" : `Number of vertices - in a cube that is 8
    write string 1,str$(x2)+";"+str$(y2)+";"+str$(z1)+";," :`X2 Y2 Z1
    write string 1,str$(x1)+";"+str$(y2)+";"+str$(z1)+";," :`X1 Y2 Z1
    write string 1,str$(x1)+";"+str$(y2)+";"+str$(z2)+";," :`X1 Y2 Z2
    write string 1,str$(x2)+";"+str$(y2)+";"+str$(z2)+";," :`X2 Y2 Z2
    write string 1,str$(x2)+";"+str$(y1)+";"+str$(z1)+";," :`X2 Y1 Z1
    write string 1,str$(x1)+";"+str$(y1)+";"+str$(z1)+";," :`X1 Y1 Z1
    write string 1,str$(x1)+";"+str$(y1)+";"+str$(z2)+";," :`X1 Y1 Z2
    write string 1,str$(x2)+";"+str$(y1)+";"+str$(z2)+";," :`X2 Y1 Z2

    ` FACES - THERE ARE 12 FACES IN A CUBE - DESCRIBE THEM
    write string 1,"12;            // 12 faces in a cube"
    write string 1,"3;0,1,2;,            // face 0 has 3 vertices"
    write string 1,"3;0,2,3;,            // and so on"
    write string 1,"3;0,4,5;,"
    write string 1,"3;0,5,1;,"
    write string 1,"3;1,5,6;,"
    write string 1,"3;1,6,2;,"
    write string 1,"3;2,6,7;,"
    write string 1,"3;2,7,3;,"
    write string 1,"3;3,7,4;,"
    write string 1,"3;3,4,0;,"
    write string 1,"3;4,7,6;,"
    write string 1,"3;4,6,5;;"

    ` HERE WE WOULD DESCRIBE MATERIALS, BUT THERE ARE NONE YET
    `------


    `FINISH MESH
    write string 1,"}"

    ` FINISH FRAME
    write string 1,"}"



  next o

  close file 1

return

You are the

th person to view this signature.
GRAVITY: I fought the law but the law won

Back to top

Profile PM Email Website

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 29th Jun 2003 17:38

Link

sorry i meant the whole thing,i'me going throu
the program a bit at a time,working out what code
dose what

dave

just trying to learn

Back to top

Profile PM

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 29th Jun 2003 18:08

Link

I'll comment it now and upload a new version.

You are the

th person to view this signature.
GRAVITY: I fought the law but the law won

Back to top

Profile PM Email Website

Shady Simpson

21

Years of Service

User Offline

Joined: 15th Mar 2003

Location: United Kingdom

Posted: 5th Jul 2003 11:47

Link

any updates?

Back to top

Profile PM

Ocean Runner

20

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 6th Jul 2003 05:04

Link

could you compile that for the poor,poor people who don't have DBPro?

JetRace coming. Watch out!

Back to top

Profile PM

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 7th Jul 2003 21:50

Link

@David89
could you post a link to the .x specification? Thanks

"All programmers are playwrites and all computers are lousy actors" -Anon

Back to top

Profile PM

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 8th Jul 2003 00:20 Edited at: 8th Jul 2003 00:21

Link

1. Yes, an update will come soon. I want to get texturing in there with .x

2. Maybe - probably yes

3. Sure - http://www.wotsit.org/search.asp?page=10&s=graphics

You are the

th person to view this signature.
GRAVITY: I fought the law but the law won

Back to top

Profile PM Email Website

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 10th Jul 2003 06:37

Link

Thnx

"All programmers are playwrites and all computers are lousy actors" -Anon

Back to top

Profile PM

Sniffer

20

Years of Service

User Offline

Joined: 22nd Jul 2003

Location:

Posted: 22nd Jul 2003 22:10

Link

I can't get the first code to work i copyid it and pasted it in to darkbasicpro but it is saying missing include file whats wrong can any one post a link to the code allready setup

Back to top

Profile PM

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 1st Aug 2003 19:11

Link

You'll get the error about 4 times. For some reason it didn't copy the carrige returns at the beginning of each include files, just separate the two lines:

return Rem include file

becomes

return
rem include file

You are the

th person to view this signature.
GRAVITY: I fought the law but the law won

Back to top

Profile PM Email Website

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 2nd Aug 2003 23:18

Link

hi david89

how are things progressing with the editor
any news

dave

just trying to learn

Back to top

Profile PM

David T

Retired Moderator

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 3rd Aug 2003 20:51

Link

Hi,

I've been away for 3 weeks so no work done since my last post

I think, unless I find free time, the curretn state might be the final state. It was not meant to be a proper editor, just test, and I did that.

I still want to do .x, though. Can't manage it yet

You are the

th person to view this signature.
GRAVITY: I fought the law but the law won

Back to top

Profile PM Email Website

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 3rd Aug 2003 20:59

Link

thanks david89

maybe i should get off my lazy but
and try to learn from your example,and
try to improve it with my own work

(I still want to do .x, though. Can't manage it yet )
it would be nice to see ,x. in thouhg

dave

just trying to learn

Back to top

Profile PM

UnderLord

20

Years of Service

User Offline

Joined: 2nd Aug 2003

Location:

Posted: 4th Aug 2003 02:11

Link

Let me know when you are done with it =)

http://www.freewebs.com/independant

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / Cartography Shop style map editor