;*********************************************************************************************
; Dateiname 		: 	SD_CreateThumbnails.lsp
; Autor         : 	Stephan Wörz
; Erstellt      :		16.12.2010
; geändert    	:
;*********************************************************************************************
; Beschreibung	:		Erzeugt Thumbnails von gewählter Baugruppe
;                     
;	Optionen			:		-		
;										-		
;										-	
; Bemerkungen   :   - 
;
; Beachten      :   - 
;                   - 
;                   - 
;                   - 
;                   -  
;                   - 
;                   - 
;                   - 
;*********************************************************************************************
; ----------------------------------------------------------------------------------------
; ä Ì	   Ä Ø    ö Î    Ö Ú    ü Ï    Ü Û    ß Þ    ° ³	
; ----------------------------------------------------------------------------------------

; Änderungen
;



(in-package :Teo)

(use-package :OLI)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(sd-hide-console-window)                  
;(sd-show-console-window)                 
(setf si::*enter-break-handler* nil)  

;;Grundeinstellungen
	(setf perspective nil)
	(vp_background (sd-inq-current-vp) :type :color :color1 :color 16777215 :done complete)
	
	(setf HelpText "Das Tool bietet folgende Funktion:
      												Es werden von einer gewÌhlten Baugruppe
      												JPGs aller 10 Hauptansichten erstellt.
      												Die JPGs werden nach
      												C:\\\Temp\\\Thumbnails
      												geschrieben"
  );;
	
	
	
	
;;Definieren der Ansichten
	(setf VA 
			(make-sd-vp-camera-struct 
				:from-pt 			50.000000000000028,50.0,1638.6495771111893
				:to-pt 				50.000000000000028,50.0,75.000000000000028 
				:up-dir 			0.0,1.0,0.0
				:back-clip		123.75000000000004
				:front-clip 	-131.06249999999997
				:projection 	1.0 
				:view-field 	7.3945097077251454	;Blickfeld - Zoom
			);;
	);;

	(setf HA 
			(make-sd-vp-camera-struct 
				:from-pt 			50.0,50.000000000000007,-1488.6495771111893
				:to-pt 				50.0,50.000000000000007,75.0 
				:up-dir 			0.0,1.0,0.0
				:back-clip		123.75
				:front-clip 	-131.0625
				:projection 	0.0 
				:view-field 	7.3945097077251454	;Blickfeld - Zoom
			);;
	);;
 
	(setf LI 
			(make-sd-vp-camera-struct 
				:from-pt 			-1513.6495771111893,50.0,75.000000000000028
				:to-pt 				50.000000000000028,50.0,75.000000000000028 
				:up-dir 			0.0,1.0,0.0
				:back-clip		82.499999999999972
				:front-clip 	-87.375000000000028
				:projection 	1.0 
				:view-field 	7.3945097077251454	;Blickfeld - Zoom
			);;
	);;

	(setf RE 
			(make-sd-vp-camera-struct 
				:from-pt 			1613.6495771111893,50.0,75.000000000000028
				:to-pt 				50.000000000000028,50.0,75.000000000000028 
				:up-dir 			0.0,1.0,0.0
				:back-clip		82.500000000000028
				:front-clip 	-87.374999999999972
				:projection 	1.0 
				:view-field 	7.3945097077251454	;Blickfeld - Zoom
			);;
	);;

	(setf DS 
			(make-sd-vp-camera-struct 
				:from-pt 			50.000000000000007,1613.6495771111893,75.0
				:to-pt 				50.000000000000007,50.0,75.0 
				:up-dir 			0.0,0.0,-1.0
				:back-clip		82.5
				:front-clip 	-87.375
				:projection 	0.0 
				:view-field 	7.3945097077251454	;Blickfeld - Zoom
			);;
	);;

	(setf US 
			(make-sd-vp-camera-struct 
				:from-pt 			50.000000000000007,-1513.6495771111893,75.0
				:to-pt 				50.000000000000007,50.0,75.0 
				:up-dir 			0.0,0.0,1.0
				:back-clip		82.5
				:front-clip 	-87.375
				:projection 	0.0 
				:view-field 	7.3945097077251454	;Blickfeld - Zoom
			);;
	);;


	(setf HL 
			(make-sd-vp-camera-struct 
				:from-pt 			-846.31193521446971,947.9273274766997,-821.31193521446971
				:to-pt 				56.461569048919984,45.153823213310034,81.461569048919984
				:up-dir 			0.40824829046386296,0.81649658092772603,0.40824829046386313
				:back-clip		156.45077149660585
				:front-clip 	-186.82004792845103
				:projection 	0.0 
				:view-field 	7.3945097077251454	;Blickfeld - Zoom
			);;
	);;


	(setf HR 
			(make-sd-vp-camera-struct 
				:from-pt 			959.23507331230962,947.9273274766997,-821.31193521446971
				:to-pt 				56.461569048919984,45.153823213310034,81.461569048919984 
				:up-dir 			-0.40824829046386296,0.81649658092772603,0.40824829046386313
				:back-clip		163.9119487561685
				:front-clip 	-179.35887066888841
				:projection 	0.0 
				:view-field 	7.3945097077251454	;Blickfeld - Zoom
			);;
	);;


	(setf VL 
			(make-sd-vp-camera-struct 
				:from-pt 			-846.31193521446971,947.9273274766997,984.23507331230962
				:to-pt 				56.461569048919976,45.153823213310034,81.461569048919984 
				:up-dir 			0.40824829046386318,0.81649658092772603,-0.40824829046386285
				:back-clip		163.9119487561685
				:front-clip 	-179.35887066888841
				:projection 	0.0 
				:view-field 	7.3945097077251454	;Blickfeld - Zoom
			);;
	);;


	(setf VR 
			(make-sd-vp-camera-struct 
				:from-pt 			959.23507331230985,947.9273274766997,984.23507331230962
				:to-pt 				56.461569048919976,45.153823213310034,81.461569048919984
				:up-dir 			-0.40824829046386302,0.81649658092772603,-0.40824829046386296
				:back-clip		171.37312601573109
				:front-clip 	-171.89769340932577
				:projection 	0.0 
				:view-field 	7.3945097077251454	;Blickfeld - Zoom
			);;
	);;





(sd-defdialog 'SD_CreateThumbnails
  :dialog-title "CREATE THUMBNAILS"
  :toolbox-button t
  :variables
  '(
    (object
      :value-type  :assembly
      :initial-value nil
      :modifies nil
      :title "Assembly"
      :multiple-items nil
      :after-input  (progn

                    );;progn
    );;object
 
  

("INFO")

  (Info
    :title "Kurzanleitung"
    :toggle-type :wide-toggle
    :Push-action  (sd-display-message HelpText
    :Push  "OK"
  );;sd-display-message

	);;Info
	


  );;variables

:local-functions
 '(
;; -------------------------------------------------------------------------------------------------------------------------------------------------
;; Funktion zum erzeugen der Thumbnails

		(CreateThumb (VP Filename) 
			(oli::sd-set-vp-camera (sd-inq-current-vp) VP :smooth t)
			(if perspective
				(set_vp_view_mode (sd-inq-current-vp) :perspective)
				(set_vp_view_mode (sd-inq-current-vp) :parallel)
			);;if
			(frame2-ui::fit_vp (sd-inq-current-vp))
      (ui::uic-vp-cmd "redraw_vp")	
      (create_thumbnail :vp (sd-inq-current-vp) :size :user :SIZE_X 15000 :SIZE_Y 15000 :FIT :ON :filename (format nil "C:/TEMP/THUMBNAILS/~A.jpg" Filename) :OVERWRITE)
		);;CreateThumb


);;local-functions

  :Ok-action '(progn  								
              		(CreateThumb VA "VA")
              		(CreateThumb HA "HA")
              		(CreateThumb LI "LI")              		              		
              		(CreateThumb RE "RE")              		              		
              		(CreateThumb DS "DS")              		              		
              		(CreateThumb US "US")              		              		
              		(CreateThumb HL "HL")              		              		
              		(CreateThumb HR "HR")              		              		
              		(CreateThumb VL "VL")              		              		
              		(CreateThumb VR "VR")              		              		
              );;progn



  :help-action '(sd-display-message HelpText
  :title "Create Thumbnails - Kurzanleitung"
  :Push  "OK!"

  );;sd-display-message

) ;; end defdialog


;(trace SetPartMat)
;(trace SetAssyMat)