Hi Dick,
Below is a working example of a CFS2 VTP2 poly. It compiles without error with BGLC but obviously that doesn't mean much.
; ----------------------------------------
; This file contains terrain data of textured polygon type
; ----------------------------------------
; Since there are no instructions in SCASM to assemble
; such data, the following code can only be assembled
; with the BGLC assembler.
; You will need the following files to do that:
; TDFHeaders.inc
; TDFMacros.inc
; by Richard Ludowise
; ----------------------------------------
include TDFMacros.inc
include TDFHeaders.inc
; ----------------------------------------
BGLHeader -15, -15, 145, 145, TerrainHeaderStart, VTPHeader
VTPHeader label word
VTPFileHeader 100h, VTPIndexStart, TextureStart, VTPEnd
VTPDataStart label Word
BeginData0 label word
VTPDataArea 1, 1, 5, 30
VTPLayer 4, 0
VTPNumTexturesInLayer 1, 0
VTPTextureId 2, 0
VTPPolyCount 1, 0
VTPPolyMethod2 4, 0, 3
; Reserved bits not 0 in VTPPolyMethod2, position ac
VTPPointXY2 511, 65535
VTPPointXY2 257, 65280
VTPPointXY2 65535, 255
VTPPointXY2 65281, 0
VTPDataArea 1, 1, 6, 30
VTPLayer 4, 0
VTPNumTexturesInLayer 1, 0
VTPTextureId 3, 0
VTPPolyCount 1, 0
VTPPolyMethod2 4, 0, 3
; Reserved bits not 0 in VTPPolyMethod2, position c3
VTPPointXY2 511, 65535
VTPPointXY2 257, 65280
VTPPointXY2 65535, 255
VTPPointXY2 65281, 0
VTPDataArea 1, 1, 6, 31
VTPLayer 4, 0
VTPNumTexturesInLayer 1, 0
VTPTextureId 4, 0
VTPPolyCount 1, 0
VTPPolyMethod2 4, 0, 3
; Reserved bits not 0 in VTPPolyMethod2, position da
VTPPointXY2 511, 65535
VTPPointXY2 257, 65280
VTPPointXY2 65535, 255
VTPPointXY2 65281, 0
VTPDataArea 1, 1, 5, 31
VTPLayer 4, 0
VTPNumTexturesInLayer 1, 0
VTPTextureId 5, 0
VTPPolyCount 1, 0
VTPPolyMethod2 4, 0, 3
; Reserved bits not 0 in VTPPolyMethod2, position f1
VTPPointXY2 511, 65535
VTPPointXY2 257, 65280
VTPPointXY2 65535, 255
VTPPointXY2 65281, 0
EndData0 label word
BeginData1 label word
VTPDataArea 1, 1, 5, 0
VTPLayer 4, 0
VTPNumTexturesInLayer 1, 0
VTPTextureId 0, 0
VTPPolyCount 1, 0
VTPPolyMethod2 4, 0, 3
; Reserved bits not 0 in VTPPolyMethod2, position 7e
VTPPointXY2 511, 65535
VTPPointXY2 257, 65280
VTPPointXY2 65535, 255
VTPPointXY2 65281, 0
VTPDataArea 1, 1, 6, 0
VTPLayer 4, 0
VTPNumTexturesInLayer 1, 0
VTPTextureId 1, 0
VTPPolyCount 1, 0
VTPPolyMethod2 4, 0, 3
; Reserved bits not 0 in VTPPolyMethod2, position 95
VTPPointXY2 511, 65535
VTPPointXY2 257, 65280
VTPPointXY2 65535, 255
VTPPointXY2 65281, 0
EndData1 label word
VTPIndexStart label word
VTPIndexHeader 2, VTPIndexData, VTPDataStart
VTPIndexData label word
Cell_700_312 EQU VTPCellID 0, 700, 312
VTPIndexEntry Cell_700_312, VTPDataStart, BeginData0, EndData0
Cell_700_313 EQU VTPCellID 0, 700, 313
VTPIndexEntry Cell_700_313, VTPDataStart, BeginData1, EndData1
TextureStart label word
VTPTextureListHeader 6, TextureIndexStart, TextureDataStart, TextureDataEnd
TextureIndexStart label word
VTPTextureListEntry TextureDataStart, BeginTexture0, EndTexture0
VTPTextureListEntry TextureDataStart, BeginTexture1, EndTexture1
VTPTextureListEntry TextureDataStart, BeginTexture2, EndTexture2
VTPTextureListEntry TextureDataStart, BeginTexture3, EndTexture3
VTPTextureListEntry TextureDataStart, BeginTexture4, EndTexture4
VTPTextureListEntry TextureDataStart, BeginTexture5, EndTexture5
TextureDataStart label word
BeginTexture0 label word
VTPTextureName "MR_Bowen_1.bmp"
VTPTextureType 13, 0, 2, 82
; Reserved not 0 in VTPTxtureType, position 17d
EndTexture0 label word
BeginTexture1 label word
VTPTextureName "MR_Bowen_6.bmp"
VTPTextureType 13, 0, 2, 82
; Reserved not 0 in VTPTxtureType, position 18c
EndTexture1 label word
BeginTexture2 label word
VTPTextureName "MR_Bowen_5.bmp"
VTPTextureType 13, 0, 2, 82
; Reserved not 0 in VTPTxtureType, position 19b
EndTexture2 label word
BeginTexture3 label word
VTPTextureName "MR_Bowen_4.bmp"
VTPTextureType 13, 0, 2, 82
; Reserved not 0 in VTPTxtureType, position 1aa
EndTexture3 label word
BeginTexture4 label word
VTPTextureName "MR_Bowen_3.bmp"
VTPTextureType 13, 0, 2, 82
; Reserved not 0 in VTPTxtureType, position 1b9
EndTexture4 label word
BeginTexture5 label word
VTPTextureName "MR_Bowen_2.bmp"
VTPTextureType 1, 1, 0, 0
BYTE "O"
BYTE 0 EndTexture5 label word
TextureDataEnd label word
VTPEnd label word
;----------------------------------------------------
;----------------------------------------------------
Cheers :ernae:
Lindsay