Category : Graphic Animations - Lots of older FLI's
Archive   : ARTFORM.ZIP
Filename : DINOSAUR.WNM

DINO100 00,0> 
0 0.05 150 VOLCANO randomize 1VOLCANO = 25e3position 26e3,0,100e3compileVALLEY  quality 3compile "POND"compile "HILLS"fast
compile "SKY"normalFOREST ! quality 8luster 1TREEHIEGHT = 500TREEFACTOR = 1.3TREEGROWTH = 40øR = rnd for M = -20ø to 110ø step 0.265ø& if abs M > 4ø and abs (M-15ø) > 5ø* if M > -ROTY-20ø and M < -ROTY+30ø call TREE else call BOGUSend
label TREE R = rnd * 50e3# S = R + 30e3 - 15e3 * cos (M*2) A = S * sin M B = S * cos M TREEDIST = (S - 15e3) / 95e3 if TREEDIST > 0.75 quality 2 position A,0,B compile "TREE"label BOGUS R = rnd compile "BOGUS"HERB YIF quality 8 color 159luster 1DS = 0.3set HAPOSX = -360set HAPOSY = 0set HAPOSZ = 2000set HAROT = -20øset HERBMOVE = 0set HTWIST = 0position HAPOSX,HAPOSY,HAPOSZHERBTIME = time*2
HEADTWIST = 0
STRIDE = 1POSE = 1
if time < 0.5 compile "STANDING" compile "EATING" //else if time < 1 compile "LOOKING" compile "STANDING" //else if time < 1.5 compile "STANDING" compile "EATING" //else if time < 2" STRIDE = 5*(time-1.5)*(time-2) HERBTIME = 0.25 + time*3 compile "STANDING" compile "RUNNING" HAROT = HAROT + 100ø*inc*2 HTWIST = HTWIST + 80ø*inc*2 HEADTWIST = HTWIST HERBMOVE = 0 //else if time < 2.5 compile "STANDING" HEADTWIST = HTWIST HERBMOVE = 0 //else if time < 3.5 STRIDE = û(time - 2.5) HERBTIME = 0.25 + time*2 compile "STANDING" compile "RUNNING" HAROT = HAROT - 120ø*inc HTWIST = HTWIST - 100ø*inc HEADTWIST = HTWIST //else HERBTIME = 0.25 + time*2 compile "STANDING" compile "RUNNING"&HAPOSX = HAPOSX + HERBMOVE * sin HAROT&HAPOSZ = HAPOSZ - HERBMOVE * cos HAROTposition HAPOSX,HAPOSY,HAPOSZrotate Y,HAROTif time < 6 compileendTREX z z z zTREX53 p p p p/ quality 8TS = 1.5set TREXPOSX = 0set TREXPOSY = 0set TREXPOSZ = 15e3set TREXMOVE = 0#position TREXPOSX,TREXPOSY,TREXPOSZTREXPOSZ = TREXPOSZ - TREXMOVEif TREXPOSZ > 10e3' color 143 - (TREXPOSZ - 10e3) / 350else
color 143luster 1
HEADTWIST = 0
STRIDE = 1POSE = 1if time < 3 POSE = 0.7 + time/10 RUNTIME = time*2/3 compile "STANDING" compile "RUNNING" //else if time < 3.5 STRIDE = (3.5-time)*2 RUNTIME = time*2/3 compile "STANDING" compile "RUNNING"" headtwist = headtwist * stride //else set ROAR = 0 if time < 4 ROAR = 2*(time-3.5) else ROAR = 1 STRIDE = 0 RUNTIME = time - 3.5 compile "STANDING" compile "ROARING"compileHERB 9 quality 8 color 159luster 1DS = 0.3set HBPOSX = 600set HBPOSY = 0set HBPOSZ = 4000set HBROT = 45øset HERBMOVE = 0HERBTIME = time*2
if time < 0.5 compile "LOOKING" compile "STANDING" //else if time < 1 HEADTWIST = 0 POSE = 1 compile "STANDING" compile "EATING" //else if time < 1.5 HEADTWIST = 0 if time < 1.25 STRIDE = û(time - 1) else STRIDE = û(1.5 - time) HERBTIME = 0.25 + time*3 compile "STANDING" compile "RUNNING" HBROT = HBROT + 135ø*inc*2 HERBMOVE = 0 //else if time < 2.5 STRIDE = û(time - 1.5) HERBTIME = 0.25 + time*2 compile "STANDING" compile "RUNNING" HBROT = HBROT - 60ø*inc //else STRIDE = 1 HERBTIME = 0.25 + time*2 compile "STANDING" compile "RUNNING"&HBPOSX = HBPOSX + HERBMOVE * sin HBROT&HBPOSZ = HBPOSZ - HERBMOVE * cos HBROTposition HBPOSX,HBPOSY,HBPOSZrotate Y,HBROTcompileendPTERO zizdzezoz zFzrzazmzez z quality 8 color 155luster 2 DS = 0.45set BPOSX = -2250set BPOSY = 1000set BPOSZ = 4000set BROT = 65ø
set BMOVE = 0position BPOSX,BPOSY,BPOSZBIRDTIME = time*2if time >= 4.5 POSE = 1 STRIDE = 1 HEADTWIST = 0 compile "GLIDE" compile "FLY" // BMOVE = 3000 * inc$ BPOSX = BPOSX + BMOVE * sin BROT$ BPOSZ = BPOSZ - BMOVE * cos BROT // position BPOSX,BPOSY,BPOSZ rotate Y,BROT compileÄÄÄ©_cX©_cX©_cX©_cX©_cX©_cX©_cX
set ROTY = 0øposition 0,50,0
rotate Y,ROTY rotate X,11ø
if time > 4.5 PANG = atan (BPOSX/BPOSZ) if PANG > 0 ROTY = -PANG
intensity 1.2light 1e8,3e6,0
intensity 0.6 light camera !!!%%%***...222666:::???"(-39??

???**?44  "(-39?"?&
?+?0?5*?:4
"(#-(3-92?7?8
?9?;?<*?=4"(-39?
?
??*?*4?4
"("-'3+90?
2?5?7?*:?4 9 ?
??%?*.?46?


(-27???%?,
#& )
- 0
4"6!9
< ?
 
 $)-2789:  
  # %$(( 

  

 ('%$"! !#

<<<
==>">)?0

  

 !#$&(