;;  (load "E:\\tmp\\Animgif02.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 )

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

)

:help-action 
  '(progn 
	(display :show  )
	(display  " ")
	(display  "Hilfe zu 'Bilder fuer Gif-Animation'")
	(display  " ")
	(display  "In die Drehachse musst Du eine Arbeitsebene legen. Die Baugruppe dreht sich dann um die W-Achse in 15° Schritten.")
	(display  " ")
	(display  "Das Verzeichnis C:\\GIF musst Du anlegen.")
	(display  " ")
	(display  "Dann kannst Du das Macro aufrufen und die Baugruppe waehlen.")
	(display  " ")
	(display  "Die Groesse des Bildes haengt vom Darstellungsfenster ab.")
	(display  " ")
	(display  "Die Bilder werden immer wieder ueberschrieben.")
	(display  " ")
))