1import graph;
2
3picture pic;
4real xsize=200, ysize=140;
5size(pic,xsize,ysize,IgnoreAspect);
6
7pair[] f={(5,5),(50,20),(90,90)};
8pair[] df={(0,0),(5,7),(0,5)};
9
10errorbars(pic,f,df,red);
11draw(pic,graph(pic,f),"legend",
12     marker(scale(0.8mm)*unitcircle,red,FillDraw(blue),above=false));
13
14scale(pic,true);
15
16xaxis(pic,"$x$",BottomTop,LeftTicks);
17yaxis(pic,"$y$",LeftRight,RightTicks);
18add(pic,legend(pic),point(pic,NW),20SE,UnFill);
19
20picture pic2;
21size(pic2,xsize,ysize,IgnoreAspect);
22
23frame mark;
24filldraw(mark,scale(0.8mm)*polygon(6),green,green);
25draw(mark,scale(0.8mm)*cross(6),blue);
26
27draw(pic2,graph(pic2,f),marker(mark,markuniform(5)));
28
29scale(pic2,true);
30
31xaxis(pic2,"$x$",BottomTop,LeftTicks);
32yaxis(pic2,"$y$",LeftRight,RightTicks);
33
34yequals(pic2,55.0,red+Dotted);
35xequals(pic2,70.0,red+Dotted);
36
37// Fit pic to W of origin:
38add(pic.fit(),(0,0),W);
39
40// Fit pic2 to E of (5mm,0):
41add(pic2.fit(),(5mm,0),E);
42
43