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