# <test>
#   <name>t5.3.ot</name>
#   <content-description>A single cell with a variety of polygons</content-description>
#   <test-intention>Geometrical objects reader capabilities</test-intention>
#   <test-intention>POLYGON record reading</test-intention>
#   <test-intention>Repetitions of polygons</test-intention>
#   <test-intention>Polygon-related modal variables</test-intention>
#   <test-intention>Property attachement to polygons in various combinations</test-intention>
#   <content>
#     end_cell
#     end_lib
#   </content>
# </test>

header
  real 0 1000.0
  uint 0 ;# offset table is in start record
  for { set i 0 } { $i < 12 } { incr i } { uint 0 }

# property name 0
record PROPNAME
  str PROP0

# Cell ABC
record CELL_STR
  str ABC

record POLYGON
  bits 00111011 ;# 00PXYRDL
  uint 1        ;# layer
  uint 2        ;# datatype
  uint 0        ;# pointlist: 1-delta (hor. first)
    uint 4
    int 150
    int 50
    int -50
    int 50
  int 0         ;# geometry-x (absolute)
  int 100       ;# geometry-y (absolute)

record PROPERTY
  bits 00010110 ;# property info byte UUUUVCNS
  uint 0
  real 2 0.2    ;# prop value #0 = 0.2

record XYRELATIVE

record POLYGON
  bits 00111011 ;# 00PXYRDL
  uint 1        ;# layer
  uint 2        ;# datatype
  uint 0        ;# pointlist: 1-delta (hor. first)
    uint 4
    int 150
    int 50
    int -50
    int 50
  int -200      ;# geometry-x (relative)
  int 300       ;# geometry-y (relative)

record PROPERTY_REP

record XYABSOLUTE

record POLYGON
  bits 00110011 ;# 00PXYRDL
  uint 2        ;# layer
  uint 3        ;# datatype
  uint 0        ;# pointlist: 1-delta (hor. first)
    uint 4
    int 150
    int 50
    int -50
    int 50
  int 0         ;# geometry-x (absolute)

record PROPERTY_REP

record POLYGON
  bits 00001000 ;# 00PXYRDL
  int 1000         ;# geometry-y (absolute)

record PROPERTY_REP

record POLYGON
  bits 00110011 ;# 00PXYRDL
  uint 2        ;# layer
  uint 3        ;# datatype
  uint 1        ;# pointlist: 1-delta (ver. first)
    uint 4
    int 150
    int 50
    int -50
    int 50
  int 200       ;# geometry-x (absolute)

record PROPERTY_REP

record POLYGON
  bits 00110011 ;# 00PXYRDL
  uint 2        ;# layer
  uint 3        ;# datatype
  uint 2        ;# pointlist: 2-delta
    uint 7
    uint [ expr 150*4+0 ]
    uint [ expr 50*4+1 ]
    uint [ expr 50*4+2 ]
    uint [ expr 50*4+1 ]
    uint [ expr 50*4+2 ]
    uint [ expr 50*4+3 ]
    uint [ expr 50*4+2 ]
  int 400       ;# geometry-x (absolute)

record PROPERTY_REP

record POLYGON
  bits 00110011 ;# 00PXYRDL
  uint 2        ;# layer
  uint 3        ;# datatype
  uint 3        ;# pointlist: 3-delta
    uint 8
    uint [ expr 25*8+0 ]
    uint [ expr 50*8+4 ]
    uint [ expr 50*8+1 ]
    uint [ expr 50*8+5 ]
    uint [ expr 50*8+2 ]
    uint [ expr 50*8+6 ]
    uint [ expr 50*8+3 ]
    uint [ expr 50*8+7 ]
  int 700       ;# geometry-x (absolute)

record PROPERTY_REP

record POLYGON
  bits 00110011 ;# 00PXYRDL
  uint 2        ;# layer
  uint 3        ;# datatype
  uint 4        ;# pointlist: g-delta
    uint 8
    uint [ expr 25*16+0*2 ]
    uint [ expr 50*16+4*2 ]
    uint [ expr 50*16+1*2 ]
    uint [ expr 50*4+3 ]; int 50
    uint [ expr 50*16+2*2 ]
    uint [ expr 50*16+6*2 ]
    uint 41; int -75
    uint [ expr 25*16+7*2 ]
  int 900       ;# geometry-x (absolute)

record PROPERTY_REP

record POLYGON
  bits 00110011 ;# 00PXYRDL
  uint 2        ;# layer
  uint 3        ;# datatype
  uint 5        ;# pointlist: g-delta, double delta
    uint 8
    uint [ expr 25*16+0*2 ]
    uint [ expr 50*16+4*2 ]
    uint [ expr 50*16+1*2 ]
    uint [ expr 50*4+3 ]; int 50
    uint [ expr 50*16+2*2 ]
    uint [ expr 50*16+6*2 ]
    uint 41; int -75
    uint [ expr 25*16+7*2 ]
  int 1100      ;# geometry-x (absolute)

record PROPERTY_REP

record POLYGON
  bits 00111111 ;# 00PXYRDL
  uint 2        ;# layer
  uint 3        ;# datatype
  uint 1        ;# pointlist: 1-delta (ver. first)
    uint 4
    int 150
    int 50
    int -50
    int 50
  int 0         ;# geometry-x (absolute)
  int 2000      ;# geometry-y (absolute)
  uint 1        ;# repetition (3x4 matrix)
    uint 1
    uint 2
    uint 200
    uint 300

record PROPERTY_REP

record XYRELATIVE

record POLYGON
  bits 00110110 ;# 00PXYRDL
  uint 1        ;# datatype
  uint 1        ;# pointlist: 1-delta (ver. first)
    uint 4
    int 150
    int 50
    int -50
    int 50
  int 1000      ;# geometry-x (relative)
  uint 0        ;# repetition (reuse)

record PROPERTY_REP

record POLYGON
  bits 00110110 ;# 00PXYRDL
  uint 1        ;# datatype
  uint 1        ;# pointlist: 1-delta (ver. first)
    uint 4
    int 150
    int 50
    int -50
    int 50
  int 1000      ;# geometry-x (relative)
  uint 6        ;# repetition (vertical 3 times)
    uint 1
    uint 200
    uint 300

record PROPERTY_REP

tail