.\" lamp.pic -- an opaque lamp
.\" $Id$
.\" Carlos Duarte, 971205/981025
.\"
.PS
r = 2
line invis right r*2
line invis up r*2 from last line .center - (0,r)
arc rad r from 1st line .end - ((1-.707)*r, .707*r) to 2nd line .end
arc rad r to 1st line .start - (-(1-.707)*r, .707*r)
spline \
to 2nd line .start - (r/3, 0) \
to 2nd line .start - (r/4, r/4) \
to 2nd line .start - (r/4, r/4)
spline from 1st arc .start \
to 2nd line .start + (r/3, 0) \
to 2nd line .start + (r/4, -r/4) \
to 2nd line .start - (-r/4, r/4)
define x {
arc rad r/100 cw from last line .start to last line .start - (0,r/30)
arc rad r/100 from last line .end to last line .end - (0,r/30)
line from 2nd last arc.end to last arc.end
}
line left r/2
x; x; x; x
box fill 1 wid r/7 ht r/25 below with .n at last line .center
.PE