(use-package :OLI)
(set-part-default-density 7.85e-3)

(sd-defdialog 'SD_Teilematerial

:dialog-title "Teilematerial" 
:toolbox-button t

:variables 
   '(  
     ("Anwenden auf...")
     (Teile	:value-type :part
     	     :modifies nil
               :title "Teile"
               :multiple-items t
               :initial-value nil 
     )
	 ("")
	 (weiter	:toggle-type :wide-toggle
				:push-action
				(progn
				(sd-call-cmds (next-action))
				(setq Teile nil)
				)
     )
     ("Materialauswahl")
;; ----------------------------------------------------------------------------------------------------------------------------------------------------         
     (Aluminium
        :title (sd-multi-lang-string "Aluminium" :german "Aluminium")
        :toggle-type :grouped-toggle :size :second
	    :push-action (progn
	                    (setq dichte 2.71)
	                    (setq farbe2 (make-gpnt3d :x 0.278 :y 0.675 :z 0.788))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      )
;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
	 (Baustahl
        :title (sd-multi-lang-string "Steel" :german "Baustahl")
        :toggle-type :grouped-toggle :size :second
	    :push-action (progn
	                    (setq dichte 7.85)
	                    (setq farbe2 (make-gpnt3d :x 0.412 :y 0.459 :z 0.506))
                  		(setq Transparenz 0)
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      )            
;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
      (Blei
        :title (sd-multi-lang-string "Lead" :german "Blei")
	    :toggle-type :grouped-toggle :size :second                            
	    :push-action (progn
	                    (setq dichte 11.34)
	                    (setq farbe2 (make-gpnt3d :x 0.463 :y 0.471 :z 0.596))
 	                    (setq Transparenz 0)
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      )      
;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
      (Densimet
        :title (sd-multi-lang-string "Densimet" :german "Densimet")
	    :toggle-type :grouped-toggle :size :second                             
	    :push-action (progn
	                    (setq dichte 18)
	                    (setq farbe2 (make-gpnt3d :x 0.322 :y 0.306 :z 0.486))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      )            
;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
      (Edelstahl
        :title (sd-multi-lang-string "Stainless-Steel"
                             :german "Edelstahl")
        :toggle-type :grouped-toggle :size :second
	   :push-action (progn
	                    (setq dichte 7.9)
	                    (setq farbe2 (make-gpnt3d :x 0.325 :y 0.384 :z 0.541))
		                (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      )      
;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
      (Glas
        :title (sd-multi-lang-string "Glass"
                             :german "Glas")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                (setq dichte 2.55)
	                (setq farbe2 (make-gpnt3d :x 0.882 :y 0.914 :z 0.984))
                    (setq Transparenz 0.5)	                    
	                (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      )

      ;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
      (Granit
      :title (sd-multi-lang-string "Granite"
                          :german "Granit")
        :toggle-type :grouped-toggle :size :second                             
	    :push-action (progn
	                    (setq dichte 2.8)
	                    (setq farbe2 (make-gpnt3d :x 0.0863 :y 0.161 :z 0.247))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	      			 );endprogn
      )       
;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
      (Grauguss
        :title (sd-multi-lang-string "Cast-Iron"
                             :german "Grauguss")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 7.2)
	                    (setq farbe2 (make-gpnt3d :x 0.0863 :y 0.161 :z 0.247))
	                    (setq Transparenz 0.5)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      )
;; ----------------------------------------------------------------------------------------------------------------------------------------------------                     
      (Gummi
        :title (sd-multi-lang-string "Rubber"
                             :german "Gummi")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 1.13)
	                    (setq farbe2 (make-gpnt3d :x 0.0863 :y 0.161 :z 0.247))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      )
;; ----------------------------------------------------------------------------------------------------------------------------------------------------                     
       (Invar
        :title (sd-multi-lang-string "Invar"
                             :german "Invar")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 8.0)
	                    (setq farbe2 (make-gpnt3d :x 0.133 :y 0.169 :z 0.549))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      ) 
;; ----------------------------------------------------------------------------------------------------------------------------------------------------                     
       (Keramik
        :title (sd-multi-lang-string "Ceramic"
                             :german "Keramik")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 2.52)
	                    (setq farbe2 (make-gpnt3d :x 0.863 :y 0.784 :z 0.992))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      ) 
;; ----------------------------------------------------------------------------------------------------------------------------------------------------                     
       (Kupfer
        :title (sd-multi-lang-string "Copper"
                             :german "Kupfer")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 8.9)
	                    (setq farbe2 (make-gpnt3d :x 0.886 :y 0.31 :z 0.114))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      ) 
;; ----------------------------------------------------------------------------------------------------------------------------------------------------                     
       (Messing
        :title (sd-multi-lang-string "Brass"
                             :german "Messing")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 8.6)
	                    (setq farbe2 (make-gpnt3d :x 0.827 :y 0.706 :z 0.00392))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      ) 
;; ----------------------------------------------------------------------------------------------------------------------------------------------------                     
       (Plexiglas
        :title (sd-multi-lang-string "Plexiglas"
                             :german "Plexiglas")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 1.2)
	                    (setq farbe2 (make-gpnt3d :x 1 :y 0.976 :z 0.824))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      ) 
;; ----------------------------------------------------------------------------------------------------------------------------------------------------                     
       (Roofmate
        :title (sd-multi-lang-string "Roofmate"
                             :german "Roofmate")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 0.35)
	                    (setq farbe2 (make-gpnt3d :x 0.353 :y 0.659 :z 0.996))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      )
;; ----------------------------------------------------------------------------------------------------------------------------------------------------                     
       (Rubin
        :title (sd-multi-lang-string "Ruby"
                             :german "Rubin")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 4.05)
	                    (setq farbe2 (make-gpnt3d :x 0.847 :y 0.0549 :z 0.0745))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      ) 
;; ----------------------------------------------------------------------------------------------------------------------------------------------------                     
       (Teflon
        :title (sd-multi-lang-string "Teflon"
                             :german "Teflon")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 2.2)
	                    (setq farbe2 (make-gpnt3d :x 0.851 :y 1 :z 0.871))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      ) 
;; ----------------------------------------------------------------------------------------------------------------------------------------------------                     
       (Trovidur-rot
        :title (sd-multi-lang-string "Trovidur-red"
                             :german "Trovidur-rot")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 1.38)
	                    (setq farbe2 (make-gpnt3d :x 0.992 :y 0.184 :z 0.204))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      )
;; ----------------------------------------------------------------------------------------------------------------------------------------------------                     
       (Viton
        :title (sd-multi-lang-string "Viton"
                             :german "Viton")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 1.85)
	                    (setq farbe2 (make-gpnt3d :x 0.247 :y 0.522 :z 0.459))
	                    (setq Transparenz 0)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      ) 	  
;; ----------------------------------------------------------------------------------------------------------------------------------------------------                     
       (Zerodur
        :title (sd-multi-lang-string "Zerodur"
                             :german "Zerodur")
	   :toggle-type :grouped-toggle :size :second                             
	   :push-action (progn
	                    (setq dichte 2.53)
	                    (setq farbe2 (make-gpnt3d :x 0.941 :y 0.98 :z 0.494))
	                    (setq Transparenz 0.4)	                    
	                    (setq farbe (sd-rgb-to-color farbe2))
	 	   );endprogn
      ) 
;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
      
       ("Farbe & Dichte")
;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
      
    (dichte  :value-type :positive-number
             :initial-optional t
              
    )
      
    (farbe   :value-type :rgb-color
             :title (sd-multi-lang-string "Color" :german "Farbe")
;	   :after-input (display FARBE)
    )
   
    ("Optionen")
   
     (DelTeilEig
            :title "Exemplareigensch. loeschen"
	          :toggle-type :wide-toggle
	          :value-type	:boolean
	          :initial-value t
	 ) ;end DelTeilEig

     ) ;end variables
              
:ok-action
  '( 
  progn 
     (next-action)
  );end ok-action

  :cancel-action
 '(
      progn
   );end cancel-action

:help-action
    '(progn
    	(sd-display-url ( Format NIL "~A/SD_Teilematerial.htm" (oli::sd-convert-filename-from-platform (oli::sd-sys-getenv "SCHILLERHELPDIR"))))
	); end progn

:local-functions
 '(
   (next-action ()
       (progn
		  (if DelTeileig
 		   (progn
   		   (sd-call-cmds (set_part_inst_color :parts Teile :clr))	
   		   (sd-call-cmds (set_part_inst_density :parts Teile :clr)) 
   		   (sd-call-cmds (set_part_inst_transparency :parts Teile :transp :clr))
   		   );end progn
		  );endif
     	(sd-call-cmds (set_part_inst_color :parts Teile :color farbe)) 
		(sd-call-cmds (set_part_inst_density :parts Teile :dens (/ dichte 1000)))
		(sd-call-cmds (set_part_inst_transparency :parts Teile :transp Transparenz))
		;(display teile)
		);endprogn
   );next-action

);endlocalfunction 

) ;enddefdialog