making an object from a memblock

Author

Message

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 15th Jan 2010 21:24

Link

I've been playing around with memblocks and meshes recently and finally understood enough to make a mesh directly from a memblock.

What I've managed to do is create a function that creates a box (I've just realised how unimpressive that sounds), where the object number, width, height and length can be specified.

`this program creates a box from a memblock

sync on
sync rate 60
hide mouse
autocam off
set camera range 1, 3000
cls

`syntax: MAKE_BOX(object number, width, height, length)
MAKE_BOX(1,50,50,50)

`position and point camera
position camera 0,150,-150
point camera 0, 0, 0

`view and rotate the box
do

if rightkey() = 1 then turn object right 1, 2
   if leftkey() = 1 then turn object left 1, 2
   if upkey() = 1 then pitch object up 1, 2
   if downkey() = 1 then pitch object down 1, 2

set cursor 1, 1: print "use arrow keys to rotate the box"

sync

loop

end

`this function constructs the memblock, create a mesh from the
`memblock and creates an object from the mesh.
`the mesh and memblock are then deleted
function MAKE_BOX(num,w,h,l)

`create the memblock
   make memblock 1, 1140

`write header to memblock
   write memblock dword 1, 0, 24
   write memblock dword 1, 4, 32
   write memblock dword 1, 8, 24
   write memblock dword 1, 12, 320
   write memblock dword 1, 16, 12
   write memblock dword 1, 20, 608
   write memblock dword 1, 24, 84
   write memblock dword 1, 28, 944
   `write vertext data to memblock
   `front
   `0 vertex
   write memblock float 1, 32, w/2
   write memblock float 1, 36, h/-2
   write memblock float 1, 40, l/2
   `1 vertex
   write memblock float 1, 44, w/-2
   write memblock float 1, 48, h/-2
   write memblock float 1, 52, l/2
   `2 vertex
   write memblock float 1, 56, w/2
   write memblock float 1, 60, h/2
   write memblock float 1, 64, l/2
   `3 vertex
   write memblock float 1, 68, w/-2
   write memblock float 1, 72, h/2
   write memblock float 1, 76, l/2
   `back
   `4 vertex
   write memblock float 1, 80, w/-2
   write memblock float 1, 84, h/-2
   write memblock float 1, 88, l/-2
   `5 vertex
   write memblock float 1, 92, w/2
   write memblock float 1, 96, h/-2
   write memblock float 1, 100, l/-2
   `6 vertex
   write memblock float 1, 104, w/-2
   write memblock float 1, 108, h/2
   write memblock float 1, 112, l/-2
   `7 vertex
   write memblock float 1, 116, w/2
   write memblock float 1, 120, h/2
   write memblock float 1, 124, l/-2
   `left
   `8 vertex
   write memblock float 1, 128, w/-2
   write memblock float 1, 132, h/-2
   write memblock float 1, 136, l/2
   `9 vertex
   write memblock float 1, 140, w/-2
   write memblock float 1, 144, h/-2
   write memblock float 1, 148, l/-2
   `10 vertex
   write memblock float 1, 152, w/-2
   write memblock float 1, 156, h/2
   write memblock float 1, 160, l/2
   `11 vertex
   write memblock float 1, 164, w/-2
   write memblock float 1, 168, h/2
   write memblock float 1, 172, l/-2
   `right
   `12 vertex
   write memblock float 1, 176, w/2
   write memblock float 1, 180, h/-2
   write memblock float 1, 184, l/-2
   `13 vertex
   write memblock float 1, 188, w/2
   write memblock float 1, 192, h/-2
   write memblock float 1, 196, l/2
   `14 vertex
   write memblock float 1, 200, w/2
   write memblock float 1, 204, h/2
   write memblock float 1, 208, l/-2
   `15 vertex
   write memblock float 1, 212, w/2
   write memblock float 1, 216, h/2
   write memblock float 1, 220, l/2
   `top
   `16 vertex
   write memblock float 1, 224, w/-2
   write memblock float 1, 228, h/2
   write memblock float 1, 232, l/-2
   `17 vertex
   write memblock float 1, 236, w/2
   write memblock float 1, 240, h/2
   write memblock float 1, 244, l/-2
   `18 vertex
   write memblock float 1, 248, w/-2
   write memblock float 1, 252, h/2
   write memblock float 1, 256, l/2
   `19 vertex
   write memblock float 1, 260, w/2
   write memblock float 1, 264, h/2
   write memblock float 1, 268, l/2
   `bottom
   `20 vertex
   write memblock float 1, 272, w/-2
   write memblock float 1, 276, h/-2
   write memblock float 1, 280, l/2
   `21 vertex
   write memblock float 1, 284, w/2
   write memblock float 1, 288, h/-2
   write memblock float 1, 292, l/2
   `22 vertex
   write memblock float 1, 296, w/-2
   write memblock float 1, 300, h/-2
   write memblock float 1, 304, l/-2
   `23 vertex
   write memblock float 1, 308, w/2
   write memblock float 1, 312, h/-2
   write memblock float 1, 316, l/-2
   `write normal data to memblock
   `front
   `0 vertex
   write memblock float 1, 320, 0
   write memblock float 1, 324, 0
   write memblock float 1, 328, 1
   `1 vertex
   write memblock float 1, 332, 0
   write memblock float 1, 336, 0
   write memblock float 1, 340, 1
   `2 vertex
   write memblock float 1, 344, 0
   write memblock float 1, 348, 0
   write memblock float 1, 352, 1
   `3 vertex
   write memblock float 1, 356, 0
   write memblock float 1, 360, 0
   write memblock float 1, 364, 1
   `back
   `4 vertex
   write memblock float 1, 368, 0
   write memblock float 1, 372, 0
   write memblock float 1, 376, -1
   `5 vertex
   write memblock float 1, 380, 0
   write memblock float 1, 384, 0
   write memblock float 1, 388, -1
   `6 vertex
   write memblock float 1, 392, 0
   write memblock float 1, 396, 0
   write memblock float 1, 400, -1
   `7 vertex
   write memblock float 1, 404, 0
   write memblock float 1, 408, 0
   write memblock float 1, 412, -1
   `left
   `8 vertex
   write memblock float 1, 416, -1
   write memblock float 1, 420, 0
   write memblock float 1, 424, 0
   `9 vertex
   write memblock float 1, 428, -1
   write memblock float 1, 432, 0
   write memblock float 1, 436, 0
   `10 vertex
   write memblock float 1, 440, -1
   write memblock float 1, 444, 0
   write memblock float 1, 448, 0
   `11 vertex
   write memblock float 1, 452, -1
   write memblock float 1, 456, 0
   write memblock float 1, 460, 0
   `right
   `12 vertex
   write memblock float 1, 464, 1
   write memblock float 1, 468, 0
   write memblock float 1, 472, 0
   `13 vertex
   write memblock float 1, 476, 1
   write memblock float 1, 480, 0
   write memblock float 1, 484, 0
   `14 vertex
   write memblock float 1, 488, 1
   write memblock float 1, 492, 0
   write memblock float 1, 496, 0
   `15 vertex
   write memblock float 1, 500, 1
   write memblock float 1, 504, 0
   write memblock float 1, 508, 0
   `top
   `16 vertex
   write memblock float 1, 512, 0
   write memblock float 1, 516, 1
   write memblock float 1, 520, 0
   `17 vertex
   write memblock float 1, 524, 0
   write memblock float 1, 528, 1
   write memblock float 1, 532, 0
   `18 vertex
   write memblock float 1, 536, 0
   write memblock float 1, 540, 1
   write memblock float 1, 544, 0
   `19 vertex
   write memblock float 1, 548, 0
   write memblock float 1, 552, 1
   write memblock float 1, 556, 0
   `bottom
   `20 vertex
   write memblock float 1, 560, 0
   write memblock float 1, 564, -1
   write memblock float 1, 568, 0
   `21 vertex
   write memblock float 1, 572, 0
   write memblock float 1, 576, -1
   write memblock float 1, 580, 0
   `22 vertex
   write memblock float 1, 584, 0
   write memblock float 1, 588, -1
   write memblock float 1, 592, 0
   `23 vertex
   write memblock float 1, 596, 0
   write memblock float 1, 600, -1
   write memblock float 1, 604, 0
   `write face data to memblock
   `front
   `0 face
   write memblock dword 1, 608, 3
   write memblock dword 1, 612, 0
   write memblock dword 1, 616, 0
   write memblock dword 1, 620, 3
   write memblock dword 1, 624, 3
   write memblock dword 1, 628, 1
   write memblock dword 1, 632, 1
   `1 face
   write memblock dword 1, 636, 3
   write memblock dword 1, 640, 3
   write memblock dword 1, 644, 3
   write memblock dword 1, 648, 0
   write memblock dword 1, 652, 0
   write memblock dword 1, 656, 2
   write memblock dword 1, 660, 2
   `back
   `2 face
   write memblock dword 1, 664, 3
   write memblock dword 1, 668, 4
   write memblock dword 1, 672, 4
   write memblock dword 1, 676, 7
   write memblock dword 1, 680, 7
   write memblock dword 1, 684, 5
   write memblock dword 1, 688, 5
   `3 face
   write memblock dword 1, 692, 3
   write memblock dword 1, 696, 7
   write memblock dword 1, 700, 7
   write memblock dword 1, 704, 4
   write memblock dword 1, 708, 4
   write memblock dword 1, 712, 6
   write memblock dword 1, 716, 6
   `left
   `4 face
   write memblock dword 1, 720, 3
   write memblock dword 1, 724, 8
   write memblock dword 1, 728, 8
   write memblock dword 1, 732, 11
   write memblock dword 1, 736, 11
   write memblock dword 1, 740, 9
   write memblock dword 1, 744, 9
   `5 face
   write memblock dword 1, 748, 3
   write memblock dword 1, 752, 11
   write memblock dword 1, 756, 11
   write memblock dword 1, 760, 8
   write memblock dword 1, 764, 8
   write memblock dword 1, 768, 10
   write memblock dword 1, 772, 10
   `right
   `6 face
   write memblock dword 1, 776, 3
   write memblock dword 1, 780, 12
   write memblock dword 1, 784, 12
   write memblock dword 1, 788, 15
   write memblock dword 1, 792, 15
   write memblock dword 1, 796, 13
   write memblock dword 1, 800, 13
   `7 face
   write memblock dword 1, 804, 3
   write memblock dword 1, 808, 15
   write memblock dword 1, 812, 15
   write memblock dword 1, 816, 12
   write memblock dword 1, 820, 12
   write memblock dword 1, 824, 14
   write memblock dword 1, 828, 14
   `top
   `8 face
   write memblock dword 1, 832, 3
   write memblock dword 1, 836, 16
   write memblock dword 1, 840, 16
   write memblock dword 1, 844, 19
   write memblock dword 1, 848, 19
   write memblock dword 1, 852, 17
   write memblock dword 1, 856, 17
   `9 face
   write memblock dword 1, 860, 3
   write memblock dword 1, 864, 19
   write memblock dword 1, 868, 19
   write memblock dword 1, 872, 16
   write memblock dword 1, 876, 16
   write memblock dword 1, 880, 18
   write memblock dword 1, 884, 18
   `bottom
   `10 face
   write memblock dword 1, 888, 3
   write memblock dword 1, 892, 20
   write memblock dword 1, 896, 20
   write memblock dword 1, 900, 23
   write memblock dword 1, 904, 23
   write memblock dword 1, 908, 21
   write memblock dword 1, 912, 21
   `11 face
   write memblock dword 1, 916, 3
   write memblock dword 1, 920, 23
   write memblock dword 1, 924, 23
   write memblock dword 1, 928, 20
   write memblock dword 1, 932, 20
   write memblock dword 1, 936, 22
   write memblock dword 1, 940, 22
   `write UV data to memblock
   `front
   `0 vertex
   write memblock float 1, 944, 0
   write memblock float 1, 948, 0.49
   `1 vertex
   write memblock float 1, 952, 0.33
   write memblock float 1, 956, 0.49
   `2 vertex
   write memblock float 1, 960, 0
   write memblock float 1, 964, 0
   `3 vertex
   write memblock float 1, 968, 0.33
   write memblock float 1, 972, 0
   `back
   `4 vertex
   write memblock float 1, 976, 0
   write memblock float 1, 980, 1
   `5 vertex
   write memblock float 1, 984, 0.33
   write memblock float 1, 988, 1
   `6 vertex
   write memblock float 1, 992, 0
   write memblock float 1, 996, 0.51
   `7 vertex
   write memblock float 1, 1000, 0.33
   write memblock float 1, 1004, 0.51
   `left
   `8 vertex
   write memblock float 1, 1008, 0.34
   write memblock float 1, 1012, 0.49
   `9 vertex
   write memblock float 1, 1016, 0.66
   write memblock float 1, 1020, 0.49
   `10 vertex
   write memblock float 1, 1024, 0.34
   write memblock float 1, 1028, 0
   `11 vertex
   write memblock float 1, 1032, 0.66
   write memblock float 1, 1036, 0
   `right
   `12 vertex
   write memblock float 1, 1040, 0.34
   write memblock float 1, 1044, 1
   `13 vertex
   write memblock float 1, 1048, 0.66
   write memblock float 1, 1052, 1
   `14 vertex
   write memblock float 1, 1056, 0.34
   write memblock float 1, 1060, 0.51
   `15 vertex
   write memblock float 1, 1064, 0.66
   write memblock float 1, 1068, 0.51
   `top
   `16 vertex
   write memblock float 1, 1072, 0.67
   write memblock float 1, 1076, 0.49
   `17 vertex
   write memblock float 1, 1080, 1
   write memblock float 1, 1084, 0.49
   `18 vertex
   write memblock float 1, 1088, 0.67
   write memblock float 1, 1092, 0
   `19 vertex
   write memblock float 1, 1096, 1
   write memblock float 1, 1100, 0
   `bottom
   `20 vertex
   write memblock float 1, 1104, 0.67
   write memblock float 1, 1108, 1
   `21 vertex
   write memblock float 1, 1112, 1
   write memblock float 1, 1116, 1
   `22 vertex
   write memblock float 1, 1120, 0.67
   write memblock float 1, 1124, 0.51
   `23 vertex
   write memblock float 1, 1128, 1
   write memblock float 1, 1132, 0.51

`create mesh then create object, delete mesh and memblock
   make mesh from memblock 1, 1
   make object num, 1, 0
   delete mesh 1
   delete memblock 1

endfunction

+ Code Snippet

`this program creates a box from a memblock

sync on
sync rate 60
hide mouse
autocam off
set camera range 1, 3000
cls

`syntax: MAKE_BOX(object number, width, height, length)
MAKE_BOX(1,50,50,50)

`position and point camera
position camera 0,150,-150
point camera 0, 0, 0

`view and rotate the box
do

   if rightkey() = 1 then turn object right 1, 2
   if leftkey() = 1 then turn object left 1, 2
   if upkey() = 1 then pitch object up 1, 2
   if downkey() = 1 then pitch object down 1, 2

   set cursor 1, 1: print "use arrow keys to rotate the box"

   sync

loop

end


`this function constructs the memblock, create a mesh from the
`memblock and creates an object from the mesh.
`the mesh and memblock are then deleted
function MAKE_BOX(num,w,h,l)

  `create the memblock
   make memblock 1, 1140

   `write header to memblock
   write memblock dword 1, 0, 24
   write memblock dword 1, 4, 32
   write memblock dword 1, 8, 24
   write memblock dword 1, 12, 320
   write memblock dword 1, 16, 12
   write memblock dword 1, 20, 608
   write memblock dword 1, 24, 84
   write memblock dword 1, 28, 944
   `write vertext data to memblock
   `front
   `0 vertex
   write memblock float 1, 32, w/2
   write memblock float 1, 36, h/-2
   write memblock float 1, 40, l/2
   `1 vertex
   write memblock float 1, 44, w/-2
   write memblock float 1, 48, h/-2
   write memblock float 1, 52, l/2
   `2 vertex
   write memblock float 1, 56, w/2
   write memblock float 1, 60, h/2
   write memblock float 1, 64, l/2
   `3 vertex
   write memblock float 1, 68, w/-2
   write memblock float 1, 72, h/2
   write memblock float 1, 76, l/2
   `back
   `4 vertex
   write memblock float 1, 80, w/-2
   write memblock float 1, 84, h/-2
   write memblock float 1, 88, l/-2
   `5 vertex
   write memblock float 1, 92, w/2
   write memblock float 1, 96, h/-2
   write memblock float 1, 100, l/-2
   `6 vertex
   write memblock float 1, 104, w/-2
   write memblock float 1, 108, h/2
   write memblock float 1, 112, l/-2
   `7 vertex
   write memblock float 1, 116, w/2
   write memblock float 1, 120, h/2
   write memblock float 1, 124, l/-2
   `left
   `8 vertex
   write memblock float 1, 128, w/-2
   write memblock float 1, 132, h/-2
   write memblock float 1, 136, l/2
   `9 vertex
   write memblock float 1, 140, w/-2
   write memblock float 1, 144, h/-2
   write memblock float 1, 148, l/-2
   `10 vertex
   write memblock float 1, 152, w/-2
   write memblock float 1, 156, h/2
   write memblock float 1, 160, l/2
   `11 vertex
   write memblock float 1, 164, w/-2
   write memblock float 1, 168, h/2
   write memblock float 1, 172, l/-2
   `right
   `12 vertex
   write memblock float 1, 176, w/2
   write memblock float 1, 180, h/-2
   write memblock float 1, 184, l/-2
   `13 vertex
   write memblock float 1, 188, w/2
   write memblock float 1, 192, h/-2
   write memblock float 1, 196, l/2
   `14 vertex
   write memblock float 1, 200, w/2
   write memblock float 1, 204, h/2
   write memblock float 1, 208, l/-2
   `15 vertex
   write memblock float 1, 212, w/2
   write memblock float 1, 216, h/2
   write memblock float 1, 220, l/2
   `top
   `16 vertex
   write memblock float 1, 224, w/-2
   write memblock float 1, 228, h/2
   write memblock float 1, 232, l/-2
   `17 vertex
   write memblock float 1, 236, w/2
   write memblock float 1, 240, h/2
   write memblock float 1, 244, l/-2
   `18 vertex
   write memblock float 1, 248, w/-2
   write memblock float 1, 252, h/2
   write memblock float 1, 256, l/2
   `19 vertex
   write memblock float 1, 260, w/2
   write memblock float 1, 264, h/2
   write memblock float 1, 268, l/2
   `bottom
   `20 vertex
   write memblock float 1, 272, w/-2
   write memblock float 1, 276, h/-2
   write memblock float 1, 280, l/2
   `21 vertex
   write memblock float 1, 284, w/2
   write memblock float 1, 288, h/-2
   write memblock float 1, 292, l/2
   `22 vertex
   write memblock float 1, 296, w/-2
   write memblock float 1, 300, h/-2
   write memblock float 1, 304, l/-2
   `23 vertex
   write memblock float 1, 308, w/2
   write memblock float 1, 312, h/-2
   write memblock float 1, 316, l/-2
   `write normal data to memblock
   `front
   `0 vertex
   write memblock float 1, 320, 0
   write memblock float 1, 324, 0
   write memblock float 1, 328, 1
   `1 vertex
   write memblock float 1, 332, 0
   write memblock float 1, 336, 0
   write memblock float 1, 340, 1
   `2 vertex
   write memblock float 1, 344, 0
   write memblock float 1, 348, 0
   write memblock float 1, 352, 1
   `3 vertex
   write memblock float 1, 356, 0
   write memblock float 1, 360, 0
   write memblock float 1, 364, 1
   `back
   `4 vertex
   write memblock float 1, 368, 0
   write memblock float 1, 372, 0
   write memblock float 1, 376, -1
   `5 vertex
   write memblock float 1, 380, 0
   write memblock float 1, 384, 0
   write memblock float 1, 388, -1
   `6 vertex
   write memblock float 1, 392, 0
   write memblock float 1, 396, 0
   write memblock float 1, 400, -1
   `7 vertex
   write memblock float 1, 404, 0
   write memblock float 1, 408, 0
   write memblock float 1, 412, -1
   `left
   `8 vertex
   write memblock float 1, 416, -1
   write memblock float 1, 420, 0
   write memblock float 1, 424, 0
   `9 vertex
   write memblock float 1, 428, -1
   write memblock float 1, 432, 0
   write memblock float 1, 436, 0
   `10 vertex
   write memblock float 1, 440, -1
   write memblock float 1, 444, 0
   write memblock float 1, 448, 0
   `11 vertex
   write memblock float 1, 452, -1
   write memblock float 1, 456, 0
   write memblock float 1, 460, 0
   `right
   `12 vertex
   write memblock float 1, 464, 1
   write memblock float 1, 468, 0
   write memblock float 1, 472, 0
   `13 vertex
   write memblock float 1, 476, 1
   write memblock float 1, 480, 0
   write memblock float 1, 484, 0
   `14 vertex
   write memblock float 1, 488, 1
   write memblock float 1, 492, 0
   write memblock float 1, 496, 0
   `15 vertex
   write memblock float 1, 500, 1
   write memblock float 1, 504, 0
   write memblock float 1, 508, 0
   `top
   `16 vertex
   write memblock float 1, 512, 0
   write memblock float 1, 516, 1
   write memblock float 1, 520, 0
   `17 vertex
   write memblock float 1, 524, 0
   write memblock float 1, 528, 1
   write memblock float 1, 532, 0
   `18 vertex
   write memblock float 1, 536, 0
   write memblock float 1, 540, 1
   write memblock float 1, 544, 0
   `19 vertex
   write memblock float 1, 548, 0
   write memblock float 1, 552, 1
   write memblock float 1, 556, 0
   `bottom
   `20 vertex
   write memblock float 1, 560, 0
   write memblock float 1, 564, -1
   write memblock float 1, 568, 0
   `21 vertex
   write memblock float 1, 572, 0
   write memblock float 1, 576, -1
   write memblock float 1, 580, 0
   `22 vertex
   write memblock float 1, 584, 0
   write memblock float 1, 588, -1
   write memblock float 1, 592, 0
   `23 vertex
   write memblock float 1, 596, 0
   write memblock float 1, 600, -1
   write memblock float 1, 604, 0
   `write face data to memblock
   `front
   `0 face
   write memblock dword 1, 608, 3
   write memblock dword 1, 612, 0
   write memblock dword 1, 616, 0
   write memblock dword 1, 620, 3
   write memblock dword 1, 624, 3
   write memblock dword 1, 628, 1
   write memblock dword 1, 632, 1
   `1 face
   write memblock dword 1, 636, 3
   write memblock dword 1, 640, 3
   write memblock dword 1, 644, 3
   write memblock dword 1, 648, 0
   write memblock dword 1, 652, 0
   write memblock dword 1, 656, 2
   write memblock dword 1, 660, 2
   `back
   `2 face
   write memblock dword 1, 664, 3
   write memblock dword 1, 668, 4
   write memblock dword 1, 672, 4
   write memblock dword 1, 676, 7
   write memblock dword 1, 680, 7
   write memblock dword 1, 684, 5
   write memblock dword 1, 688, 5
   `3 face
   write memblock dword 1, 692, 3
   write memblock dword 1, 696, 7
   write memblock dword 1, 700, 7
   write memblock dword 1, 704, 4
   write memblock dword 1, 708, 4
   write memblock dword 1, 712, 6
   write memblock dword 1, 716, 6
   `left
   `4 face
   write memblock dword 1, 720, 3
   write memblock dword 1, 724, 8
   write memblock dword 1, 728, 8
   write memblock dword 1, 732, 11
   write memblock dword 1, 736, 11
   write memblock dword 1, 740, 9
   write memblock dword 1, 744, 9
   `5 face
   write memblock dword 1, 748, 3
   write memblock dword 1, 752, 11
   write memblock dword 1, 756, 11
   write memblock dword 1, 760, 8
   write memblock dword 1, 764, 8
   write memblock dword 1, 768, 10
   write memblock dword 1, 772, 10
   `right
   `6 face
   write memblock dword 1, 776, 3
   write memblock dword 1, 780, 12
   write memblock dword 1, 784, 12
   write memblock dword 1, 788, 15
   write memblock dword 1, 792, 15
   write memblock dword 1, 796, 13
   write memblock dword 1, 800, 13
   `7 face
   write memblock dword 1, 804, 3
   write memblock dword 1, 808, 15
   write memblock dword 1, 812, 15
   write memblock dword 1, 816, 12
   write memblock dword 1, 820, 12
   write memblock dword 1, 824, 14
   write memblock dword 1, 828, 14
   `top
   `8 face
   write memblock dword 1, 832, 3
   write memblock dword 1, 836, 16
   write memblock dword 1, 840, 16
   write memblock dword 1, 844, 19
   write memblock dword 1, 848, 19
   write memblock dword 1, 852, 17
   write memblock dword 1, 856, 17
   `9 face
   write memblock dword 1, 860, 3
   write memblock dword 1, 864, 19
   write memblock dword 1, 868, 19
   write memblock dword 1, 872, 16
   write memblock dword 1, 876, 16
   write memblock dword 1, 880, 18
   write memblock dword 1, 884, 18
   `bottom
   `10 face
   write memblock dword 1, 888, 3
   write memblock dword 1, 892, 20
   write memblock dword 1, 896, 20
   write memblock dword 1, 900, 23
   write memblock dword 1, 904, 23
   write memblock dword 1, 908, 21
   write memblock dword 1, 912, 21
   `11 face
   write memblock dword 1, 916, 3
   write memblock dword 1, 920, 23
   write memblock dword 1, 924, 23
   write memblock dword 1, 928, 20
   write memblock dword 1, 932, 20
   write memblock dword 1, 936, 22
   write memblock dword 1, 940, 22
   `write UV data to memblock
   `front
   `0 vertex
   write memblock float 1, 944, 0
   write memblock float 1, 948, 0.49
   `1 vertex
   write memblock float 1, 952, 0.33
   write memblock float 1, 956, 0.49
   `2 vertex
   write memblock float 1, 960, 0
   write memblock float 1, 964, 0
   `3 vertex
   write memblock float 1, 968, 0.33
   write memblock float 1, 972, 0
   `back
   `4 vertex
   write memblock float 1, 976, 0
   write memblock float 1, 980, 1
   `5 vertex
   write memblock float 1, 984, 0.33
   write memblock float 1, 988, 1
   `6 vertex
   write memblock float 1, 992, 0
   write memblock float 1, 996, 0.51
   `7 vertex
   write memblock float 1, 1000, 0.33
   write memblock float 1, 1004, 0.51
   `left
   `8 vertex
   write memblock float 1, 1008, 0.34
   write memblock float 1, 1012, 0.49
   `9 vertex
   write memblock float 1, 1016, 0.66
   write memblock float 1, 1020, 0.49
   `10 vertex
   write memblock float 1, 1024, 0.34
   write memblock float 1, 1028, 0
   `11 vertex
   write memblock float 1, 1032, 0.66
   write memblock float 1, 1036, 0
   `right
   `12 vertex
   write memblock float 1, 1040, 0.34
   write memblock float 1, 1044, 1
   `13 vertex
   write memblock float 1, 1048, 0.66
   write memblock float 1, 1052, 1
   `14 vertex
   write memblock float 1, 1056, 0.34
   write memblock float 1, 1060, 0.51
   `15 vertex
   write memblock float 1, 1064, 0.66
   write memblock float 1, 1068, 0.51
   `top
   `16 vertex
   write memblock float 1, 1072, 0.67
   write memblock float 1, 1076, 0.49
   `17 vertex
   write memblock float 1, 1080, 1
   write memblock float 1, 1084, 0.49
   `18 vertex
   write memblock float 1, 1088, 0.67
   write memblock float 1, 1092, 0
   `19 vertex
   write memblock float 1, 1096, 1
   write memblock float 1, 1100, 0
   `bottom
   `20 vertex
   write memblock float 1, 1104, 0.67
   write memblock float 1, 1108, 1
   `21 vertex
   write memblock float 1, 1112, 1
   write memblock float 1, 1116, 1
   `22 vertex
   write memblock float 1, 1120, 0.67
   write memblock float 1, 1124, 0.51
   `23 vertex
   write memblock float 1, 1128, 1
   write memblock float 1, 1132, 0.51

   `create mesh then create object, delete mesh and memblock
   make mesh from memblock 1, 1
   make object num, 1, 0
   delete mesh 1
   delete memblock 1

endfunction

The box can be textured with a single image but each face takes a different portion of the image so that each side of the box can be textured differently.

The UV values have been set up so that it "splits" the image into six areas, 2 rows and 3 columns. I'll let you work out which areas texture which side as I can't quite work out how to put an image in this post (I'm kinda new here and am learning how all this works

. Hold on, I'll tell you what, I'll do it as an attachment).

To make the box, four vertices have been used to create each side so that values for the normals and UV coordinates can be assigned to each side

I'm using the term side to mean: front, back, left, right, top and bottom.

I've used fixed values for the normals, rather than calculating them form the vertex data, which is fine for faces that are parallel to the x,y,z axis/plains.

From here, it's a faily simple step to make tapered or skewed boxes (possibly even twisted boxes), at which point calculating the normals would be more preferable.

Once the box has been created it can then treated like any other object.

Attachments

Login to view attachments

Back to top

Profile PM Email

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 15th Jan 2010 22:37 Edited at: 15th Jan 2010 22:44

Link

Hey, pretty good. I was eyeballing your code a bit (I haven't run it yet) and noticed you're hard-coding pretty much everything. If we assume that the center of the box is 0,0,0 upon creation, and we know the width, height, and depth, we could create a loop that assigns the values of the vertices (just talking about the verts for now) that is just a calculation of +- 1/2 of the dimensions.

For example:

+ Code Snippet

   sizex#=w/2.0
   sizey#=h/2.0
   sizez#=l/2.0

   restore _vertdata
   for pos=32 to 32+(24*12)-12 step 12
      read x,y,z
      write memblock float mem,pos,sizex#*x
      write memblock float mem,pos+4,sizey#*y
      write memblock float mem,pos+8,sizez#*z
   next pos

   _vertdata:
   data -1,1,-1, -1,1,1, 1,1,1, 1,1,-1
   data -1,-1,-1, -1,1,-1, 1,1,-1, 1,-1,-1
   data -1,-1,1, -1,-1,-1, 1,-1,-1, 1,-1,1
   data 1,-1,-1, 1,1,-1, 1,1,1, 1,-1,1
   data 1,-1,1, 1,1,1, -1,1,1, -1,-1,1
   data -1,-1,1, -1,1,1, -1,1,-1, -1,-1,-1

This code takes 1/2 the width, height, and depth , looks up the +- relationship of the particular vertex from the data table in relation to the center 0,0,0 , then calculates and assigns each vertex. I don't know what the speed difference is, but the consolidation of the code makes it a little easier to see what's going on at a glance. My vert/face order is probably different than yours so you'd have to assign the proper values to the data statements. Each data line represents 1 face.

I would also recommend using variables for the header position/size definitions that you can later use in the function; though your brute force method is a bit faster than making assignments or using loops. You'll just make the code more adaptable and easier to understand if yourself or someone else picks up where you left off.

Enjoy your day.

Back to top

Profile PM

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 16th Jan 2010 21:17

Link

Thanks for the tip, Latch. I knew there must be a way to make things easier but it never occured to me use data blocks to store all the values in. I'm not really much of a coder so sometimes brute force is all I've got

I've rewritten the code and it works really well and is much easier to play around with all the values.

`this program creates a box from a memblock

sync on
sync rate 60
hide mouse
autocam off
set camera range 1, 3000
cls

`syntax: MAKE_BOX(object number, width, height, length)
MAKE_BOX(1,25,50,75)

`position and point camera
position camera 0,150,-150
point camera 0, 0, 0

`view and rotate the box
do

if rightkey() = 1 then turn object right 1, 2
   if leftkey() = 1 then turn object left 1, 2
   if upkey() = 1 then pitch object up 1, 2
   if downkey() = 1 then pitch object down 1, 2

set cursor 1, 1: print "use arrow keys to rotate the box"

sync

loop

end

`this function constructs the memblock, create a mesh from the
`memblock and creates an object from the mesh.
`the mesh and memblock are then deleted
function MAKE_BOX(num,w,h,l)

`there are six sides to a box
   num_sides = 6

`sets distance to corners of box
   sizex#=w/2.0
   sizey#=h/2.0
   sizez#=l/2.0

`memblock number
   mem = 1
   `header values
   num_verts = num_sides * 4
   pos_verts = 32
   num_norms = num_verts
   pos_norms = num_verts*12 + pos_verts
   num_faces = num_sides*2
   pos_faces = pos_norms + num_norms*12
   size_faces = num_faces*7
   pos_uv = pos_faces + size_faces*4

`calculate size of memblock
   size_mem = 32 + (num_verts + num_norms)*12 + size_faces*4 + num_sides*32

`create the memblock
   make memblock mem, size_mem

`write header values to memblock
   write memblock dword 1, 0, num_verts
   write memblock dword 1, 4, pos_verts
   write memblock dword 1, 8, num_norms
   write memblock dword 1, 12, pos_norms
   write memblock dword 1, 16, num_faces
   write memblock dword 1, 20, pos_faces
   write memblock dword 1, 24, size_faces
   write memblock dword 1, 28, pos_uv

`write vertex data to memblock
   restore _vertdata
   for pos = pos_verts to pos_verts+(num_verts*12)-12 step 12
      read x,y,z
      write memblock float mem, pos, sizex#*x
      write memblock float mem, pos+4, sizey#*y
      write memblock float mem, pos+8, sizez#*z
   next pos

`write normal data to memblock
   restore _normdata
   for pos = pos_norms to pos_norms+(num_norms*12)-12 step 12
      read x,y,z
      write memblock float mem, pos, x
      write memblock float mem, pos+4, y
      write memblock float mem, pos+8, z
   next pos

`write face data to memblock
   restore _facedata
   for pos = pos_faces to pos_faces+(num_faces*28)-28 step 28
      read nvf, va,na, vb, nb, vc,nc
      write memblock dword mem, pos, nvf
      write memblock dword mem, pos+4, va
      write memblock dword mem, pos+8, na
      write memblock dword mem, pos+12, vb
      write memblock dword mem, pos+16, nb
      write memblock dword mem, pos+20, vc
      write memblock dword mem, pos+24, nc
   next pos

`write UV data to memblock
   restore _uvdata
   for pos = pos_uv to pos_uv+(num_sides*32)-32 step 32
      read ua#,va#, ub#,vb#, uc#,vc#, ud#,vd#
      write memblock float mem, pos, ua#
      write memblock float mem, pos+4, va#
      write memblock float mem, pos+8, ub#
      write memblock float mem, pos+12, vb#
      write memblock float mem, pos+16, uc#
      write memblock float mem, pos+20, vc#
      write memblock float mem, pos+24, ud#
      write memblock float mem, pos+28, vd#
   next pos

`create mesh then create object, delete mesh and memblock
   make mesh from memblock 1, 1
   make object num, 1, 0
   delete mesh 1
   delete memblock 1

`data for box
   _vertdata:
   data 1,-1,1,  -1,-1,1,  1,1,1,  -1,1,1       :`front
   data -1,-1,-1,  1,-1,-1,  -1,1,-1,  1,1,-1   :`back
   data -1,-1,1,  -1,-1,-1,  -1,1,1,  -1,1,-1   :`left
   data 1,-1,-1,  1,-1,1,  1,1,-1,  1,1,1       :`right
   data -1,1,-1,  1,1,-1,  -1,1,1,  1,1,1       :`top
   data -1,-1,1,  1,-1,1,  -1,-1,-1,  1,-1,-1   :`bottom

_normdata:
   data 0,0,1,  0,0,1,  0,0,1, 0,0,1         :`front
   data 0,0,-1,  0,0,-1,  0,0,-1,  0,0,-1    :`back
   data -1,0,0,  -1,0,0,  -1,0,0,  -1,0,0    :`left
   data 1,0,0,  1,0,0,  1,0,0,  1,0,0        :`right
   data 0,1,0,  0,1,0,  0,1,0,  0,1,0        :`top
   data 0,-1,0,  0,-1,0,  0,-1,0,  0,-1,0    :`bottom

_facedata:
   data 3,  0,0,  3,3,  1,1          :`front face 0
   data 3,  3,3,  0,0,  2,2          :`front face 1
   data 3,  4,4,  7,7,  5,5          :`back face 2
   data 3,  7,7,  4,4,  6,6          :`back face 3
   data 3,  8,8,  11,11,  9,9        :`left face 4
   data 3,  11,11,  8,8,  10,10      :`left face 5
   data 3,  12,12,  15,15,  13,13    :`right face 6
   data 3,  15,15,  12,12,  14,14    :`right face 7
   data 3,  16,16,  19,19,  17,17    :`top face 8
   data 3,  19,19,  16,16,  18,18    :`top face 9
   data 3,  20,20,  23,23,  21,21    :`bottom face 10
   data 3,  23,23,  20,20,  22,22    :`bottom face 11

_uvdata:
   data 0.00,0.49,  0.33,0.49,  0.00,0.00,  0.33,0.00   :`front
   data 0.00,1.00,  0.33,1.00,  0.00,0.51,  0.33,0.51   :`back
   data 0.34,0.49,  0.66,0.49,  0.34,0.00,  0.66,0.00   :`left
   data 0.34,1.00,  0.66,1.00,  0.34,0.51,  0.66,0.51   :`right
   data 0.67,0.49,  1.00,0.49,  0.67,0.00,  1.00,0.00   :`top
   data 0.67,1.00,  1.00,1.00,  0.67,0.51,  1.00,0.51   :`bottom

endfunction

+ Code Snippet

`this program creates a box from a memblock

sync on
sync rate 60
hide mouse
autocam off
set camera range 1, 3000
cls

`syntax: MAKE_BOX(object number, width, height, length)
MAKE_BOX(1,25,50,75)

`position and point camera
position camera 0,150,-150
point camera 0, 0, 0

`view and rotate the box
do

   if rightkey() = 1 then turn object right 1, 2
   if leftkey() = 1 then turn object left 1, 2
   if upkey() = 1 then pitch object up 1, 2
   if downkey() = 1 then pitch object down 1, 2

   set cursor 1, 1: print "use arrow keys to rotate the box"

   sync

loop

end


`this function constructs the memblock, create a mesh from the
`memblock and creates an object from the mesh.
`the mesh and memblock are then deleted
function MAKE_BOX(num,w,h,l)

   `there are six sides to a box
   num_sides = 6

   `sets distance to corners of box
   sizex#=w/2.0
   sizey#=h/2.0
   sizez#=l/2.0

   `memblock number
   mem = 1
   `header values
   num_verts = num_sides * 4
   pos_verts = 32
   num_norms = num_verts
   pos_norms = num_verts*12 + pos_verts
   num_faces = num_sides*2
   pos_faces = pos_norms + num_norms*12
   size_faces = num_faces*7
   pos_uv = pos_faces + size_faces*4

   `calculate size of memblock
   size_mem = 32 + (num_verts + num_norms)*12 + size_faces*4 + num_sides*32

  `create the memblock
   make memblock mem, size_mem

   `write header values to memblock
   write memblock dword 1, 0, num_verts
   write memblock dword 1, 4, pos_verts
   write memblock dword 1, 8, num_norms
   write memblock dword 1, 12, pos_norms
   write memblock dword 1, 16, num_faces
   write memblock dword 1, 20, pos_faces
   write memblock dword 1, 24, size_faces
   write memblock dword 1, 28, pos_uv

   `write vertex data to memblock
   restore _vertdata
   for pos = pos_verts to pos_verts+(num_verts*12)-12 step 12
      read x,y,z
      write memblock float mem, pos, sizex#*x
      write memblock float mem, pos+4, sizey#*y
      write memblock float mem, pos+8, sizez#*z
   next pos

   `write normal data to memblock
   restore _normdata
   for pos = pos_norms to pos_norms+(num_norms*12)-12 step 12
      read x,y,z
      write memblock float mem, pos, x
      write memblock float mem, pos+4, y
      write memblock float mem, pos+8, z
   next pos

   `write face data to memblock
   restore _facedata
   for pos = pos_faces to pos_faces+(num_faces*28)-28 step 28
      read nvf, va,na, vb, nb, vc,nc
      write memblock dword mem, pos, nvf
      write memblock dword mem, pos+4, va
      write memblock dword mem, pos+8, na
      write memblock dword mem, pos+12, vb
      write memblock dword mem, pos+16, nb
      write memblock dword mem, pos+20, vc
      write memblock dword mem, pos+24, nc
   next pos

   `write UV data to memblock
   restore _uvdata
   for pos = pos_uv to pos_uv+(num_sides*32)-32 step 32
      read ua#,va#, ub#,vb#, uc#,vc#, ud#,vd#
      write memblock float mem, pos, ua#
      write memblock float mem, pos+4, va#
      write memblock float mem, pos+8, ub#
      write memblock float mem, pos+12, vb#
      write memblock float mem, pos+16, uc#
      write memblock float mem, pos+20, vc#
      write memblock float mem, pos+24, ud#
      write memblock float mem, pos+28, vd#
   next pos

   `create mesh then create object, delete mesh and memblock
   make mesh from memblock 1, 1
   make object num, 1, 0
   delete mesh 1
   delete memblock 1

   `data for box
   _vertdata:
   data 1,-1,1,  -1,-1,1,  1,1,1,  -1,1,1       :`front
   data -1,-1,-1,  1,-1,-1,  -1,1,-1,  1,1,-1   :`back
   data -1,-1,1,  -1,-1,-1,  -1,1,1,  -1,1,-1   :`left
   data 1,-1,-1,  1,-1,1,  1,1,-1,  1,1,1       :`right
   data -1,1,-1,  1,1,-1,  -1,1,1,  1,1,1       :`top
   data -1,-1,1,  1,-1,1,  -1,-1,-1,  1,-1,-1   :`bottom

   _normdata:
   data 0,0,1,  0,0,1,  0,0,1, 0,0,1         :`front
   data 0,0,-1,  0,0,-1,  0,0,-1,  0,0,-1    :`back
   data -1,0,0,  -1,0,0,  -1,0,0,  -1,0,0    :`left
   data 1,0,0,  1,0,0,  1,0,0,  1,0,0        :`right
   data 0,1,0,  0,1,0,  0,1,0,  0,1,0        :`top
   data 0,-1,0,  0,-1,0,  0,-1,0,  0,-1,0    :`bottom

   _facedata:
   data 3,  0,0,  3,3,  1,1          :`front face 0
   data 3,  3,3,  0,0,  2,2          :`front face 1
   data 3,  4,4,  7,7,  5,5          :`back face 2
   data 3,  7,7,  4,4,  6,6          :`back face 3
   data 3,  8,8,  11,11,  9,9        :`left face 4
   data 3,  11,11,  8,8,  10,10      :`left face 5
   data 3,  12,12,  15,15,  13,13    :`right face 6
   data 3,  15,15,  12,12,  14,14    :`right face 7
   data 3,  16,16,  19,19,  17,17    :`top face 8
   data 3,  19,19,  16,16,  18,18    :`top face 9
   data 3,  20,20,  23,23,  21,21    :`bottom face 10
   data 3,  23,23,  20,20,  22,22    :`bottom face 11

   _uvdata:
   data 0.00,0.49,  0.33,0.49,  0.00,0.00,  0.33,0.00   :`front
   data 0.00,1.00,  0.33,1.00,  0.00,0.51,  0.33,0.51   :`back
   data 0.34,0.49,  0.66,0.49,  0.34,0.00,  0.66,0.00   :`left
   data 0.34,1.00,  0.66,1.00,  0.34,0.51,  0.66,0.51   :`right
   data 0.67,0.49,  1.00,0.49,  0.67,0.00,  1.00,0.00   :`top
   data 0.67,1.00,  1.00,1.00,  0.67,0.51,  1.00,0.51   :`bottom

endfunction

It's been interesting getting to grips with memblocks and meshes. I'm quite a fan of maths collision and being able to make shapes in DBC makes this easier. Hopfully I'll be able to do some more interesting stuff now.

Back to top

Profile PM Email

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 17th Jan 2010 20:01

Link

Good stuff 29,
Have you entered the DBC challenges before?

"With games, we create these elaborate worlds in our minds, and the computer is there to do the bookkeeping." - Will Wright

Back to top

Profile PM Email

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 17th Jan 2010 23:14

Link

No I haven't entered any of the DBC challenges. I'm not that good with deadlines when it comes to programing (or any of my other hobbies come to think of it).

I might have a go at the current one, it sort of fits with what I'm playing around with at the moment.

Back to top

Profile PM Email

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 6th May 2010 22:13

Link

I've been playing around with memblocks and meshes again and have come up with these.

The code uses a combination of making meshes from memblock and then simply adding limbs to make the final model.

Car

`this program makes a object
`by 29 games
`06 May 2010

sync on
sync rate 60
hide mouse
autocam off
set camera range 1, 3000
cls

gosub STARTING_VARIABLES:

`syntax: MAKE_OBJECT_CAR(object number, size)
MAKE_OBJECT_CAR(1,10)

`+++++ MAIN LOOP +++++++
do

gosub CONTROLS
   gosub POSITION_CAMERA
   gosub PRINT_STUFF

sync

loop

end

`+++++ SUB ROUTINES +++++++

STARTING_VARIABLES:

zoom = -30
   theta = 150
   alpha = 30

return

CONTROLS:

theta = wrapvalue(theta + mousemovex())
   alpha = wrapvalue(alpha + mousemovey())

if mouseclick() = 1 then zoom = zoom + 3
   if mouseclick() = 2 then zoom = zoom - 3

if zoom > -10 then zoom = -10

if spacekey() = 1 then gosub STARTING_VARIABLES

return

POSITION_CAMERA:

position camera 0,0,0

yrotate camera theta
   xrotate camera alpha
   move camera zoom

return

PRINT_STUFF:

set cursor 0,0
   print "Move mouse to view object. LMB to zoom in. RMB to zoom out. Spacebar to reset view."

return

`+++++ FUNCTIONS +++++++

function MAKE_OBJECT_CAR(num,size)

dim p#(8,24)

num_mesh = 3

`write car body vertex data to array
   i = 1
   for j = i to 24
      read p#(i,j)
      p#(i,j) = p#(i,j)*size
   next j

`create mesh for car body
   MAKE_MESH_8_POINTS(i, p#(i,1),p#(i,2),p#(i,3), p#(i,4),p#(i,5),p#(i,6), p#(i,7),p#(i,8),p#(i,9), p#(i,10),p#(i,11),p#(i,12), p#(i,13),p#(i,14),p#(i,15), p#(i,16),p#(i,17),p#(i,18), p#(i,19),p#(i,20),p#(i,21), p#(i,22),p#(i,23),p#(i,24))

`make meshes for wheels
   MAKE_CYLINDER_MESH(2,size*0.25)    :`front
   MAKE_CYLINDER_MESH(3,size*0.3)     :`rear

`create object and add limbs
   make object num,1,0
   add limb num,1,2
   add limb num,2,2
   add limb num,3,3
   add limb num,4,3

`delete meshes
   for i = 1 to num_mesh
      delete mesh i
   next i

`rotate wheels to correct orientation
   for i = 1 to 4
      rotate limb num,i, 0,0,90
   next i

`size and position wheels
   scale limb num,1,100,100,100
   offset limb num,1, 0.2*size,0.125*size,0.4*size
   scale limb num,2,100,100,100
   offset limb num,2, -0.2*size,0.125*size,0.4*size
   scale limb num,3,120,100,120
   offset limb num,3, 0.25*size,0.15*size,-0.4*size
   scale limb num,4,120,100,120
   offset limb num,4, -0.25*size,0.15*size,-0.4*size

`colour object
   color object num,rgb(250,250,0)
   set object ambient num,rgb(100,100,150)
   set object specular num,rgb(100,100,100),1000

`colour wheels
   for i = 1 to 4
      color limb num, i, rgb(70,70,70)
   next i

`data
   _part_data:
   data 0.20,0.15,0.25,  -0.20,0.15,0.25,  0.05,0.3,0.40,  -0.05,0.3,0.40,  0.30,0.18,-0.25,  -0.30,0.18,-0.25,  0.15,0.50,-0.6,  -0.15,0.50,-0.6

endfunction

function MAKE_MESH_8_POINTS(num, ax#,ay#,az#, bx#,by#,bz#, cx#,cy#,cz#, dx#,dy#,dz#, ex#,ey#,ez#, fx#,fy#,fz#, gx#,gy#,gz#, hx#,hy#,hz#)

`a = front right bottom, b = front left bottom, c = front right top, d = front left top
   `e = back right bottom, f = back left bottom, g = back right top, h = back left top

`there are six sides to a box
   num_sides = 6

`memblock number
   mem = 1
   `header values
   num_verts = num_sides * 4
   pos_verts = 32
   num_norms = num_verts
   pos_norms = num_verts*12 + pos_verts
   num_faces = num_sides*2
   pos_faces = pos_norms + num_norms*12
   size_faces = num_faces*7
   pos_uv = pos_faces + size_faces*4

`calculate size of memblock
   size_mem = 32 + (num_verts + num_norms)*12 + size_faces*4 + num_sides*32

`create the memblock
   make memblock mem, size_mem

`write header values to memblock
   write memblock dword mem, 0, num_verts
   write memblock dword mem, 4, pos_verts
   write memblock dword mem, 8, num_norms
   write memblock dword mem, 12, pos_norms
   write memblock dword mem, 16, num_faces
   write memblock dword mem, 20, pos_faces
   write memblock dword mem, 24, size_faces
   write memblock dword mem, 28, pos_uv

`write vertext data to memblock
   `front face
   write memblock float mem, 32,  ax# : write memblock float mem, 36,  ay# : write memblock float mem, 40,  az#  :   `0 vertex
   write memblock float mem, 44,  bx# : write memblock float mem, 48,  by# : write memblock float mem, 52,  bz#  :   `1 vertex
   write memblock float mem, 56,  cx# : write memblock float mem, 60,  cy# : write memblock float mem, 64,  cz#  :   `2 vertex
   write memblock float mem, 68,  dx# : write memblock float mem, 72,  dy# : write memblock float mem, 76,  dz#  :   `3 vertex
   `back face
   write memblock float mem, 80,  fx# : write memblock float mem, 84,  fy# : write memblock float mem, 88,  fz#  :   `4 vertex
   write memblock float mem, 92,  ex# : write memblock float mem, 96,  ey# : write memblock float mem, 100, ez#  :   `5 vertex
   write memblock float mem, 104, hx# : write memblock float mem, 108, hy# : write memblock float mem, 112, hz#  :   `6 vertex
   write memblock float mem, 116, gx# : write memblock float mem, 120, gy# : write memblock float mem, 124, gz#  :   `7 vertex
   `left face
   write memblock float mem, 128, bx# : write memblock float mem, 132, by# : write memblock float mem, 136, bz#  :   `8 vertex
   write memblock float mem, 140, fx# : write memblock float mem, 144, fy# : write memblock float mem, 148, fz#  :   `9 vertex
   write memblock float mem, 152, dx# : write memblock float mem, 156, dy# : write memblock float mem, 160, dz#  :   `10 vertex
   write memblock float mem, 164, hx# : write memblock float mem, 168, hy# : write memblock float mem, 172, hz#  :   `11 vertex
   `right face
   write memblock float mem, 176, ex# : write memblock float mem, 180, ey# : write memblock float mem, 184, ez#  :   `12 vertex
   write memblock float mem, 188, ax# : write memblock float mem, 192, ay# : write memblock float mem, 196, az#  :   `13 vertex
   write memblock float mem, 200, gx# : write memblock float mem, 204, gy# : write memblock float mem, 208, gz#  :   `14 vertex
   write memblock float mem, 212, cx# : write memblock float mem, 216, cy# : write memblock float mem, 220, cz#  :   `15 vertex
   `top face
   write memblock float mem, 224, hx# : write memblock float mem, 228, hy# : write memblock float mem, 232, hz#  :   `16 vertex
   write memblock float mem, 236, gx# : write memblock float mem, 240, gy# : write memblock float mem, 244, gz#  :   `17 vertex
   write memblock float mem, 248, dx# : write memblock float mem, 252, dy# : write memblock float mem, 256, dz#  :   `18 vertex
   write memblock float mem, 260, cx# : write memblock float mem, 264, cy# : write memblock float mem, 268, cz#  :   `19 vertex
   `bottom face
   write memblock float mem, 272, bx# : write memblock float mem, 276, by# : write memblock float mem, 280, bz#  :   `20 vertex
   write memblock float mem, 284, ax# : write memblock float mem, 288, ay# : write memblock float mem, 292, az#  :   `21 vertex
   write memblock float mem, 296, fx# : write memblock float mem, 300, fy# : write memblock float mem, 304, fz#  :   `22 vertex
   write memblock float mem, 308, ex# : write memblock float mem, 312, ey# : write memblock float mem, 316, ez#  :   `23 vertex

`write normal data to memblock
   restore _normdata
   for pos = pos_norms to pos_norms+(num_norms*12)-12 step 12
      read x,y,z
      write memblock float mem, pos, x
      write memblock float mem, pos+4, y
      write memblock float mem, pos+8, z
   next pos

`write face data to memblock
   restore _facedata
   for pos = pos_faces to pos_faces+(num_faces*28)-28 step 28
      read nvf, va,na, vb, nb, vc,nc
      write memblock dword mem, pos, nvf
      write memblock dword mem, pos+4, va
      write memblock dword mem, pos+8, na
      write memblock dword mem, pos+12, vb
      write memblock dword mem, pos+16, nb
      write memblock dword mem, pos+20, vc
      write memblock dword mem, pos+24, nc
   next pos

`write UV data to memblock
   restore _uvdata
   for pos = pos_uv to pos_uv+(num_sides*32)-32 step 32
      read ua#,va#, ub#,vb#, uc#,vc#, ud#,vd#
      write memblock float mem, pos, ua#
      write memblock float mem, pos+4, va#
      write memblock float mem, pos+8, ub#
      write memblock float mem, pos+12, vb#
      write memblock float mem, pos+16, uc#
      write memblock float mem, pos+20, vc#
      write memblock float mem, pos+24, ud#
      write memblock float mem, pos+28, vd#
   next pos

`create mesh then create object, delete mesh and memblock
   make mesh from memblock num, mem
   delete memblock 1

_normdata:
   data 0,0,1,  0,0,1,  0,0,1, 0,0,1         :`front
   data 0,0,-1,  0,0,-1,  0,0,-1,  0,0,-1    :`back
   data -1,0,0,  -1,0,0,  -1,0,0,  -1,0,0    :`left
   data 1,0,0,  1,0,0,  1,0,0,  1,0,0        :`right
   data 0,1,0,  0,1,0,  0,1,0,  0,1,0        :`top
   data 0,-1,0,  0,-1,0,  0,-1,0,  0,-1,0    :`bottom

_facedata:
   data 3,  0,0,  3,3,  1,1          :`front face 0
   data 3,  3,3,  0,0,  2,2          :`front face 1
   data 3,  4,4,  7,7,  5,5          :`back face 2
   data 3,  7,7,  4,4,  6,6          :`back face 3
   data 3,  8,8,  11,11,  9,9        :`left face 4
   data 3,  11,11,  8,8,  10,10      :`left face 5
   data 3,  12,12,  15,15,  13,13    :`right face 6
   data 3,  15,15,  12,12,  14,14    :`right face 7
   data 3,  16,16,  19,19,  17,17    :`top face 8
   data 3,  19,19,  16,16,  18,18    :`top face 9
   data 3,  20,20,  23,23,  21,21    :`bottom face 10
   data 3,  23,23,  20,20,  22,22    :`bottom face 11

_uvdata:
   data 0.03,0.47,  0.30,0.47,  0.03,0.03,  0.30,0.03   :`front
   data 0.03,0.97,  0.30,0.97,  0.03,0.53,  0.30,0.53   :`back
   data 0.36,0.47,  0.63,0.47,  0.36,0.03,  0.63,0.03   :`left
   data 0.36,0.97,  0.63,0.97,  0.36,0.53,  0.63,0.53   :`right
   data 0.69,0.47,  0.97,0.47,  0.69,0.03,  0.97,0.03   :`top
   data 0.69,0.97,  0.97,0.97,  0.69,0.53,  0.97,0.53   :`bottom

endfunction

function MAKE_CYLINDER_MESH(num,size#)

make object cylinder 255,size#
   make mesh from object num, 255
   delete object 255

endfunction

+ Code Snippet

`this program makes a object
`by 29 games
`06 May 2010


sync on
sync rate 60
hide mouse
autocam off
set camera range 1, 3000
cls

gosub STARTING_VARIABLES:

`syntax: MAKE_OBJECT_CAR(object number, size)
MAKE_OBJECT_CAR(1,10)


`+++++ MAIN LOOP +++++++
do

   gosub CONTROLS
   gosub POSITION_CAMERA
   gosub PRINT_STUFF

   sync

loop

end

`+++++ SUB ROUTINES +++++++

STARTING_VARIABLES:

   zoom = -30
   theta = 150
   alpha = 30

return


CONTROLS:

   theta = wrapvalue(theta + mousemovex())
   alpha = wrapvalue(alpha + mousemovey())

   if mouseclick() = 1 then zoom = zoom + 3
   if mouseclick() = 2 then zoom = zoom - 3

   if zoom > -10 then zoom = -10

   if spacekey() = 1 then gosub STARTING_VARIABLES

return


POSITION_CAMERA:

   position camera 0,0,0

   yrotate camera theta
   xrotate camera alpha
   move camera zoom

return


PRINT_STUFF:

   set cursor 0,0
   print "Move mouse to view object. LMB to zoom in. RMB to zoom out. Spacebar to reset view."

return


`+++++ FUNCTIONS +++++++

function MAKE_OBJECT_CAR(num,size)

   dim p#(8,24)

   num_mesh = 3

   `write car body vertex data to array
   i = 1
   for j = i to 24
      read p#(i,j)
      p#(i,j) = p#(i,j)*size
   next j

   `create mesh for car body
   MAKE_MESH_8_POINTS(i, p#(i,1),p#(i,2),p#(i,3), p#(i,4),p#(i,5),p#(i,6), p#(i,7),p#(i,8),p#(i,9), p#(i,10),p#(i,11),p#(i,12), p#(i,13),p#(i,14),p#(i,15), p#(i,16),p#(i,17),p#(i,18), p#(i,19),p#(i,20),p#(i,21), p#(i,22),p#(i,23),p#(i,24))

   `make meshes for wheels
   MAKE_CYLINDER_MESH(2,size*0.25)    :`front
   MAKE_CYLINDER_MESH(3,size*0.3)     :`rear

   `create object and add limbs
   make object num,1,0
   add limb num,1,2
   add limb num,2,2
   add limb num,3,3
   add limb num,4,3

   `delete meshes
   for i = 1 to num_mesh
      delete mesh i
   next i

   `rotate wheels to correct orientation
   for i = 1 to 4
      rotate limb num,i, 0,0,90
   next i

   `size and position wheels
   scale limb num,1,100,100,100
   offset limb num,1, 0.2*size,0.125*size,0.4*size
   scale limb num,2,100,100,100
   offset limb num,2, -0.2*size,0.125*size,0.4*size
   scale limb num,3,120,100,120
   offset limb num,3, 0.25*size,0.15*size,-0.4*size
   scale limb num,4,120,100,120
   offset limb num,4, -0.25*size,0.15*size,-0.4*size

   `colour object
   color object num,rgb(250,250,0)
   set object ambient num,rgb(100,100,150)
   set object specular num,rgb(100,100,100),1000

   `colour wheels
   for i = 1 to 4
      color limb num, i, rgb(70,70,70)
   next i

   `data
   _part_data:
   data 0.20,0.15,0.25,  -0.20,0.15,0.25,  0.05,0.3,0.40,  -0.05,0.3,0.40,  0.30,0.18,-0.25,  -0.30,0.18,-0.25,  0.15,0.50,-0.6,  -0.15,0.50,-0.6

endfunction


function MAKE_MESH_8_POINTS(num, ax#,ay#,az#, bx#,by#,bz#, cx#,cy#,cz#, dx#,dy#,dz#, ex#,ey#,ez#, fx#,fy#,fz#, gx#,gy#,gz#, hx#,hy#,hz#)

   `a = front right bottom, b = front left bottom, c = front right top, d = front left top
   `e = back right bottom, f = back left bottom, g = back right top, h = back left top

   `there are six sides to a box
   num_sides = 6

   `memblock number
   mem = 1
   `header values
   num_verts = num_sides * 4
   pos_verts = 32
   num_norms = num_verts
   pos_norms = num_verts*12 + pos_verts
   num_faces = num_sides*2
   pos_faces = pos_norms + num_norms*12
   size_faces = num_faces*7
   pos_uv = pos_faces + size_faces*4

   `calculate size of memblock
   size_mem = 32 + (num_verts + num_norms)*12 + size_faces*4 + num_sides*32

  `create the memblock
   make memblock mem, size_mem

   `write header values to memblock
   write memblock dword mem, 0, num_verts
   write memblock dword mem, 4, pos_verts
   write memblock dword mem, 8, num_norms
   write memblock dword mem, 12, pos_norms
   write memblock dword mem, 16, num_faces
   write memblock dword mem, 20, pos_faces
   write memblock dword mem, 24, size_faces
   write memblock dword mem, 28, pos_uv

   `write vertext data to memblock
   `front face
   write memblock float mem, 32,  ax# : write memblock float mem, 36,  ay# : write memblock float mem, 40,  az#  :   `0 vertex
   write memblock float mem, 44,  bx# : write memblock float mem, 48,  by# : write memblock float mem, 52,  bz#  :   `1 vertex
   write memblock float mem, 56,  cx# : write memblock float mem, 60,  cy# : write memblock float mem, 64,  cz#  :   `2 vertex
   write memblock float mem, 68,  dx# : write memblock float mem, 72,  dy# : write memblock float mem, 76,  dz#  :   `3 vertex
   `back face
   write memblock float mem, 80,  fx# : write memblock float mem, 84,  fy# : write memblock float mem, 88,  fz#  :   `4 vertex
   write memblock float mem, 92,  ex# : write memblock float mem, 96,  ey# : write memblock float mem, 100, ez#  :   `5 vertex
   write memblock float mem, 104, hx# : write memblock float mem, 108, hy# : write memblock float mem, 112, hz#  :   `6 vertex
   write memblock float mem, 116, gx# : write memblock float mem, 120, gy# : write memblock float mem, 124, gz#  :   `7 vertex
   `left face
   write memblock float mem, 128, bx# : write memblock float mem, 132, by# : write memblock float mem, 136, bz#  :   `8 vertex
   write memblock float mem, 140, fx# : write memblock float mem, 144, fy# : write memblock float mem, 148, fz#  :   `9 vertex
   write memblock float mem, 152, dx# : write memblock float mem, 156, dy# : write memblock float mem, 160, dz#  :   `10 vertex
   write memblock float mem, 164, hx# : write memblock float mem, 168, hy# : write memblock float mem, 172, hz#  :   `11 vertex
   `right face
   write memblock float mem, 176, ex# : write memblock float mem, 180, ey# : write memblock float mem, 184, ez#  :   `12 vertex
   write memblock float mem, 188, ax# : write memblock float mem, 192, ay# : write memblock float mem, 196, az#  :   `13 vertex
   write memblock float mem, 200, gx# : write memblock float mem, 204, gy# : write memblock float mem, 208, gz#  :   `14 vertex
   write memblock float mem, 212, cx# : write memblock float mem, 216, cy# : write memblock float mem, 220, cz#  :   `15 vertex
   `top face
   write memblock float mem, 224, hx# : write memblock float mem, 228, hy# : write memblock float mem, 232, hz#  :   `16 vertex
   write memblock float mem, 236, gx# : write memblock float mem, 240, gy# : write memblock float mem, 244, gz#  :   `17 vertex
   write memblock float mem, 248, dx# : write memblock float mem, 252, dy# : write memblock float mem, 256, dz#  :   `18 vertex
   write memblock float mem, 260, cx# : write memblock float mem, 264, cy# : write memblock float mem, 268, cz#  :   `19 vertex
   `bottom face
   write memblock float mem, 272, bx# : write memblock float mem, 276, by# : write memblock float mem, 280, bz#  :   `20 vertex
   write memblock float mem, 284, ax# : write memblock float mem, 288, ay# : write memblock float mem, 292, az#  :   `21 vertex
   write memblock float mem, 296, fx# : write memblock float mem, 300, fy# : write memblock float mem, 304, fz#  :   `22 vertex
   write memblock float mem, 308, ex# : write memblock float mem, 312, ey# : write memblock float mem, 316, ez#  :   `23 vertex

   `write normal data to memblock
   restore _normdata
   for pos = pos_norms to pos_norms+(num_norms*12)-12 step 12
      read x,y,z
      write memblock float mem, pos, x
      write memblock float mem, pos+4, y
      write memblock float mem, pos+8, z
   next pos

   `write face data to memblock
   restore _facedata
   for pos = pos_faces to pos_faces+(num_faces*28)-28 step 28
      read nvf, va,na, vb, nb, vc,nc
      write memblock dword mem, pos, nvf
      write memblock dword mem, pos+4, va
      write memblock dword mem, pos+8, na
      write memblock dword mem, pos+12, vb
      write memblock dword mem, pos+16, nb
      write memblock dword mem, pos+20, vc
      write memblock dword mem, pos+24, nc
   next pos

   `write UV data to memblock
   restore _uvdata
   for pos = pos_uv to pos_uv+(num_sides*32)-32 step 32
      read ua#,va#, ub#,vb#, uc#,vc#, ud#,vd#
      write memblock float mem, pos, ua#
      write memblock float mem, pos+4, va#
      write memblock float mem, pos+8, ub#
      write memblock float mem, pos+12, vb#
      write memblock float mem, pos+16, uc#
      write memblock float mem, pos+20, vc#
      write memblock float mem, pos+24, ud#
      write memblock float mem, pos+28, vd#
   next pos

   `create mesh then create object, delete mesh and memblock
   make mesh from memblock num, mem
   delete memblock 1

   _normdata:
   data 0,0,1,  0,0,1,  0,0,1, 0,0,1         :`front
   data 0,0,-1,  0,0,-1,  0,0,-1,  0,0,-1    :`back
   data -1,0,0,  -1,0,0,  -1,0,0,  -1,0,0    :`left
   data 1,0,0,  1,0,0,  1,0,0,  1,0,0        :`right
   data 0,1,0,  0,1,0,  0,1,0,  0,1,0        :`top
   data 0,-1,0,  0,-1,0,  0,-1,0,  0,-1,0    :`bottom

   _facedata:
   data 3,  0,0,  3,3,  1,1          :`front face 0
   data 3,  3,3,  0,0,  2,2          :`front face 1
   data 3,  4,4,  7,7,  5,5          :`back face 2
   data 3,  7,7,  4,4,  6,6          :`back face 3
   data 3,  8,8,  11,11,  9,9        :`left face 4
   data 3,  11,11,  8,8,  10,10      :`left face 5
   data 3,  12,12,  15,15,  13,13    :`right face 6
   data 3,  15,15,  12,12,  14,14    :`right face 7
   data 3,  16,16,  19,19,  17,17    :`top face 8
   data 3,  19,19,  16,16,  18,18    :`top face 9
   data 3,  20,20,  23,23,  21,21    :`bottom face 10
   data 3,  23,23,  20,20,  22,22    :`bottom face 11

   _uvdata:
   data 0.03,0.47,  0.30,0.47,  0.03,0.03,  0.30,0.03   :`front
   data 0.03,0.97,  0.30,0.97,  0.03,0.53,  0.30,0.53   :`back
   data 0.36,0.47,  0.63,0.47,  0.36,0.03,  0.63,0.03   :`left
   data 0.36,0.97,  0.63,0.97,  0.36,0.53,  0.63,0.53   :`right
   data 0.69,0.47,  0.97,0.47,  0.69,0.03,  0.97,0.03   :`top
   data 0.69,0.97,  0.97,0.97,  0.69,0.53,  0.97,0.53   :`bottom


endfunction


function MAKE_CYLINDER_MESH(num,size#)

   make object cylinder 255,size#
   make mesh from object num, 255
   delete object 255

endfunction

Aeroplane / spaceship

`this program makes a flying vehicle object
`by 29 games
`06 May 2010

sync on
sync rate 60
hide mouse
autocam off
set camera range 1, 3000
cls

gosub STARTING_VARIABLES

`syntax: MAKE_OBJECT_FLYER(object number, size)
MAKE_OBJECT_FLYER(1,10)

`+++++ MAIN LOOP +++++++
do

gosub CONTROLS
   gosub POSITION_CAMERA
   gosub PRINT_STUFF

sync

loop

end

`+++++ SUB ROUTINES +++++++

STARTING_VARIABLES:

zoom = -30
   theta = 160
   alpha = 50

return

CONTROLS:

theta = wrapvalue(theta + mousemovex())
   alpha = wrapvalue(alpha + mousemovey())

if mouseclick() = 1 then zoom = zoom + 3
   if mouseclick() = 2 then zoom = zoom - 3

if zoom > -10 then zoom = -10

if spacekey() = 1 then gosub STARTING_VARIABLES

return

POSITION_CAMERA:

position camera 0,0,0

yrotate camera theta
   xrotate camera alpha
   move camera zoom

return

PRINT_STUFF:

set cursor 0,0
   print "Move mouse to view object. LMB to zoom in. RMB to zoom out. Spacebar to reset view."

return

`+++++++ FUNCTIONS ++++++++++

function MAKE_OBJECT_FLYER(num,size)

dim p#(8,24)

num_mesh = 2

`write figure vertex data to array
   restore _part_data
   for i = 1 to num_mesh
      for j = 1 to 24
         read p#(i,j)
         p#(i,j) = p#(i,j)*size
      next j
   next i

`create meshes for body parts
   for i = 1 to num_mesh
      MAKE_MESH_8_POINTS(i, p#(i,1),p#(i,2),p#(i,3), p#(i,4),p#(i,5),p#(i,6), p#(i,7),p#(i,8),p#(i,9), p#(i,10),p#(i,11),p#(i,12), p#(i,13),p#(i,14),p#(i,15), p#(i,16),p#(i,17),p#(i,18), p#(i,19),p#(i,20),p#(i,21), p#(i,22),p#(i,23),p#(i,24))
   next i

`create object and add limbs
   make object num,1,0
   add limb num,1,2
   add limb num,2,2

`delete meshes
   for i = 1 to num_mesh
      delete mesh i
   next i

`add limbs
   offset limb num,1, 0.2*size,0*size,-0.7*size
   rotate limb num,1, 0,0,330
   offset limb num,2, -0.2*size,0*size,-0.7*size
   rotate limb num,2, 0,0,210

`colour object
   color object 1,rgb(200,100,200)
   set object ambient 1,rgb(100,100,150)
   set object specular 1,rgb(100,100,100),1000

`data
   _part_data:
   `vertex data fusilarge
   data 0.2,0.0,0.8,  0.0,-0.1,1.0,  0.0,0.1,0.6,  -0.2,0.0,0.8,  0.2,0.0,-1.0,  0.0,-0.1,-0.8,  0.0,0.1,-0.8,  -0.2,0.0,-1.0
   `vertex data wings
   data 1.0,-0.01,0.4,  0.0,-0.08,0.2,  1.0,0.01,0.4,  0.0,0.08,0.2,  1.0,-0.01,-0.0,  0.0,-0.08,-0.5,  1.0,0.01,-0.0,  0.0,0.08,-0.5