MILKDROP_PRESET_VERSION=201
PSVERSION=3
PSVERSION_WARP=2
PSVERSION_COMP=3
[preset00]
fRating=1.000
fGammaAdj=2.000
fDecay=0.990
fVideoEchoZoom=2.000
fVideoEchoAlpha=0.000
nVideoEchoOrientation=0
nWaveMode=4
bAdditiveWaves=0
bWaveDots=0
bWaveThick=1
bModWaveAlphaByVolume=1
bMaximizeWaveColor=1
bTexWrap=1
bDarkenCenter=0
bRedBlueStereo=0
bBrighten=0
bDarken=0
bSolarize=0
bInvert=0
fWaveAlpha=0.000
fWaveScale=0.643
fWaveSmoothing=0.270
fWaveParam=0.000
fModWaveAlphaStart=0.000
fModWaveAlphaEnd=1.400
fWarpAnimSpeed=1.459
fWarpScale=2.007
fZoomExponent=1.00000
fShader=0.000
zoom=0.99990
rot=0.00000
cx=0.500
cy=0.500
dx=0.00000
dy=0.00000
warp=0.01000
sx=0.99990
sy=1.00000
wave_r=0.800
wave_g=0.490
wave_b=1.000
wave_x=0.500
wave_y=0.500
ob_size=0.000
ob_r=0.000
ob_g=0.000
ob_b=0.000
ob_a=1.000
ib_size=0.000
ib_r=0.250
ib_g=0.250
ib_b=0.250
ib_a=0.000
nMotionVectorsX=64.000
nMotionVectorsY=48.000
mv_dx=0.000
mv_dy=0.000
mv_l=1.850
mv_r=0.500
mv_g=0.500
mv_b=0.500
mv_a=0.000
b1n=0.000
b2n=0.000
b3n=0.000
b1x=1.000
b2x=1.000
b3x=1.000
b1ed=0.000
wavecode_0_enabled=1
wavecode_0_samples=512
wavecode_0_sep=56
wavecode_0_bSpectrum=0
wavecode_0_bUseDots=0
wavecode_0_bDrawThick=1
wavecode_0_bAdditive=0
wavecode_0_scaling=0.99982
wavecode_0_smoothing=0.10000
wavecode_0_r=0.000
wavecode_0_g=1.000
wavecode_0_b=1.000
wavecode_0_a=0.700
wave_0_init1=t1=time;
wave_0_per_frame1=//t8=samples*2-1;t7=time-t1;
wave_0_per_point1=v1=.5+value1; v2=.5+value2; bal=v2-v1;
wave_0_per_point2=vol = value1 + value2;
wave_0_per_point3=val=sample*2-1*sin(time*1/(v1+v2));
wave_0_per_point4=x2 =(val+bal);
wave_0_per_point5=
wave_0_per_point6=//n = int(sample*t8);
wave_0_per_point7=//dec = if (vol > gmegabuf(n), .2, .5);
wave_0_per_point8=//gmegabuf(n) = gmegabuf(n)*dec + (1-dec)* (vol) * (1+.01*(rand(100)-50));
wave_0_per_point9=
wave_0_per_point10=x =sample*x2+bal*abs(x-.5);
wave_0_per_point11=
wave_0_per_point12=//y = gmegabuf (n)*.15+.2;
wave_0_per_point13=
wave_0_per_point14=y=vol;
wave_0_per_point15=a=1;
wave_0_per_point16=
wave_0_per_point17=reg05=vol;
wave_0_per_point18=reg06=bal;
wave_0_per_point19=x+=15; y+=15;
wave_0_per_point20=x-=int(x); y-=int(y);
wave_0_per_point21=
wave_0_per_point22=//a=.73-(.2*abs(y-.5))+max(abs(bal),.12)*sin(val);
wavecode_1_enabled=0
wavecode_1_samples=512
wavecode_1_sep=0
wavecode_1_bSpectrum=0
wavecode_1_bUseDots=0
wavecode_1_bDrawThick=0
wavecode_1_bAdditive=0
wavecode_1_scaling=0.89152
wavecode_1_smoothing=0.00000
wavecode_1_r=1.000
wavecode_1_g=1.000
wavecode_1_b=1.000
wavecode_1_a=0.900
wave_1_per_point1=m = int(sample*512+.0);
wave_1_per_point2=sw = (m%2);
wave_1_per_point3=p1 = ((m+1)%16);
wave_1_per_point4=p2 = int(m/32);
wave_1_per_point5=
wave_1_per_point6=//p1 = 15; p2 = 0;
wave_1_per_point7=base = 1000;
wave_1_per_point8=x0 = if(sw,gmegabuf(p1*8+base),gmegabuf(p2*8+base));
wave_1_per_point9=y0 = if(sw,gmegabuf(p1*8+base+1),gmegabuf(p2*8+base+1));
wave_1_per_point10=z0 = if(sw,gmegabuf(p1*8+base+2),gmegabuf(p2*8+base+2));
wave_1_per_point11=
wave_1_per_point12=x = x0+.5;
wave_1_per_point13=y = y0+.5;
wave_1_per_point14=
wave_1_per_point15=ind = 5000+ p2*16+p1;
wave_1_per_point16=dist = z0;
wave_1_per_point17=a = min(.008/dist,1) * (dist >= .001) *q10;
wave_1_per_point18=
wave_1_per_point19=//a = .01/z0;
wavecode_2_enabled=1
wavecode_2_samples=512
wavecode_2_sep=0
wavecode_2_bSpectrum=0
wavecode_2_bUseDots=0
wavecode_2_bDrawThick=1
wavecode_2_bAdditive=1
wavecode_2_scaling=2.41139
wavecode_2_smoothing=1.00000
wavecode_2_r=1.000
wavecode_2_g=0.000
wavecode_2_b=1.000
wavecode_2_a=1.000
wave_2_per_point1=a = .5+.5*treb_att*(1.5-(bass-bass_att));
wavecode_3_enabled=0
wavecode_3_samples=512
wavecode_3_sep=36
wavecode_3_bSpectrum=0
wavecode_3_bUseDots=0
wavecode_3_bDrawThick=0
wavecode_3_bAdditive=1
wavecode_3_scaling=1.00000
wavecode_3_smoothing=1.00000
wavecode_3_r=1.000
wavecode_3_g=0.000
wavecode_3_b=1.000
wavecode_3_a=1.000
wave_3_init1=pdiv=pow(70,3); pie=1077566.28/pdiv; nvar=bass+bass_att+mid+mid_att+treb+treb_att;//diceroll=int(rand(5))+1;
wave_3_init2=t1=time;t3=pie;t6=pie*2;t5=int(rand(6))+1;t4=(t6/t5)*nvar-t3;
wave_3_init3=t7=above(t5,nvar)*2-1;t8=t6+nvar+(t5*t7);t2=time+t8;t4=min(t8,t4)/max(t8,t4);
wave_3_per_frame1=//t1=time;t3=pie;t6=pie*2;t5=diceroll;t4=(t6/t5)*nvar-t3;t7=above(t5,nvar)*2-1;t8=t6+nvar+(t5*t7);t2=time+t8;
wave_3_per_frame2=num_inst=samples*2-1;
wave_3_per_frame3=reg17=time-t1;reg19=time-(t1+t8);pie=t3;reg03=pie;
wave_3_per_frame4=bc1=1-1/(1+bass_att); bc2=1-1/(1+bass); bhit=above(bc2,max(.3,bc1)); bprg=bc1*(2/pie)+bc2*((bhit+1)/pie);bdtct=if(above(bprg,mxb),reg17,bdtct); mxb=max(bprg,mxb);
wave_3_per_frame5=mc1=1-1/(1+mid_att); mc2=1-1/(1+mid); mhit=above(mc2,max(.3,mc1)); mprg=mc1*(2/pie)+mc2*((mhit+1)/pie);mdtct=if(above(mprg,mxm),reg17,mdtct); mxm=max(mprg,mxm);
wave_3_per_frame6=tc1=1-1/(1+treb_att); tc2=1-1/(1+treb); thit=above(tc2,max(.3,tc1)); tprg=tc1*(2/pie)+tc2*((thit+1)/pie);tdtct=if(above(tprg,mxt),reg17,tdtct); mxt=max(tprg,mxt);
wave_3_per_frame7=//isb=equal((instance)%(3),1);
wave_3_per_frame8=mxb-=int(reg17-bdtct)*.01;mxm-=int(reg17-mdtct)*.01;mxt-=int(reg17-tdtct)*.01;
wave_3_per_frame9=//reg78=1-1/((reg17)-max(bdtct,max(tdtct,mdtct))+1);
wave_3_per_frame10=reg78=bprg;
wave_3_per_frame11=t3*=int(num_inst);
wave_3_per_frame12=
wave_3_per_frame13=reg63=bprg;reg69=mprg;reg74=tprg;
wave_3_per_point1=num=t3/reg03;//reg63=bprg;reg69=mprg;reg74=tprg;
wave_3_per_point2=instance=sample*num;is3=equal(instance%3,0);is2=equal(instance-1,is3);
wave_3_per_point3=qy=y*2-1;qx=x*2-1; qsam=sample*2-1;
wave_3_per_point4=v1=value1+.5;v2=value2+.5;vol=v1+v2; bal=v2-v1;
wave_3_per_point5=xpos=(qsam*t4)*(.3+.3*cos(reg69)+.3*cos(reg63)*reg17);;
wave_3_per_point6=ypos=reg69*.5+(.25*sin((reg63)*is3)+(abs(qy*t4))*sin((reg63)*is2)-.2+sin(abs(qx*2))*atan(time+instance*1-qy));
wave_3_per_point7=xpos+=abs(qx*3)*(reg03*reg74*sin(time*qy));
wave_3_per_point8=y=ypos+vol*sin(abs(qx*reg06*qsam))*cos(xpos*sample*reg06-reg03);
wave_3_per_point9=x=xpos+.35-.15*sin(sample*reg06-reg03*xpos);
wave_3_per_point10=x+=3.7;x*=.75;x-=int(x);
wave_3_per_point11=y+=7;y*=.75;y-=int(y);
wave_3_per_point12=a*=.5+.3*sin(.12*reg74+.12*reg69)+reg03*cos(abs(qx-qy-.5)*sin(qx));
shapecode_0_enabled=1
shapecode_0_sides=14
shapecode_0_additive=0
shapecode_0_thickOutline=0
shapecode_0_textured=0
shapecode_0_num_inst=3
shapecode_0_x=0.500
shapecode_0_y=0.500
shapecode_0_rad=0.05044
shapecode_0_ang=0.00000
shapecode_0_tex_ang=1.00531
shapecode_0_tex_zoom=1.53117
shapecode_0_r=1.000
shapecode_0_g=0.000
shapecode_0_b=1.000
shapecode_0_a=1.000
shapecode_0_r2=0.000
shapecode_0_g2=0.000
shapecode_0_b2=0.000
shapecode_0_a2=0.600
shapecode_0_border_r=1.000
shapecode_0_border_g=1.000
shapecode_0_border_b=0.000
shapecode_0_border_a=0.300
shape_0_init1=t6=acos(-1)*2;
shape_0_init2=//t7=int(rand(3)+1)+5;
shape_0_per_frame1=//num_inst+=t7;
shape_0_per_frame2=num=(num_inst)/(11-z);
shape_0_per_frame3=sample=instance/num_inst; tample=sample+.01*q5; tample-=int(tample);
shape_0_per_frame4=dist=.09+.1*reg05; dist*=z;
shape_0_per_frame5=dist*=num;
shape_0_per_frame6=rad=3*(dist*1/(1+num));
shape_0_per_frame7=
shape_0_per_frame8=x+=dist*sin(tample*t6);
shape_0_per_frame9=y+=dist*cos(tample*t6);
shape_0_per_frame10=x+=reg06*.18;y+=reg05*.09;
shape_0_per_frame11=zample=(tample+z)*3.5; zample-=int(zample);
shape_0_per_frame12=z=1-(.3*z)*sin(zample*t6);
shapecode_1_enabled=0
shapecode_1_sides=3
shapecode_1_additive=0
shapecode_1_thickOutline=0
shapecode_1_textured=0
shapecode_1_num_inst=48
shapecode_1_x=0.260
shapecode_1_y=0.200
shapecode_1_rad=0.39317
shapecode_1_ang=0.00000
shapecode_1_tex_ang=0.00000
shapecode_1_tex_zoom=0.93550
shapecode_1_r=1.000
shapecode_1_g=1.000
shapecode_1_b=0.600
shapecode_1_a=1.000
shapecode_1_r2=0.000
shapecode_1_g2=0.000
shapecode_1_b2=0.000
shapecode_1_a2=0.000
shapecode_1_border_r=1.000
shapecode_1_border_g=1.000
shapecode_1_border_b=1.000
shapecode_1_border_a=0.000
shape_1_per_frame1=sides = q12;
shape_1_per_frame2=copies = int(num_inst/16);
shape_1_per_frame3=
shape_1_per_frame4=n = int(instance/copies)*8+1000;
shape_1_per_frame5=frac = (instance%copies)/(copies);
shape_1_per_frame6=
shape_1_per_frame7=k1 = 1;
shape_1_per_frame8=x0 = gmegabuf(n)*frac + megabuf(n)*(1-frac)*k1;
shape_1_per_frame9=y0 = gmegabuf(n+1)*frac+ megabuf(n+1)*(1-frac)*k1;
shape_1_per_frame10=z0 = gmegabuf(n+2)*frac+ megabuf(n+2)*(1-frac);
shape_1_per_frame11=ang = frac*3.14 + atan2(x0,y0);
shape_1_per_frame12=
shape_1_per_frame13=megabuf(n) = x0;
shape_1_per_frame14=megabuf(n+1) = y0;
shape_1_per_frame15=megabuf(n+2) = z0;
shape_1_per_frame16=
shape_1_per_frame17=x = x0 + .5;
shape_1_per_frame18=y = y0*q32 + .5;
shape_1_per_frame19=z = z0;
shape_1_per_frame20=
shape_1_per_frame21=a =  min(.4/z,1) * (z >= 0) ;
shape_1_per_frame22=a2 = 0;
shape_1_per_frame23=
shape_1_per_frame24=rad = (.02-.0006*sides)/z;
shape_1_per_frame25=r = instance/num_inst;
shape_1_per_frame26=b = 1-r;
shape_1_per_frame27=g = pow(r-.5*q2,2)*4;
shape_1_per_frame28=r2 = 0; b2 = 0; g2 = 0;
shape_1_per_frame29=
shape_1_per_frame30=border_a = .04*(sides >= 6);
shapecode_2_enabled=1
shapecode_2_sides=8
shapecode_2_additive=1
shapecode_2_thickOutline=0
shapecode_2_textured=0
shapecode_2_num_inst=192
shapecode_2_x=0.650
shapecode_2_y=0.380
shapecode_2_rad=0.76893
shapecode_2_ang=0.00000
shapecode_2_tex_ang=0.00000
shapecode_2_tex_zoom=0.73678
shapecode_2_r=1.000
shapecode_2_g=0.000
shapecode_2_b=0.000
shapecode_2_a=0.700
shapecode_2_r2=0.000
shapecode_2_g2=0.000
shapecode_2_b2=0.000
shapecode_2_a2=0.000
shapecode_2_border_r=0.500
shapecode_2_border_g=0.500
shapecode_2_border_b=0.000
shapecode_2_border_a=0.000
shape_2_per_frame1=copies = int(num_inst/16);
shape_2_per_frame2=
shape_2_per_frame3=n = int(instance/copies)*8+1000;
shape_2_per_frame4=frac = (instance%copies)/(copies);
shape_2_per_frame5=
shape_2_per_frame6=k1 =  1.1; 
shape_2_per_frame7=x0 = gmegabuf(n)*frac + megabuf(n)*(1-frac)*k1;
shape_2_per_frame8=y0 = gmegabuf(n+1)*frac+ megabuf(n+1)*(1-frac)*k1;
shape_2_per_frame9=z0 = gmegabuf(n+2)*frac+ megabuf(n+2)*(1-frac);
shape_2_per_frame10=ang = frac*3.14 + atan2(x0,y0);
shape_2_per_frame11=
shape_2_per_frame12=//x0 = 0; y0 = 0; z0 = 1;
shape_2_per_frame13=pulse = min(q22+.2,1);
shape_2_per_frame14=
shape_2_per_frame15=Tht = instance*14.782;
shape_2_per_frame16=Phi = instance*32.523;
shape_2_per_frame17=
shape_2_per_frame18=kt = time*6+instance/num_inst*copies;
shape_2_per_frame19=v0 = pulse*.015/z0 * (kt-int(kt));
shape_2_per_frame20=ox = x0+v0*sin(Tht) * cos(Phi);
shape_2_per_frame21=oy = y0+v0*cos(Tht);
shape_2_per_frame22=oz = z0+v0*sin(Tht)*sin(Phi); 
shape_2_per_frame23=
shape_2_per_frame24=
shape_2_per_frame25=x = ox + .5;
shape_2_per_frame26=y = oy*q32 + .5;
shape_2_per_frame27=z = oz;
shape_2_per_frame28=
shape_2_per_frame29=a = min(.4/oz,1)*(oz>=0) *q11;
shape_2_per_frame30=a2 = 0;
shape_2_per_frame31=
shape_2_per_frame32=rad = .004/z*(1-frac)*pulse;
shape_2_per_frame33=
shape_2_per_frame34=border_a = .00;
shape_2_per_frame35=r = 1; b = 1; g = 1;
shape_2_per_frame36=r2 = 1; b2 = 1; g2 = 1;
shape_2_per_frame37=
shape_2_per_frame38=
shape_2_per_frame39=dec = q31; //###!
shape_2_per_frame40=megabuf(n) = megabuf(n)*dec + (1-dec)*gmegabuf(n);
shape_2_per_frame41=megabuf(n+1) = megabuf(n+1)*dec + (1-dec)*gmegabuf(n+1);
shape_2_per_frame42=megabuf(n+2) = megabuf(n+2)*dec + (1-dec)*gmegabuf(n+2);
shapecode_3_enabled=0
shapecode_3_sides=12
shapecode_3_additive=1
shapecode_3_thickOutline=1
shapecode_3_textured=1
shapecode_3_num_inst=2
shapecode_3_x=0.600
shapecode_3_y=0.550
shapecode_3_rad=0.97237
shapecode_3_ang=1.25664
shapecode_3_tex_ang=0.00000
shapecode_3_tex_zoom=0.34933
shapecode_3_r=1.000
shapecode_3_g=0.600
shapecode_3_b=0.000
shapecode_3_a=1.000
shapecode_3_r2=0.000
shapecode_3_g2=0.000
shapecode_3_b2=1.000
shapecode_3_a2=0.000
shapecode_3_border_r=0.200
shapecode_3_border_g=0.700
shapecode_3_border_b=0.500
shapecode_3_border_a=0.000
per_frame_init_1=start = 1;
per_frame_init_2=SysTime = 0;
per_frame_init_3=Prog = 0;
per_frame_init_4=n = 0;
per_frame_init_5=loop (150000,
per_frame_init_6=  gmegabuf(n) = 0;
per_frame_init_7=  megabuf(n) = 0;
per_frame_init_8=n = n+1;);
per_frame_init_9=
per_frame_init_10=
per_frame_init_11=MaxZw = 1024; reg01 = MaxZw;
per_frame_init_12=MaxZw2 = 800; reg02 = MaxZw2;
per_frame_init_13=MaxShape = MaxZw * 0.9;
per_frame_init_14=MaxShap2 = MaxZw2 * 0.8;
per_frame_init_15=YCam = 3;  reg05 = YCam; //Hoehe Blickpunkt
per_frame_init_16=fov   =  .7;  reg06 = fov;   //Blickfeld
per_frame_init_17=MaxDist = 120; reg07 = MaxDist;
per_frame_init_18=AngCam  = -.0;  //vert. Kamerawinkel; pos: nach unten
per_frame_init_19=
per_frame_init_20=sbase = 20000; reg03 = sbase;//Buesche
per_frame_init_21=cbase  = 50000; //Konfig-Parameter Baum & Busch
per_frame_init_22=cbase2 = 51000; //Konfig-Parameter Baum & Busch
per_frame_init_23=csize = 10;
per_frame_init_24=
per_frame_init_25=//Datensatz Zweig
per_frame_init_26=recsize = 12; reg00 = recsize;
per_frame_init_27=//0,1,2 : Koordinaten Spitze x,y,z
per_frame_init_28=//3,4,5 : Wuchsrichtung dx,dy,dz
per_frame_init_29=//6 : Dicke
per_frame_init_30=//7     : Zieldicke nach Abschluss Uebergang
per_frame_init_31=//8: Alter
per_frame_init_32=//9: Zweiglaenge ges.
per_frame_init_33=//10: Conf-Record (Kraus, Hang ...)
per_frame_init_34=
per_frame_init_35=IstZw = 0; IstZw2 = 0; start = 1;
per_frame_init_36=
per_frame_init_37=//Parameter Zweige
per_frame_init_38=Kraus  = .2; //Krauser Wuchs, 0..1;
per_frame_init_39=Hang   = .02; //Kleinere Zweige wachsen nach oben / unten, -1...1
per_frame_init_40=ZwLen  = 13;   //Wuchszeit gesamt, 2...30 
per_frame_init_41=Verzw  = 12; //Tendenz zur Verzweigung, 3...30
per_frame_init_42=Straight = .86; //Senkrechter Wuchs mit einem Hauptstamm; 0.5...85;
per_frame_init_43=Waag     = .8; //kleine Werte: waagerechte Verzweig
per_frame_init_44=
per_frame_init_45=//Baeume
per_frame_init_46=n = cbase;
per_frame_init_47=//Kraus         //Hang            //Wuchszeit       Verwz;            Straight           Waag
per_frame_init_48=gmegabuf(n)=.22; gmegabuf(n+1)=.0; gmegabuf(n+2)=12; gmegabuf(n+3)=12; gmegabuf(n+4)=.87; gmegabuf(n+5)=.85;
per_frame_init_49=n += csize;
per_frame_init_50=gmegabuf(n)=.05; gmegabuf(n+1)=-0; gmegabuf(n+2)=4; gmegabuf(n+3)=17; gmegabuf(n+4)=0.9; gmegabuf(n+5)=.8;
per_frame_init_51=
per_frame_init_52=//Buesche
per_frame_init_53=n = cbase2;
per_frame_init_54=//Kraus         //Hang            //Wuchszeit       Verwz;            Straight           Waag
per_frame_init_55=gmegabuf(n)=.2; gmegabuf(n+1)=.0; gmegabuf(n+2)=3; gmegabuf(n+3)=32; gmegabuf(n+4)=.6; gmegabuf(n+5)=.7;
per_frame_init_56=n += csize;
per_frame_init_57=
per_frame_init_58=tstart = rand (1000)-500;
per_frame_1=dec_m = pow (0.85, 30/fps); dec_s = pow (0.95, 30/fps); 
per_frame_2=speed0 = 0.2 + 0.06*sin(time*0.083) ; //##spielen, 0.15... 0.3
per_frame_3=SysTime = SysTime + (exp(-Bild) * 0.3+ 0.03)/30; 
per_frame_4=if (SysTime >= 1.2, SysTime = 0; Start = 1, 0);
per_frame_5=RelZ    = max(0,pow(1-SysTime,1.4));
per_frame_6=SysZ = RelZ*MaxDist+.1;
per_frame_7=copyable = (reg50 <= 400);
per_frame_8=
per_frame_9= //-------------- Gelaende definieren ------------------
per_frame_10=if (Start == 1,
per_frame_11=  n = 0;     loop (MaxZw,  megabuf (n+6) = 0; n+= recsize);
per_frame_12=  n = sbase; loop (MaxZw2, megabuf (n+6) = 0; n+= recsize);
per_frame_13=  fov = rand(10)/15 + .5;reg06 = fov;
per_frame_14=  YCam = 1 + rand(8); reg05 = YCam; ///###
per_frame_15=  AngCam = (YCam-7) * .015; //neg: nach oben
per_frame_16=  NumTree = 0;
per_frame_17=  reg50 = 0; //(Randueberschr. aus shape 1)
per_frame_18=  CopyNow = 0; 
per_frame_19=  reg10 = (rand(100)/100-.3)*0.2;
per_frame_20=  reg11 = (rand (20)-10)*0.0075;
per_frame_21=  reg12 = (rand (20)-10)*0.01;  
per_frame_22=  reg13 = (rand (10)-5)*0.01; 
per_frame_23=  reg14 = ((rand (100)/100)-.4)*0.008;
per_frame_24=  par1  = rand(10); //fuer Weg
per_frame_25=  par2  = rand(6);
per_frame_26=,0);
per_frame_27=
per_frame_28=//-------------- Baeume pflanzen ------------------
per_frame_29=if ((SysZ > 25*fov) && (frame%20==0) && (IstZw < MaxZw/3), 
per_frame_30=  base = nextfree*recsize;
per_frame_31=  NumTree += 1;
per_frame_32=  Prog = int(NumTree/10);
per_frame_33=  bpow = sin(prog)*.05 + .33;
per_frame_34=  z0 = SysZ;
per_frame_35=  x0 = (rand(50)/50-.5)*z0/fov*.8;
per_frame_36=//  x0 = WegX + 12 * ((NumTree%2)-0.5);
per_frame_37=  y0 = reg10*z0*(sin(x0*reg11 + z0*reg13)) * sin(z0*reg12+reg13) + pow(x0,2)*reg14; //reg13 im zweiten Term ?
per_frame_38=  Weg = max(min(4-abs(WegX-x0),1),0);
per_frame_39=  if (weg == 0,
per_frame_40=    megabuf (base) = x0;  megabuf (base+1) = y0; megabuf (base+2) = z0;
per_frame_41=    megabuf (base+3) = 0; megabuf (base+4) = 1;  megabuf (base+5) = 0;
per_frame_42=    megabuf(base+6) = 1.5;  megabuf(base+7) = 0.8 ;  megabuf(base+8) = 0;
per_frame_43=    megabuf(base+9) = 0;   megabuf(base+10) = 0; megabuf(base+11) = y0;
per_frame_44=  ,0);
per_frame_45=,0);
per_frame_46=
per_frame_47=//-------------- Wachstum / Verzweigung Baeume ------------------
per_frame_48=n = 0; loop (MaxZw, gmegabuf (n+6) = 0; n+=recsize);
per_frame_49=mindex = 0;
per_frame_50=while(exec2(
per_frame_51=n = 0; nextfree = IstZw + 1;
per_frame_52=loop (min (MaxZw,IstZW), 
per_frame_53=  base = n*recsize;
per_frame_54=  Quer = megabuf (base + 6); RQuer = sqrt (Quer);
per_frame_55=  Alter = megabuf (base + 8);
per_frame_56=  Height = megabuf(base+1)-megabuf(base+11);
per_frame_57=  Dist = megabuf (base + 2);
per_frame_58=  if (Quer > 0,
per_frame_59=    cb = cbase+csize* megabuf(base + 10);  
per_frame_60=    Kraus=gmegabuf(cb);   Hang=gmegabuf(cb+1);  ZwLen=gmegabuf(cb+2);
per_frame_61=    Verzw =gmegabuf(cb+3);    Straight=gmegabuf(cb+4);    Waag =gmegabuf(cb+5);
per_frame_62=    speed = speed0 * pow(Quer,bpow);
per_frame_63=    i = 0; loop (3, megabuf(base+i) += megabuf(base+3+i) * speed; i+=1);
per_frame_64=    megabuf(base+3) += (rand(100)/100-.5)*Kraus*(1-RQuer);
per_frame_65=    megabuf(base+4) += (rand(100)/100-.5)*Kraus*(1-RQuer) +(.002/Quer)*Hang;
per_frame_66=    megabuf(base+5) += (rand(100)/100-.5)*Kraus*(1-RQuer);
per_frame_67=    len = sqrt (pow(megabuf(base+3),2)+pow(megabuf(base+4),2)+pow(megabuf(base+5),2));
per_frame_68=    i = 0; loop (3, megabuf(base+3+i) /= len; i+=1);
per_frame_69=    dec = 0.28;
per_frame_70=    megabuf (base + 6) = (0.996-dec)*megabuf (base + 6) + dec* megabuf(base + 7);
per_frame_71=    megabuf (base + 8) += 1;     megabuf (base + 9) += len;
per_frame_72=  ,0);
per_frame_73=  if ((Quer <=0.000003*Dist) ||(Quer < 0.00001*Dist) && (IstZw > 0.9*MaxZw) 
per_frame_74=    ||((Quer < 0.003) && ((rand(1000000*Quer*ZwLen) < 20*megabuf (base +9)))),
per_frame_75=      megabuf (base + 6) = 0;
per_frame_76=      //ausgewachsen, Zweig kann ausgelistet werden 
per_frame_77=  , 
per_frame_78=    //ansonsten: Verzweigung ?
per_frame_79=    if ( (rand (500 + 500 * (1-quer)) < Verzw*Alter ) && (Height > 0), 
per_frame_80=      //Suche freien Platz in Umgebung
per_frame_81=      m = nextfree; nextfree += 1;
per_frame_82=      if ((m < MaxZw), //noch ein Platz frei ?
per_frame_83=        newbase = m*recsize;
per_frame_84=        //Anfangsbed. des neuen Zweiges setzen 
per_frame_85=        i = 0; loop (3, megabuf(newbase+i) = megabuf(base+i); i+=1); 
per_frame_86=
per_frame_87=        //Dicke 
per_frame_88=        ran = straight + (1-straight)*2*(rand(100)/100-.5);    
per_frame_89=        megabuf (newbase + 6) = megabuf (base + 6);
per_frame_90=        megabuf (base + 7) = megabuf (base + 6) * (ran);
per_frame_91=        megabuf (newbase + 7) = megabuf (base + 6) * (1-ran) ;
per_frame_92=
per_frame_93=        //Richtung
per_frame_94=        megabuf(newbase+3)  =   megabuf(base+3)+ (rand(100)/100-.5); 
per_frame_95=        megabuf(newbase+4)  =   megabuf(base+4)+ (rand(100)/100-.5); 
per_frame_96=        megabuf(newbase+5)  =   megabuf(base+5)+ (rand(100)/100-.5); 
per_frame_97=        megabuf(newbase+4)  *= Waag; 
per_frame_98=
per_frame_99=        len = sqrt (pow(megabuf(newbase+3),2)+pow(megabuf(newbase+4),2)+pow(megabuf(newbase+5),2));
per_frame_100=        i = 0; loop (3, megabuf(newbase+3+i) /= len; i+=1);
per_frame_101=
per_frame_102=        /// Alter   
per_frame_103=        megabuf (base + 8) = 0; megabuf (newbase + 8) = 0; megabuf (newbase + 9)= 0; 
per_frame_104=        megabuf (newbase + 10)= megabuf (base + 10);;
per_frame_105=        megabuf (newbase + 11)= megabuf (base + 11);;
per_frame_106=     ,0);
per_frame_107=  ,0));
per_frame_108=  n += 1;
per_frame_109=);
per_frame_110=//Loeschen gmegabuf, komprimieren, umkopieren und zuruekkopieren
per_frame_111=n = 0; m = 0; k= 0; IstZw = 0;
per_frame_112=loop (MaxZw,
per_frame_113=  if (megabuf (n + 6) > 0,
per_frame_114=    IstZW += 1; k = 0;
per_frame_115=    loop (recsize, 
per_frame_116=      gmegabuf(mindex+k) = megabuf(n+k); 
per_frame_117=      megabuf (m+k) = gmegabuf(mindex+k); 
per_frame_118=       k += 1;);
per_frame_119=       if (!(m==n), megabuf (n+6) = 0;,0);
per_frame_120=    m += recsize; mindex += recsize,0); 
per_frame_121=  n += recsize;
per_frame_122=);, (IstZW > 0) && (mindex/recsize < MaxShape))); //Ende B
per_frame_123=
per_frame_124=
per_frame_125=
per_frame_126=//-------------- Buesche pflanzen ------------------
per_frame_127=if ((SysZ > 10*fov) && (frame%17==0) && (IstZw2 < MaxZw2/3), 
per_frame_128=  n = 0;
per_frame_129=  x00 = (rand(50)/50-.5);
per_frame_130=  loop (8,
per_frame_131=    base = (n+nextf2)*recsize+sbase;
per_frame_132=    z0 = SysZ;
per_frame_133=    x0 = (x00 + (rand(50)/50-.5)*.1)*z0;
per_frame_134=    y0 = reg10*z0*(sin(x0*reg11 + z0*reg13)) * sin(z0*reg12+reg13) + pow(x0,2)*fov*reg14;
per_frame_135=    y0 +=  -.001*rand(10);
per_frame_136=//    x0 *= MaxDist; y0 *= MaxDist; z0 *= MaxDist;
per_frame_137=    weg = WegX - x0;
per_frame_138=    weg = max(min(4-abs(weg),1),0);
per_frame_139=    if (weg == 0,
per_frame_140=      megabuf (base) = x0;  megabuf (base+1) = y0; megabuf (base+2) = z0;
per_frame_141=      megabuf (base+3) = rand(100)/100-.5; megabuf (base+4) = 1;  megabuf (base+5) = 0;
per_frame_142=      megabuf(base+6) = .02;  megabuf(base+7) = .03; ;  megabuf(base+8) = 4;
per_frame_143=      megabuf(base+9) = 0;    megabuf(base+10) = 0; 
per_frame_144=    ,0);
per_frame_145=   n+= 1;);  
per_frame_146=,0);
per_frame_147=
per_frame_148=//-------------- Wachstum / Verzweigung Buesche------------------
per_frame_149=n = sbase; loop (MaxZw2, gmegabuf (n+6) = 0; n+=recsize);
per_frame_150=mindex2 = sbase;
per_frame_151=while(exec2(
per_frame_152=n = 0; nextf2 = IstZw2 + 1;
per_frame_153=loop (min (MaxZw2,IstZW2), 
per_frame_154=  base = n*recsize+sbase;
per_frame_155=  Quer = megabuf (base + 6); Alter = megabuf (base + 8); 
per_frame_156=  if (Quer > 0,
per_frame_157=    cb = cbase2+csize*megabuf(base + 10);  
per_frame_158=    Kraus=gmegabuf(cb);   Hang=gmegabuf(cb+1);  ZwLen=gmegabuf(cb+2);
per_frame_159=    Verzw =gmegabuf(cb+3);    Straight=gmegabuf(cb+4);    Waag =gmegabuf(cb+5);
per_frame_160=    speed = speed0 * pow(megabuf (base + 6),.32);
per_frame_161=    i = 0; loop (3, megabuf(base+i) += megabuf(base+3+i) * speed; i+=1);
per_frame_162=    megabuf(base+3) += (rand(100)/100-.5)*Kraus;
per_frame_163=    megabuf(base+4) += (rand(100)/100-.5)*Kraus +(.002/Quer)*Hang;
per_frame_164=    megabuf(base+5) += (rand(100)/100-.5)*Kraus;
per_frame_165=    len = sqrt (pow(megabuf(base+3),2)+pow(megabuf(base+4),2)+pow(megabuf(base+5),2));
per_frame_166=    i = 0; loop (3, megabuf(base+3+i) /= len; i+=1);
per_frame_167=    megabuf (base + 9) += len;
per_frame_168=    dec = 0.3;
per_frame_169=    megabuf (base + 6) = (0.98-dec)*megabuf (base + 6) + dec* megabuf(base + 7);
per_frame_170=    megabuf (base + 8) += 1;
per_frame_171=  ,0);
per_frame_172=  if ((rand(1000000*Quer*ZwLen) < 50*megabuf (base +8) ), //ausgewachsen, Zweig kann ausgelistet werden
per_frame_173=      megabuf (base + 6) = 0;
per_frame_174=  , 
per_frame_175=    //ansonsten: Verzweigung ?
per_frame_176=    if ( (rand (500 + 500 * (1-quer)) < Verzw*Alter), 
per_frame_177=      //Suche freien Platz in Umgebung
per_frame_178=      m = nextf2; nextf2 += 1;
per_frame_179=      if ((m < MaxZw2), //noch ein Platz frei ?
per_frame_180=        newbase = m*recsize+sbase;
per_frame_181=        //Anfangsbed. des neuen Zweiges setzen 
per_frame_182=        i = 0; loop (3, megabuf(newbase+i) = megabuf(base+i); i+=1); 
per_frame_183=
per_frame_184=        //Dicke 
per_frame_185=        ran = straight + (1-straight)*2*(rand(100)/100-.5);    
per_frame_186=        megabuf (newbase + 6) = megabuf (base + 6);
per_frame_187=        megabuf (base + 7) = megabuf (base + 6) * (ran);
per_frame_188=        megabuf (newbase + 7) = megabuf (base + 6) * (1-ran) ;
per_frame_189=
per_frame_190=        //Richtung
per_frame_191=        megabuf(newbase+3)  =   megabuf(base+3)+ (rand(100)/100-.5); 
per_frame_192=        megabuf(newbase+4)  =   megabuf(base+4)+ (rand(100)/100-.5); 
per_frame_193=        megabuf(newbase+5)  =   megabuf(base+5)+ (rand(100)/100-.5); 
per_frame_194=        megabuf(newbase+4)  *= Waag; 
per_frame_195=
per_frame_196=        len = sqrt (pow(megabuf(newbase+3),2)+pow(megabuf(newbase+4),2)+pow(megabuf(newbase+5),2));
per_frame_197=        i = 0; loop (3, megabuf(newbase+3+i) /= len; i+=1);
per_frame_198=
per_frame_199=        /// Alter   
per_frame_200=        megabuf (base + 8) = 0; megabuf (newbase + 8) = 0; megabuf (newbase + 9)= 0;
per_frame_201=        megabuf (newbase + 10)= megabuf (base + 10);;
per_frame_202=     ,0);
per_frame_203=  ,0));
per_frame_204=  n += 1;
per_frame_205=);
per_frame_206=
per_frame_207=//Loeschen gmegabuf, komprimieren, umkopieren und zuruekkopieren
per_frame_208=n = sbase; m = sbase; k= 0; IstZw2 = 0;
per_frame_209=loop (MaxZw2,
per_frame_210=  if (megabuf (n + 6) > 0,
per_frame_211=    IstZW2 += 1; k = 0;
per_frame_212=    loop (recsize, 
per_frame_213=      gmegabuf(mindex2+k) = megabuf(n+k); 
per_frame_214=      megabuf (m+k) = gmegabuf(mindex2+k); 
per_frame_215=       k += 1;);
per_frame_216=       if (!(m==n), megabuf (n+6) = 0;,0);
per_frame_217=    m += recsize; mindex2 += recsize,0); 
per_frame_218=  n += recsize;
per_frame_219=);, (IstZW2 > 0) && (mindex2/recsize < MaxShap2))); //Ende B
per_frame_220=  
per_frame_221=
per_frame_222=CopyNow = (reg50 <= 50) && (reg14 <= .003); //###
per_frame_223=Zeichnen = if((SysTime >1) && (IstZW ==0) && (IstZw2 == 0),0,1); ///### wird nie null weil SysTime <=1
per_frame_224=Bild     += Start;
per_frame_225=Bild = 10;
per_frame_226=q5 = YCam; 
per_frame_227=q6 = reg06; //fov
per_frame_228=q7 = reg07; //MaxDist
per_frame_229=q8 = cos(AngCam);
per_frame_230=q9 = sin(AngCam);
per_frame_231=q10 = reg10; q11 = reg11; q12 = reg12; q13 = reg13; q14 = reg14;
per_frame_232=
per_frame_233=q17 = SysTime;
per_frame_234=q18 = SysZ;
per_frame_235=VisDist = MaxDist * 1.3;
per_frame_236=q19 = VisDist;
per_frame_237=
per_frame_238=q30 = start;
per_frame_239=q31 = CopyNow;
per_frame_240=start = 0;
per_frame_241=q32 = aspecty;
per_frame_242=monitor = reg50;
per_frame_243=
per_frame_244=//-----------------Wave shrubs, wave 3&4 ----------------
per_frame_245=h_shrub = abs(sin(RelZ*15))*hfac ;
per_frame_246=x_shrub = if (h_shrub < 0.1,sin(rand(100))/3,x_shrub+0.1*(rand(1)-.5));
per_frame_247=if (h_shrub < 0.1, hfac = 1 + rand(2), 0);
per_frame_248=reg20 = x_shrub;
per_frame_249=reg21 = h_shrub;
per_frame_250=reg22 = abs(sin(time*0.15)); //Hell. Blueten
per_frame_251=
per_frame_252=//--------------------WEG------------------------------
per_frame_253=WegX = (cos(RelZ*par1+par2))*SysZ*0.2;
per_frame_254=x0 = WegX;
per_frame_255=z0 = SysZ;
per_frame_256=WegY = reg10*z0*(sin(x0*reg11 + z0*reg13)) * sin(z0*reg12+reg13) + pow(x0,2)*reg14;
per_frame_257=
per_frame_258=q1 = WegX;
per_frame_259=q2 = WegY;
per_frame_260=q3 = 0.5 + 3 * (1+sin(time*0.072)); //Weg zerklueftet
per_frame_261=q4 = 1+0*RelZ; //generelle Helligkeit
per_frame_262=
per_frame_263=
per_frame_264=trelx = time + tstart;
per_frame_265=q25 = copyable;
per_frame_266=q26 = 0.5 + 0.4*sin(trelx*0.1); //ambient
per_frame_267=q27 = 0.35 + 0.3*sin(trelx*0.045); //fog
per_frame_268=q28 = 0.5 + 0.4*sin(trelx*0.013); //sky
per_frame_269=//q28 = 1;
per_frame_270=monitor = q28;
per_frame_271=
warp_1=`float3 color, mus;
warp_2=`float dx,dy;
warp_3=`
warp_4=`shader_body {
warp_5=`float corr = texsize.xy*texsize_noise_lq.zw;
warp_6=`
warp_7=`float2 uv1 = (uv-.5);
warp_8=`float2 uv6 = uv1;
warp_9=`
warp_10=`float rota = lum(tex2D (sampler_noise_hq,uv/4))*q31;
warp_11=`
warp_12=`uv6 = mul(uv1,float2x2(cos(rota),-sin(rota),sin(rota),cos(rota)));
warp_13=`uv6 += sin(q32*uv1);
warp_14=`mus = .2/(sqrt(uv6.x)+.2);
warp_15=`
warp_16=`mus *= float3 (1.1,1,.95);
warp_17=`mus *= .9+.1*tex2D (sampler_noise_hq,uv);
warp_18=`
warp_19=`float3 blur = GetBlur1(frac(uv));
warp_20=`
warp_21=`float2 hor = float2 (0.005,0);
warp_22=`float2 ver = float2 (0,.005);
warp_23=`
warp_24=`float dx = lum(tex2D(sampler_main,uv+hor) 
warp_25=`         - tex2D(sampler_main,uv-hor));
warp_26=`float dy = lum(tex2D(sampler_main,uv+ver) 
warp_27=`         - tex2D(sampler_main,uv-ver));
warp_28=`
warp_29=`
warp_30=`float2 zz = float2 (dx,dy);
warp_31=`
warp_32=`float3 crisp= tex2D(sampler_main,uv+zz*.02);
warp_33=`float3 crisp2 = tex2D(sampler_main,uv);
warp_34=`crisp += crisp2/2;
warp_35=`crisp *= .67;
warp_36=`crisp +=.08 * mus - length(zz)*blur;
warp_37=`
warp_38=`float3 ret1 = crisp - lum(blur)*.04;
warp_39=`ret = ret1 * .99 -  .04 ;
warp_40=`}
comp_1=`float3 ret1, ret2, sky, lava, uv_vol;
comp_2=`float2 rs0,rs,uv0, uv1, uv2;
comp_3=`
comp_4=`float3 lavcol (float t) {
comp_5=`  return smoothstep(0,1,float3(t+.1,t*1.1-.3,t-.5));
comp_6=`}
comp_7=`
comp_8=`shader_body {
comp_9=`uv0 = uv;
comp_10=`uv = float2(abs(uv.x-.5)+.5,uv.y);
comp_11=`ret = abs(GetPixel(uv)-GetBlur1(uv)*.7);
comp_12=`ret = lavcol (ret*2);
comp_13=`
comp_14=`
comp_15=`}