 # === mkdraw script gnr par SVG2Draw ===

Options {
  PaperSize 5
  Limits {
	#Portrait
 }
  Mode Select
}

FontTable {
	 1 "Trinity.Medium"
	 2 "Trinity.Medium.Italic"
	 3 "Homerton.Bold"
	 4 "Homerton.Medium"
}

Units 1

# %x0,%y0 left low corner
# %h, %w  hight, width
define rect_hw [ %x0 %y0 %w %h ] {
	Move  %x0 %y0
	Line ( ( %x0        %y0 + %h  ) )
	Line ( ( %x0 + %w   %y0 + %h  ) )
	Line ( ( %x0 + %w   %y0       ) )
	Line ( ( %x0        %y0       ) )
	Close
}



# circle.
# %cx, %cy  are circle center.
# %r  is circle radius
define circle [ %cx %cy %r ] {
	move ( %cx + %r )  %cy
	arc %cx %cy  $pi/2
	arc %cx %cy  $pi/2
	arc %cx %cy  $pi/2
	arc %cx %cy  $pi/2
	close
}

# ellipse.
# %cx, %cy  are ellipse center.
# %rx, %ry  are ellipse radius x, y
define ellips [ %cx %cy %rx %ry ] {
	move ( %cx + %rx )   %cy
	curve ( %cx + %rx )   %cy  ( %cx + %rx ) ( %cy + %ry )  %cx ( %cy + %ry )
	curve %cx ( %cy + %ry ) ( %cx - %rx ) ( %cy + %ry )  ( %cx - %rx )  %cy
	curve ( %cx - %rx )  %cy   ( %cx - %rx ) ( %cy - %ry )   %cx  ( %cy - %ry )
	curve %cx  ( %cy - %ry )  ( %cx + %rx ) ( %cy - %ry  )  ( %cx + %rx ) %cy
	close
}


#Start objects script

Group {
Path {
	FillColour 255 0 0
	OutlineColour 0 0 255
	Matrix  0.707107 0.707107 -0.707107 0.707107 50.000000 -20.710678
	Width 3.2
	Style {
	  # 0x00000000
	  WindingRule NonZero
	}
	rect_hw [ 10 10 100 50  ]
 }

Path {
	FillColour 255 0 0
	OutlineColour 0 0 255
	Matrix  0.707107 0.707107 -0.707107 0.707107 50.000000 -20.710678
	Width 3.2
	Style {
	  # 0x00000000
	  WindingRule NonZero
	}
	circle [ 150 35 25 ]
 }

Path {
	FillColour 0 255 0
	OutlineColour 0 153 0
	Matrix  0.707107 0.707107 -0.707107 0.707107 50.000000 -20.710678
	Width 4
	Style {
	  # 0x00000000
	  WindingRule NonZero
	}
	circle [ 250 35 25 ]
 }

}
#fin du fichier
