;
; id: xxx -- firs x is the number of pictures, second x=1,2 denotes portrait or landscape
;            third x=0 is for square (circle) or rectangle
;
pro psout,id,ofile,EPS=eps

    set_plot,'ps',/interpolate,/copy
    CASE 1 OF
     id eq 0004 : begin     ; 1 letter page of 11 x 8
              ;  xs=16.7 & ys=23.0 & xof=1.5 & yof=6.0
                 xs=18.5 & ys=16.7 & xof=1.5 & yof=6.0
                 device,/portrait
                 end
     id eq 0006 : begin     ; 1 letter page of 11 x 8
                 xs=16.7 & ys=23.0 & xof=2.0 & yof=3.0
                 device,/portrait
                 end
     id eq 011 : begin     ; 1 rectangle
               ; xs=15.0 & ys=7.9 & xof=1.5 & yof=9.0
                 xs=18.0 & ys=9.5 & xof=1.5 & yof=9.0
                 device,/portrait
                 end
     id eq 021 : begin     ; 2 rectangle
                 xs=1.15*13.0 & ys=1.15*15.8 & xof=2.5 & yof=6.0
                 device,/portrait
                 end
     id eq 031 : begin     ; 3 regtangles
                 xs=12.0 & ys=18.0 & xof=5.0 & yof=5.0 ; for Carrington SC
              ;  xs=15.0 & ys=23.8 & xof=5.0 & yof=3.0 ; for Carrington SC
                 device,/portrait
                 end
     id eq 041 : begin     ; 4 regtangles
             ;   xs=20.0 & ys=14.0 & xof=1.0 & yof=7.0  ; 2 X 2
           ;     xs=18.0 & ys=14.0 & xof=1.0 & yof=7.0  ; 2 X 2
               ; xs=15.0 & ys=24.0 & xof=3.2 & yof=2.0  ; 1 X 4 SC
                 xs=0.8*15.0 & ys=0.8*24.0 & xof=3.2 & yof=4.0  ; 1 X 4 SC
         ;       xs=18.0 & ys=23.0 & xof=1.6 & yof=3.0  ; 1 X 4
                 device,/portrait
                 end
     id eq 051 : begin     ; 5 regtangles
               ; xs=11.0 & ys=16 & xof=4.0 & yof=5.0
                 xs=11.0 & ys=25 & xof=4.7 & yof=2.0
                 device,/portrait
                 end
     id eq 061 : begin     ; 6 regtangles
             ;   xs=15.8 & ys=14.0 & xof=3.0 & yof=10.0
                 xs=17.0 & ys=15.0 & xof=2.0 & yof=10.0
                 device,/portrait
                 end
     id eq 081 : begin     ; 8 regtangles
   ;             xs=12.0 & ys=16.1 & xof=2.5 & yof=4.5
                  xs=17.0 & ys=19.1 & xof=1.5 & yof=5.5
           ;      xs=17.0 & ys=22.1 & xof=1.5 & yof=3.0
   ;             xs=14.0 & ys=19.1*xs/17.0 & xof=1.5 & yof=5.5
           ;     xs=21.2 & ys=23.8 & xof=0.0 & yof=1.5
                 device,/portrait
                 end
     id eq 101 : begin     ; 10 regtangles
             ;   xs=17.0 & ys=23.8 & xof=1.5 & yof=2.0
                 xs=18.5 & ys=24.1 & xof=1.5 & yof=2.5
                 device,/portrait
                 end
     id eq 241 : begin     ; 24 rectangles
                 xs=18.0 & ys=23.0 & xof=2.0 & yof=3.0
              ;  xs=16.0 & ys=18.0 & xof=2.0 & yof=3.0
              ;  xs=18.0 & ys=20.0 & xof=2.0 & yof=3.0
                 device,/portrait
                 end
     id eq 301 : begin     ; 30 rectangles
                 xs=15.0 & ys=23.0 & xof=3.0 & yof=3.0
                 device,/portrait
                 end
     id eq 361 : begin     ; 8 regtangles
                 xs=18.5 & ys=24.1 & xof=1.5 & yof=2.5
                 device,/portrait
                 end
     id eq 401 : begin     ; 40 rectangles
               ; xs=15.0 & ys=23.0 & xof=3.0 & yof=3.0
                 xs=15.0 & ys=18.0 & xof=3.0 & yof=3.0
                 device,/portrait
                 end
     id eq 010:  begin     ; 1 circle
                 xs=20.0 & ys=19.3 & xof=0.0 & yof=4.0
             ;   xs=11.0 & ys=9.82 & xof=6.0 & yof=4.0
                 device,/portrait
                 end
     id eq 020:  begin     ; 2 circles
                 xs=12.4 & ys=24.0 & xof=4.3 & yof=1.6
              ;  xs=8.75 & ys=16.0 & xof=5.3 & yof=4.6
                 device,/portrait
                 end
     id eq 030:  begin     ; 3 circles
                 xs=8.5 & ys=24.0 & xof=4.3 & yof=1.6
                 device,/portrait
                 end
     id eq 040:  begin     ; 4 squares
             ;   xs=21.0 & ys=19.0 & xof=0.0 & yof=4.0
                 xs=19.0 & ys=17.0 & xof=0.0 & yof=4.0
             ;   xs=19.0 & ys=19.0 & xof=0.0 & yof=4.0
                 device,/portrait
                 end
     id eq 060:  begin     ; 6 squares
                 xs=16.3 & ys=22.5 & xof=3.0 & yof=3.0
           ;     xs=13.0 & ys=18.5 & xof=3.0 & yof=3.0
                 device,/portrait
                 end
     id eq 080:  begin     ; 8 squares
           ;     xs=11.0 & ys=19.5 & xof=4.0 & yof=4.0
                 xs=13.5 & ys=24.0 & xof=4.0 & yof=2.5
                 device,/portrait
                 end
     id eq 090:  begin     ; 4 squares
                 xs=21.0 & ys=21.0 & xof=0.0 & yof=4.0
                 device,/portrait
                 end
     id eq 100:  begin     ; 10 squares
                 xs=10.2 & ys=23.5 & xof=5.0 & yof=3.0
              ;  xs=7.9 & ys=17.5 & xof=5.0 & yof=3.0
                 device,/portrait
                 end
     id eq 150:  begin     ; 15 squares
                 xs=16.5 & ys=23.5 & xof=2.5 & yof=2.5
             ;   xs=10.6 & ys=15.0 & xof=4.0 & yof=4.0
                 device,/portrait
                 end
     id eq 1150:  begin     ; 15 small AR486
             ;   xs=18.0 & ys=20.0 & xof=2.5 & yof=2.5
                 xs=18.6 & ys=22.0 & xof=2.5 & yof=2.5
             ;   xs=10.6 & ys=15.0 & xof=4.0 & yof=4.0
                 device,/portrait
                 end
     id eq 2160:  begin     ; 16 large AR486
             ;   xs=15.2 & ys=23.5 & xof=2.5 & yof=2.5
                 xs=19.0 & ys=22.5 & xof=2.5 & yof=2.5
             ;   xs=10.6 & ys=15.0 & xof=4.0 & yof=4.0
                 device,/portrait
                 end
     id eq 3150:  begin     ; 15 full MDI images
             ;   xs=15.2 & ys=23.5 & xof=2.5 & yof=2.5
                 xs=16.0 & ys=23.5 & xof=2.5 & yof=2.5
             ;   xs=10.6 & ys=15.0 & xof=4.0 & yof=4.0
                 device,/portrait
                 end
     id eq 200:  begin     ; 20 squares
                 xs=20.8 & ys=23.5 & xof=0.5 & yof=2.5  ;for 20
             ;   xs=14.8 & ys=23.5 & xof=3.0 & yof=2.5
             ;   xs=10.6 & ys=15.0 & xof=4.0 & yof=4.0
                 device,/portrait
                 end
     id eq 250:  begin     ; 20 squares
                 xs=20.8 & ys=18.5 & xof=0.5 & yof=4.5  ;for 25
             ;   xs=14.8 & ys=23.5 & xof=3.0 & yof=2.5
             ;   xs=10.6 & ys=15.0 & xof=4.0 & yof=4.0
                 device,/portrait
                 end
     id eq 240:  begin     ; 24 squares
                 xs=10.0 & ys=22.5 & xof=4.5 & yof=3.0
              ;  xs=16.2 & ys=22.5 & xof=2.5 & yof=3.0
                 device,/portrait
                 end
     id eq 300:  begin     ; 30 squares
                 xs=19.8 & ys=22.5 & xof=1.0 & yof=3.0
                 device,/portrait
                 end
     id eq 012 : begin     ; 1 rectangle
                 xs=23.0 & ys=12.0 & xof=5.0 & yof=26.0  
                 device,/landscape
                 end
     id eq 022 : begin     ; 2 rectangle
             ;   xs=23.0 & ys=10.6 & xof=5.0 & yof=26.0  
                 xs=23.0 & ys=16.6 & xof=2.0 & yof=26.0  
                 device,/landscape
                 end
     id eq 0220: begin     ; 2 squares
                 xs=24.0 & ys=11.6 & xof=5.0 & yof=26.0  
                 device,/landscape
                 end
     id eq 0420: begin     ; 4 squares
             ;   xs=24.0 & ys=13.0 & xof=4.0 & yof=26.0 
                 xs=18.0 & ys=16.0 & xof=2.0 & yof=27.5 
                 device,/landscape
                 end
     id eq 042 : begin     ; 4 regtangles
                 xs=24.0 & ys=13.0 & xof=4.0 & yof=5.00 
             ;   xs=24.0 & ys=13.0 & xof=4.0 & yof=26.0 
             ;   xs=27.0 & ys=16.0 & xof=2.0 & yof=27.5 
                 device,/landscape
                 end
     id eq 062 : begin     ; 6 regtangles
           ;     xs=21.0 & ys=16.5 & xof=3.0 & yof=25.5
           ;     xs=25.2 & ys=17.8 & xof=3.0 & yof=26.5
           ;     xs=24.2 & ys=17.8 & xof=2.0 & yof=26.5
               ; xs=22.6 & ys=17.8 & xof=2.0 & yof=25.5
                 xs=20.0 & ys=16.0 & xof=2.0 & yof=25.5
                 device,/landscape
                 end
     id eq 0620 : begin     ; 1 rectangle
                 xs=23.0 & ys=14.4 & xof=4.0 & yof=26.0  
                 device,/landscape
                 end
     id eq 402 : begin     ; 40 circles
                 xs=23.0 & ys=14.7 & xof=4.0 & yof=26.5
                 device,/landscape
                 end
    ENDCASE 
    if keyword_set(eps) then $
       device,/color,xsize=xs,ysize=ys,/encapsulated,filename=ofile $
    else device,/color,xsize=xs,ysize=ys,xoffset=xof,yoffset=yof,filename=ofile

end