;*********************************************************************************************
; Dateiname 	  : 	SD_GetColorValues.lsp
; Autor         : 	Stephan Wörz
; Erstellt      :	  04.05.2011
; geändert    	:
;*********************************************************************************************
; ä Ì       Ä Ø    ö Î    Ö Ú    ü Ï    Ü Û    ß Þ    ° ³     µ ó

(in-package  :SCHILLER)
(use-package :OLI)

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


(sd-defdialog 'SD_GetColorValues
  :dialog-title "Farbe auslesen"
  :toolbox-button nil

  :variables'(


	(SelFace	     :selection (*sd-face-seltype*)  	;;jede Fläche
             :multiple-items nil
             :title "FLØCHE"
             :Prompt-text "FlÌche wÌhlen"
             :after-input	(Progn
								(setq Part (sd-inq-parent-obj SelFace))
								(if (sd-inq-face-color SelFace)
									(progn
										(display "Farberte der gewaehlten Flaeche:")
										(display "================================")
										(display (format nil "FlÌchenfarbe RGB~30T: ~A"       			(sd-inq-face-color SelFace)))
										(display (format nil "FlÌchenfarbe INT~30T: ~A"       			(sd-rgb-to-color(sd-inq-face-color SelFace))))
										(display (format nil "FlÌchenfarbe HEX~30T: #~6,'0X"       	(sd-rgb-to-color(sd-inq-face-color SelFace))))
										(display (format nil "FlÌchenfarbe HSL~30T: ~A~%"       		(sd-rgb-to-hsl  (sd-inq-face-color SelFace))))
									);;progn
									(display (format nil "gewaehlte Flaeche hat keine Farbe!!!!~%"))
								);;if
								(display "Farberte des dazugehoerenden Teils:")
								(display "===================================")
								(display (format nil "Basisfarbe RGB (Teil)~30T: ~A"       		(sd-inq-part-color          Part :contents  )))
								(display (format nil "Basisfarbe INT (Teil)~30T: ~A"       		(sd-rgb-to-color (sd-inq-part-color Part :contents  ))))
								(display (format nil "Basisfarbe HEX (Teil)~30T: #~6,'0X"     (sd-rgb-to-color (sd-inq-part-color Part :contents  ))))
								(display (format nil "Basisfarbe HSL (Teil)~30T: ~A~%"       	(sd-rgb-to-hsl   (sd-inq-part-color          Part :contents  ))))
								(display "sonstige Teileparameter:")
								(display "========================")
								(display (format nil "Basisdichte~30T: ~A"      				(sd-inq-part-density        Part :contents  )))
								(display (format nil "Basistransparenz~30T: ~A" 				(sd-inq-part-transparency   Part :contents  )))
							); end progn
    );;SelFace
  );;variables
  
) ;; end defdialog