(/pi ) <8b><db0f4940><9233>                                                   % /pi 3.1415927 def
(/cs [[.2 0 .02][.9 .35 0][.02 .15 .5][.2 0 .02][.32 .36 .3][1 .76 .6]] ) <9233>
(306 396 ) <92ad> (.8 ) <9238><928b>                                          % 306 396 translate .8 dup scale
(/u {2 ) <9258><92a9><9200> (.9 ) <923e> (exp} ) <9233>                       % /u {2 index sub abs .9 exch exp} def   
(/F {)                                                                        % /F {
  (-187 25 188 {u 60 ) <926e><926c><9201> (} ) <9248>                         %   -187 25 188 {u 60 neg mul add} for
  <9238> (2 ) <926c> (sin 45 ) <926c> (3 2 ) <9287><9201><923e>               %   dup 2 mul sin 45 mul 3 2 roll add exch
  ([-63 138] {u 60 ) <926c><9201> (} ) <9249>                                 %   [-63 138] {u 60 mul add} forall
  <9238> (2 ) <926c> (sin -90 ) <926c> (3 2 ) <9287><9201><923e> (-12 ) <9201>  % dup 2 mul sin -90 mul 3 2 roll add exch -12 add
  ([-163 38 238] {u 60 ) <926c><9201> (} ) <9249>                             %   [-163 38 238] {u 60 mul add} forall
  <9238> (2 ) <926c> (sin 45 ) <926c> (3 2 ) <9287><9201><923e>               %   dup 2 mul sin 45 mul 3 2 roll add exch
(} ) <920e><9233>                                                             % } bind def
<924e>                                                                        % gsave
(300 -4 2 {)                                                                  % 300 -4 2 {
  (/ps 6.3 2 ) <9258> (.8 ) <926c><926c> (5 ) <926c><922c><9233>              %   /ps 6.3 2 index .8 mul mul 5 mul cvi def
  (/d pi ps ) <9236> (180 pi ) <9236><926c> (sin 2 ) <926c><9233>             %   /d pi ps div 180 pi div mul sin 2 mul def
  (0 2 ) <9219><926f> (F ) <926b>                                             %   0 2 copy newpath F moveto
  (ps {)                                                                      %   ps {
    <9238> (3 1 ) <9287> (d ) <926c><92a9><9238> (d ) <926c> (3 2 ) <9287><9201>  % dup 3 1 roll d mul sub dup d mul 3 2 roll add
    (2 ) <9219> (F ) <9263>                                                   %     2 copy F lineto
  (} ) <9283>                                                                 %   } repeat 
  (/cs [cs ) <9202><9275><9238><9202><9275><929d> (6 1 ) <9287> (] ) <9233>   %  /cs [cs aload pop dup aload pop setrgbcolor 6 1 roll] def
  <9275><9275><9216><9242>                                                    %   pop pop closepath fill
(} ) <9248>                                                                   % } for
<924d>                                                                        % grestore
<92a1>                                                                        % showpage

%
% gs -q rfa-generate-binary-stoner.ps >rfa-binary-stoner.ps
%

count 1 sub -1 0 {
  index print
} for
quit