// Dvips2.vdm Date: 28.02.2004 Time: 13:24:51 // Fritz Heberlein (sla019@ku-eichstaett.de) // Starts dvips / Gsview // Needs DVIPS, GsView, and Ghostscript // I. Set up Dialog Box: // @5=First page, @6=Last page // #5=1: landscape, else portrait // #6: Radio Buttons: #6=1: Print Odd, #6=2: Print Even //1=all,2=odd,3=even // #7: Radio Buttons: GSView is used as: #7=1 previewer, #7=2 printer regset(10,FILEONLY) regset(11,PATHONLY) reg_set(5,"1") // default = start printing with page #1 reg_empty(6) reg_set(7,"1") reg_empty(8) reg_empty(9) #5=0 #6=1 #7=1 #77=Dialog_Input_1(5,"`DVI to PS`, 'First Page?',`??`,'Last Page?',`??`, '# of Copies?',`??`, `.v.c[]&Landscape`, `.g.l()&All`,`()&Odd`,`()&Even`, `.g.l()&Preview`,`()&Print`, ",SCREEN+CENTER+SET,0,0) if(#77==0) { breakout(extra)} if(reg_compare(5,"1")==0){ reg_set(5,"-p =1") } else{ reg_set(5,"-p ",INSERT) } // Set first page # if(reg_compare(6,"")==1){reg_set(6,"-l ",INSERT) } // Set last page # if(reg_compare(7,"")==1){reg_set(7,"-C ",INSERT) } // # of Copies if(#5==1){regset(8,"-t landscape")} // Landscape if(#6==2){regset(9,"-A ")} // Odd if(#6==3){regset(9,"-B ")} // Even //II. Start DVIPS sys("dvips |@(5) |@(6) |@(7) |@(8) |@(9) -o |@(11)\|@(10).ps |@(11)\|@(10).dvi",DOS+MAX+DELETE) // III. Preview or Print using GSView // Prerequisits: // 1. adjust your GsView path // 2. Set TEMP variable // 3. tell GsView first which type of printer you are using: Menu "Print") if(#7==1){ sys("gsview32 |@(11)\|@(10).ps",DOS+MAX) } if(#7==2){ sys("gsview32 -p |@(11)\|@(10).ps",DOS+MAX) }