OBJECT <name> [ OF <linkname> ]
<item> [ <[size]> ] [ <:type> ] [ ,
<item> ]
OBJECT Point
X|x|R|r:FLOAT,
Y|y|G|g:FLOAT,
Z|z|B|b:FLOAT
OBJECT vertex
X|x:FLOAT,
Y|y:FLOAT,
Z|z:FLOAT
OBJECT vertex
X|x/Y|y/Z|z:FLOAT
OBJECT point|vector|vertex|d3d
x/y/z:FLOAT
OBJECT Help
Type:UWORD, // help type
NEWUNION AmigaGuide // amigaguide help
File:PTR TO UBYTE, // file name
Node:PTR TO UBYTE // node name
UNION LocalHelp // inlined help
Text:PTR TO UBYTE, // pointer to text
Length:UWORD // length of the text
ENDUNION, // end of the union
HelpTitle:PTR TO UBYTE // title of the help
OBJECT xxx
x:W,
CUNION
a:L,
b:D,
[i,j,k]:c
ENDUNION,
y:L
OBJECT xxx // SIZEOF_xxx = 6 bytes
a:BYTE, // offset=0
b:BYTE, // offset=1
c:BYTE, // offset=2
d:WORD // offset=4
OBJECT PointList OF Point // see OBJECT Point above
Next:PTR TO Point,
Prev:PTR TO Point
OBJECT PointList
X|x|R|r:FLOAT,
Y|y|G|g:FLOAT,
Z|z|B|b:FLOAT,
Next:PTR TO Point,
Prev:PTR TO Point
OBJECT test
a:W,
OFFSET 4,
b:W,
RELOFS -4,
c:W
OBJECT mem
long:L,
OFFSET 2,
word:W,
OFFSET 3,
byte:B
OBJECT mem
long:L,
word=2:W,
byte=3:B
OBJECT xxx
0:WORD,
1:LONG,
3:DOUBLE,
0name:PTR TO CHAR,
1name:PTR TO CHAR
OBJECT test
array[10,5,2]:UB
x:=test.array[5,3,1]
x:=test.array[5*10+3*5+1]