Read("writexfig.g");
s := XFigHeader(rec());
XFigColor(s,32,"#883322");
XFigComment(s,"My first polyline");
XFigPolyLine(s,XFIG_SUBTYPES.Polyline,
             [1000,1000,2000,2000,1000,2000,2000,1000],
             rec(pencolor := 32));
XFigEllipse(s,XFIG_SUBTYPES.EllipseRadius,
            rec( first := [3000,3000], second := [4000,5000] ));
XFigEllipse(s,XFIG_SUBTYPES.CircleRadius,
            rec( first := [3000,3000], second := [4000,5000] ));
XFigSpline(s,XFIG_SUBTYPES.OpenInterpolatedSpline,
           [1000,1000,2000,2000,1000,2000,2000,1000],
           [0,-1,-1,0], rec(pencolor := 32));
XFigText(s,XFIG_SUBTYPES.CenterJustified,
         "The quick brown fox jumps over the lazy dog!",
         rec( x := 6000, y := 6000, height := 180, length := 500));
XFigText(s,XFIG_SUBTYPES.CenterJustified, "Max Neunhöffer",
         rec( x := 6000, y := 6500, height := 180, length := 300));
XFigArc(s,XFIG_SUBTYPES.OpenEnded,["2000.0","2000.0"],
        [3000,2000,2000,1000,1000,2000],
        rec(direction := XFIG_DIRECTIONS.Counterclockwise));
XFigOpenCompound(s,[7000,7000,8000,8000]);
XFigEllipse(s,XFIG_SUBTYPES.CircleRadius,
            rec( first := [500,500], second := [700,700] ));
XFigEllipse(s,XFIG_SUBTYPES.CircleRadius,
            rec( first := [400,400], second := [700,700] ));
XFigCloseCompound(s);
FileString("guck.fig",s);