home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / os2 / grafika / splot / demo / landscap.spt < prev    next >
Text File  |  1994-06-05  |  2KB  |  65 lines
  1. #include <splot.h>                                  
  2. double *data1,*data2;
  3. main() 
  4.    {   
  5.  
  6.    /* select landscape orientation */
  7.    set(PAGE_ROT,ON);
  8.    set(LINEWIDTH,0.09); 
  9.    axes_box(20,14,1.5088,0,1.515,1.03e8,3,3);
  10.  
  11.    set(TICKLENGTH,0.5);
  12.    tickmarks(XAXES,1.510,1.515);
  13.  
  14.    set(LINEWIDTH,0.06); 
  15.    set(FONTWIDTH,0.8);
  16.    /* use short squat letters for labels */
  17.    set(FONTASPECT,1.1);
  18.    set(FONT,COMPLEX);
  19.    ticklabel(LOWER,1.510,1.515);
  20.    set(FONTWIDTH,1.0);
  21.    label(LEFT,"Relative PL Intensity");
  22.    text(9.00,1.90,"Photon energy (eV)");
  23.    text(20.00,15.00,"12 T");
  24.    text(21.00,13.00,"a)");
  25.    text(21.00,7.00,"b)");
  26.    set(FONTWIDTH,0.70);
  27.    text(13.47,9.84,"2p_0_");
  28.    text(5.70,8.35,"3p_0_");
  29.    text(8.80,6.46,"2s");
  30.    text(4.80,5.40,"3d_0_");
  31.    text(3.82,5.30,"3s");
  32.    text(7.65,5.70,"3p_-_");
  33.    text(11.65,5.60,"3d_-1_");
  34.    set(FONTWIDTH,0.75);
  35.    text(13.65,16.10,"a");
  36.    text(14.70,14.60,"b");
  37.    text(16.25,13.75,"b*");
  38.    text(16.80,13.10,"c*");
  39.        
  40.    set(LINEWIDTH,0.05); 
  41.    set(TICKLENGTH,0.35);
  42.    tickmarks(XAXES,1.509,1.511,1.512,1.513,1.514,1.516);
  43.        
  44.    /* constrain plot to axes box */
  45.    set(AXESCLIP,ON);
  46.  
  47.    /* change x axis units to eV */
  48.    set(XMULT,0.1239842e-3);   
  49.        
  50.    /* plot first spectrum */
  51.    set(XSHIFT,0);     
  52.    set(YSHIFT,47e6);     
  53.    set(YMULT,300);
  54.    readdata("demo\fe21m23a.dat",data1);
  55.    set(YRANGE,0,99e6);
  56.    drawdata(data1,0,1);
  57.  
  58.    /* plot second spectrum shifted up */
  59.    set(YSHIFT, 7e6);     
  60.    set(YMULT,150);
  61.    readdata("demo\fe22v31a.dat",data2);
  62.    set(YRANGE,0,45e6);
  63.    drawdata(data2,0,1);
  64.    }                                                
  65.