#bashdemo from Jim Le Surf
# Format version 201.0
# Creator: `DrawGenMod  '
# Global bounding box:  100 85  950.004 1150

Units $OSUnits
#Units $millimetres

Include "<Drawf32$Dir>.Lib.FontTable"
Include "<Drawf32$Dir>.Lib.Formes"


For $style from 1 to 8 {
   Set $x0  100
   Set $y0 Minus 900 times 100 $style
   set $offset times 4 $style
   Text {
     Colour r0g0b0
     Background Transparent
     Style 1
     Size 30 30
     StartAt $x0 $y0
     Text  Append 2 "style " Num2Str $style
   }
   path {
     FillColour r0g0b0
     OutlineColour r0g0b0
     Width 1.25
     Style {
       # 0x00000080
       WindingRule NonZero
       Dash {
         Offset 0
         #4 4 4 4
         $offset $offset $offset $offset
       }
     }
     Move 300 $y0
     Line 380 Plus $y0 80
     Move Plus 300 80  $y0
     Line 300 Plus $y0 80

     Move 450 Plus $y0  40
     Line 650 Plus $y0  40


   }
   path {
     FillColour Transparent
     OutlineColour r0g0b0
     Width 1.25
     Style {
       # 0x00000080
       WindingRule NonZero
       Dash {
         Offset 0
         $offset $offset $offset $offset
       }
     }
     rect { %x0 700 %y0 $y0 %x1 900 %y1 Plus $y0 80 }
   }
   #cercle

  path {
    FillColour Transparent
    OutlineColour r0g0b0
    Width 1.25
    Style {
      # 0x00000080
      WindingRule NonZero
      Dash {
        Offset 0
        $offset $offset $offset $offset
      }
    }
    circle_elems [ 900 Plus $y0 50 50 ]

   }


}
# end for

  set $y0  1000
  Text {
    Colour r0g0b0
    Background Transparent
    Style 1
    Size 30 30
    StartAt $x0 $y0
    Text "style 0"
  }

  path {
    FillColour Transparent
    OutlineColour r0g0b0
    Width 1.25
    Style {
      # 0x00000080
      WindingRule NonZero
#      Dash {
#        Offset 0
#        256 256 256 256
#      }
    }
    rect { %x0 Plus $x0 50  %y0 Plus $y0 50  %x1 Plus $x0 150 %y1 Plus $y0 150 }
#    #rectangle { 700 $y0 900 Plus $y0 80 }

    rect_hw { %x0 Plus $x0 300  %y0 Plus $y0 50  %h 150  %w 350 }

  }

