defaultg.prg

defequ

g_drawaxes:={
UPDFrequency(16);
Moveto(min1,0);
lineto(max1,0);
moveto(0,min2);
lineto(0,max2);
g_step1:=POW(10,LONG(LOG10(abs(max1-min1))-1.7));
g_step2:=POW(10,LONG(LOG10(abs(max2-min2))-1.7));
g_u:=(g_v:=LONG(min1/g_step1))*g_step1;
while({g_u<max1},{if(5*(g_v/5)==g_v,{g_w:=6*g_sy/(abs(g_v-10*(g_v/10))/5+1);},{g_w:=g_sy*2;});moveto(g_u,g_w);lineto(g_u,-g_w);g_u:=g_u+g_step1;g_v:=g_v+1;});
g_u:=(g_v:=10*(LONG(min1/g_step1)/10))*g_step1;
while({g_u<max1},{if(abs(g_u)>g_step1,{moveto(g_u-(strlen(numtos(g_u))*4*g_sx),-g_sy*8);print(g_u);},{});g_u:=g_u+10*g_step1;});
g_u:=(g_v:=LONG(min2/g_step2))*g_step2;
while({g_u<max2},{if(5*(g_v/5)==g_v,{g_w:=6*g_sx/(abs(g_v-10*(g_v/10))/5+1);},{g_w:=g_sx*2;});moveto(g_w,g_u);lineto(-g_w,g_u);g_u:=g_u+g_step2;g_v:=g_v+1;});
g_u:=(g_v:=10*(LONG(min2/g_step2)/10))*g_step2;
while({g_u<max2},{if(abs(g_u)>g_step2,{moveto(8*g_sx,g_u+7*g_sy);print(g_u);},{});g_u:=g_u+10*g_step2;});
moveto(max1-strlen(axe1)*g_sx*8,g_sy*20);printf("%s",axe1);
moveto(-(strlen(axe2)+1)*8*g_sx,max2-12*g_sy);printf("%s",axe2);
UPDFrequency(5);
DisplayView(0);
};