Image:Moment of inertia solid sphere.png
|
|
MetaPost image of a sphere, with dimensions and axes specified. Embedded in a TeX document, viewed with gv, rasterized via screenshot, saved as PNG with The Gimp, and compressed with optipng.
MetaPost source of the image follows.
u=18mm; textscale=u/12mm;
% this MetaPost script generates a PostScript file, which is then included in a % TeX document. if you want to generate EPS from this, you'll have to uncomment % the following line. (and probably do a couple more things, to boot.) %prologues := 1;
def sphere = begingroup; save pmax,dmax,persp,persp_nt,tens,arr; save rarrlft,rarrrt; save p,d; save axisprotrusion; save xax,yax,zax; pmax = 0; dmax = 1; persp_nt = 0.3; tens = 2-persp_nt; persp = persp_nt*u; arr = 0.3u; % how far to offset the arrows from the diagram axisprotrusion = 0.3u; % how far do the axes protrude? pair rarrlft,rarrrt; % endpoints for arrows path p[],d[]; % just plain paths for now pair xax[],yax[],zax[]; % x,y,z are taken; these are for the axes % solid paths p0 = fullcircle scaled 2u; % dotted paths d0 = halfcircle scaled u xscaled 2 yscaled (2*persp_nt); d1 = halfcircle scaled u xscaled 2 yscaled (2*persp_nt) rotated 180; % endpoints of dimension arrows rarrlft = (0,0); rarrrt = (sqrt(0.5)*u,sqrt(0.5)*u);
% actually draw
pickup pencircle scaled 1pt;
for i=0 upto pmax:
draw p[i];
endfor;
for i=0 upto dmax:
draw d[i] dashed evenly;
endfor;
drawdblarrow (rarrlft..rarrrt);
label.top(btex $r$ etex scaled textscale,.5[rarrlft,rarrrt]);
% x axis
xax0 = (0,0);
xax1 = (1u,0);
xax2 = (1u+axisprotrusion,0);
drawarrow (xax1..xax2);
draw xax0..xax1 dashed evenly;
label.rt(btex $x$ etex scaled textscale,xax2);
% y axis
yax0 = (0,0);
yax1 = point 1 of d1;
yax2 = (1.3+axisprotrusion/u)[yax0,yax1];
drawarrow (yax1..yax2);
draw yax0..yax1 dashed evenly;
label.bot(btex $y$ etex scaled textscale,yax2);
% z axis
zax0 = (0,0);
zax1 = (0,1u);
zax2 = (0,1u+axisprotrusion);
drawarrow (zax1..zax2);
draw zax0..zax1 dashed evenly;
label.top(btex $z$ etex scaled textscale,zax2);
endgroup;
enddef;
beginfig(1) sphere; endfig;
bye
The original author (Grendelkhan) licenses the source, as well as the image generated from it, under the GFDL.
Missing image Heckert_GNU_white.png | Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. Subject to disclaimers. |
File links
There are no pages that link to this file.
