;http://osd.cad.de

(use-package :OLI)

(sd-defdialog 'win-halb
   :dialog-title (sd-multi-lang-string "Half Angle" :german "Winkelhalbierende")
   :toolbox-button t
   :variables
   '(
	("Erste Linie")
	(PUNKT_1
         :value-type :point-2d
         :title (sd-multi-lang-string "1. Point" :german "1. Punkt")
         :prompt-text (sd-multi-lang-string "Specify 1. Point." :german "1. Punkt angeben."))
	(PUNKT_2
         :value-type :point-2d
         :title (sd-multi-lang-string "2. Point" :german "2. Punkt")
         :prompt-text (sd-multi-lang-string "Specify 2. Point." :german "2. Punkt angeben."))
	("Zweite Linie")		 
	(PUNKT_3
         :value-type :point-2d
         :title (sd-multi-lang-string "3. Point" :german "3. Punkt")
         :prompt-text (sd-multi-lang-string "Specify 3. Point." :german "3. Punkt angeben."))
	(PUNKT_4
         :value-type :point-2d
         :title (sd-multi-lang-string "4. Point" :german "4. Punkt")
         :prompt-text (sd-multi-lang-string "Specify 4. Point." :german "4. Punkt angeben."))		 
   )
   :ok-action  '(winkel-halb)
   :local-functions
   '(
	(winkel-halb ()
	(c_line_inf :angle PUNKT_1 PUNKT_2)
	(c_line_inf :angle PUNKT_3 PUNKT_4)
	) 
    )
)