home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / fish / 911-930 / ff925 / donsgenies / frenchgenies.lha / Rexx / ImprimeAvecPost.pprx < prev    next >
Text File  |  1993-08-03  |  5KB  |  143 lines
  1. /*
  2. @BImprimeAvecPost @P @I Ecrit et © par Don Cox  
  3. @IN'est pas du Domaine Publique. Tous Droits Réservés.
  4. Traduit et amélioré par Fabien Larini le 1/08/93.
  5.     
  6. Ce Génies permet d'imprimer le document à l'aide de l'interpréteur
  7. Postscript Post. Vous devez avoir installé Post correctement. Vous devez
  8. également configurer les préférences graphiques de votre imprimante 
  9. (surtout la taille de la page et la densité). L'avantage est que vous 
  10. pouvez imprimer les fichiers EPS et utiliser les fonts Adobe Type 1 plutôt
  11. que leurs conversions en CG. Il demande et sauve le répertoire où il doit
  12. stocker les fichiers temporaires et où se trouve Post.    
  13. */
  14.  
  15.   
  16. /* PrintUsingPost */
  17. /* This genie uses the public domain Postscript interpreter "Post" to print
  18. your document. The advantages are that you can print .eps files on a non-Post
  19. script printer and that you can use real Type 1 fonts, rather than converted
  20. versions.  The files "post" and "init.ps" should be in a drawer called "post"
  21. in your "PPage:" drawer (if not, modify the indicated line in the genie), the
  22. necessary .psfont files in CGFonts:ps, and "post.library" in libs:  You do
  23. NOT need "Conman". 
  24. Make sure the assigns for PPage: and CGFonts: are set up in your 
  25. startup-sequence or user-startup files. It is also essential to set the 
  26. Limits in your printer graphics preferences to the correct page size in 
  27. pixels i.e. the printer's dots-per-inch * page size in inches. Typical 
  28. figures are 1500 by 2100. */
  29. /* Note: There is a bug in Post which means that it will refuse to print 
  30. colour bitmaps on colour printers under WB 2.04. It seems to be OK under 
  31. WB 1.3. 
  32. Also, gradient fills do not work in colour. Colour separations and B&W are OK. 
  33. Versions of Post older than 1.7 have problems with files from Quark XPress 
  34. and Freehand.
  35. */
  36. /* Written by Don Cox. Copyright. Not Public Domain. All rights reserved. */
  37.  
  38.  
  39. trace n
  40. signal on error
  41. signal on syntax
  42. address command
  43. call SafeEndEdit.rexx()
  44. call ppm_AutoUpdate(0)
  45. cr="0a"x
  46.                                         
  47. /* Demande des données a sauver dans le fichier de configuration */
  48. fichiercfg="rexx:ImprimeAvecPost.cfg"
  49.     
  50. idem = 0                                                     
  51. post = ""
  52. tempdir = ""
  53.    
  54. /* Demande si nouvelle config */
  55. if exists(fichiercfg) then do
  56.     idem = ppm_Inform(2,"Utilisation de la configuration sauvée ?","Non","Oui")
  57.     end
  58.  
  59. if (~exists(fichiercfg) | idem=0) then do
  60.     /* Quel est le répertoire temporaire */
  61.     tempdir = ppm_GetFileName("Choix du Répertoire Temporaire","","")
  62.     if tempdir = "" then exit_msg("Opération Annulée")
  63.     /* Récupération du répertoire */
  64.     pos = max(lastpos("/",tempdir),lastpos(":",tempdir))
  65.     tempdir = delstr(tempdir,pos+1)
  66.  
  67.     /* Où est Post ? */
  68.     post =  ppm_GetFileName("Choix du répertoire de Post", "", "post")
  69.     if post = "" then exit_msg("Opération Annulée")
  70.     /* Récupération du répertoire */
  71.     pos = max(lastpos("/",post),lastpos(":",post))
  72.     post = delstr(post,pos+1)
  73.     /* Test de la présence de Post dans le répertoire choisi */
  74.     if ~exists(post"post") then exit_msg("Post ne se trouve pas dans le répertoire choisi")    
  75.     
  76.     if ppm_Inform(2,"Sauvegarder dans le fichier de configuration ?", "Non", "Oui") = 1 then do
  77.         if open(cfg,fichiercfg,"W") then do
  78.             call writeln(cfg,tempdir)
  79.             call writeln(cfg,post)
  80.             call close(cfg)
  81.         end
  82.         else
  83.             exit_msg("Impossible de sauvegarder dans le fichier de configuration")
  84.         end
  85.     end
  86. else if idem = 1 then do
  87.             if open(cfg,fichiercfg,"R") then do
  88.                 tempdir = readln(cfg)
  89.                 post = readln(cfg)
  90.                 call close(cfg)
  91.                 end
  92.              else
  93.                 exit_msg("Impossible de lire le fichier de configuration")
  94.       end
  95.  
  96. oldoutput = ppm_GetPSOutput()
  97. call ppm_SetPSFontDownload(0)
  98. call ppm_SetPSOutput(tempdir"IAP.ps")
  99. success = ppm_PrintDocPS(1,1)
  100. if success ~=1 then exit_msg("Sauvegarde temporaire du fichier Postscript impossible")
  101.     
  102. iaptemp = tempdir||"IAP"
  103.  
  104. /* Y a-t-il des espaces dans iaptempps */
  105. iaptempps = tempdir||"IAP.ps"
  106. if lastpos(" ",iaptempps) ~=0 then iaptempps = '22'x||iaptempps||'22'x
  107.  
  108. /* Set up a text file in temp dir and then send it to a temporary command window */
  109. conwindow = "CON:40/40/500/200/NewWindow"
  110. call open out, iaptemp, write  /* This wipes out any existing ram:temp  */
  111. call writeln out, "cd "post /* post is in drawer "Post" in "PPage:" - if not, change this line  */
  112. call writeln out, "post init.ps "iaptempps /* To use lots of fonts in one document, add memory to Post here. See Post documentation. */
  113. call writeln out, "delete "iaptempps
  114. call writeln out, "endcli"
  115. call close out            
  116.     
  117. /* Y a-t-il des espaces dans iaptemp */
  118. if lastpos(" ",iaptemp) ~=0 then iaptemp = '22'x||iaptemp||'22'x   
  119. "newcli" conwindow iaptemp
  120.  
  121. call ppm_SetPSOutput(oldoutput)
  122. call exit_msg()
  123.  
  124. end
  125.  
  126. error:
  127. syntax:
  128.     do
  129.     exit_msg("Arrêt du Génie dû à l'erreur: "errortext(rc))   
  130.     end
  131.  
  132. exit_msg:
  133.     do
  134.     parse arg message
  135.     if message ~= "" then
  136.     call ppm_Inform(1,message,)
  137.     call ppm_ClearStatus()
  138.     call ppm_PPageToFront()
  139.     call ppm_AutoUpdate(1)
  140.     exit
  141.     end
  142.  
  143.