;;----------------------------------------*
;;  Copyright 2021  Volker Burkert        *
;;                                        *
;; Setzt den Hintergrund auf den Standard *
;;                                        *
;;----------------------------------------*

(sd-defdialog 'SD_Hindergrundfarbe_Farbverlauf
:toolbox-button t
:dialog-control :sequential
:dialog-title "SD_Hindergrundfarbe_Farbverlauf"
:ok-action
'(

vp_background :vport (oli::sd-inq-current-vp) :type :gradient :3colors :color1 3758447 :color2 6522268 :color3 13294049 :done
set_vp_capping (oli::sd-inq-current-vp) :on
set_vp_capping (oli::sd-inq-current-vp) :part-color

(SET_SHOW (oli::sd-inq-current-vp) :3DGEO :ON)

(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_SHADED :ON)
(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_EDGED :ON)
(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_WIRE :OFF)
(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_HIDDEN :ON)
(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_HIDDEN_DIMMED :OFF)
(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_MIXED :OFF)
(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_VERTICES :OFF)

(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_PART_TRANSPARENCY :ON)
(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_FACE_TRANSPARENCY :OFF)
(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_FACE_COLOR :ON)
(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_PART_REFLECTANCE :ON)
(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_FACE_REFLECTANCE :OFF)
(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_EDGE_COLOR :OFF)

(SET_SHOW (oli::sd-inq-current-vp) :3DGEO_LABEL :ON)
(SET_SHOW (oli::sd-inq-current-vp) :DOCU_PLANES :ON)
(SET_SHOW (oli::sd-inq-current-vp) :COORD_SYSTEM :ON)
(SET_SHOW (oli::sd-inq-current-vp) :CLIP_PLANES :ON)
(SET_SHOW (oli::sd-inq-current-vp) :CLIP_LINES :OFF)
(SET_SHOW (oli::sd-inq-current-vp) :CLIP_HATCHES :ON)
(SET_SHOW (oli::sd-inq-current-vp) :FEATURE_PTS :ON)


(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANES :ON)

(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANES_BORDER :ON)
(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANES_LOCAL_AXIS :OFF)
(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANES_LABEL :ON)
(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANES_DIM_INACTIVE :OFF)
(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANE_SETS_MATCH_LINES :ON)

(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANES_2DGEO :ON)
(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANES_2DCONSTRUCTION :ON)
(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANES_2DGEO_VERTICES :OFF)
(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANES_2DGEO_LABEL :ON)
(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANES_HIDDEN :ON)
(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANES_2DGEO_COLOR :ON)
(SET_SHOW (oli::sd-inq-current-vp) :WORKPLANES_2DGEO_LINE_TYPE :ON)
))