.init
#  wind(3,1972);
#  wind(4,2358);
#  wind(5,2931);
#  wind(6,3507);
#  wind(7,4082);
#  wind(8,4656);
#  wind(9,5231);
#  wind(10,5807);
#  wind(11,6382);
#  wind(12,6955);
#  wind(13,7531);
#  wind(14,8106);
#  wind(15,8680);
#  wind(16,9255);
#  wind(17,9830);
#  wind(18,10406);
#  wind(19,10979);
#  wind(20,11555);
#  wind(21,12130);
#  wind(22,12706);
#  wind(23,13279);
#  wind(24,13854);

  loadlib("data\\","data.lib");
  addtolib("phong.dat",0,0,0);  ### zatial z libi taha len DAT WIR TEX OBJ
  addtolib("b3d.dat",0,0,0);  ### zatial z libi taha len DAT
  addtolib("main.dat",0,0,0);
  addtolib("ins.dat",0,0,0);
  addtolib("insflip.dat",0,0,0);
  addtolib("hyp1.dat",0,0,0);
  addtolib("hypglow.dat",0,0,0);
  addtolib("hyptext.dat",0,0,0);
  addtolib("back1.dat",0,0,0);
  addtolib("back2.dat",0,0,0);
  addtolib("asclero.dat",0,0,0);
  addtolib("brain1.dat",0,0,0);
  addtolib("comm.dat",0,0,0);
  addtolib("diab1.dat",0,0,0);
  addtolib("evans.dat",0,0,0);
  addtolib("fibro.dat",0,0,0);
  addtolib("gluco1.dat",0,0,0);
  addtolib("font.dat",0,0,0);
  addtolib("tex1.dat",0,0,0);
  addtolib("tex2.dat",0,0,0);
  addtolib("man.wir",0,0,0);
  addtolib("gula.wir",0,0,0);
#  addtolib("gula.3d",0,0,0);
  addtolib("bordel.wir",0,0,0);
  addtolib("boxx.3d",0,0,0);
  addtolib("film.dat",0,0,0);
  addtolib("filmi.dat",0,0,0);
  addtolib("greet.dat",0,0,0);
  addtolib("vamp.six",0,1,192005);
  addtolib("mov.dat",0,0,0);
  addtolib("peo.dat",0,0,0);
  addtolib("osi.dat",0,0,0);
  addtolib("sat.dat",0,0,0);
  addtolib("diseases.six",0,1,523205);
#  addtolib("",0,0,0);
#  addtolib("",0,0,0);
#  addtolib("",0,0,0);
  phong=dat("phong.dat",65536);

  hx=int(50);
  hy=int(70);
  initmultab();
  gentabs();
  scr=initscr(320,200);
  tmpcit=newtex(320,200);
  tmpscr=newtex(320,200);
  tmpcito=newtex(320,200);
  tmp=newdat(64000);

  citron=tex("main.dat");
  inst=tex("ins.dat");
  insto=tex("insflip.dat");
  hyp=tex("hyp1.dat");
  hypglow=tex("hypglow.dat");
  hyptext=tex("hyptext.dat");
  copy(citron,tmpcit);
  copy(citron,tmpcito);
  drawspr(inst,tmpcit,30,50);
  drawspr(insto,tmpcito,30,50);
#  cama=matrix(0,0,0,0,0,0);
  cama=matrix(180,0,0,0,0,256);
  camb=matrix(0,0,0,0,0,-256);
  camc=matrix(0,0,0,0,0,-500);
  camd=matrix(0,0,0,0,0,0);
  came=matrix(0,0,0,0,0,0);
  camf=matrix(0,0,0,0,0,-512);
  camg=matrix(0,0,0,0,0,-256);
  camh=matrix(0,0,0,0,0,-256);
  hlava=wir("man.wir");
  gula=wir("gula.wir");
  backa=tex("back1.dat");
  backb=tex("back2.dat");
################### Choroby ########################
  asclero=tex("asclero.dat");     # riadok
  brain=tex("brain1.dat");       # stlpec
  comm=tex("comm.dat");         # riadok
  diab=tex("diab1.dat");        # stlpec
  evans=tex("evans.dat");       # riadok
  fibro=tex("fibro.dat");       # riadok
  gluco=tex("gluco1.dat");       # riadok
  dise=tex("diseases.six");       # riadok
####################################################
#               Wire + Cisla
  cisla=tex("font.dat");
  abraka=wir("bordel.wir");
  initwiretex(abraka,40,40);

#  initlights(80,100,30,0,0,0);
#  initlights(500,100,20,100,100,0);
#  initbordel();
#  setmatrix(cama,0,0,0,0,0,-256);
  haal=tex("tex1.dat");
  haala=tex("tex2.dat");
  initmrezalights();
  initblobs(); ## musi byt zavolane ak chceme mat diskolajty (generuje sq[])
################# 3d bloby ##############
  phongdat=createphong(haal,phong);
  initiso("b3d.dat");
  mus("data\\beat15.it");
########## filmecek ###########
  box=obj("boxx.3d");
#  gul=obj("gula.3d");
  film=newtex(256,256);
  kot=kotuc(16,64,512,0);
  clr(film);
  fram=tex("film.dat");
  frami=tex("filmi.dat");
########## greetzy ###########
  vamp=tex("vamp.six");
  sat=tex("sat.dat");
  mov=tex("mov.dat");
  peo=tex("peo.dat");
  osi=tex("osi.dat");
  greet=tex("greet.dat");
######### sietky ############
 sieta=net("data\\out.net");
 sietb=net("data\\out2.net");
############ GREETZ CODE ###########
#.code
0;5000;copy(vamp,scr);0
0;5000;drawspr(greet,scr,17,6);1
0;5000;drawspr(sat,scr,23,23);2
0;5000;drawspr(mov,scr,12,65);3
0;5000;drawspr(osi,scr,9,112);4
0;5000;drawspr(peo,scr,7,162);5
#.end
####################################
############ FILMECEK CODE ###########
#0;5000;copy(citron,scr);0
#0;5000;setmatrix(camh,0,0,0,0,0,0);3
#0;5000;rotmatrix(camh,0,0,0,90,75,60,0,5000);4
#0;5000;setobjmat(box,0,camh);5
#0;5000;setmatrix(camg,0,0,0,0,0,-512);6
#100;5000;runkotuc(box,kot,fram,haal,film,scr,camf,camg,100,500);7
#0;5000;setmatrix(cama,0,0,0,0,0,-256);1
#0;5000;runwir(hlava,scr,cama);2
#0;5000;clr(scr);0
#0;5000;runwir(gula,scr,cama);10
#0;5000;diswir(gula,0,scr,cama);1
#.end
###################### intro ##########################
.code
0;99;clr(scr);0
99;606;noise(scr);0
99;425;fade(scr,scr,0,0,99,426);1
606;666;distort(citron,scr,606);0
666;690;noise(scr);0
690;811;distort(citron,scr,606);0
811;883;noise(scr);0
883;1209;distort(citron,scr,606);0
1209;1233;noise(scr);0
1233;1318;distort(citron,scr,606);0
1318;1330;noise(scr);0
1330;1463;distort(citron,scr,606);0
1463;1511;copy(tmpcito,scr);0
1511;1620;distort(tmpcito,scr,606);0
1620;1873;copy(tmpcit,scr);0
1873;2200;clr(scr);0
1873;1893;shutdown(tmpcit,scr,1873);1

##################### infejd obrazku HYPOCH ###########
2375;5000;copy(hyp,scr);0
2358;2375;fade(hyp,scr,0,0,2358,2375);1
2375;2400;lighten(hyp,scr,2375,2400);1
2400;2425;ligtonorm(hyp,scr,2400,2425);1

2610;2625;lighten(hyp,scr,2610,2625);1
2625;2640;ligtonorm(hyp,scr,2625,2640);1

2644;2670;lighten(hyp,scr,2644,2670);1
2670;2695;ligtonorm(hyp,scr,2670,2695);1

2932;2957;lighten(hyp,scr,2932,2957);1
2957;2982;ligtonorm(hyp,scr,2957,2982);1

3183;3200;lighten(hyp,scr,3183,3200);1
3200;3215;ligtonorm(hyp,scr,3200,3219);1

3220;3245;lighten(hyp,scr,3220,3245);1
3245;3270;ligtonorm(hyp,scr,3245,3270);1
2500;3500;copy(hyp,scr);0
##################### zobrazovanie napisu HYPOCHONDER ###########
3292;3310;nice(hypglow,scr,hyp,hx,hy);1
3310;3328;nice(hyptext,scr,hyp,hx,hy);1
3328;3337;nice(hypglow,scr,hyp,hx,hy);1
3337;3346;nice(hyptext,scr,hyp,hx,hy);1
3346;3355;nice(hypglow,scr,hyp,hx,hy);1
3355;3364;nice(hyptext,scr,hyp,hx,hy);1
3364;3373;nice(hypglow,scr,hyp,hx,hy);1
3373;3382;nice(hyptext,scr,hyp,hx,hy);1
3382;3500;nice(hypglow,scr,hyp,hx,hy);1
###################### Prifrci si gebula ##########################
3500;5231;copy(hyp,scr);0  ## HYP sa zobrazuje az po rotaciu bekrgaundu
3500;6237;runwir(hlava,scr,cama);12
###################### Prifrci si gebula ##########################
3500;3600;movematrix(cama,60,329,33,0,329,33,180,0,0,3500,3600);2
###################### Gebula sa odZOOMuje ##########################
3600;3800;setmatrix(cama,180,0,0,0,329,33);1
3800;4200;movematrix(cama,0,329,33,0,329,100,180,0,0,3800,4200);2

5231;6237;rotzoom(backb,scr,304,490,5231,0,-256,0);0
#5100;5400;nicescroll(asclero,scr,320,35,-100,35,5100,5400);1
###  Prvy beat ###
5231;5259;runneg(scr,30,140);15
5231;5259;setmatrix(camb,90,0,0,0,0,0);7
5231;5259;setmattoall(hlava,camb);8
###  Druhy beat ###
5267;5286;runneg(scr,30,140);15
5267;5286;setmatrix(camb,-20,0,0,0,0,0);7
5267;5286;setmattoall(hlava,camb);8
#5267;5286;rotmatrix(camb,200,0,0,200,0,0,5267,5286);8
#5267;5286;setwirobjmat(hlava,0,camb);9
###  Treti beat ###
5322;5340;runneg(scr,30,140);15
5322;5340;setmatrix(camb,20,0,0,0,0,0);7
5322;5340;setmattoall(hlava,camb);8
###  Stvrty beat ###
5376;5410;runneg(scr,30,140);15
5376;5410;setmatrix(camb,-90,0,0,0,0,0);7
5376;5410;setmattoall(hlava,camb);8

###  Piaty beat ###
5428;5465;runneg(scr,30,140);15

5428;5519;setmatrix(camb,0,0,0,0,0,0);6
5428;5519;rotmatrix(camb,-90,0,0,0,0,0,5428,5519);7
5428;5519;setmattoall(hlava,camb);8

#5428;5465;rotmatrix(camb,160,0,0,160,0,0,5428,5465);8
#5428;5465;setwirobjmat(hlava,0,camb);9
###  Siesty beat ###
5483;5519;runneg(scr,30,140);15

#### 2.beat seq ###
5807;5833;runneg(scr,30,140);15
5807;5833;setmatrix(cama,180,0,0,0,329,150);9

#5807;5986;rotmatrix(camb,180,0,0,270,0,0,5807,5986);8
#5807;5986;setwirobjmat(hlava,0,camb);9

5843;5861;runneg(scr,30,140);15
5843;5861;setmatrix(cama,180,0,0,0,329,80);9

5897;5913;runneg(scr,30,140);15
5897;5913;setmatrix(cama,180,0,0,0,190,110);9

5950;5986;runneg(scr,30,140);15
5950;5986;setmatrix(cama,180,0,0,0,250,200);9

6004;6040;runneg(scr,30,140);15
6004;6040;setmatrix(cama,180,0,0,0,300,100);9
#6004;6040;rotmatrix(camb,90,0,0,90,0,0,6004,6040);8
#6004;6040;setwirobjmat(hlava,0,camb);9


6058;6094;runneg(scr,30,140);15
6058;6094;setmatrix(cama,180,0,0,0,329,128);9

#6237;6273;runtunel(haal,scr,6237);1
6237;6273;runtunel(haal,scr,6537);1
#runneg(scr,30,140);15
6255;6265;runneg(scr,30,140);15
######  farebne ciary s cilami ######
6273;7100;rotzoom(backa,scr,304,490,6273,0,256,0);0
6273;7100;setmatrix(camd,0,0,0,0,0,0);1
6273;7100;rotmatrix(camd,0,0,0,180,140,140,6273,6682);2
6273;7100;setmatrix(came,0,0,0,0,0,0);3
6273;7100;rotmatrix(came,35,0,-27,-180,-175,140,6273,6682);4
6273;7100;setwirobjmat(abraka,0,camd);5
6273;7100;setwirobjmat(abraka,1,came);6
6273;7100;setmatrix(camc,0,0,0,0,0,-700);7
6273;7100;rotmatrix(camc,0,0,0,-20,-50,-14,6273,6682);9
6273;7100;runwiretex(abraka,cisla,scr,camc,6273);10
#runneg(scr,30,140);15
6328;6382;runneg(scr,30,140);15

6408;6416;runneg(scr,30,140);15
6434;6471;runneg(scr,30,140);15
6489;6525;runneg(scr,30,140);15
6561;6579;runneg(scr,30,140);15
6615;6634;runneg(scr,30,140);15
6668;6688;runneg(scr,30,140);15

6955;6984;runneg(scr,30,140);15
6955;6984;clr(tmpscr);17
6955;6984;netdis(sieta,scr,tmpscr,6955,6974);18
6955;6984;copy(tmpscr,scr);19

6992;7010;runneg(scr,30,140);15
6992;7010;clr(tmpscr);17
6992;7010;netdis(sietb,scr,tmpscr,6992,7010);18
6992;7010;copy(tmpscr,scr);19

7046;7064;runneg(scr,30,140);15
7046;7064;clr(tmpscr);17
7046;7064;netdis(sieta,scr,tmpscr,7046,7054);18
7046;7064;copy(tmpscr,scr);19

7100;7137;runtunel(haal,scr,7150);1
7137;7155;runmrezalights(tmp,scr);1
7155;7189;runtunel(haal,scr,7150);1
7189;7207;runmrezalights(tmp,scr);1
7207;7388;runtunel(haal,scr,7150);1 #7243
7243;7260;runneg(scr,0,200);15

7388;7396;copy(backb,scr);0
7388;7396;iso(phongdat,scr,1500000000,1500000000,1500000000);2
7396;7422;runmrezalights(tmp,scr);1 #7414
7414;7422;clr(tmpscr);17
7414;7422;netdis(sieta,scr,tmpscr,7414,7422);18
7414;7422;copy(tmpscr,scr);19

7422;8300;copy(backb,scr);0  #7440
#7422;8300;sindis(tmpscr,scr,2,1,25,17,33,5,7422,8000);1
8000;8300;scroll(dise,scr,0,200,0,-545,7,8000,9000);5

7422;7440;iso(phongdat,scr,1500000000,500000000,1500000000);15
7440;7477;iso(phongdat,scr,1500000000,1500000000,500000000);15
7477;7531;iso(phongdat,scr,1500000000,1500000000,1500000000);15
7531;9255;iso(phongdat,scr,1500000000,1500000000,1500000000);15

#8106;8130;runneg(scr,0,200);50

8300;8500;copy(backb,tmpscr);0  #7440
#8300;8500;sindis(scr,tmpscr,2,1,25,17,33,5,7422,8000);1
8300;8500;scroll(dise,tmpscr,0,200,0,-545,7,8000,9000);5
8300;8500;distort(tmpscr,scr,1000);10
8358;8394;runneg(scr,0,200);50

8500;9255;copy(backb,scr);0  #7440
8500;9000;scroll(dise,scr,0,200,0,-545,7,8000,9000);5

9255;10406;copy(backa,scr);0
9255;10406;setmatrix(cama,0,0,0,0,0,-8192);1
9255;10406;diswir(gula,0,scr,cama);2

10406;10442;runtunel(haala,scr,7150);1 #7243
10424;10442;runneg(scr,0,200);50
10442;10476;runhaluz(haal,scr,10442)
10458;10476;runneg(scr,0,200);50
10476;10567;copy(backa,scr);0
10476;10494;iso(phongdat,scr,1500000000,500000000,1500000000);15
10494;10513;iso(phongdat,scr,500000000,1500000000,500000000);15

10513;10549;setmatrix(cama,0,0,0,0,0,-8192);1
10549;10567;setmatrix(cama,0,0,0,0,0,-14000);1
10567;10621;copy(backb,scr);0
10567;10603;setmatrix(cama,0,0,0,0,0,-11000);1
10567;10585;runneg(scr,0,200);50
10513;10603;diswir(gula,0,scr,cama);2
10585;10603;iso(phongdat,scr,1500000000,1500000000,1500000000);15
10603;10621;iso(phongdat,scr,1000000000,1000000000,1000000000);15
10621;10639;runtunel(haal,scr,10000);1 #7243
10639;10694;runplana(haala,scr,10000);1
10657;10694;runneg(scr,0,200);50
10694;10945;copy(vamp,scr);0
10710;10945;drawspr(greet,scr,17,6);1
10728;10945;drawspr(sat,scr,23,23);2
10746;10945;drawspr(mov,scr,12,65);3
10764;10945;drawspr(osi,scr,9,112);4
10782;10945;drawspr(peo,scr,7,162);5
10800;10836;runneg(scr,0,200);50
10836;10873;rotzoom(scr,tmpscr,280,280,10836,0,0,0);100
10836;10873;copy(tmpscr,scr);1000
10891;10945;rotzoom(scr,tmpscr,300,480,10891,0,0,16);100
10891;10945;copy(tmpscr,scr);1000
10927;10945;runneg(scr,0,200);50
10945;11016;runhaluz(haala,scr,8000);1
10979;10997;runneg(scr,0,200);50
11016;11070;runplana(haal,scr,8000);1
11034;11052;runneg(scr,0,200);50
11052;11197;runhaluz(haal,scr,9000);1
11070;11088;runneg(scr,0,200);50
11124;11142;runneg(scr,0,200);50
11160;11179;runneg(scr,0,200);50
11197;11313;runplana(haal,scr,10000);1
11213;11231;runneg(scr,0,200);50
11267;11285;runneg(scr,0,200);50
11303;11573;copy(vamp,scr);0
11313;11321;setmatrix(cama,0,0,0,0,0,-8192);1
11313;11412;diswir(gula,0,scr,cama);2
11321;11412;setmatrix(cama,0,0,0,0,0,-12192);1
11358;11376;runneg(scr,0,200);50
11376;11412;setmatrix(cama,0,0,0,0,0,-6192);1
11448;11464;runneg(scr,0,200);50
11500;11519;runneg(scr,0,200);50
11555;11573;runneg(scr,0,200);50

#9255;10406;setmatrix(cama,0,0,0,0,0,-8192);1
#9255;10406;diswir(gula,0,scr,cama);2


.end
11303;0;19;37;2
11313;0;19;38;2
11321;0;19;39;2
11339;0;19;41;2
11358;0;19;43;2
11376;0;19;45;2
11412;0;19;49;2
11448;0;19;53;2
11464;0;19;55;2
11500;0;19;59;2
11519;0;19;61;2
11555;0;20;1;2
11573;0;20;3;2
11591;0;20;5;2

11303;0;19;37;2
11313;0;19;38;2
11321;0;19;39;2
11339;0;19;41;2
11358;0;19;43;2

.end
8000;9000;scroll(dise,scr,0,200,0,-545,8000,9000);1
8000;12000;copy(backb,scr);0
8000;8100;iso(phongdat,scr,1500000000,500000000,1500000000);2
8100;8200;iso(phongdat,scr,500000000,1500000000,1500000000);2
8200;10000;iso(phongdat,scr,1500000000,1500000000,1500000000);2
8000;7000;clr(tmpscr);17
8000;7000;netdis(sietka,scr,tmpscr,8000,8500);18
8000;7000;copy(tmpscr,scr);19
.end
#7531;10000;runmrezalights(tmp,citron);1
#5600;8000;runtunel(haal,scr,5600);2
#5300;15000;nicescroll(fibro,scr,320,25,-256,0,300);2
#5200;15000;nicescroll(brain,scr,20,200,0,-200,200);3
#5050;15000;nicescroll(comm,scr,320,120,-200,0,50);4
#5250;15000;nicescroll(diab,scr,280,200,0,-230,250);5
#5150;15000;nicescroll(evans,scr,320,150,-210,0,150);6
#5250;15000;nicescroll(gluco,scr,80,200,0,-130,250);7

.end
===============================================================
======================== Koniec ===============================
===============================================================
5807;8
6058;8
6094;8
6956;8
7207;8
7243;8
8106;8
8358;8

.end
