;upload version

;ANIMATE FRAMES OF FEMALE QUAD-BOT 

;SAVE "A:\SKATE_A.CTL"

;SKATE around a skating rink under the stars

;need files
; RINK.3D2
; BACKGND0.PC1

;need folder
; SKATER

;by Kevin Fanning       04-04-94

new

ltoff a:ltoff b:ltoff c

perspec 1:zoom 17
draft:view s:mono

group a:clrgrp
 load3d "a:\rink.3d2"

group b:clrgrp
 gosub LOADFS

group c:clrgrp
 loadbak l,"a:\backgnd0.pc1",y
 backgnd y,n

group d:clrgrp

f=0:f1=0:f2=0


rstart "a:\SKATE",m


gosub SKATE


rstop

end



@SKATE
 group b:clrgrp
  gosub ASPLINE

 group c
  f1=0

 for f=0 to 17
   gosub SELECT
   moveto c1x,s2x(f),c1z
   grpcent c2x,c2y,c2z
   cam2 0,-4500,500,c2x,c2y,c2z,0
   select rink
   superview
   record
    f1=f1+1:if f1>9 then f1=0
 next f


 group d:clrgrp
  f1=0

 for f=0 to 18
  if f1=0 then gosub KILL:gosub LOADFS
  gosub SELECT
  center a:setarb 0,-2200,0:rotate 0,0,s1x(f)
  grpcent c2x,c2y,c2z
  cam2 0,-4500,500,c2x,c2y,c2z,0
  select rink
  superview
  record
  f1=f1+1:if f1>9 then f1=0
 next f


 group c
  gosub KILL:gosub LOADFS
  f1=0:f1=1

  for f=1 to 17
  if f1=0 then gosub KILL:gosub LOADFS
   gosub SELECT
   center a:setarb 0,-2200,0:rotate 0,0,-180:grpcent c1x,c1y,c1z
   moveto c1x,s2y(f),c2z
   grpcent c2x,c2y,c2z
   cam2 0,-4500,500,c2x,c2y,c2z,0
   select rink
   superview
   record
   f1=f1+1:if f1>9 then f1=0
 next f


 group d:clrgrp
  f1=0:f2=1

 for f=0 to 17
  if f1=0 then gosub KILL:gosub LOADFS
  gosub SELECT
  center a:setarb 0,2200,0:rotate 0,0,s1x(f)
  grpcent c2x,c2y,c2z
  cam2 0,-4500,500,c2x,c2y,c2z,0
  select rink
  superview
  record
  f1=f1+1:if f1>9 then f1=0
 next f

return


@KILL
 kill f0,f1,f2,f3,f4,f5,f6,f7,f8,f9

return


@SELECT
 clrgrp
 if f1=0 then select f0
 if f1=1 then select f1
 if f1=2 then select f2
 if f1=3 then select f3
 if f1=4 then select f4
 if f1=5 then select f5
 if f1=6 then select f6
 if f1=7 then select f7
 if f1=8 then select f8
 if f1=9 then select f9

return


@LOADFS
  clrgrp
  merge3d "a:\skater\f0.3d2"
  merge3d "a:\skater\f1.3d2"
  merge3d "a:\skater\f2.3d2"
  merge3d "a:\skater\f3.3d2"
  merge3d "a:\skater\f4.3d2"
  merge3d "a:\skater\f5.3d2"
  merge3d "a:\skater\f6.3d2"
  merge3d "a:\skater\f7.3d2"
  merge3d "a:\skater\f8.3d2"
  merge3d "a:\skater\f9.3d2"
  scale 50:scale 50:scale 50
  if f2=0 then moveto -1500,-2200,0:align b,0
  if f2=1 then moveto 1500,2200,0:align b,0:center g:rotate 0,0,180
  clrgrp:select f0:grpcent c1x,c1y,c1z

return


@ASPLINE
 defpt 1,0,0,0
 defpt 1,-90,0,0
 defpt 1,-180,0,0
 defspline 1,19,l

 defpt 2,2200,-2200,0
 defpt 2,0,0,0
 defpt 2,-2200,2200,0
 defspline 2,19,l

return


end