Blob
1 #include "mplot.h"2 void frame(double xs, double ys, double xf, double yf){3 register double osidex, osidey;4 osidex = e1->sidex;5 osidey = e1->sidey;6 e1->left = e0->left + xs * e0->sidex;7 e1->bottom = e0->bottom + ys * e0->sidey;8 e1->sidex = (xf-xs)*e0->sidex;9 e1->sidey = (yf-ys)*e0->sidey;10 e1->scalex *= (e1->sidex / osidex);11 e1->scaley *= (e1->sidey / osidey);12 e1->quantum=e0->quantum/sqrt(e1->scalex*e1->scalex +13 e1->scaley*e1->scaley);14 if(e1->quantum < .01)15 e1->quantum = .01;16 }