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

(add_toolbox_button
   :label "Copy VP"
   :action '(os-kopiere-fenster)
)

(DEFUN os-neuen-vp-namen-generieren ()
  (LET (Zaehler))
  (setq Neuer-vp-name "New_vp")
  (setq Zaehler 1)
  (loop
    (if (sd-inq-vp-exists-p Neuer-vp-name)
        (progn
          (setq Neuer-vp-name (format nil "New_vp_~A" Zaehler))
          (setq Zaehler (+ Zaehler 1))
        );;progn
        (return)
    );;if
  );;loop
  Neuer-vp-name
);;DEFUN

(DEFUN os-kopiere-fenster ()
  (setq Akt_vp (sd-inq-current-vp))

  ;;Eindeutigen VP-Namen generieren
  (setq N_vp_name (os-neuen-vp-namen-generieren))

  ;; Neuen VP erstellen
  (create_vp :name N_vp_name
	     :corner_1 (first (sd-inq-vp-corners Akt_vp))
	     :corner_2 (first (rest (sd-inq-vp-corners Akt_vp)))
  )

  ;; Darstellungsliste kopieren
  (copy_vp_drawlist N_vp_name Akt_vp)

  ;; Kameraeinstellung
  (sd-set-vp-camera N_vp_name (sd-inq-vp-camera Akt_vp))

  ;; Hintergrundfarbe abfragen und einstellen
  (if (listp (sd-inq-vp-bg-color Akt_vp))
        (if (= 2 (length (sd-inq-vp-bg-color Akt_vp)))
            (vp_background (sd-inq-current-vp) :type :GRADIENT :2colors :on
                                     :color1 :rgb (first (sd-inq-vp-bg-color Akt_vp)) :done
                                     :color2 :rgb (first (last (sd-inq-vp-bg-color Akt_vp))) :done)
            (vp_background (sd-inq-current-vp) :type :GRADIENT :3colors :on
                                     :color1 :rgb (first (sd-inq-vp-bg-color Akt_vp)) :done
                                     :color2 :rgb (first (rest (sd-inq-vp-bg-color Akt_vp))) :done
                                     :color3 :rgb (first (last (sd-inq-vp-bg-color Akt_vp))) :done)
        );;if 
      (vp_background N_vp_name :color1 :rgb (sd-inq-vp-bg-color Akt_vp) :done)
  );;if

 ;;3D Geo Einstellungen
  (set_show N_vp_name :3dgeo (sd-inq-vp-show Akt_vp :3dgeo))
  (set_show N_vp_name :3dgeo_shaded (sd-inq-vp-show Akt_vp :3dgeo_shaded))
  (set_show N_vp_name :3dgeo_wire (sd-inq-vp-show Akt_vp :3dgeo_wire))
  (set_show N_vp_name :3dgeo_mixed (sd-inq-vp-show Akt_vp :3dgeo_mixed))
  (set_show N_vp_name :3dgeo_vertices (sd-inq-vp-show Akt_vp :3dgeo_vertices))
  (set_show N_vp_name :3dgeo_part_transparency (sd-inq-vp-show Akt_vp :3dgeo_part_transparency))
  (set_show N_vp_name :3dgeo_part_reflectance (sd-inq-vp-show Akt_vp :3dgeo_part_reflectance))
  (set_show N_vp_name :3dgeo_label (sd-inq-vp-show Akt_vp :3dgeo_label))
  (set_show N_vp_name :clip_planes (sd-inq-vp-show Akt_vp :clip_planes))
  (set_show N_vp_name :3dgeo_edged (sd-inq-vp-show Akt_vp :3dgeo_edged))
  (set_show N_vp_name :3dgeo_hidden (sd-inq-vp-show Akt_vp :3dgeo_hidden))
  (set_show N_vp_name :3dgeo_hidden_dimmed (sd-inq-vp-show Akt_vp :3dgeo_hidden_dimmed))
  (set_show N_vp_name :3dgeo_face_color (sd-inq-vp-show Akt_vp :3dgeo_face_color))
  (set_show N_vp_name :3dgeo_face_transparency (sd-inq-vp-show Akt_vp :3dgeo_face_transparency))
  (set_show N_vp_name :3dgeo_face_reflectance (sd-inq-vp-show Akt_vp :3dgeo_face_reflectance))
  (set_show N_vp_name :3dgeo_edge_color (sd-inq-vp-show Akt_vp :3dgeo_edge_color))
 ;;Arbeitsebenen Einstellungen
  (set_show N_vp_name :workplanes (sd-inq-vp-show Akt_vp :workplanes))
  (set_show N_vp_name :workplanes_border (sd-inq-vp-show Akt_vp :workplanes_border))
  (set_show N_vp_name :workplanes_local_axis (sd-inq-vp-show Akt_vp :workplanes_local_axis))
  (set_show N_vp_name :workplanes_dim_inactive (sd-inq-vp-show Akt_vp :workplanes_dim_inactive))
  (set_show N_vp_name :workplane_sets_match_lines (sd-inq-vp-show Akt_vp :workplane_sets_match_lines))
  (set_show N_vp_name :workplanes_label (sd-inq-vp-show Akt_vp :workplanes_label))
 ;;2D Geo Einstellungen
  (set_show N_vp_name :workplanes_2dgeo (sd-inq-vp-show Akt_vp :workplanes_2dgeo))
  (set_show N_vp_name :workplanes_2dconstruction (sd-inq-vp-show Akt_vp :workplanes_2dconstruction))
  (set_show N_vp_name :workplanes_hidden (sd-inq-vp-show Akt_vp :workplanes_hidden))
  (set_show N_vp_name :workplanes_2dgeo_label (sd-inq-vp-show Akt_vp :workplanes_2dgeo_label))
  (set_show N_vp_name :workplanes_2dgeo_vertices (sd-inq-vp-show Akt_vp :workplanes_2dgeo_vertices))
);;DEFUN