.\" 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