summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/simpsons/bart.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/simpsons/bart.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/simpsons/bart.mf123
1 files changed, 0 insertions, 123 deletions
diff --git a/Master/texmf-dist/fonts/source/public/simpsons/bart.mf b/Master/texmf-dist/fonts/source/public/simpsons/bart.mf
deleted file mode 100644
index f37d35cd3fe..00000000000
--- a/Master/texmf-dist/fonts/source/public/simpsons/bart.mf
+++ /dev/null
@@ -1,123 +0,0 @@
-% bart.mf by Raymond Chen (rjc@math.princeton.edu)
-
-% Bart Simpson.
-
-pictureof(Bart, 24u#, 24u#, 0);
- pickup thinpen;
-
- localpath eye_left, eye_right;
- eye_right = superellipse( (16.6u, 11.5u), (14u, 13.7u), (11.5u, 11u),
- (13.5u, 9u), .7);
- draw eye_right;
-
- localpath nose;
- nose = preclip((15u, 10u).. (17.5u, 10.8u){right} ...
- (20u, 9.7u){down} ... (16.7u, 8.2u){left}, eye_right);
- draw nose;
-
- localpath dimple;
- z1d = (12.8u, 6.3u);
- z2d = (12.2u, 5.2u);
- dimple = z1d{(z2d-z1d) rotated dimple_depth}..
- {(z2d-z1d) rotated -dimple_depth}z2d;
- draw dimple;
- labels(1d, 2d);
-
- localpath mouth;
- mouth = prepostclip(
- (18u, 9u).. tension infinity and 3..
- (19.6u, 5.3u) ..
- (19u, 5u){left} ..
- (14.3u, 5u) ..
- (12u, 6.2u), nose, dimple);
- draw mouth;
-
- eye_left = prepostclip(
- (18u, 9.7u){right}..
- (20u, 12.2u){up}..
- (18u, 14.2u){left}..
- {down}(15.5u, 12u), nose, eye_right);
- draw eye_left;
-
- % The spikes of the hair are equally spaced along a path.
- % (Which means they really aren't equally spaced, since speed
- % along a path is nonconstant. But that's good, because
- % that introduces variability.)
- %
- % n is two less than the number of spikes atop Bart's head. Although
- % you can choose any value you want, the official Bart has 9 spikes,
- % so you should set n to 7.
- %
-
- localpath hair_top, hair_bot;
- local(numeric)(bumpiness, n);
- bumpiness = 5; n = 7;
-
- z0h = (18.3u, 13u); z3h = (8.8u, 5.5u);
- z1h = (15.5u, 22u); z2h = (4u, 18.6u);
- z4h = (8.5u, 3.8u);
-
- hair_top = z1h{(z2h-z1h) rotated -bumpiness} ..
- {(z2h-z1h) rotated bumpiness}z2h;
- z1h' = z1h - 2u * (z1h-z0h) / length(z1h-z0h);
- z2h' = z2h - (2u * (z2h-z3h) / length(z2h-z3h)) rotated 10;
- hair_bot = z1h'{(z2h-z1h) rotated -bumpiness} ..
- {(z2h-z1h) rotated bumpiness}z2h';
-
- % What we want is for the valleys to be equally spaced, but 50%
- % further from the ends.
- numeric t[];
-
- % The following wild macro makes t0 ... t[n] equally spaced.
-
- for i = 1 upto 2n: t[i] - t[i-1] = endfor
-
- % and we make them 50% further from the far endpoints 0 and 1.
-
- .6(t0 - 0) = .6(1 - t[2n]);
-
- % But we allow the points to vary randomly, so it doesn't look
- % too computerized.
-
- localpath hair;
- hair = preclip(z0h --- z1h ---
- for i = 0 upto n-1:
- point t[2i] of hair_bot
- shifted (kemptness*(normaldeviate, normaldeviate)) ---
- point t[2i+1] of hair_top
- shifted (kemptness*(normaldeviate, normaldeviate)) ---
- endfor
- point t[2n] of hair_bot ---
- z2h .. tension infinity and 1 .. z3h{down} .. z4h, eye_left);
- draw hair;
-
- numeric t;
-
- localpath ear;
- ear = (9.5u, 8.9u) .. (8u, 7.5u) ..(9.3u, 6.5u);
- erase fill ear .. cycle;
- draw ear;
-
- drawtau( (8.5u, 7.8u), (9.5u, 8.2u), (9.1u, 7u), (9.1u, 8.3u) );
-
- % chin and neck
- z.chin = (14.4u, 2u);
- draw preclip(
- (17u, 5u){down} .. (16u, 4u){left} .. {(-1/2, -2)}z.chin,
- mouth);
-
- % Bart's shirt
- z1s = (x4h - 1.2u, 0u);
- z2s = z4h + (-.5u, -.8u);
- z3s = z.chin + (.2u, -.2u);
- z4s = (x.chin + .3u, 0u);
- draw z1s
- .. {z2s-z1s}z2s
- .. {dir -45}z4h
- .. (12u, 1.8u){right}
- ... z.chin &
- flex(z.chin, z3s, z4s);
- labels(1s, 2s, 4h);
-
- eyepos(Bart, 13.5u#, 11.2u#, 17.5u#, 12u#);
-endpicture;