;;  (load "E:/tmp/Animgif01.lsp")



(in-package :EXAMPLES)
(use-package :OLI)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;


(sd-defdialog 'gr_animgif
  :dialog-title "Bilder fuer Gif-Animation"
  :variables
  '( 
    (A_ASSEM :value-type :assembly 
	    :modifies :contents 
	    :title "Baugruppe"
	    :prompt-text "Baugruppe auswaehlen.")

)
  :ok-action
  '(progn 

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild11.bmp" :OVERWRITE complete)

(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild12.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild13.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild14.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild15.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild16.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild17.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild18.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild19.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild20.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild21.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild22.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild23.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild24.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild25.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild26.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild27.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild28.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild29.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild30.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild30.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild31.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild32.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild33.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)

(create_vp_dump :viewport "1" :bmpfile  "C:/Gif/Bild34.bmp" :OVERWRITE complete)
(position_pa :part_assembly A_ASSEM :rotate :axis :w :rotation_angle -15 :done complete)


))