From Newsgroup: comp.lang.postscript

%!PS

% copyright (c) 2026 davidnewall.com
% permission to reproduce is granted on condition that this copyright
% notice is included unaltered.

% I saw something very like this, decades ago, on the door of colleagues
% at SAIT.

% the least of things take the most work
% I drew this -- DN
/horn {
gsave
currentpoint 25 add translate .2 dup scale
0 setlinewidth
newpath
0 0 60 0 360 arc fill % bulb
5 0 translate % offset horn
% draw horn by halves
[false true]{
0 0 60 0 4 index{30 arc}{-30 arcn}ifelse
currentpoint exch 150 add exch 1 index 200 add
1 index 200 5 index{add}{sub}ifelse 100 arcto
2 copy dup mul exch dup mul add sqrt 3 1 roll exch atan
4 index not{360 sub}if 0 0 0 5 2 roll
7 index{arcn}{arc}ifelse
60 0 lineto pop pop gsave stroke grestore fill
}forall
% sound
250 0 translate 3 setlinewidth
10 10 30{0 0 3 -1 roll -60 60 arc stroke}for
grestore 50 0 rmoveto
} def

/Helvetica 90 selectfont
/m/moveto load def
/s/show load def
10 50 m
(PS ) s
gsave /ZapfDingbats 90 selectfont ( ) dup 0 16#AA put s currentpoint
grestore moveto
( {) s horn (} if) s showpage
--- Synchronet 3.21f-Linux NewsLink 1.2

From Newsgroup: comp.lang.postscript

Thanks for sharing.


--- Synchronet 3.21f-Linux NewsLink 1.2

From Newsgroup: comp.lang.postscript

On Sun, 29 Mar 2026 23:14:53 +1100, David Newall wrote:

5 0 translate % offset horn

I found rCL2 0 translaterCY looks a bit better, closing up the thin gap
between the bulb and the horn proper.
--- Synchronet 3.21f-Linux NewsLink 1.2