(in-package  :custom)
(use-package :oli)

(setf Schraffur_win 1)

;;--------------------------------------------------------------------------*
(sd-defdialog 'Schraffur-setzen
:dialog-title "Schraffur setzen"
:toolbox-button t
:variables
  '(
		(Schraffur_dreh
			:title "Winkel wechselnd"
			:toggle-type :wide-toggle   
			:value-type :boolean
			:indicator-type :none
			:initial-value t
		)
		
		(Schraffur_rech
			:title "rechts steigend"
			:title-alignment :center
			:toggle-type :grouped-toggle   
			:value-type :boolean
			:indicator-type :none
			:initial-value nil
			:after-input (setf Schraffur_win 2)
		)
		
		(Schraffur_link
			:title "links steigend"
			:title-alignment :center
			:toggle-type :grouped-toggle   
			:value-type :boolean
			:indicator-type :none
			:initial-value nil
			:after-input (setf Schraffur_win 1)
		)
		
		("-")
		
		(Schraffur_abst
			:title "Abstand ändern"
			:toggle-type :wide-toggle   
			:value-type :boolean
			:indicator-type :none
			:initial-value t
		)	
		
		(Display_gro
		:title                   "Aktueller Abst."
		:value-type              :display-only
		:initial-value 1)
		
		("-")
		
 		(Schraffur_verg
			:title "+"
			:title-alignment :center
			:toggle-type :grouped-toggle   
			:push-action			(progn (setf Schraffur_abst t)
									(when (> display_gro 9.95) (setf display_gro (+ display_gro 5)))
									(when (and(< Display_gro 9.95) (> display_gro 4.95))(setf display_gro (+ display_gro 1)))
									(when (and(< Display_gro 4.95) (> display_gro 0.95)) (setf display_gro (+ display_gro 0.5)))
									(when (and(< Display_gro 0.95) (> display_gro 0)) (setf display_gro (+ display_gro 0.1)))
									)
			:initial-value nil
		)

		(Schraffur_verk
			:title "-"
			:title-alignment :center
			:toggle-type :grouped-toggle   
			:push-action			(progn (setf Schraffur_abst t)
									(when (and(< Display_gro 1.05) (> display_gro 0.05)) (setf display_gro (- display_gro 0.1)))
									(when (and(< Display_gro 5.05) (> display_gro 1.05)) (setf display_gro (- display_gro 0.5)))
									(when (and(< Display_gro 10.05) (> display_gro 5.05))(setf display_gro (- display_gro 1)))
									(when (> display_gro 10.05) (setf display_gro (- display_gro 5)))
									)
			:initial-value nil
		)
			
		("-")
		
		(Schraffur_one
			:title "0.5"
			:title-alignment :center
			:toggle-type :grouped-toggle   
			:push-action			(progn (setf Display_gro 0.5) (setf Schraffur_abst t))
			:initial-value nil
		)
		
		(Schraffur_two
			:title "1"
			:title-alignment :center
			:toggle-type :grouped-toggle   
			:push-action			(progn (setf Display_gro 1) (setf Schraffur_abst t))
			:initial-value nil
		)
		
		(Schraffur_thr
			:title "2"
			:title-alignment :center
			:toggle-type :grouped-toggle   
			:push-action			(progn (setf Display_gro 2) (setf Schraffur_abst t))
			:initial-value nil
		)
		
		(Schraffur_fou
			:title "3"
			:title-alignment :center
			:toggle-type :grouped-toggle   
			:push-action			(progn (setf Display_gro 3) (setf Schraffur_abst t))
			:initial-value nil
		)
		
		(Schraffur_fiv
			:title "5"
			:title-alignment :center
			:toggle-type :grouped-toggle   
			:push-action			(progn (setf Display_gro 5) (setf Schraffur_abst t))
			:initial-value nil
		)
		
		(Schraffur_six
			:title "8"
			:title-alignment :center
			:toggle-type :grouped-toggle   
			:push-action			(progn (setf Display_gro 8) (setf Schraffur_abst t))
			:initial-value nil
		)
		
		(Flaechenschraffur
		   :selection (*sd-anno-face-seltype*)
		   :toggle-type :invisible
		   :title "Schraffur"
           :prompt-text "Schraffur auswählen"
		   :initial-value nil
		   :multiple-items t
		   :modifies nil
		   :after-input
			(sd-call-cmds
			(progn
			(setf winkel_win Schraffur_win)
			(when (and (equal Schraffur_dreh t) (equal winkel_win 2))
				(oli:am_hatch_modify :HATCH_LIST Flaechenschraffur :pattern_angle (* 3 0.7853981634) (setf Schraffur_win 1))
			)
			(when (and (equal Schraffur_dreh t) (equal winkel_win 1))
				(oli:am_hatch_modify :HATCH_LIST Flaechenschraffur :pattern_angle (* 1 0.7853981634) (setf Schraffur_win 2))
			)
			(when Schraffur_rech t
				(oli:am_hatch_modify :HATCH_LIST Flaechenschraffur :pattern_angle (* 1 0.7853981634))
			)
			(when Schraffur_link t
				(oli:am_hatch_modify :HATCH_LIST Flaechenschraffur :pattern_angle (* 3 0.7853981634))
			)
			(when Schraffur_abst t
				(oli:am_hatch_modify :HATCH_LIST Flaechenschraffur :pattern_dist Display_gro)
			)		
			) ;; end progn
			) ;;sd-call
		) ;; end variable
)
:mutual-exclusion 
'(Schraffur_dreh Schraffur_link Schraffur_rech Schraffur_abst)
:prompt-variable 'Flaechenschraffur
:local-functions
'()
:ok-action
'()
:help-action '(sd-display-message "

       Keine Hilfe vorhanden!

Viel Spaß beim Schraffur einstellen !!!

                    Michael

" :title "Schraffur_setzen.lsp" :push "Weiter")
)