; Script DEMO2   (version 005)

; D‚monstration de ARCHAOS 1.0

; Eric BRON, cdu, 26.1.88





; ************************* GENERIQUE

LOA  H:\GENERIK.UNI
CLR

OBJ 1


#1{  FOC 0.31
     VAT -28,-10,0
     OAT -56,-66,0
     VPO -188.2,11.5,3.91
     DET 0.005            }

SRO 1   #14 { SPO 0,-310.61,0 }      ; Construction de 16-32 DIFFUSION
SRO 2   #13 { SPO 0,-271.95,0 }
SRO 3   #12 { SPO 0,-243.83,0 }
SRO 4   #11 { SPO 0,-213.26,0 }
SRO 5   #10 { SPO 0,-174.96,0 }
SRO 6   #9  { SPO 0,-137,0 }
SRO 7   #8  { SPO 0,-97.89,0 }
SRO 8   #7  { SPO 0,-68.89,0 }
SRO 9   #6  { SPO 0,-49.43,0 }

SRO 10  #14 { SPO 0,-309.54,0 }
SRO 11  #13 { SPO 0,-283.61,0 }
SRO 12  #12 { SPO 0,-253.96,0 }
SRO 13  #11 { SPO 0,-216.5,0 }
SRO 14  #10 { SPO 0,-180.72,0 }
SRO 15  #9  { SPO 0,-144.38,0 }
SRO 16  #8  { SPO 0,-119.14,0 }
SRO 17  #7  { SPO 0,-95.65,0 }
SRO 18  #6  { SPO 0,-59.79,0 }

#30 { VAT -8.2,24,0                   ; Recule jusqu'… "PRESENTE"
      VPO 106.4,-174.3,-35.21 }

TEM 250

#8  { VAT -7,12,0                  ; Recule jusqu'… "ARCHAOS"
      VPO 60,-4,122 }
#15 { VAT -6.7,11,0
      VPO 58.2,-3.8,121.9 }

SRO 20

#30 { SAT 0,0,340 }

TEM 250

#11 { VAT 7,8,0                ; Va vers "UN LOGICIEL CREATION D'UNIVERS"
      VPO -130, -150, 130 }
#16 { VAT 7.5,7.9,0
      VPO -73.8, -71.1, 79.3 }

TEM 500



; ************************* CDU Formation

CLR
LOA  H:\CDU2.UNI

#1  {  VAV 283
       FOC 0.333
       OAT -24,-27,0 }

#50 {  SPO 88,70,-54
       SAT 300,592,-200   }

SRO 2
#46 {  SPO 109.5,-81,43
       SAT 73,-788,150   }

SRO 3
#54 {  SPO 195.5,65.5,74.5
       SAT 42,-304,90    }

#80 {  OAT 912,246,86
       VAV 83          }

; ************************* FIN (CDU Formation)


; ************************* CDU Multiplication

AVE
CLR
PA0  TEM 700

LOA H:\CDU3.UNI

PA1

#1  { FOC 0.33 }
#20 { VAV 320
      OAT -30,-30,0 }

PA3

COP
#15 { SPO -37,20,0    SAT 135,0,0 }
COP
#15 { SPO 5,-67,0     SAT 88,0,0 }
COP
#15 { SPO 51.5,28.5,0 SAT 101,0,0 }
COP
#15 { SPO -2,39,0     SAT 81,0,0 }

PA2

#10 { OAT 10,38,0 }
AVE
#10 { OAT 10,36,0 }
#20 { OAT 60,-62,0 }

; ************************* FIN (CDU Multiplication)


; ************************* VILLAGE Promenade

CLR
#1 { FOC 0.33
     DET 0.05238 }
LOA  H:\VILLAGE.UNI
PA1  AVE

#9 { VAT 0,-6,0   VAV 120 }
#9 { VAT 0,-2,0   VAV 80
     DET 1.3636          }
#9 { VAT 0,6,0    VAV 60
     DET 1.4             }    AVE
#9 { VAT 0,10,0   VAV 40 }
#9 { VAT -16,7,0  VAV 30 }
#9 { VAT -8.5,5,0 VAV 19 }
#7 { VAT -3,3,0   VAV 8 }
#7 { VAT -1,1,0   VAV 5 }
#7 { VAT 0,-3,0   VAV 3 }
#7 { VAT 0,-5,0   VAV 1.5 }
#7 { VAT 0,-2,0   VAV 1 }
#7 { VAV 0.6 }

; ************************* FIN (VILLAGE Promenade)


; ************************* VILLAGE Pate extention

CLR
LOA H:\VILLAGE.UNI
OBJ 14


#1 { FOC 0.33
     DET 0.142857 }

#20 { VAV 220  OAT -20,-35,0 }

SRO 1   COP  #10 { SPO 25,65,0   SAT 60,0,0  }
SRO 2   COP  #10 { SPO -25,-71,0 SAT 90,0,0  }
SRO 4   COP  #10 { SPO 20,-45,0  SAT 130,0,0 }
SRO 3   COP  #10 { SPO 41,-27,0  SAT 190,0,0 }

SRO 5   COP  #10 { SPO 30,73,0   SAT 50,0,0  }
SRO 6   COP  #10 { SPO -21,-73,0 SAT 90,0,0  }
SRO 7   COP  #10 { SPO 45,4,0    SAT 130,0,0 }
SRO 8   COP  #10 { SPO 14,-82,0  SAT 420,0,0 }

#50 { VAV -220  OAT 380,395,0 }

; ************************* FIN (VILLAGE Pate extention)


; ************************* VILLAGE Maison

CLR
LOA H:\VILLAGE.UNI
OBJ 2

#1 { FOC 0.33
     DET 0.095238 }

#40 { VAV 290  OAT 340,-35,0 }

#15{}

PI1 PA1 AVE INV

#15{} PI2  #15{}  PI3  #15{}  PER  #15{}

PI1
#15 {ECH 2.5}
#5  {VPO 20,4,0}
#5  {VPO 8,13,0}
#5  {VPO -10,-4,0}
#5  {VPO -18,-13,0}
#5  {VPO -6,-8,0}
#15 {ECH 2.5}
#3  {VPO -3,-2,0}
#3  {VPO -5,-7,0}
#3  {VPO -2,-1,0}
#3  {VPO 1,4,0}
#3  {VPO 3,11,0}
TEM 200

PER AVE INV

#1{DET 0.8}

SRO 9
COP   #13 { SPO 56,54,0   SAT  130,0,0 }
COP   #19 { SPO -2,-57,0  SAT 50,0,360}
COP   #24 { SPO -66,36,0  SAT 70,360,0}

#10 { VAV -100
      OAT 50,0,0 }

SRO 1   #10 { SPO -63,-55,-45  SAT 23,45,56   }
SRO 2   #10 { SPO -68,75,50    SAT 119,150,234 }
SRO 3   #10 { SPO 27,65,-25    SAT 165,234,87 }
SRO 4   #10 { SPO 50,-65,5     SAT 254,123,32 }

SRO 5   #10 { SPO 16,-80,0   SAT 80,0,0 }
SRO 7   #10 { SPO 13,39,0    SAT 110,0,0 }
SRO 9   #10 { SPO -60,-2,0   SAT 140,0,0 }
SRO 11  #10 { SPO 60,-39,0   SAT 190,0,0 }

#50 { VAV -200  OAT 630,0,0 }

; ************************* FIN (VILLAGE Maison)


; ************************* PERSIL

CLR
LOA  H:\PERSIL.UNI

PA1 INV AVE

#1 { DET 0.8 }

#50 { VPO 1410,0,301
      OAT 670,0,0
      DET 0.037      }

AVE

TEM 200
AUT

#1 { DET 0.7 }    TEM 600
#1 { DET 0.7 }    TEM 600
#1 { DET 0.7 }    TEM 600

AUT

; ************************* FIN (PERSIL)


; ************************* SPIRALE

CLR
LOA  H:\SPIRALE.UNI

#1 { FOC 0.5
     OAT 16,-20,0 }

#22 { DET 0.03
      VPO -60,-149,36 }

SRO 2

#20 { VPO 800,0,196
      SAT 0,0,-12
      FOC 2         }

SRO 1    #20 { SAT 360,360,0 }
SRO 2
#20 { SAT 100,0,0
      VAT 0,20,0
      VPO -490,140,10 }
#20 { SAT 100,0,0
      VAT 0,25,0
      VPO -470,0,13 }

; ************************* FIN (SPIRALE)


; ************************* HLM

INV

CLR
LOA H:\HLM.UNI

OBJ 9

#1 { FOC 0.333 }

#7 { VPO -200,0,-4
      OAT  150,0,0 }

#10 { VPO -100,0,-4
      OAT  200,0,0 }

#12 { VPO -60,0,-4
      OAT  250,0,0 }

#18 { VAT 0,90,0
      OAT  250,0,0
      VPO 0,0,30}

#22 { VPO 0,0,32
      OAT  250,0,0 }

INV

; ************************* FIN (HLM)


; ************************* GALAXIE

CLR
LOA H:\GALAXIE.UNI

#1 { VAT -2.5,1.5,58
     VPO 515,-35,23  }

AUT
#1 { DET 0.1 }       TEM 400
#1 { DET 0.5 }       TEM 400
#1 { DET 0.5 }       TEM 800
AUT

; ************************* FIN (GALAXIE)


; ************************* MONSTRE

CLR
LOA H:\MONSTRE.UNI

#30 { VPO 990,-55,192
      OAT 345,343,360 }

#1 { DET 0.2 }

#10 { DET 0.25 }  TEM 200

AUT
#1 { DET 0.77 }   TEM 300
#1 { DET 0.70 }   TEM 500
#1 { DET 0.58 }   TEM 700
AUT

; ************************* FIN (MONSTRE)

INV

FIN  ; du script DEMO2