Exchange Forum > AutoCAD Games
Animated US Flag
Animated US Flag

#1

AVLISP
Join Date:
09-28-2007
Hello,
 
This routine will make a series of slides, that will resemble an animated US flag in motion!. The flag will actually "wave" in the wind.
 
Each slide is like a frame.
 
The zip attached contains
1. an example drawing of a 3d US flag.
2. the lisp code for flag creation and flag display
3. a dcl file that displays the slides
4. 10 example slides of the us flag. (run with c:showflag)
 
Please place the USFLAG folder in your C drive, otherwise the creation of slides might crash.
Also be sure to add the USFLAG folder into your directory search path
 
Run a few slides first.
You can run the (c:showflag) but that will display only 10 slides as an example.
 
It depends up to you how many slides you want to create.
 
The key is to BE PATIENT.
I recommend at least 100 slides.
 
Any questions let me know
 
Paul

Attachments  USFLAG.zip  
Animated US Flag

#2

X-Calibur
Join Date:
12-04-2007
Paul,
I created a C:\USflag folder and unzipped your file and opened the USflag.dwg drawing. Then I loaded the USflag.lsp functions and then ran MakeFlag and set the number of slides to 50. It took a little while to process the slides, but was worth it when it finished. Then I ran the ShowFlag function to see the slide animation. There was a slight delay at the end until I revised your code and changed the following line to 50.
(setq HowManySlides 50);was 100
 
This is a very awesome routine. You've got to be a genius for coming up with the waving stars and stripes idea.
Animated US Flag

#3

AVLISP
Join Date:
09-28-2007
Quote:
Paul, 
I created a C:\USflag folder and unzipped your file and opened the USflag.dwg drawing. Then I loaded the
USflag.lsp functions and then ran MakeFlag and set the number of slides to 50. It took a little while to process the
slides, but was worth it when it finished. Then I ran the ShowFlag function to see the slide animation. There was a
slight delay at the end until I revised your code and changed the following line to 50. 
(setq HowManySlides 50);was 100 
  
This is a very awesome routine. You've got to be a genius for coming up with the waving stars and stripes idea.
 
hello X-Calibur,
 
I am glad you like it. Yes, it was somewhat challenging calculating so many points in 3d space. But the end result, I think is pretty good. The code for the stars took me a lot of thinking.
 
AVLISP