Viewing Program

Program Data

Program thumbnail for "{props.program.title}"

Title	3-D mode I (mtrns work) "mini update"
ID	1188690991
Created	13 years ago, 1354404124268
Updated	12 years ago, 1377103328408
Code	//hope you enjoy. /* Now with comments! Suffers from massive overdraw, the screen is filled with floor and ceiling before any walls are considered. = Bet you've never seen monolinear filtering. / fill(random(8000)); angleMode="degrees"; this.textFont(this.createFont("monospace")); textSize(10); noStroke(); //mipmapping threshold, press O-P to adjust var mml=4e2; var mz=1.0; var kp=[],lkc,ms=0,msi=0, msa=[-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1]; //var sc=[]; var sb=[]; /* ssxssy=screen size, smaller is faster / var ssx=400,ssy=400;//,fov=90; var smap=1,stxt=1,sgrid=0,sfloor=1,swall=1; var draw,vtx,ps=0,tex=[],ntex,/il=0,/bi=0; var qline,dmap,ftx,phys,nada=function(){}; var ncol=0; /* 16x16 textures are in this string, 12-bit RGB hex / var texs=""+ "331341332353443452452553453553453563554554463442"+ "342443454553553564553554454664573564664573563563"+ "453442563664775764655653674674685785795785564564"+ "553554553784785875775685774685785786896895794565"+ "554564664775774786784885785785794885895886775654"+ "653553674665674776786895895784895895995886885673"+ "4546646736847848859868A6885896795985896896875563"+ "5645647857957848859969A5986885885886986885675564"+ "563675885895884995A96996995985875985895895775563"+ "4636737858958859968958968857858858868A6795785664"+ "453664884886895894895786875786774785794885785673"+ "5536647748868A6896795874675684784684785895776674"+ "554654674894895894795794785785775794795886776664"+ "5545646746757746847957846957747847857868A6785775"+ "543554563674574664664574684574574675765784775564"+ "34244245257345446345356357345355553664674563442"+ "543543543653764665765764774664655643644564455544"+ "654542654775877997987986A76A86986877886875875765"+ "665563655977997AA9A98A97B97A97AA7AA7999A7997975"+ "764754754886A97AA8AB8AA8BB7AA8CA8CA7BB9BB7AA8885"+ "754764664876A87BA7AA7B97BA7A96AA7A97AA7A97A97887"+ "555553453765776887887986896986886985885886786765"+ "444543443444554655555764776764765564553563654655"+ "544543442443434453555655654654553443443543454544"+ "554664644445553655664755555453453554544544654664"+ "987885777786786887885875654444554575866875877886"+ "B97A98987997AA8AA7997876555553654876897A97A98AA9"+ "AA8B97AB8A97AA7BA99978765456645548779A8BA8CA8BB8"+ "A98AA8A97AA7A97AA7997866543553655886987987A98A97"+ "876887977876986987876764554543543666886976876976"+ "655655554655664756764544454443544653555655654643"+ "543443443554555754765554554553553543444453443544"+ "463342343352463462463352341442443553969984674574"+ "45345245246256367356245335255343563585794785684"+ "473452463673884794684574472563674674686795896694"+ "4634525637848A58A6756847847857947967957A5796675"+ "3624434636848959A69A68A58A48A58A57A4695594574564"+ "3323313425727958A49A59B58A49B6795695584563452342"+ "4422413325535635748947A49A47A4684573462443343243"+ "5."+ "784784674663563552552462453352232343463463574785"+ "9A59A57957947846745744532312312424525736858A4895"+ "9A6AA5AB69B58A67956745733413313315627847958A5AA5"+ "8A58949A6AA59B68A57946845533425436738949A59958A4"+ "6848758959969A59A5794783452343463784894885674684"+ "453562673684784795784784562442552673784784573563"+ "362343563553573684784673453352452562573563563363"+ "352343341352452662573552463353453553562562473452"; /* Averages four colors. Takes the square root of the average of the squares of the components in an attempt to do this "gamma-correctly". / var aclr=function(a,b,c,d){ var cr=0,cg=0,cb=0; cr=sqrt(sq(a>>8)+sq(b>>8)+sq(c>>8)+sq(d>>8))0.5; cg=sqrt(sq(a>>4&15)+sq(b>>4&15)+sq(c>>4&15)+sq(d>>4&15))0.5; cb=sqrt(sq(a&15)+sq(b&15)+sq(c&15)+sq(d&15))0.5; return round(cr)<<8\|round(cg)<<4\|round(cb); }; /** Decodes texs, puts it in tex[]. Also generates mipmaps, by averaging four texels. The next smaller mipmap is also encoded in the original texture and in each mipmap (there's room for both; 12-bit color), so that the texturer need only read one texel when displaying an interpolated color between the two. / var setup=function(){ var i=0,j=0,k,n,s,x,y,l,c; ntex=ceil(texs.length/768); while(i<ntex){ k=i341; for(j=0;j<256;j++){ n=unhex(texs[i768+j3])<<8\| unhex(texs[i768+j3+1])<<4\| unhex(texs[i768+j3+2]); tex[k+j]=n;} k+=256; for(s=8;s;s>>=1){ for(x=0;x<s;x++){ for(y=0;y<s;y++){ l=k-ss4+ys4+x2; c=aclr(tex[l],tex[l+1], tex[l+s2],tex[l+s2+1]); tex[k+ys+x]=c; c<<=16; tex[l]\|=c; tex[l+1]\|=c; tex[l+s2]\|=c; tex[l+s2+1]\|=c; } } k+=ss; } i++; } }; setup(); /* Array of line segments comprising the walls. Goes x1 y1 x2 y2 x1 y1... / var la=[ 48,106,481,147, 419,79,350,315, 357,308,-31,322, 27,370,100,100, 196,209,290,182, 243,233,147,235, 108,242,389,257, 222,211,355,224, 179,237,277,161, 228,225,230,221, 186,222,79,198, 206,187,195,223, 206,191,241,123, 215,175,443,205, 0,0,0,66, 0,0,0,0, 0,0,0,0, 0,0,0,0/ 100,100,300,100, 300,100,300,300, 300,300,100,300, 100,300,67,140, 200,180,220,240, 220,240,166,202, 166,202,240,200, 240,200,179,237, 179,237,200,180/]; var px=125,py=145,pang=60,pvx,pvy,pdx=4,pdy=-2,rad=4; var mpa=[0,0,0,0,0,0],mpi=0,mouf; var nl=la.length>>2; var cx,cy,ci,cm; /* Casts rays. For a given ray with initial point ox,oy in direction dx,dy test if it intersects any of the line segments in la[]. Save the closest intersection in global vars cx,cy, the squared distance from ox,oy in cm, and the ID of the segment in ci. / var cast=function(ox,oy,dx,dy){ var ma,mb,ba,bb,m,i,j,x,y,fx,fy,fm,fi; var x1,y1,x2,y2; ma=dy/dx; fx=ox+dx566;fy=oy+dy566;fm=1e12;fi=-1; var l=la; for(i=0;i<nl;i++){ j=i<<2; x1=l[j];y1=l[j+1];x2=l[j+2];y2=l[j+3]; mb=(x2-x1)?(y2-y1)/(x2-x1):1e9; ba=oy-maox; bb=y1-mbx1; x=(ma-mb)?(bb-ba)/(ma-mb):1e9; y=max+ba; m=sq(x1-x2)+sq(y1-y2); if(sq(x-x1)+sq(y-y1)>m\|\| sq(x-x2)+sq(y-y2)>m){continue;} if((x-ox)dx+(y-oy)dy<0){continue;} m=sq(x-ox)+sq(y-oy); if(m<fm){fm=m;fx=x;fy=y;fi=i;} } cx=fx;cy=fy;ci=fi;cm=fm; }; /** Slideshow of the textures if you hit T. / var tdraw=function(){ frameRate(ntex/2); var tc,lm=4352; background(0); var s=16,n=4,m=15,i,j=0,y=0,ti=341(frameCount%ntex); while(s){ for(i=0;i<ss;i++){ tc=tex[ti+j+i]; tc=((tc&0xf)17)\| ((tc>>4&0xf)17<<8)\| ((tc>>8&0xf)17<<16)\| 0xff000000; fill(tc); rect((i&m)8,y+(i>>n)8,8,8); //this.set(i&7,i>>3,tc); } y+=s8; j+=ss; n--; m>>=1; s>>=1; } fill(255); text(ti,407,20); }; /** The important part. Draws "stripes" of pixels. x,y are the starting coordinates in the texture, dx,dy is the direction in texture-space to move per screen pixel (all those are integers in 0..2^32-1) s is the starting screen pixel (actually an array index: across4 + down1600) ds is added to s every drawn pixel (e.g. 4 for horizontal stripes, 1600 for vertical stripes). n is the number of pixels to draw, like the apparent height of a wall. ti is the texture offset, 341n for the nth texture (press T to see these). lm is the brightness level, an integer 0..8704. 4352 is full light, 8704 is whiteout. p is the actual array where the screen pixels are kept. To minimize accesses to the texture array, instead of reading the texel at x,y for every screen pixel, it figures out how many identically-colored screen pixels it can draw before x,y is actually in a new texel. / var stripe=function(x,y,dx,dy,s,ds,n,ti,lm,p){ var nx,ny,i,c,r,g,b,mx=15,my=240,sx=28,sy=24,z=16, m=max(abs(dx1e-6),abs(dy1e-6)), f=0,mma,mmb,lp=0,l,il; var xya=268435455; var t=tex; var rdx=dx?1.0/dx:1.0, rdy=dy?1.0/dy:1.0; //if(dx){m=2;} var ml=mml; //m/=ml; //l=log(m)ml; //il=floor(l); //if(il<1 while(m>ml&&z>1){ mx>>=1;my>>=1; m=0.5;xya<<=1; ti+=zz; z>>=1;sx++;sy+=2;f++; } m=(m-ml0.5)2; mmb=constrain(m/ml255.0,0,255)\|0;mma=256-mmb; //mma=255;mmb=0; if(z<2){dx=0;dy=0;mmb=0;mma=255;} mx&=15;my&=240; if(lm>4352){lp=(lm-4352)3855;lm=8704-lm;} while(n>0){ nx=dx?(dx>0?(xya-(x&xya))rdx:-(x&xya)rdx):400; ny=dy?(dy>0?(xya-(y&xya))rdy:-(y&xya)rdy):400; i=1; if(nx<ny){i=nx;}else if(ny>1){i=ny;} i=ceil(i); if(i<1){i=1;} n-=i; if(n<0){i+=n;} c=t[ti+(x>>sx&mx)+(y>>sx&mx)z]; r=(c>>8&15)mma; g=(c>>4&15)mma; b=(c&15)mma; c>>>=16; r+=(c>>8&15)mmb; g+=(c>>4&15)mmb; b+=(c&15)mmb; r=rlm+lp>>16&255; g=glm+lp>>16&255; b=blm+lp>>16&255; //r=mmb>254?255:0;g=0;b=mma>=254?0:0; x=x+dxi&0xffffffff; y=y+dyi&0xffffffff; //i=1; while(i--){ p[s]=r; p[s+1]=g; p[s+2]=b; s+=ds; } if(sgrid){ p[s-ds+1]=255-p[s-ds+1]; //p[s-ds+2]^=255;p[s-ds]^=255; //p[s-ds+1]=p[s-ds+2]=p[s-ds+3]=0; } } }; /** Main game function. / var mdraw=function(){ if(ps){return;} frameRate(30); var sx=0,sy=0,x,y,dy,dx,ix=0,iy,dsy,xp,yp, t=millis(),et,s,lm,fc=frameCount, ti,i,n,tp,vx,vy,vm,cd,tmp,m,x1,y1,x2,y2, rsx=1.0/ssx,rsy=1.0/ssy, so=((400-ssx)>>1)4+((400-ssy)>>1)1600, rx=sin(t1e-2),ry=cos(t1e-2); //println(la.length); la[56]=150-ry10;la[57]=150+rx10; la[58]=150-rx10;la[59]=150-ry10; la[60]=150+rx10;la[61]=150+ry10; la[62]=150+ry10;la[63]=150-rx10; la[64]=150-rx10;la[65]=150-ry10; la[66]=150+ry10;la[67]=150-rx10; la[68]=150+rx10;la[69]=150+ry10; la[70]=150-ry10;la[71]=150+rx10; pvx=sin(pang+1e-5); pvy=cos(pang+1e-5); //fill(0);rect(0,300,400,100); background(0); //px+=(pdx=0.8); //fill(0);rect(0,0,400,ssy); this.loadPixels(); var p=this.imageData.data; for(iy=0;sfloor&&iy<ssy;iy++){ sy=iy; m=1e-2/abs(sy-(ssy>>1))ssy; cd=(4(ssy>>1))/(5e-1abs(sy-(ssy>>1))); cd=abs(cd-20); lm=4000.0/(1.0+cd0.05)\|0;//8704 dx=pvym; dy=-pvxm; x=px+(pvx)m200; y=py+(pvy)m200; y=2;dy=2;x=2;dx=2; y=y536870912\|0; x=x536870912\|0; dy=dy536870912\|0; dx=dx536870912\|0; stripe(x-dx(ssx>>1),y-dy(ssx>>1),dx,dy, sy1600+so,4,ssx,682,lm,p); } for(ix=0;swall&&ix<ssx;ix++){ sx=ix; vx=pvx+(pvy(sx-(ssx>>1)))rsx2; vy=pvy-(pvx(sx-(ssx>>1)))rsx2; cast(px,py,vx,vy); if(ci<0){continue;} vm=sqrt(vxvx+vyvy); cd=sqrt(cm)/vm2; i=ci<<2; x1=la[i];y1=la[i+1];x2=la[i+2];y2=la[i+3]; x=sqrt(sq(cx-x1)+sq(cy-y1)); dx=0; dy=cdrsy; lm=(vx(x1-x2)+vy(y1-y2))/ sqrt(sq(x1-x2)+sq(y2-y1))/vm; lm=(2-lmlm)3200.0/(1.0+cd0.04)\|0; dsy=(ssy>>1)-1/dy4; sy=max(dsy,0)\|0; y=dy(sy-dsy); n=constrain((8-y)/dy,0,ssy-sy)\|0; y=2;dy=2;x=2;dx=2; y=y536870912\|0; x=x536870912\|0; dy=dy536870912\|0; dx=dx536870912\|0; stripe(x,y,dx,dy,sy1600+sx4+so,1600,n,341,lm,p); } this.updatePixels(); if(smap){dmap();} et=millis()-ms; msa[(msi=msi+1&15)]=et; phys(); if(stxt){ fill(255); x=0;for(i=0;i<16;i++){ if(msa[i]<0){x=NaN;break;} x+=msa[i]; rect(i2+368,400,2,-1e3/msa[msi+i&15]); } x=625e-4; text(ssx+"x"+ssy+" mml:"+(mml.toExponential(1))+"\n"+ et+"ms="+round(1e3/et)+"fps "+ "(avg:"+nf(x,0,1)+"ms="+round(1e3/x)+"fps)"+ "\nx:"+nf(px,1,3)+" y:"+nf(py,1,3)+ "\npvx:"+nf(pvx,1,3)+" pvy:"+nf(pvy,1,3)+ "pang:"+(pang\|0)+ "\n"+keyCode+" c:"+ncol,20,330); } ms=millis(); if(kp[87]\|\|kp[UP]){pdx+=pvx;pdy+=pvy;} if(kp[83]\|\|kp[DOWN]){pdx-=pvx;pdy-=pvy;} if(kp[75]\|\|kp[81]\|\|kp[LEFT]){pang-=10;} if(kp[76]\|\|kp[69]\|\|kp[RIGHT]){pang+=10;} if(kp[68]){pdx+=pvy;pdy-=pvx;} if(kp[65]){pdx-=pvy;pdy+=pvx;} if(kp[88]){mz=1.1;} if(kp[90]){mz=0.9;} if(pang<0){pang+=360;} pang%=360; }; /** Draws the map. Nothing too exciting, but note the lack of trig functions. / dmap=function(){ var i,j,x1,y1,x2,y2,x1t,x2t; fill(0x3f00ff00); for(i=0;i<nl;i++){ j=i<<2; x1=la[j]-px;y1=la[j+1]-py; x2=la[j+2]-px;y2=la[j+3]-py; x1t=x1;x2t=x2; x1=x1pvy-y1pvx; x2=x2pvy-y2pvx; y1=-y1pvy-x1tpvx; y2=-y2pvy-x2tpvx; /fill(0x3f000000); qline(x1mz+201,y1mz+201, x2mz+201,y2mz+201,0.88);/ fill(0x3fffff77); qline(x1mz+200,y1mz+200, x2mz+200,y2mz+200,1.0); } fill(0x7fff0000);// if(mzrad>4){ noFill();stroke(0x7fff87);strokeWeight(10.5); ellipse(200,200,mzrad2,mzrad2); }else{ fill(random(362)); triangle(197,205,203,205,200,196);} //triangle(200,204,171,205,200,196); //ellipse(200,344,4,4); }; /** "Physics" currently means that if the perpendicular line from the player to a wall is less than the player's radius, the player is placed at that distance. If not, the same is done for the points at the ends of the walls. / var phys=function(){ px+=(pdx=0.7);py+=(pdy=0.7); var i,x1,y1,x2,y2,x=px,y=py,dx,dy,l=la,m,s=rad,s2=ss,b, ma,mb,ba,bb,lx,ly,str; for(i=0;i<l.length;i+=4){ x1=l[i];y1=l[i+1];x2=l[i+2];y2=l[i+3]; ma=(abs(x2-x1)>1e-6)?(y2-y1)/(x2-x1):1e6; ba=y1-max1; mb=ma?-1.0/ma:1e6; bb=y-mbx; lx=(ba-bb)mb/(mbmb+1); ly=malx+ba; m=sq(x1-x2)+sq(y1-y2); if(sq(lx-x1)+sq(ly-y1)<m&&sq(lx-x2)+sq(ly-y2)<m){ dx=x-lx; dy=y-ly; m=dxdx+dydy; if(m<s2){ m=s/sqrt(m); dx=m;dy=m; x=lx+dx; y=ly+dy; continue; } } dx=x-x1;dy=y-y1;m=dxdx+dydy; if(m<s2){ m=s/sqrt(m); dx=m;dy=m; x=x1+dx;y=y1+dy; continue;} dx=x-x2;dy=y-y2;m=dxdx+dydy; if(m<s2){ m=s/sqrt(m); dx=m;dy=m; x=x2+dx;y=y2+dy; continue;} } px=x;py=y; }; /* Assigned to draw when you're paused. / var pdraw=function(){frameRate(5);}; vtx=function(s,x,y){ fill(0,0,0,128); for(var i=0;i<9;i++){ if(i===4){continue;} text(s,x+i%3-1,y+floor(i/3)-1);} fill(102, 24, 24); text(s,x,y);}; draw=mdraw; /* The game-related keys use kp[], an array of pressed keys, to handle multiple key presses and improve control. / var keyPressed=function(){ kp[keyCode]=1; if(keyCode===70){sfloor^=1;}else if(keyCode===82){swall^=1;}else if(keyCode===189){ssy=ssx=max(ssx-16,16)\|0;}else if(keyCode===187){ssy=ssx=min(ssx+16,400)\|0;}else if(keyCode===66){bi^=1;}else if(keyCode===84){draw=tdraw;}else if(keyCode===77){smap^=1;}else if(keyCode===78){stxt^=1;}else if(keyCode===71){sgrid^=1;}else if(keyCode===79){mml=(mml0.67\|0)+1;}else if(keyCode===80){mml=min(mml1.5\|0,1e9)+1;}else /if(keyCode===87){pdx+=0.2;}else if(keyCode===83){pdx-=0.2;}else/ if(keyCode===32){ if(ps){draw=mdraw;}else{draw=pdraw;}ps^=1;} }; var keyReleased=function(){kp[keyCode]=0;}; var mouseDragged=function(){ //px=mouseX;py=mouseY; //pang=atan2(mouseY-pmouseY,mouseX-pmouseX); pdx+=pvx(pmouseY-mouseY)0.2; pdy+=pvy(pmouseY-mouseY)0.2; pang+=mouseX-pmouseX; }; var mouseMoved=nada;/function(){ if(ps\|\|(pmouseX===mouseX&&pmouseY===mouseY)\|\| sq(200-mouseX)+sq(200-mouseY)>1e4){return;} pdx+=pvx(pmouseY-mouseY)0.1; pdy+=pvy(pmouseY-mouseY)0.1; pang+=mouseX-pmouseX; };/ /* The regular line() function rounds its coordinates off, this draws a quad with thickness t for a line. / qline=function(x1,y1,x2,y2,t){ var x=x2-x1,y=y2-y1,m=t/sqrt(xx+yy);x=m;y*=m; quad(x1+y,y1-x,x1-y,y1+x,x2-y,y2+x,x2+y,y2-x);};
Folds
Fork	false
Key	ag5zfmtoYW4tYWNhZGVteXIUCxIKU2NyYXRjaHBhZBiv-Oe2BAw
Votes	194
Spin-Offs	69
Type	PJS
Width	400
Height	400
User Flagged	false
Origin Scratchpad	{"id":"939844470","title":"Jumpgirl","deleted":"false","official":"false"}
Hidden From Hotlist	false
Restricted Posting	false
By Child	false
Author Nick	Zachary
Author Name	zltbchess
Author ID	kaid_230508195808962881943714
Author Profile Access	COACH

Archive Data

Added	10 months ago, 1739280227711
Updated	10 months ago, 1739280227711
Source Deleted	unknown