;*****************************************
;*                                       *
;* Thumbnail erzeuger mit Rotierfunktion *
;*                                       *
;* Author: Massimo Castell               *
;*                                       *
;* Datum: 24.06.04                       *
;*                                       *
;*****************************************

( OLI::sd-defdialog 'rotierer
  :dialog-title "Viewport rotieren"
  :toolbox-button T

   :variables
   '(
     ( viewport
         :value-type :string
         :initial-value "1"
         :title "Viewport"
         :prompt-text "Bitte den Viewport angeben"
      )
     ( achse
         :value-type :string
         :title "Achse"
         :prompt-text "Um welche Achse soll gedreht werden?"
         :proposals ("x" "y" "z")
      )
     ( grad
         :value-type :integer
         :title "Winkel"
         :prompt-text "Welcher Winkel pro Schritt?"
      )
     ( schritt
         :value-type :integer
         :initial-value 1
         :title "Schritt"
         :prompt-text "Wieviel Schritte?"
      )
     ( xsize
         :value-type :integer
         :title "X-Size of JPG"
     )
     ( ysize
         :value-type :integer
         :title "Y-Size of JPG"
     )
   )

  :local-functions
  '(
     ( doit ()
         (progn
           (loop for i from 1 to schritt
              do
                (if (string= achse "x")
                  (rotate_vp viewport :screen_x grad)
                )
                (if (string= achse "y")
                  (rotate_vp viewport :screen_y grad)
                )
                (if (string= achse "z")
                  (rotate_vp viewport :screen_z grad)
                )
                (create_thumbnail :vp viewport :size :user :size_x xsize :size_y ysize :fit :off :filename (format nil "c:/temp/Bild~3,'0D.jpg" i))
           ) ; ende loop
         ) ; ende progn
     ) ; ende doit
  ) ; ende local

  :ok-action '(doit)

) ; end dialog