;;-----------------------------------------------------------------------------
;; HR-Dump configuration.
;; 
;;  Modified versions of this file should be copied with the same name 
;;  "hrd_customize" to a corp, site or user customization directory.
;;
;; (C)Copyright 1995-2010 Parametric Technology GmbH, all rights reserved.
;;-----------------------------------------------------------------------------
(in-package :hr-dump)

(export '(*hr-dump-tempdir* *hr-dump-exec-postprocess* 
                            *hr-dump-read-full-config*))

(defvar *hr-dump-tempdir* "")
(defvar *hr-dump-exec-postprocess* nil)
(defvar *hr-dump-read-full-config* nil)

;; ----------------------------------------------------------------------------
;; Defintion of the place to put temporary files. This place should have
;; enough free disk space( at least 200 MB ).
;; set *hr-dump-tempdir* if dump data should not be hold under $TEMPDIR
;; (setf *dump-tempdir* "") means: let the system generate the tempdir
(setf *hr-dump-tempdir* "")

;; ----------------------------------------------------------------------------
;; set *hr-dump-exec-postprocess* to NIL if you don't want the postprocess to
;; be executed (e.g. for debug purposes)
(setf *hr-dump-exec-postprocess* t)

;; ----------------------------------------------------------------------------
;; Default configuration
;;
(unless (and (not *hr-dump-read-full-config*)
          (si:eval-feature :NT))

  ;; --------------------------------------------------------------------------
  ;; map outconverter mappings  (= common abbreviations)
  ;;
  (defparameter *map-outconverters*
    '( ("tiff"    "|pnmtotiff -rowsperstrip 4096") 
       ("tiff.nocompr" "| pnmtotiff -none")
       ("jpeg" "| convert +dither +antialias +compress -quality 100 pnm:- jpg:- ")
       ("jpg"  "| convert +dither +antialias +compress -quality 100 pnm:- jpg:- ")
       ("png"  "| convert +dither +antialias +compress -quality 100 pnm:- png:- ")
       ("ppm"  "")
       ("ps" (format nil "| pnmtops -width ~,2F -height ~,2F "  
               (/ *used-width* 25.4)
               (/ *used-height* 25.4))
         )
    )
  )
)
