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

(sd-defdialog 'cust-ansicht-fleaeche-mit-richtung
  :dialog-title "Ansicht auf Flaeche mit Richtung oben"
  :dialog-control :sequential

  :variables 
  '(
    (Flaeche
;      :value-type :measure-direction :initial-direction-negative t
       :selection (*sd-face-seltype*)
       :incl-position :3d
    )
    (RichtOb
      :value-type :measure-direction
      :after-input (ansicht-flaeche)
    )
   );variables

  :local-functions
  '(
     (ansicht-flaeche ()
       (let (normale)
;         (display (first Flaeche))
;         (display (second Flaeche))
;         (display (gpnt3d_x (second Flaeche)))
;         (display (gpnt3d_y (second Flaeche)))
         (setf normale (getf (sd-inq-face-pnt (first Flaeche) :u (gpnt3d_x (second Flaeche)) :v (gpnt3d_y (second Flaeche)) :normal t :dest-space :global) :normal))
         (display normale)
;         (sd-call-cmds (set_vp_direction (oli::sd-inq-current-vp)  :direction3d normale :up_dir3d (first RichtOb) :done))
       )
     )
   );local-functions
   
);dialog