iconEuler Examples

Graphics in XKCD Style

Some user had the bright idea to try to draw graphs in style of handdrawn sketches. See the following page for examples.

http://xkcd.org/

There are now implementations in various languages. I had some fun programming this in Euler. You need to load the package.

>load xkcd.e

There is some start code, which sets the "Homor Sans" font, which you need to install. You can find that in the net.

>r=1.2; handstart(-r,r,-r,r);

Now that we started, we can draw a graph in that style.

>clg; hold on;axes(); ...
 handlabel("x",r,0.1,color=black); ...
 handlabel("y",0.1,r,color=black); ...
 xtick([1,0.5,-0.5,-1]); ytick([-0.5,0.5,1,-1]); ...
 handcurve("x","x^3-x",-r,r,>white,color=blue,n=100); ...
 handlabel("y=x^3-x",0.5,0.5,color=blue);

To stop, do not forget to turn holding off.

>hold off; insimg;

Graphics in XKCD Style

Here is an another example.

>r=1.7; handstart(-0.1,r,-0.1,r);

This time, I define a function.

>function drawall ...
 global r;
 clg; hold on;
 handarrow(0,-0.1,0,r); handarrow(-0.1,0,r,0);
 handcurve("cos(x)","sin(x)",-0.05,pi/2+0.05,>white);
 x=0.45*pi/2; handplot([0,cos(x)],[0,sin(x)]);
 handplot([cos(x),cos(x)],[0,sin(x)],color=blue);
 handplot([0,cos(x)],[sin(x),sin(x)],color=red);
 handplot([cos(x),sec(x)],[sin(x),0],color=blue);
 handplot([cos(x),0],[sin(x),cosec(x)],color=red);
 handplot([0,sec(x)],[-0.05,-0.05],color=blue);
 handplot([-0.05,-0.05],[0,cosec(x)],color=red);
 handlabel("cos",cos(x)/2,sin(x),color=red);
 handlabel("cot",cos(x)/2,(cosec(x)+sin(x))/2,color=red);
 handspline([-0.05,0.2,0.4],[0.8,1.3,1.4],width=1,color=red);
 handlabel("cosec",0.4,1.4,color=red);
 handlabel("sin",cos(x)*0.8,sin(x)/2,color=blue);
 handlabel("tan",(sec(x)+cos(x))/2,sin(x)/2,color=blue);
 handspline([0.8,1.2,1.4],[-0.05,0.3,0.4],width=1,color=blue);
 handlabel("sec",1.4,0.4,color=blue);
 handbox(0.9,0.9,r,1.15,width=2);
 handlabel("Classical",0.95,1.0);
 handlabel("Trigonometry",0.95,0.9);
 handcurve("0.2*cos(x)","0.2*sin(x)",0,x);
 handplot([0.2,0.2],[0.05,0.4],width=1);
 handlabel("Angle",0.2,0.4,color=black);
 hold off;
 endfunction
>drawall(); hold off; insimg;

Graphics in XKCD Style

Examples