mdv1.ps

mfold

%!PS-Adobe-3.0 EPSF-2.0
%%BoundingBox: 0 0 612 792

%% Created by boxplot_ng version 3.2
%% Darrin Stewart
%%  and Michael Zuker
%% Sat Dec 10 16:41:15 2005
%%
%%
 1.000000 1.000000 scale
%%
%% To change image size ....
%% For full size image Use Bound ngBox:0 0 612 792
%%                     and 1.0 1.0 scale
%% For image .25 of full size, replace 612 with .25*612
%%                replace 792 with .25*792 and replace
%%                1.0 with .25: Other scales are similar.
%%                Valid scales are .05 to 1.00
%% ONLY scale and Bound ngBox lines above should be changed.
%%

%% Set colors
%% 0 is for text, 1 is optimal dots
%% 2 is almost optimal dots, 3-8 higher energy dots 
%% 9 is Labels, 10 is background, 11 is grid lines
%% OP is for lower triangle
%% original colors from boxplot-3.0.col

/color_0 {  0.000 0.000 0.150 setrgbcolor} def 
/color_1 {  0.000 0.000 0.000 setrgbcolor} def 
/color_2 {  0.950 0.000 0.000 setrgbcolor} def 
/color_3 {  0.000 0.850 0.000 setrgbcolor} def 
/color_4 {  0.750 0.750 0.000 setrgbcolor} def 
/color_5 {  0.800 0.000 0.800 setrgbcolor} def 
/color_6 {  0.200 0.600 0.800 setrgbcolor} def 
/color_7 {  0.650 0.500 0.200 setrgbcolor} def 
/color_8 {  0.900 0.700 0.700 setrgbcolor} def 
/color_9 {  0.000 0.000 0.800 setrgbcolor} def 
/color_10 {  0.990 0.990 0.990 setrgbcolor} def 
/color_11 {  0.650 0.650 0.650 setrgbcolor} def 
/color_12 {  0.100 0.100 0.300 setrgbcolor} def 
/color_OP {  0.000 0.000 0.000 setrgbcolor} def 

/len { 220 } def
/ISOLatin1Encoding where {pop save true}{false} ifelse
/reencodeISO {
   dup length dict begin
        {1 index /FID ne {def}{pop pop} ifelse} forall
         /Encoding ISOLatin1Encoding def
        currentdict
    end
} def
/findISO {
    dup /FontType known {
        dup /FontType get 3 ne {
              dup /CharStrings known {
                 dup /CharStrings get /Thorn known {
                     true
                }{ false } ifelse
            }{ false } ifelse
       }{ false } ifelse
     }{ false } ifelse
} def
/delta { /Symbol findfont findISO { reencodeISO /Symbol-ISO exch definefont
                              sf scalefont setfont }
                           { sf scalefont setfont } ifelse
  (d) show } def

%%   Define dots 


%% Dot shape and Size definitions
%% s1 is Optimal, s2 next to optimal through s7
%% sbox is for labels

%% Change si below to adjust size of dots
%% 1.0 is maximum size without overlapping dots 
%% sl is for labels 
%% s1 = 2.0 doubles size of optimal dots, b1
%% s2 = 2.0 doubles size of near optimal dots dots, b2
%% Use 0.4111 to make dots 1/72 inch or 1 point
%% Ignore Si,NSi,len 

/s1 { 1.0000 } def
/s2 { 1.0000 } def
/s3 { 1.0000 } def
/s4 { 1.0000 } def


/S1 {.50 s1 mul } def
/NS1 {-1.0 S1 mul } def
/S2 {.50 s2 mul } def
/NS2 {-1.0 S2 mul } def
/S3 {.50 s3 mul } def
/NS3 {-1.0 S3 mul } def
/S4 {.50 s4 mul } def
/NS4 {-1.0 S4 mul } def

/b1 {
  exch len exch sub 1 add 
 moveto
   S1 S1  rlineto
   NS1  0 rlineto
   NS1 NS1 rlineto
   0   NS1  rlineto
   S1    0 rlineto
   S1 S1 rlineto
   0    S1  rlineto
   closepath
   fill
   stroke
}def
/b2 {
  exch len exch sub 1 add 
 moveto
   S2 S2  rlineto
   NS2  0 rlineto
   NS2 NS2 rlineto
   0   NS2  rlineto
   S2    0 rlineto
   S2 S2 rlineto
   0    S2  rlineto
   closepath
   fill
   stroke
}def
/b3 {
  exch len exch sub 1 add 
 moveto
   S3 S3  rlineto
   NS3  0 rlineto
   NS3 NS3 rlineto
   0   NS3  rlineto
   S3    0 rlineto
   S3 S3 rlineto
   0    S3  rlineto
   closepath
   fill
   stroke
}def
/b4 {
  exch len exch sub 1 add 
 moveto
   S4 S4  rlineto
   NS4  0 rlineto
   NS4 NS4 rlineto
   0   NS4  rlineto
   S4    0 rlineto
   S4 S4 rlineto
   0    S4  rlineto
   closepath
   fill
   stroke
}def

%% Set background color

  color_10

0 0 moveto
611 0 rlineto
0 791 rlineto
-611 0 rlineto
0 -791 rlineto
closepath
fill

%%   Draw Text 

 color_12
/sf 7.5 def
/Helvetica findfont findISO { reencodeISO /Symbol-ISO exch definefont 
               sf scalefont setfont }
               { sf scalefont setfont } ifelse
20 766.000000 moveto
 (Output of boxplot_ng) show
20 755.000000 moveto
 (by D. Stewart and M. Zuker) show

  color_0

/sf 20 def
 /Helvetica findfont findISO { reencodeISO /Symbol-ISO exch definefont 
                              sf scalefont setfont }
        { sf scalefont setfont } ifelse
 166.000000 720 moveto
 (Fold of MDV-1 \(-\) RNA  at 37