
# === mkdraw script pour tester la construction d'Arcs ===
 # Application du fichier PDF elliptical_arc de L.Maisonobe

Options {
  PaperSize 4
  Limits {
	#Portrait
 }
 Zoom {
 ratio 1 1
 }
  Mode Select
}

# trac des axes
# %x et %y sont les coordonnes de l'origine
Define axes {
  Path {
   outlinecolour green
   Move 0 %y
   Line 1000 %y
   Move %x 0
   Line %x 1000
  }
}

Include "arcscript7"

#Drawing
axes { %x 300  %y 300 }

#------------------  arcs elliptical arcs -----------------




#une ellipse not rotated
Path {
      outlinecolour 104 204 00
      fillcolour none
      width ( 2 * .8 )
      Arc7 { %x0 300  %y0 300  %rx 100  %ry 80  %a0 ( 0 )  %da (  $Pi *  2 )  %teta ( 0 ) }
  }

#elliptical arc  Pi/6 from 0 to Pi/3
Path {
      outlinecolour 100 0 200
      fillcolour none
      width ( 2 * .8 )
      Arc7 { %x0 300  %y0 300  %rx 100  %ry 80  %a0 ( $Pi / 6 )  %da (  $Pi / 3 )  %teta ( 0 ) }
  }


#elliptical arc   from 0 to Pi/3 ( ellipse rotated  Pi/6 )
Path {
      outlinecolour 204 204 00
      fillcolour none
      width ( 2 * .8 )
      Arc7 { %x0 300  %y0 300  %rx 100  %ry 80  %a0 ( 0 )  %da (  $Pi / 3 )  %teta ( $Pi / 6 ) }
  }


#test Jenkov
  Path {
      outlinecolour 204 204 00
      fillcolour none
      width ( 2 * .8 )
      Arc7 { %x0 61.063389  %y0 41.361965  %rx 30  %ry 30  %a0 ( -2.349157 )  %da ( -2.665710 )  %teta ( 0 ) }
  }

  Path {
      outlinecolour 255 00 00
      fillcolour none
      width  ( 2 * .8 )
      Arc7 { %x0 48.936611 %y0 48.638035  %rx 30  %ry 30  %a0 -1.873275   %da -3.617475   %teta ( 0 ) }
  }

  Path {
      outlinecolour 00 255 00
      fillcolour none
      width  ( 2 * .8 )
      Arc7 { %x0 61.063389 %y0 41.361965  %rx 30  %ry 30  %a0 -2.349157   %da 3.617475   %teta ( 0 ) }
  }

  Path {
      outlinecolour 00 00 255
      fillcolour none
      width  ( 2 * .8 )
      Arc7 { %x0 48.936611 %y0 48.638035  %rx 30  %ry 30  %a0 -1.873275   %da 2.665710   %teta ( 0 ) }
  }

# TestMozilla
#  trac de la ligne
  Path {
    outlinecolour black
    fillcolour none
    width 1
    Move 10 315
    Line 315 10
   }
  Path {
      outlinecolour 00 00 00
      fillcolour   127 191 127
      width 1
    Arc7 { %x0  136.274994   %y0  188.774994  %rx 30.626228  %ry 51.043716  %a0 (  2.602013 ) %da ( 3.141593   ) %teta ( $Pi * 0  ) }
    Arc7 { %x0  193.825012  %y0 131.175003  %rx 30.087393  %ry 50.145657    %a0 ( -3.141593 ) %da (  3.141593 ) %teta ( - $Pi / 4  ) }
   }

#test sdz
   Path {
      outlinecolour 00 255 00
      fillcolour red
      width 1
    Arc7 { %x0 225.   %y0 437.50  %rx 27.903776 %ry 111.615105   %a0 (  -3.126590  ) %da ( 3.141593  ) %teta ( - $Pi / 6  ) }
    }


#test03: arc1 ellipse
   Path {
      outlinecolour 100 200 00
      fillcolour none
      width 1
    Arc7 { %x0 71.361969  %y0  85.105652 %rx 30  %ry 50   %a0 (  -2.363232   ) %da (  2.665710  ) %teta (  0  ) }
    #test03: arc2 ellipse incline
    Arc7 { %x0 75 %y0  75 %rx 34.589161  %ry 57.648605   %a0 ( -2.982187   ) %da (   3.141593  ) %teta (  $Pi / 6  ) }
    #test03: arc3 ellipse incline
    #Arc7 { %x0 75 %y0  75 %rx 34.589161  %ry 57.648605   %a0 ( -2.982187   ) %da (   -3.141593  ) %teta (  $Pi / 6  ) }
    #test03: arc4 ellipse incline
    #Arc7 { %x0 75 %y0  75 %rx 34.589161  %ry 57.648605   %a0 ( -2.982187   ) %da (   3.141593  ) %teta (  $Pi / 6  ) }
  }

