#fontions en test

# Circle
# %x,%y is centre
# %r    is radius
define circle_elems [ %x %y %r ] {
  move ( ( %x + %r %y ) )
  arc %x %y $pi/2
  arc %x %y $pi/2
  arc %x %y $pi/2
  arc %x %y $pi/2
  close
}

# Filled circle at (200,200), radius 50.
path {
  outlinecolour none
  fillcolour wimp_red
  circle_elems [ 200 200 50 ]
}


# Box with rounded corners.
# %x0,%y0 is top left corner point
# %x0,%y0 is bottom right corner point
# %r    is corner radius
define rbox_elems [ %x0 %y0 %x1 %y1 %r ] {
  move ( ( %x1 - %r  %y0             ) )
  arc  ( ( %x1 - %r  %y0 + %r  $pi/2 ) )
  line ( ( %x1       %y1 - %r        ) )
  arc  ( ( %x1 - %r  %y1 - %r  $pi/2 ) )
  line ( ( %x0 + %r  %y1             ) )
  arc  ( ( %x0 + %r  %y1 - %r  $pi/2 ) )
  line ( ( %x0       %y0 + %r        ) )
  arc  ( ( %x0 + %r  %y0 + %r  $pi/2 ) )
  close
}

# Lower box has sharper corners.
path { width 1 rbox_elems [ 300 600 400 700 10 ] }
path { width 3 rbox_elems [ 300 300 400 500 20 ] }



TextArea {
  Column 100 400  200 500
  Column 220 400  320 500
  Colour r0g0b0
  Background r255g255b255
  Text {
    \! 1
    \F 1 Trinity.Medium.Italic 12
    \F 2 Trinity.Medium 12
    \1
    \AD
    \D2
    \L12
    \P24
    Really there should be some escape sequences at the start
    of this; too bad. This text will be formatted in the
    2 columns specified at the start of the obj description,
    or would be if the escape sequences were there.
  }
}
