anyone know why this texture wont show?

Author

Message

El Goorf

19

Years of Service

User Offline

Joined: 17th Sep 2006

Location: Uni: Manchester, Home: Dunstable

Posted: 3rd Oct 2009 16:38

Link

Hi, firsly i apologize for the state of the code, its as tidy as i could get it. It's been 18 months since I last used DBP so im feeling very rusty atm so forgive me if i've made a noob error

The problem I'm having is I've created an object, placed all the vertices and indices, and entered the UV data, but the texture wont show. I'm guessing its either something i've missed in loading the texture or somewhere i've messed up in the UV data. can anyone see where? cheers

//FutureCop LAPD Remake
//Level Editor
//Hussein Duvigneau
//2nd Oct 2009
#constant FVF_XYZ = 0x002 `2 untransformed vertex - discludes FVF_XYZRHW
#constant FVF_XYZRHW = 0x004 `4 tranformed vertex - discludes FVFXYZ and FVF_NORMAL
#constant FVF_XYZB1 = 0x006 `6 position data and weighting values for vertex blending matrix calcs
#constant FVF_XYZB2 = 0x008 `8
#constant FVF_XYZB3 = 0x00a `10
#constant FVF_XYZB4 = 0x00c `12
#constant FVF_XYZB5 = 0x00e `338
#constant FVF_NORMAL = 0x010 `16 vertex normal
#constant FVF_PSIZE = 0x020 `32 vertex point size
#constant FVF_DIFFUSE = 0x040 `64 vertex diffuse color
#constant FVF_SPECULAR = 0x080 `128 vertex specular color
#constant FVF_TEX0 = 0x000 `338 Number of texture coordinate sets for vertex, 1 - 8
#constant FVF_TEX1 = 0x100 `256
#constant FVF_TEX2 = 0x200 `512
#constant FVF_TEX3 = 0x300 `768
#constant FVF_TEX4 = 0x400 `1024
#constant FVF_TEX5 = 0x500 `1280
#constant FVF_TEX6 = 0x600 `1536
#constant FVF_TEX7 = 0x700 `1792
#constant FVF_TEX8 = 0x800 `2048

FloorTileID = loadtexture("Floortile.jpg")

global debug=0

set display mode 1366,768,32
sync on
autocam off
position camera -20,50,-20

WorldObjID=MakeMap(9,9)
scale object WorldObjID,1000,1000,1000
//Set Object Wireframe WorldObjID,1
texture object WorldObjID,0,floortileID

PointCamToObj(WorldObjID)

do
    text 10,10,str$(timer()/100)
    
    move camera (upkey()-downkey())
    move camera left leftkey()-rightkey()
    position camera camera position x(),50,camera position z()
    sync
loop

Function MakeMap(w,h)
    obj = find free object()
    verts = (w+1)*(h+1)*5
    inds = ((w*h*10)+w*6+h*6+4)*3
    vpr = 5*(1+w)//verts per row
    
    make object new obj,verts,inds,FVF_XYZ||FVF_NORMAL||FVF_DIFFUSE||FVF_SPECULAR||FVF_TEX2
    
    lock vertexdata for limb obj,0
    v = 0
    i = 0
    for vz = 0 to h-1
        for vx = 0 to w-1
            if debug = 1 then message "make TL"
            set vertexdata position v,   vx+0,    0, vz+0     //a
            set vertexdata position v+1, vx+0.1,  0, vz+0     //b
            set vertexdata position v+2, vx+0.05, 0, vz+0.05  //c
            set vertexdata position v+3, vx+0,    0, vz+0.1   //d
            set vertexdata position v+4, vx+0.1,  0, vz+0.1   //e
            
            set vertexdata uv v+0,0,vx+0,vz+0
            set vertexdata uv v+1,0,vx+0.1,vz+0
            set vertexdata uv v+2,0,vx+0.05,vz+0.05
            set vertexdata uv v+3,0,vx+0,vz+0.1
            set vertexdata uv v+4,0,vx+0.1,vz+0.1
            
            set indexdata i,v+1 //abc
            set indexdata i+1,v+0
            set indexdata i+2,v+2
            
            set indexdata i+3,v+1 //bce
            set indexdata i+4,v+2
            set indexdata i+5,v+4
            
            set indexdata i+6,v+2 //cde
            set indexdata i+7,v+3
            set indexdata i+8,v+4
            
            set indexdata i+9,v+2  //acd
            set indexdata i+10,v+0
            set indexdata i+11,v+3
            
            inc i,12
            
            if debug = 1 then message "..and midpoint" : sync
            set indexdata i,v+8 //eBi or edb*  *of adjacent
            set indexdata i+1,v+4
            set indexdata i+2,v+1+vpr
                
            set indexdata i+4,v+8 //bdh or iBj*  *of adjacent
            set indexdata i+3,v+5+vpr
            set indexdata i+5,v+1+vpr
            
            inc i,6
            
            if vx<w
                if debug = 1 then message "TL to TR"
                //gap between TL and TR
                set indexdata i,  v+1 //bef
                set indexdata i+1,v+4
                set indexdata i+2,v+5
                
                set indexdata i+3,v+4  //efB
                set indexdata i+4,v+8
                set indexdata i+5,v+5
                inc i,6
            endif
            
            if vz<h
                if debug = 1 then message "TL to BL"
                inc pies
                set indexdata i,v+3 //hid
                set indexdata i+1,v+vpr
                set indexdata i+2,v+1+vpr
                
                set indexdata i+3,v+4 //die
                set indexdata i+4,v+3
                set indexdata i+5,v+1+vpr
                inc i,6
            endif
            
            inc v,5
            
            if vx = w-1 //and vz < h-1
                if debug = 1 then message "vx=w-1, make TR"
                set vertexdata position v,   vx+0.9,  0, vz+0     //f
                set vertexdata position v+1, vx+1,    0, vz+0     //g
                set vertexdata position v+2, vx+0.95, 0, vz+0.05  //A
                set vertexdata position v+3, vx+0.9,  0, vz+0.1   //B
                set vertexdata position v+4, vx+1,    0, vz+0.1   //C
                
                set vertexdata uv v+0,0,vx+0.9,vz+0
                set vertexdata uv v+1,0,vx+1,vz+0
                set vertexdata uv v+2,0,vx+0.95,vz+0.05
                set vertexdata uv v+3,0,vx+0.9,vz+0.1
                set vertexdata uv v+4,0,vx+1,vz+0.1
                
                set indexdata i,v+1 //gfA
                set indexdata i+1,v
                set indexdata i+2,v+2
                
                set indexdata i+3,v+2 //CAg
                set indexdata i+4,v+4
                set indexdata i+5,v+1
                
                set indexdata i+6,v+4 //CAB
                set indexdata i+7,v+2
                set indexdata i+8,v+3
                
                set indexdata i+9,v   //BAf
                set indexdata i+10,v+3
                set indexdata i+11,v+2
                
                inc i,12
                
                if debug = 1 then message "TR to BR"
                inc unpies
                set indexdata i,v+3 //hid
                set indexdata i+1,v+vpr
                set indexdata i+2,v+1+vpr
                
                set indexdata i+3,v+4 //die
                set indexdata i+4,v+3
                set indexdata i+5,v+1+vpr
                inc i,6                
                
                inc v,5
            endif
        next vx
    next vz    
    
    dec vz
    
    for vx = 0 to w-1
        if debug = 1 then message "vz=h-1, make BL"
        set vertexdata position v,   vx+0,    0, vz+0.9   //h
        set vertexdata position v+1, vx+0.1,  0, vz+0.9   //i
        set vertexdata position v+2, vx+0.1,  0, vz+1     //H
        set vertexdata position v+3, vx+0,    0, vz+1     //I
        set vertexdata position v+4, vx+0.05, 0, vz+0.95  //J
        
        set vertexdata uv v+0,0,vx+0,vz+0.9
        set vertexdata uv v+1,0,vx+0.1,vz+0.9
        set vertexdata uv v+2,0,vx+0.1,vz+1
        set vertexdata uv v+3,0,vx+0,vz+1
        set vertexdata uv v+4,0,vx+0.05,vz+0.95
        
        set indexdata i,v+4 //hiJ
        set indexdata i+1,v+1
        set indexdata i+2,v+0
        
        set indexdata i+3,v+2 //JiH
        set indexdata i+4,v+1
        set indexdata i+5,v+4
        
        set indexdata i+6,v+2 //JHI
        set indexdata i+7,v+4
        set indexdata i+8,v+3
        
        set indexdata i+9,v+3  //JhI
        set indexdata i+10,v+4
        set indexdata i+11,v        
        inc i,12
        
        if vx<w
            if debug = 1 then message "BL to BR"
            set indexdata i,v+5//Hij
            set indexdata i+1,v+1
            set indexdata i+2,v+2
            
            set indexdata i+3,v+2  //HjF
            set indexdata i+4,v+8
            set indexdata i+5,v+5
            inc i,6
        endif
        
        inc v,5
    next vx
    
    vx=w-1 : vz = h-1
    if debug=1 then message "last corner"
    set vertexdata position v,   vx+0.9,  0, vz+0.9   //j
    set vertexdata position v+1, vx+1,    0, vz+0.9   //D
    set vertexdata position v+4, vx+1,    0, vz+1     //E
    set vertexdata position v+3, vx+0.9,  0, vz+1     //F
    set vertexdata position v+2, vx+0.95, 0, vz+0.95  //G
    
    set vertexdata uv v+0,0,vx+0.9,vz+0.9
    set vertexdata uv v+1,0,vx+1,vz+0.9
    set vertexdata uv v+2,0,vx+1,vz+1
    set vertexdata uv v+3,0,vx+0.9,vz+1
    set vertexdata uv v+4,0,vx+0.95,vz+0.95
    
    set indexdata i,v+4 //jDE
    set indexdata i+1,v+1
    set indexdata i+2,v+0
    
    set indexdata i+3,v+1 //DGE
    set indexdata i+4,v+2
    set indexdata i+5,v+4
    
    set indexdata i+6,v+2 //GEF
    set indexdata i+7,v+3
    set indexdata i+8,v+4
    
    set indexdata i+9,v+3  //FEj
    set indexdata i+10,v+4
    set indexdata i+11,v
    
    inc i,12
    inc v,5
        
    //for v = 0 to verts-1
    //    set vertexdata normals v,0,1,0
    //next v
    
    unlock vertexdata
Endfunction obj

remstart
eg MakeMap(2,2)
    a---b---------    f---g---------    o---. 6
5-> |>c<|   4         |>A<|             |>o<| 3
    d---e---------    B---C---------    o---o 6
    |   |             |   |             |   |
    | 4 |   4         |   |             |   |    
    |   |             |   |             |   |
    |   |             |   |             |   |
    
    
    h---i---------    j---D---------    o---o 6
    |>J<|             |>E<|             |>o<| 3
    I---H---------    F---G---------    o---o 6
    |   |             |   |             |   |
    |   |             |   |             |   |
    |   |             |   |             |   |
    |   |             |   |             |   |
    
    
    o---o---------    o---o---------    o---o 6
    |>o<|             |>o<|             |>o<| 3
    .---o---------    o---o---------    o---. 6
    
    109 Indices
    45 Vertices
remend

function PointCamToObj(id)
    point camera object position x(id),object position y(id),object position z(id)
endfunction

function loadtexture(file$)
    img = find free image()
    load image file$,img,0
endfunction img

+ Code Snippet

//FutureCop LAPD Remake
//Level Editor
//Hussein Duvigneau
//2nd Oct 2009
#constant FVF_XYZ = 0x002 `2 untransformed vertex - discludes FVF_XYZRHW
#constant FVF_XYZRHW = 0x004 `4 tranformed vertex - discludes FVFXYZ and FVF_NORMAL
#constant FVF_XYZB1 = 0x006 `6 position data and weighting values for vertex blending matrix calcs
#constant FVF_XYZB2 = 0x008 `8
#constant FVF_XYZB3 = 0x00a `10
#constant FVF_XYZB4 = 0x00c `12
#constant FVF_XYZB5 = 0x00e `338
#constant FVF_NORMAL = 0x010 `16 vertex normal
#constant FVF_PSIZE = 0x020 `32 vertex point size
#constant FVF_DIFFUSE = 0x040 `64 vertex diffuse color
#constant FVF_SPECULAR = 0x080 `128 vertex specular color
#constant FVF_TEX0 = 0x000 `338 Number of texture coordinate sets for vertex, 1 - 8
#constant FVF_TEX1 = 0x100 `256
#constant FVF_TEX2 = 0x200 `512
#constant FVF_TEX3 = 0x300 `768
#constant FVF_TEX4 = 0x400 `1024
#constant FVF_TEX5 = 0x500 `1280
#constant FVF_TEX6 = 0x600 `1536
#constant FVF_TEX7 = 0x700 `1792
#constant FVF_TEX8 = 0x800 `2048

FloorTileID = loadtexture("Floortile.jpg")

global debug=0

set display mode 1366,768,32
sync on
autocam off
position camera -20,50,-20

WorldObjID=MakeMap(9,9)
scale object WorldObjID,1000,1000,1000
//Set Object Wireframe WorldObjID,1
texture object WorldObjID,0,floortileID

PointCamToObj(WorldObjID)

do
    text 10,10,str$(timer()/100)
    
    move camera (upkey()-downkey())
    move camera left leftkey()-rightkey()
    position camera camera position x(),50,camera position z()
    sync
loop

Function MakeMap(w,h)
    obj = find free object()
    verts = (w+1)*(h+1)*5
    inds = ((w*h*10)+w*6+h*6+4)*3
    vpr = 5*(1+w)//verts per row
    
    make object new obj,verts,inds,FVF_XYZ||FVF_NORMAL||FVF_DIFFUSE||FVF_SPECULAR||FVF_TEX2
    
    lock vertexdata for limb obj,0
    v = 0
    i = 0
    for vz = 0 to h-1
        for vx = 0 to w-1
            if debug = 1 then message "make TL"
            set vertexdata position v,   vx+0,    0, vz+0     //a
            set vertexdata position v+1, vx+0.1,  0, vz+0     //b
            set vertexdata position v+2, vx+0.05, 0, vz+0.05  //c
            set vertexdata position v+3, vx+0,    0, vz+0.1   //d
            set vertexdata position v+4, vx+0.1,  0, vz+0.1   //e
            
            set vertexdata uv v+0,0,vx+0,vz+0
            set vertexdata uv v+1,0,vx+0.1,vz+0
            set vertexdata uv v+2,0,vx+0.05,vz+0.05
            set vertexdata uv v+3,0,vx+0,vz+0.1
            set vertexdata uv v+4,0,vx+0.1,vz+0.1
            
            set indexdata i,v+1 //abc
            set indexdata i+1,v+0
            set indexdata i+2,v+2
            
            set indexdata i+3,v+1 //bce
            set indexdata i+4,v+2
            set indexdata i+5,v+4
            
            set indexdata i+6,v+2 //cde
            set indexdata i+7,v+3
            set indexdata i+8,v+4
            
            set indexdata i+9,v+2  //acd
            set indexdata i+10,v+0
            set indexdata i+11,v+3
            
            inc i,12
            
            if debug = 1 then message "..and midpoint" : sync
            set indexdata i,v+8 //eBi or edb*  *of adjacent
            set indexdata i+1,v+4
            set indexdata i+2,v+1+vpr
                
            set indexdata i+4,v+8 //bdh or iBj*  *of adjacent
            set indexdata i+3,v+5+vpr
            set indexdata i+5,v+1+vpr
            
            inc i,6
            
            if vx<w
                if debug = 1 then message "TL to TR"
                //gap between TL and TR
                set indexdata i,  v+1 //bef
                set indexdata i+1,v+4
                set indexdata i+2,v+5
                
                set indexdata i+3,v+4  //efB
                set indexdata i+4,v+8
                set indexdata i+5,v+5
                inc i,6
            endif
            
            if vz<h
                if debug = 1 then message "TL to BL"
                inc pies
                set indexdata i,v+3 //hid
                set indexdata i+1,v+vpr
                set indexdata i+2,v+1+vpr
                
                set indexdata i+3,v+4 //die
                set indexdata i+4,v+3
                set indexdata i+5,v+1+vpr
                inc i,6
            endif
            
            inc v,5
            
            if vx = w-1 //and vz < h-1
                if debug = 1 then message "vx=w-1, make TR"
                set vertexdata position v,   vx+0.9,  0, vz+0     //f
                set vertexdata position v+1, vx+1,    0, vz+0     //g
                set vertexdata position v+2, vx+0.95, 0, vz+0.05  //A
                set vertexdata position v+3, vx+0.9,  0, vz+0.1   //B
                set vertexdata position v+4, vx+1,    0, vz+0.1   //C
                
                set vertexdata uv v+0,0,vx+0.9,vz+0
                set vertexdata uv v+1,0,vx+1,vz+0
                set vertexdata uv v+2,0,vx+0.95,vz+0.05
                set vertexdata uv v+3,0,vx+0.9,vz+0.1
                set vertexdata uv v+4,0,vx+1,vz+0.1
                
                set indexdata i,v+1 //gfA
                set indexdata i+1,v
                set indexdata i+2,v+2
                
                set indexdata i+3,v+2 //CAg
                set indexdata i+4,v+4
                set indexdata i+5,v+1
                
                set indexdata i+6,v+4 //CAB
                set indexdata i+7,v+2
                set indexdata i+8,v+3
                
                set indexdata i+9,v   //BAf
                set indexdata i+10,v+3
                set indexdata i+11,v+2
                
                inc i,12
                
                if debug = 1 then message "TR to BR"
                inc unpies
                set indexdata i,v+3 //hid
                set indexdata i+1,v+vpr
                set indexdata i+2,v+1+vpr
                
                set indexdata i+3,v+4 //die
                set indexdata i+4,v+3
                set indexdata i+5,v+1+vpr
                inc i,6                
                
                inc v,5
            endif
        next vx
    next vz    
    
    dec vz
    
    for vx = 0 to w-1
        if debug = 1 then message "vz=h-1, make BL"
        set vertexdata position v,   vx+0,    0, vz+0.9   //h
        set vertexdata position v+1, vx+0.1,  0, vz+0.9   //i
        set vertexdata position v+2, vx+0.1,  0, vz+1     //H
        set vertexdata position v+3, vx+0,    0, vz+1     //I
        set vertexdata position v+4, vx+0.05, 0, vz+0.95  //J
        
        set vertexdata uv v+0,0,vx+0,vz+0.9
        set vertexdata uv v+1,0,vx+0.1,vz+0.9
        set vertexdata uv v+2,0,vx+0.1,vz+1
        set vertexdata uv v+3,0,vx+0,vz+1
        set vertexdata uv v+4,0,vx+0.05,vz+0.95
        
        set indexdata i,v+4 //hiJ
        set indexdata i+1,v+1
        set indexdata i+2,v+0
        
        set indexdata i+3,v+2 //JiH
        set indexdata i+4,v+1
        set indexdata i+5,v+4
        
        set indexdata i+6,v+2 //JHI
        set indexdata i+7,v+4
        set indexdata i+8,v+3
        
        set indexdata i+9,v+3  //JhI
        set indexdata i+10,v+4
        set indexdata i+11,v        
        inc i,12
        
        if vx<w
            if debug = 1 then message "BL to BR"
            set indexdata i,v+5//Hij
            set indexdata i+1,v+1
            set indexdata i+2,v+2
            
            set indexdata i+3,v+2  //HjF
            set indexdata i+4,v+8
            set indexdata i+5,v+5
            inc i,6
        endif
        
        inc v,5
    next vx
    
    vx=w-1 : vz = h-1
    if debug=1 then message "last corner"
    set vertexdata position v,   vx+0.9,  0, vz+0.9   //j
    set vertexdata position v+1, vx+1,    0, vz+0.9   //D
    set vertexdata position v+4, vx+1,    0, vz+1     //E
    set vertexdata position v+3, vx+0.9,  0, vz+1     //F
    set vertexdata position v+2, vx+0.95, 0, vz+0.95  //G
    
    set vertexdata uv v+0,0,vx+0.9,vz+0.9
    set vertexdata uv v+1,0,vx+1,vz+0.9
    set vertexdata uv v+2,0,vx+1,vz+1
    set vertexdata uv v+3,0,vx+0.9,vz+1
    set vertexdata uv v+4,0,vx+0.95,vz+0.95
    
    set indexdata i,v+4 //jDE
    set indexdata i+1,v+1
    set indexdata i+2,v+0
    
    set indexdata i+3,v+1 //DGE
    set indexdata i+4,v+2
    set indexdata i+5,v+4
    
    set indexdata i+6,v+2 //GEF
    set indexdata i+7,v+3
    set indexdata i+8,v+4
    
    set indexdata i+9,v+3  //FEj
    set indexdata i+10,v+4
    set indexdata i+11,v
    
    inc i,12
    inc v,5
        
    //for v = 0 to verts-1
    //    set vertexdata normals v,0,1,0
    //next v
    
    unlock vertexdata
Endfunction obj

remstart
eg MakeMap(2,2)
    a---b---------    f---g---------    o---. 6
5-> |>c<|   4         |>A<|             |>o<| 3
    d---e---------    B---C---------    o---o 6
    |   |             |   |             |   |
    | 4 |   4         |   |             |   |    
    |   |             |   |             |   |
    |   |             |   |             |   |
    
    
    h---i---------    j---D---------    o---o 6
    |>J<|             |>E<|             |>o<| 3
    I---H---------    F---G---------    o---o 6
    |   |             |   |             |   |
    |   |             |   |             |   |
    |   |             |   |             |   |
    |   |             |   |             |   |
    
    
    o---o---------    o---o---------    o---o 6
    |>o<|             |>o<|             |>o<| 3
    .---o---------    o---o---------    o---. 6
    
    109 Indices
    45 Vertices
remend

function PointCamToObj(id)
    point camera object position x(id),object position y(id),object position z(id)
endfunction

function loadtexture(file$)
    img = find free image()
    load image file$,img,0
endfunction img

http://notmybase.com
All my base are not belong to anyone.

Back to top

Profile PM Website

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 3rd Oct 2009 18:08 Edited at: 3rd Oct 2009 18:14

Link

I don't see anything wrong
If you want me to check further
post the texture jpg image

Or send me an email with the jpg attached

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 3rd Oct 2009 18:49 Edited at: 3rd Oct 2009 18:50

Link

Well I did more testing, here is what I got to work.

//FutureCop LAPD Remake
//Level Editor
//Hussein Duvigneau
//2nd Oct 2009

set display mode 1366,768,32
sync on
autocam off
position camera -20,50,-20
set ambient light 100

#constant FVF_XYZ = 0x002 `2 untransformed vertex - discludes FVF_XYZRHW
#constant FVF_XYZRHW = 0x004 `4 tranformed vertex - discludes FVFXYZ and FVF_NORMAL
#constant FVF_XYZB1 = 0x006 `6 position data and weighting values for vertex blending matrix calcs
#constant FVF_XYZB2 = 0x008 `8
#constant FVF_XYZB3 = 0x00a `10
#constant FVF_XYZB4 = 0x00c `12
#constant FVF_XYZB5 = 0x00e `338
#constant FVF_NORMAL = 0x010 `16 vertex normal
#constant FVF_PSIZE = 0x020 `32 vertex point size
#constant FVF_DIFFUSE = 0x040 `64 vertex diffuse color
#constant FVF_SPECULAR = 0x080 `128 vertex specular color
#constant FVF_TEX0 = 0x000 `338 Number of texture coordinate sets for vertex, 1 - 8
#constant FVF_TEX1 = 0x100 `256
#constant FVF_TEX2 = 0x200 `512
#constant FVF_TEX3 = 0x300 `768
#constant FVF_TEX4 = 0x400 `1024
#constant FVF_TEX5 = 0x500 `1280
#constant FVF_TEX6 = 0x600 `1536
#constant FVF_TEX7 = 0x700 `1792
#constant FVF_TEX8 = 0x800 `2048

FloorTileID = loadtexture("Floortile.jpg")
load image "grass1.bmp",1
FloorTileID=1
global debug=0

WorldObjID=MakeMap(9,9)
scale object WorldObjID,1000,1000,1000
`Set Object Wireframe WorldObjID,1
texture object WorldObjID,0,FloorTileID

PointCamToObj(WorldObjID)

do
    text 10,10,str$(timer()/100)

move camera (upkey()-downkey())
    move camera left leftkey()-rightkey()
    position camera camera position x(),50,camera position z()
    sync
loop

Function MakeMap(w,h)
    obj = find free object()
    verts = (w+1)*(h+1)*5
    inds = ((w*h*10)+w*6+h*6+4)*3
    vpr = 5*(1+w)//verts per row

make object new obj,verts,inds,FVF_XYZ||FVF_NORMAL||FVF_DIFFUSE||FVF_SPECULAR||FVF_TEX2

lock vertexdata for limb obj,0
    v = 0
    i = 0
    for vz = 0 to h-1
        for vx = 0 to w-1
            if debug = 1 then message "make TL"
            set vertexdata position v,   vx+0,    0, vz+0     //a
            set vertexdata position v+1, vx+0.1,  0, vz+0     //b
            set vertexdata position v+2, vx+0.05, 0, vz+0.05  //c
            set vertexdata position v+3, vx+0,    0, vz+0.1   //d
            set vertexdata position v+4, vx+0.1,  0, vz+0.1   //e

set vertexdata uv v+0,0,vx+0,vz+0
            set vertexdata uv v+1,0,vx+0.1,vz+0
            set vertexdata uv v+2,0,vx+0.05,vz+0.05
            set vertexdata uv v+3,0,vx+0,vz+0.1
            set vertexdata uv v+4,0,vx+0.1,vz+0.1

set indexdata i,v+1 //abc
            set indexdata i+1,v+0
            set indexdata i+2,v+2

set indexdata i+3,v+1 //bce
            set indexdata i+4,v+2
            set indexdata i+5,v+4

set indexdata i+6,v+2 //cde
            set indexdata i+7,v+3
            set indexdata i+8,v+4

set indexdata i+9,v+2  //acd
            set indexdata i+10,v+0
            set indexdata i+11,v+3

inc i,12

if debug = 1 then message "..and midpoint" : sync
            set indexdata i,v+8 //eBi or edb*  *of adjacent
            set indexdata i+1,v+4
            set indexdata i+2,v+1+vpr

set indexdata i+4,v+8 //bdh or iBj*  *of adjacent
            set indexdata i+3,v+5+vpr
            set indexdata i+5,v+1+vpr

inc i,6

if vx<w
                if debug = 1 then message "TL to TR"
                //gap between TL and TR
                set indexdata i,  v+1 //bef
                set indexdata i+1,v+4
                set indexdata i+2,v+5

set indexdata i+3,v+4  //efB
                set indexdata i+4,v+8
                set indexdata i+5,v+5
                inc i,6
            endif

if vz<h
                if debug = 1 then message "TL to BL"
                inc pies
                set indexdata i,v+3 //hid
                set indexdata i+1,v+vpr
                set indexdata i+2,v+1+vpr

set indexdata i+3,v+4 //die
                set indexdata i+4,v+3
                set indexdata i+5,v+1+vpr
                inc i,6
            endif

inc v,5

if vx = w-1 //and vz < h-1
                if debug = 1 then message "vx=w-1, make TR"
                set vertexdata position v,   vx+0.9,  0, vz+0     //f
                set vertexdata position v+1, vx+1,    0, vz+0     //g
                set vertexdata position v+2, vx+0.95, 0, vz+0.05  //A
                set vertexdata position v+3, vx+0.9,  0, vz+0.1   //B
                set vertexdata position v+4, vx+1,    0, vz+0.1   //C

set vertexdata uv v+0,0,vx+0.9,vz+0
                set vertexdata uv v+1,0,vx+1,vz+0
                set vertexdata uv v+2,0,vx+0.95,vz+0.05
                set vertexdata uv v+3,0,vx+0.9,vz+0.1
                set vertexdata uv v+4,0,vx+1,vz+0.1

set indexdata i,v+1 //gfA
                set indexdata i+1,v
                set indexdata i+2,v+2

set indexdata i+3,v+2 //CAg
                set indexdata i+4,v+4
                set indexdata i+5,v+1

set indexdata i+6,v+4 //CAB
                set indexdata i+7,v+2
                set indexdata i+8,v+3

set indexdata i+9,v   //BAf
                set indexdata i+10,v+3
                set indexdata i+11,v+2

inc i,12

if debug = 1 then message "TR to BR"
                inc unpies
                set indexdata i,v+3 //hid
                set indexdata i+1,v+vpr
                set indexdata i+2,v+1+vpr

set indexdata i+3,v+4 //die
                set indexdata i+4,v+3
                set indexdata i+5,v+1+vpr
                inc i,6

inc v,5
            endif
        next vx
    next vz

dec vz

for vx = 0 to w-1
        if debug = 1 then message "vz=h-1, make BL"
        set vertexdata position v,   vx+0,    0, vz+0.9   //h
        set vertexdata position v+1, vx+0.1,  0, vz+0.9   //i
        set vertexdata position v+2, vx+0.1,  0, vz+1     //H
        set vertexdata position v+3, vx+0,    0, vz+1     //I
        set vertexdata position v+4, vx+0.05, 0, vz+0.95  //J

set vertexdata uv v+0,0,vx+0,vz+0.9
        set vertexdata uv v+1,0,vx+0.1,vz+0.9
        set vertexdata uv v+2,0,vx+0.1,vz+1
        set vertexdata uv v+3,0,vx+0,vz+1
        set vertexdata uv v+4,0,vx+0.05,vz+0.95

set indexdata i,v+4 //hiJ
        set indexdata i+1,v+1
        set indexdata i+2,v+0

set indexdata i+3,v+2 //JiH
        set indexdata i+4,v+1
        set indexdata i+5,v+4

set indexdata i+6,v+2 //JHI
        set indexdata i+7,v+4
        set indexdata i+8,v+3

set indexdata i+9,v+3  //JhI
        set indexdata i+10,v+4
        set indexdata i+11,v
        inc i,12

if vx<w
            if debug = 1 then message "BL to BR"
            set indexdata i,v+5//Hij
            set indexdata i+1,v+1
            set indexdata i+2,v+2

set indexdata i+3,v+2  //HjF
            set indexdata i+4,v+8
            set indexdata i+5,v+5
            inc i,6
        endif

inc v,5
    next vx

vx=w-1 : vz = h-1
    if debug=1 then message "last corner"
    set vertexdata position v,   vx+0.9,  0, vz+0.9   //j
    set vertexdata position v+1, vx+1,    0, vz+0.9   //D
    set vertexdata position v+4, vx+1,    0, vz+1     //E
    set vertexdata position v+3, vx+0.9,  0, vz+1     //F
    set vertexdata position v+2, vx+0.95, 0, vz+0.95  //G

set vertexdata uv v+0,0,vx+0.9,vz+0.9
    set vertexdata uv v+1,0,vx+1,vz+0.9
    set vertexdata uv v+2,0,vx+1,vz+1
    set vertexdata uv v+3,0,vx+0.9,vz+1
    set vertexdata uv v+4,0,vx+0.95,vz+0.95

set indexdata i,v+4 //jDE
    set indexdata i+1,v+1
    set indexdata i+2,v+0

set indexdata i+3,v+1 //DGE
    set indexdata i+4,v+2
    set indexdata i+5,v+4

set indexdata i+6,v+2 //GEF
    set indexdata i+7,v+3
    set indexdata i+8,v+4

set indexdata i+9,v+3  //FEj
    set indexdata i+10,v+4
    set indexdata i+11,v

inc i,12
    inc v,5

//for v = 0 to verts-1
    //    set vertexdata normals v,0,1,0
    //next v

unlock vertexdata
Endfunction obj

remstart
eg MakeMap(2,2)
    a---b---------    f---g---------    o---. 6
5-> |>c<|   4         |>A<|             |>o<| 3
    d---e---------    B---C---------    o---o 6
    |   |             |   |             |   |
    | 4 |   4         |   |             |   |
    |   |             |   |             |   |
    |   |             |   |             |   |

h---i---------    j---D---------    o---o 6
    |>J<|             |>E<|             |>o<| 3
    I---H---------    F---G---------    o---o 6
    |   |             |   |             |   |
    |   |             |   |             |   |
    |   |             |   |             |   |
    |   |             |   |             |   |

o---o---------    o---o---------    o---o 6
    |>o<|             |>o<|             |>o<| 3
    .---o---------    o---o---------    o---. 6

109 Indices
    45 Vertices
remend

function PointCamToObj(id)
    point camera object position x(id),object position y(id),object position z(id)
endfunction

function loadtexture(file$)
    img = find free image()
    load image file$,img,0
endfunction img

+ Code Snippet

//FutureCop LAPD Remake
//Level Editor
//Hussein Duvigneau
//2nd Oct 2009

set display mode 1366,768,32
sync on
autocam off
position camera -20,50,-20
set ambient light 100

#constant FVF_XYZ = 0x002 `2 untransformed vertex - discludes FVF_XYZRHW
#constant FVF_XYZRHW = 0x004 `4 tranformed vertex - discludes FVFXYZ and FVF_NORMAL
#constant FVF_XYZB1 = 0x006 `6 position data and weighting values for vertex blending matrix calcs
#constant FVF_XYZB2 = 0x008 `8
#constant FVF_XYZB3 = 0x00a `10
#constant FVF_XYZB4 = 0x00c `12
#constant FVF_XYZB5 = 0x00e `338
#constant FVF_NORMAL = 0x010 `16 vertex normal
#constant FVF_PSIZE = 0x020 `32 vertex point size
#constant FVF_DIFFUSE = 0x040 `64 vertex diffuse color
#constant FVF_SPECULAR = 0x080 `128 vertex specular color
#constant FVF_TEX0 = 0x000 `338 Number of texture coordinate sets for vertex, 1 - 8
#constant FVF_TEX1 = 0x100 `256
#constant FVF_TEX2 = 0x200 `512
#constant FVF_TEX3 = 0x300 `768
#constant FVF_TEX4 = 0x400 `1024
#constant FVF_TEX5 = 0x500 `1280
#constant FVF_TEX6 = 0x600 `1536
#constant FVF_TEX7 = 0x700 `1792
#constant FVF_TEX8 = 0x800 `2048

FloorTileID = loadtexture("Floortile.jpg")
load image "grass1.bmp",1
FloorTileID=1
global debug=0


WorldObjID=MakeMap(9,9)
scale object WorldObjID,1000,1000,1000
`Set Object Wireframe WorldObjID,1
texture object WorldObjID,0,FloorTileID

PointCamToObj(WorldObjID)

do
    text 10,10,str$(timer()/100)

    move camera (upkey()-downkey())
    move camera left leftkey()-rightkey()
    position camera camera position x(),50,camera position z()
    sync
loop

Function MakeMap(w,h)
    obj = find free object()
    verts = (w+1)*(h+1)*5
    inds = ((w*h*10)+w*6+h*6+4)*3
    vpr = 5*(1+w)//verts per row

    make object new obj,verts,inds,FVF_XYZ||FVF_NORMAL||FVF_DIFFUSE||FVF_SPECULAR||FVF_TEX2

    lock vertexdata for limb obj,0
    v = 0
    i = 0
    for vz = 0 to h-1
        for vx = 0 to w-1
            if debug = 1 then message "make TL"
            set vertexdata position v,   vx+0,    0, vz+0     //a
            set vertexdata position v+1, vx+0.1,  0, vz+0     //b
            set vertexdata position v+2, vx+0.05, 0, vz+0.05  //c
            set vertexdata position v+3, vx+0,    0, vz+0.1   //d
            set vertexdata position v+4, vx+0.1,  0, vz+0.1   //e

            set vertexdata uv v+0,0,vx+0,vz+0
            set vertexdata uv v+1,0,vx+0.1,vz+0
            set vertexdata uv v+2,0,vx+0.05,vz+0.05
            set vertexdata uv v+3,0,vx+0,vz+0.1
            set vertexdata uv v+4,0,vx+0.1,vz+0.1

            set indexdata i,v+1 //abc
            set indexdata i+1,v+0
            set indexdata i+2,v+2

            set indexdata i+3,v+1 //bce
            set indexdata i+4,v+2
            set indexdata i+5,v+4

            set indexdata i+6,v+2 //cde
            set indexdata i+7,v+3
            set indexdata i+8,v+4

            set indexdata i+9,v+2  //acd
            set indexdata i+10,v+0
            set indexdata i+11,v+3

            inc i,12

            if debug = 1 then message "..and midpoint" : sync
            set indexdata i,v+8 //eBi or edb*  *of adjacent
            set indexdata i+1,v+4
            set indexdata i+2,v+1+vpr

            set indexdata i+4,v+8 //bdh or iBj*  *of adjacent
            set indexdata i+3,v+5+vpr
            set indexdata i+5,v+1+vpr

            inc i,6

            if vx<w
                if debug = 1 then message "TL to TR"
                //gap between TL and TR
                set indexdata i,  v+1 //bef
                set indexdata i+1,v+4
                set indexdata i+2,v+5

                set indexdata i+3,v+4  //efB
                set indexdata i+4,v+8
                set indexdata i+5,v+5
                inc i,6
            endif

            if vz<h
                if debug = 1 then message "TL to BL"
                inc pies
                set indexdata i,v+3 //hid
                set indexdata i+1,v+vpr
                set indexdata i+2,v+1+vpr

                set indexdata i+3,v+4 //die
                set indexdata i+4,v+3
                set indexdata i+5,v+1+vpr
                inc i,6
            endif

            inc v,5

            if vx = w-1 //and vz < h-1
                if debug = 1 then message "vx=w-1, make TR"
                set vertexdata position v,   vx+0.9,  0, vz+0     //f
                set vertexdata position v+1, vx+1,    0, vz+0     //g
                set vertexdata position v+2, vx+0.95, 0, vz+0.05  //A
                set vertexdata position v+3, vx+0.9,  0, vz+0.1   //B
                set vertexdata position v+4, vx+1,    0, vz+0.1   //C

                set vertexdata uv v+0,0,vx+0.9,vz+0
                set vertexdata uv v+1,0,vx+1,vz+0
                set vertexdata uv v+2,0,vx+0.95,vz+0.05
                set vertexdata uv v+3,0,vx+0.9,vz+0.1
                set vertexdata uv v+4,0,vx+1,vz+0.1

                set indexdata i,v+1 //gfA
                set indexdata i+1,v
                set indexdata i+2,v+2

                set indexdata i+3,v+2 //CAg
                set indexdata i+4,v+4
                set indexdata i+5,v+1

                set indexdata i+6,v+4 //CAB
                set indexdata i+7,v+2
                set indexdata i+8,v+3

                set indexdata i+9,v   //BAf
                set indexdata i+10,v+3
                set indexdata i+11,v+2

                inc i,12

                if debug = 1 then message "TR to BR"
                inc unpies
                set indexdata i,v+3 //hid
                set indexdata i+1,v+vpr
                set indexdata i+2,v+1+vpr

                set indexdata i+3,v+4 //die
                set indexdata i+4,v+3
                set indexdata i+5,v+1+vpr
                inc i,6

                inc v,5
            endif
        next vx
    next vz

    dec vz

    for vx = 0 to w-1
        if debug = 1 then message "vz=h-1, make BL"
        set vertexdata position v,   vx+0,    0, vz+0.9   //h
        set vertexdata position v+1, vx+0.1,  0, vz+0.9   //i
        set vertexdata position v+2, vx+0.1,  0, vz+1     //H
        set vertexdata position v+3, vx+0,    0, vz+1     //I
        set vertexdata position v+4, vx+0.05, 0, vz+0.95  //J

        set vertexdata uv v+0,0,vx+0,vz+0.9
        set vertexdata uv v+1,0,vx+0.1,vz+0.9
        set vertexdata uv v+2,0,vx+0.1,vz+1
        set vertexdata uv v+3,0,vx+0,vz+1
        set vertexdata uv v+4,0,vx+0.05,vz+0.95

        set indexdata i,v+4 //hiJ
        set indexdata i+1,v+1
        set indexdata i+2,v+0

        set indexdata i+3,v+2 //JiH
        set indexdata i+4,v+1
        set indexdata i+5,v+4

        set indexdata i+6,v+2 //JHI
        set indexdata i+7,v+4
        set indexdata i+8,v+3

        set indexdata i+9,v+3  //JhI
        set indexdata i+10,v+4
        set indexdata i+11,v
        inc i,12

        if vx<w
            if debug = 1 then message "BL to BR"
            set indexdata i,v+5//Hij
            set indexdata i+1,v+1
            set indexdata i+2,v+2

            set indexdata i+3,v+2  //HjF
            set indexdata i+4,v+8
            set indexdata i+5,v+5
            inc i,6
        endif

        inc v,5
    next vx

    vx=w-1 : vz = h-1
    if debug=1 then message "last corner"
    set vertexdata position v,   vx+0.9,  0, vz+0.9   //j
    set vertexdata position v+1, vx+1,    0, vz+0.9   //D
    set vertexdata position v+4, vx+1,    0, vz+1     //E
    set vertexdata position v+3, vx+0.9,  0, vz+1     //F
    set vertexdata position v+2, vx+0.95, 0, vz+0.95  //G

    set vertexdata uv v+0,0,vx+0.9,vz+0.9
    set vertexdata uv v+1,0,vx+1,vz+0.9
    set vertexdata uv v+2,0,vx+1,vz+1
    set vertexdata uv v+3,0,vx+0.9,vz+1
    set vertexdata uv v+4,0,vx+0.95,vz+0.95

    set indexdata i,v+4 //jDE
    set indexdata i+1,v+1
    set indexdata i+2,v+0

    set indexdata i+3,v+1 //DGE
    set indexdata i+4,v+2
    set indexdata i+5,v+4

    set indexdata i+6,v+2 //GEF
    set indexdata i+7,v+3
    set indexdata i+8,v+4

    set indexdata i+9,v+3  //FEj
    set indexdata i+10,v+4
    set indexdata i+11,v

    inc i,12
    inc v,5

    //for v = 0 to verts-1
    //    set vertexdata normals v,0,1,0
    //next v

    unlock vertexdata
Endfunction obj

remstart
eg MakeMap(2,2)
    a---b---------    f---g---------    o---. 6
5-> |>c<|   4         |>A<|             |>o<| 3
    d---e---------    B---C---------    o---o 6
    |   |             |   |             |   |
    | 4 |   4         |   |             |   |
    |   |             |   |             |   |
    |   |             |   |             |   |


    h---i---------    j---D---------    o---o 6
    |>J<|             |>E<|             |>o<| 3
    I---H---------    F---G---------    o---o 6
    |   |             |   |             |   |
    |   |             |   |             |   |
    |   |             |   |             |   |
    |   |             |   |             |   |


    o---o---------    o---o---------    o---o 6
    |>o<|             |>o<|             |>o<| 3
    .---o---------    o---o---------    o---. 6

    109 Indices
    45 Vertices
remend

function PointCamToObj(id)
    point camera object position x(id),object position y(id),object position z(id)
endfunction

function loadtexture(file$)
    img = find free image()
    load image file$,img,0
endfunction img

Needs to be at the top of your program or at least executed first
setting display mode deletes any loaded textures I believe

+ Code Snippet

set display mode 1366,768,32
sync on
autocam off
position camera -20,50,-20
set ambient light 100

I add the ambient light, you can play with this
I added loading my own .bmp file for testing
hope this helps

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 3rd Oct 2009 18:51

Link

Hi El Goorf

A clue from the Help file for set display mode :

Quote: "It is vital to know that when this command is called, everything is deleted, including music and sound, so you must re-load all your assets after a call to this command"

In other words, load your images AFTER set display mode.

[I'm supposed to be on holiday still but since I'm only gardening today and it's raining I couldn't resist a quick peek at the forum.

]

Back to top

Profile PM Email

El Goorf

19

Years of Service

User Offline

Joined: 17th Sep 2006

Location: Uni: Manchester, Home: Dunstable

Posted: 5th Oct 2009 01:54

Link

thanks, i never noticed set display mode doing that before, and was expecting an error like "texture does not exist", if it was being wiped from memory before being applied..

http://notmybase.com
All my base are not belong to anyone.

Back to top

Profile PM Website

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 5th Oct 2009 14:19

Link

I agree. Might be worth posting this in the Bug Reports.

Back to top

Profile PM Email

david w

20

Years of Service

User Offline

Joined: 18th Dec 2005

Location: U.S.A. Michigan

Posted: 5th Oct 2009 14:24

Link

Thats because Set Display Mode is re-creating the D3D device. Its going to wipe anything in video memory. This is not a bug. Its Direct X.

Back to top

Profile PM Website

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 5th Oct 2009 14:39

Link

You've missed the point - shouldn't DBPro flag an error when you try to apply a non-existent image?

Back to top

Profile PM Email

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 5th Oct 2009 14:52

Link

The display mode also denotes the depth of images used in the system - if you run in 16-bit colour, then the textures would be loaded as 16-bit as well. It's not ideal, especially for those who like to mess with memblock images, I'd rather they just made 32-bit a standard depth, even if they made it so you can specifiy the display depth of images with a command.

But that doesn't detract from this being a pain, but kinda excusable, I mean I always have to restart games after changing the display mode. To do the same just load up a setup file to check, set the desired resolution then load all your media. If the user changes the resolution, save the results but just tell them to restart to apply the new display mode. Players will excuse this, because we're all in the same boat I think - lots of engines hate to change resolution. It's not like the old days huh!, I remember coding on the ST, which could change resolution mid-frame!, damn I miss standardized hardware.

If you absolutely must change the resolution after loading media, then I suggest making a setup procedure, and make functions to handle any media loading instead of natively. That way, you can check to make sure the loading is necessary...

Function load_image(fn$,num)
if file exist(fn$)=1 and num>0
if image exist(num)=0 then load image fn$,num,1
endif
Endfunction

This way, you could load all your media back in, but only if it's not already loaded and only if it finds the file. You could also use automatic numbering, so instead of num, you might use -1, which could tell the system to get a free image number instead and use that. I'd probably have these loader functions return the object, image, sound number if the loading is succesful. Maybe it can return a -1 if the file is missing, there's a few things you could do if you go this route. It's like, if your gonna do this, then you might as well do it properly, have some error trapping in there to make life easier when debugging. For a really dynamic WIP project, have it make dummy images even, or replace missing files with stand in cubes. I guess it depends on how you work, but I imagine it's possible to save a lot of compile time like this. Instead of compiling to see if the new media loads up ok, fixing it, compiling again until it works - well you could have it display the name of the file it hasn't found, then you could ignore that and have it make a dummy object instead - and you can debug more things at the same time, and see straight away what needs done. Worth considering going the whole hog if you have to take precautions anyway.