Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|713\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Language Tests -> JSE - Optimisationalism 4
Page : 1 2 Next 3 Prev
Sat, 09 Sep 2023, 15:34
Jayenkai	Optimisationalism 4 - Just Like Before I've made a new version of the JSE Stress Testing script, which performs a bunch of different tasks, under different conditions, and records mills() times for each of them, generating a nice table at the end. You can Test it here > Reveal 🔎 // Optimisationalism 4 // by Jayenkai // Created 2023/9/9 // GotoJSE.com/2sC3b35m.BAS // SoCoder.net/?Topic=9322 Dim Tick(500) Dim Test(50) Dim MyArr(10) Test(0)="Plain Text" Test(1)="Rectangles" Test(2)="Triangles" Test(3)="Ovals" Test(4)="Symbols" Test(5)="Coloured Symbols" Test(6)="Variable Maths -" Test(7)="Variable Maths /" Test(8)="Array Maths -" Test(9)="Array Maths /" Test(10)="String Maths" Test(11)="Trig Maths" Graphics 1280,1024,3;Border 30,30,90 tscn=0 tscn2=0 tscn3=-5 tavg=0 txt="Text Test" Flip;CLS;Flip Repeat CLS;ResetDraw d=1000 for n=0 to d fz=Rnd(1,4);if (tscn2 & 1) !=1 then fz=1 Ang=Rand(0,360);if (tscn2 & 2) !=2 then Ang=0 alp=Rnd(0,1);if (tscn2 & 4) !=4 then alp=1 SetCol Rand(255),Rand(255),Rand(255),alp SetRot Ang SetSize fz if tscn==0 then Text Rand(1280),Rand(1024),txt,1 if tscn==1 then Rect Rand(1280),Rand(1024),100,100,1 if tscn==2 then Oval Rand(1280),Rand(1024),100,100,3 if tscn==3 then Oval Rand(1280),Rand(1024),100,100,32 if tscn==4 then DrawImg Rand(1280),Rand(1024),0,0 if tscn==5 then DrawImg Rand(1280),Rand(1024),0,Rand(0,7) if tscn==6 then a=Rand(100)Rand(100):b=Rand(10000,80000)-(aRand(10)):c=Rand(a)Rand(b)Rand(100) if tscn==7 then a=Rand(100)Rand(100):b=Rand(10000,80000)/(aRand(10)):c=Rand(a)Rand(b)Rand(100) if tscn==8 then MyArr(1)=Rand(100)Rand(100):MyArr(2)=Rand(10000,80000)-(MyArr(1)Rand(10)):MyArr(3)=Rand(MyArr(1))Rand(MyArr(2))Rand(100) if tscn==9 then MyArr(1)=Rand(100)Rand(100):MyArr(2)=Rand(10000,80000)/(MyArr(1)Rand(10)):MyArr(3)=Rand(MyArr(1))Rand(MyArr(2))Rand(100) if tscn==10 then Hit="Hit":Hit=HitRand(10,100) if tscn==11 then Hit=Sin(Rand(360))Cos(Rand(360)) next tscn3=tscn3+1 if tscn3==5 tscn3=0 Tick(tscn10+tscn2)=Floor(Mills()-tavg) tavg=Mills() tscn2=tscn2+1 endif if tscn2==8 tscn=tscn+1;tscn2=0 endif Gosub Bop Until tscn==12 ResetDraw cls total=0 For y=0 to 11 txt=Test(y) Text 0,(y+2)64,Test(y),0 for x=1 to 7 Text (x+2)100,(y+2)64,Tick((y10)+x),0 total=total+Tick((y10)+x) next next Text 8,jscrh-32,"Press ; to Save",0 SetSize 4 Text jscrw-32,jscrh-32,Left$((total/6000)+" ",5),2 flip end .Bop ResetDraw; SetCol 0,0,0,0.8 Rect 0,0,jscrw,jscrh SetCol 255,255,255,1 LoadingBar ((tscn*8)+tscn2),Test(tscn)+" "+tscn2,"Twirl";Flip return --v It should take about 2 or 3 minutes to run, at most, I reckon. Once done, hit ; or ' to save a screenshot, or use whatever native screenshotting method you have access to. Please post your result as the final bottom-right score, but also try to supply screenshots with results, so I can see what's slowing things down the most on which platforms! Optimisation may not actually happen any time soon.. This heatwave is killing me!!! Macbook Air M2 Safari 3.17 Edge 4.507 Firefox 4.249 Opera 3.706 iPad Air 4 Safari 3.323 Edge 3.326 Firefox 3.313 Chrome 3.723 Win11 - Running on ROG Ally Edge 5.692 Win11Arm - Running virtually using UTM, which currently has no GPU Acceleration Edge 21.04 Firefox 16.77 Opera 9.172 Chrome 7.915 -=-=- ''Load, Next List!''
Sat, 09 Sep 2023, 15:59
spinal	-=-=- Check out my excellent homepage!
Sat, 09 Sep 2023, 16:40
Jayenkai	Everything but the text.. That's kinda interesting... -=-=- ''Load, Next List!''
Sun, 10 Sep 2023, 02:13
Dan	On Pc, SrWare Iron Version 114.0.5800.0
Sun, 10 Sep 2023, 16:53
HoboBen	Chrome on windows 10 i5 10600K, GTX 1080 Score 10.5 -=-=- blog \| work \| code \| more code
Sun, 10 Sep 2023, 17:09
Jayenkai	Kuron's chipped in with a Acer Chromebook. MediaTek Kompanio 1380 Octa-Core CPU, 8GB RAM Honestly, I never thought the text drawing was as bad as it is.. Have spent most of today trying to get it all working a teensy bit faster, but.. Nope! Not havin' it. I do wonder if this has changed since I started writing JSE, and text-to-canvas has gotten slower inside the browsers themselves. .. Or has it always been that slow, but everything else I've worked on has gotten faster and faster? Really, rather interesting. I'm glad I made this test! Thanks for all the testing, everyone! -=-=- ''Load, Next List!''
Sun, 10 Sep 2023, 22:54
Pakz	I think I remember having to start using canvas buffers when adding the text and the icons on my mining game. As with the explosion effects that were faster back in 2020 and go in slow motion now. This was done on ipad m2. With a radio playing on the background.
Mon, 11 Sep 2023, 18:19
Kuron	Thanks for posting that, Jay!
Tue, 12 Sep 2023, 08:02
Jayenkai	If anyone's feeling bored.. Open the Optimisationalism 4 test (same link) Run it, and you should get roughly the same results as before. Then close your browser. (This is important, as it seems to remember any optimising that the browser does in the background when you switch between the two) Open the browser, and go here : index_.html Optimisationalism 4 should still be loaded. Run it now, and let me know THESE results. I've been doing lots of maths-optimising, variable optimising, array optimising, as well as fixing up the font with better tracing. Altogether, this should speed a fair amount up, though... Only your tests will let me know for sure! .. Hoping for Spinal and Dan in particular to try this, as their results were both spectacularly high! I'm not 100% convinced that the retraced font will give that big of a difference, if I'm honest. I think it's more a case of the way the canvas renders "ANY" font, rather than my lots-of-pixels font that was the issue. -=-=- ''Load, Next List!''
Tue, 12 Sep 2023, 12:34
spinal	Repeating the first one got this... Close browser and load the second one got this... Tech specs i7 6th gen 15GB RAM GTX 960 Windows 10 Home 22H2 Chrome Version 116.0.5845.182 -=-=- Check out my excellent homepage!
Tue, 12 Sep 2023, 12:40
Jayenkai	Cool.. That's almost everything improved. .. Except Ovals. .. !?! Why have the Ovals gotten slower? What's with that!?! Gonna have to check into that. Might be 'cos the engine's drawing more, faster, that the "Area Fill" bit is getting corrupt or something. -=-=- ''Load, Next List!''
Tue, 12 Sep 2023, 13:49
Pakz	I tested my old Supercars project. Fast enough here. I remember having to use a list of nearby cars for each car to speed things up. // racing take over // by Pakz001 // Created 2022/5/27 // // Debug build. Press b to reload state. State is saved to disk by pressing a. // // Usage : press a every now and then. When a bug appears you then can press b to see if you have // catched it and if it reoccurs. The state is saved to disk and you can start to investigate. // // Symbol 0,"1__0_0/S.0!S,vw0vQQRS!QQRvw0vQv,x.vvQRvw0vQvxxv,x,RQRvwvQvxxv,x,vRQvwvQvxxv,x,vRRvwvQvxxv,x,vRRvwvQvxxv,x,vRRvwvQvxxv,x,vRRvwvQvxxv.xxvRSvwvQv,x.vvSSvw0vRSv/S,vw0v?w?v.w00w_w.0?w_w"; Symbol 1,"1__SRQ,R!Svw00SQv_Svw00SQv_Svww0SQvx/vSvww00Svx/v,ww00Sxv/xvw,00Sxv/xvw,00Sxv/xvw,00Sxvx?vxvw,00Svx/v,ww0SSvx/vSvww0SRRv/SSvw00SRQ.R.SSvw00SRQ.R.SSvw0,vvRQQR.vvw0.wwv/ww"; Symbol 2,"1__0_0@S.0!S.00SRQRS!RQQS00SRQvvx.v,Qv0SRQvxxv.xxvRvwSQQvx,v,xxvSvwSQQvx,v,xxvSvwSQQvx,v,xxvSvwSQQvx,v,xxvSvwSRRvx,v,xxvSvwSSRvxxv.xxvSvw0vRRvvx.v,Svw0S.v/SSvw0v.w?v?w0w_w!0?w/"; Symbol 3,"1__0,S/0/SSRQ?RSSw0,SRQ/RRSvw00SRQQR/Svw00SRRv/RSvw00SSvx/vSvww00Svx/vvw,00Sxvx?vxvw,00Sxv/xvw,00Sxv/xvw,00Sxv/xvw,00Svx/vvw,0SQvx/vSvww0SQv_Svww0SQv_Svw00SRS_Svw"; Symbol 20,"1__Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y.Z_Z/;z_z?wzy_y?xzy_y?v_v@w_w_w_w_w_w_w_w"; Symbol 21,"1__y.wxxvvZZY?y.w:zyvZZY?y.v:yyvZZY?y.vzyyvZZY?y.vzyyvZZY?y.vzyywvZY?y.wwyyvvZZY.y.xvyvwywZvZ,y?xvwy.zzwwy!wvy!xxy!xwvvy?vy/xwwv!y@xxw!y_yw!y_yyxw.y_y,xw,"; Symbol 22,"1__y?wxxvvZZY.y?w:zyvZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY."; Symbol 23,"1__Y/wwxvvwwyyY/zy,vwwyyY/zy,vwwyyY/zy,vwwyyY/zy,vwwyyY/zy,vwwyyY/wyyvw,yyY!zwvyvw,yyz?y,wvw.yyxxy!vw.xyyvy?vvw.xy,v!w?xy.xw_xy@xw.xy_y_y_y_y,"; Symbol 24,"1__Y!Zxxwvvw.Y!Z:zyyvw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw."; Symbol 25,"1__y_y_y_y_y_y_y_yw_w/:z_z?xzy_y?xzy_y?v_v@Z_Z_Z_Z_Z_Z_Z_ZY_Y_Y_Y_Y_Y,"; Symbol 26,"1__y_y_y_y_y_y_y_y_yw/y@wz!vy/wzy!xy!wzwy.zzwy?wzyvwywZvZZy?wzyyvvZZY,y.wzzyywvZY.y.wzzyyvZZY.y.wzzyyvZZY.y.wz:yyvZZY.y.wz:zyvZZY.y.wzxxvvZZY."; Symbol 27,"1__y_y_y_y_y_y_y_yw!y_y:z?w,xy!xy/w,xy.z?y,wzwwxy,Y!zwzyzwwxyyY/wyyzw,yyY/zy,vwwyyY/zy,vwwxyY/zy,vw,yY/zy,vw,yY/zy,vw,yY/wwxvvw,y"; Symbol 50,"1__Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y."; Symbol 51,"1__Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_YvY_Y.vvwY_YYvvwyyY_vvwy.Y/vvwwy.wY?vvwy.zw,Y,vvwy?w?Yvvwy.zw/vy?zw_"; Symbol 52,"1__Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y.Z_Z/;z_z?wzy_y?xzy_y?v_v@w_w_w_w_w_w_w_w"; Symbol 53,"1__Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y.vY_Y!wvvY_Y.yywvvY_YYy.wvvY_wy.wwvvY/w,zwy,wvvY?w?y?wvvY,w/zy.wvvYw_zy?v"; Symbol 54,"1__Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y."; Symbol 60,"1__Y_Y!vY_Y?vyY_Y?vyY_Y.vyyY_Y.vyyY_Y,vy,Y_Y,vyyxY_YYvyyxwY_YYvyyxwY_YvwxywwY_YvywxwwY_vy,w,Y_vyyxvwwY@vy,vw,Y@vyyxvw,Y/vyyxvw."; Symbol 61,"1__y,xw!xy/xw!xy/xw?xxy@w!xy@w!xy_w?xy_yw.xy_yyw,xy_y,wwxy_y.wxy_y?xy_y_y_y_y_y_y_y_y_y_y?"; Symbol 63,"1__y@w.xy_y?wwxy_y!wxy_y!wy_y/wy_y!xy_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y/"; Symbol 64,"1__vvZY_Y.yvvY_Y.yvvZY_Y,yyvvZY_YYyyvvZY_YYy,vZZY_YxyyvvZZY_wxyyvZZY_xxyyvZ,Y@ywyxwvZ,Y/ywxwyvZ,Y/yxwy,vZ,Y!yyvxyyvZ,Y!y,vy,vZ,Y?y,vxyyvZ,Y?y.vxyyvZ,Y."; Symbol 70,"1__Y!Zxxwvvw.Y!Z:zyyvw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw."; Symbol 74,"1__y?wxxvvZZY.y?v:zyvZZY.y?wy,vZZY.y?wy,vZZY.y?xy,vZZY.y?wy,vZZY.y?vy,vZZY.y?vy,vZZY.y?vy,vZZY.y?wy,vZZY.y?wy,vZZY.y?xy,vZZY.y?wy,vZZY.y?vy,vZZY.y?vy,vZZY.y?vy,vZZY."; Symbol 80,"1__Y/vyyxvw.Y@vyyxvw,Y@vy,vw,Y_vyyxvwwY_vy,w,Y_YvywxwwY_YvwxywwY_YYvyyxwY_YYvyyxwY_YYvvyyxY_Y,vy,Y_Y,vvyyY_Y,vvyyY_Y.vvyY_Y.vvyY_Y?vv"; Symbol 81,"1__y_y_y_y_y_y_y_y_y_y_y_y_y_y_yywy_y!wy_y!wwy_y?wwy_y!wy_y!xwy_y!xwy_y!xy_y,"; Symbol 83,"1__y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y.xy_y?xwy_y.xwy_y.xwxy_y,xwxy_y,xwxy,"; Symbol 84,"1__y.vxyyvZ,Y.y,vxyyvZ,Y?y,vy,vZ,Y?yyvxyyvZ.Y?yxwy,vZ,Y!ywxwyvZ,Y/ywyxwvZ,Y/xxyyvZ,Y@wxyyvZ,Y@xyyvvZ,Y@y,vZ,Y_yyvvZ,Y_yyvvZ,Y_yvvZ,Y_YyvvZ,Y_YvvZ,Y_YY"; Symbol 90,"1__Y_Y?vvY_Y!vY_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y@"; Symbol 91,"1__vy?zwwy/Yvvwy.zwwy?YZZvvwy?wwy,YYZ,vvwy,wzwwyY,Z.vvwwy.wY?Z.vvwy.Y/Z.vvwyyY@Z?vvwY_Z!vY_YZ!Y_Y,Z.Y_Y.Z,Y_Y!ZY_Y_Y_Y_Y_Y,"; Symbol 92,"1__y_y_y_y_y_y_y_yw_w/:z_z?xzy_y?xzy_y?v_v@Z_Z_Z_Z_Z_Z_Z_ZY_Y_Y_Y_Y_Y,"; Symbol 93,"1__y!xwwzy?vy.xwwzy.wvvZyyxwwy?wvvZ,xwwzwy,wvvZ?wy.wwvvZ?YYy.wvvZ!Y,yywvvZ!Y?wvvZ?Y@vZ!Y_Z!Y_YZ.Y_Y,Z,Y_Y.ZY_Y_Y_Y_Y_Y_Y_"; Symbol 94,"1__vvY_Y?vY_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y?"; debugmode on Graphics 512,512,2 .start // debug saving works only with 7 or less cars.. maxcars = 7 // change this to lower to speed up fps. (15 is 60 fps on ipad pro 2021, 5 = 60 fps on ryzen 4800) dim quick(maxcars,maxcars+1) // list of closeby cars around each car (optimalization) dim cars(maxcars,20) dim lx(20) dim ly(20) cars(0,0) = maxcars135 cars(0,1) = 0 cars(0,2) = 0 // angle cars(0,3) = 0 // currenttrack cars(0,4) = 1 // nxtrack cars(0,5) = 0 // travel cars(0,6) = 0 // frame cars(0,7) = 1 // colour cars(0,8) = 0.1 // mobile cars(0,9) = 0 // mink cars(0,10) = 1 // speed cars(0,11) = 350 // no overtake counter cars(0,12) = 1 // maxspeed cars(0,13)=50//personality Higher is better for i=1 to maxcars cars(i,0) = 350+i96 cars(i,1) = 0 cars(i,2) = 0 // angle cars(i,3) = 0 // currenttrack cars(i,4) = 1 // nxtrack cars(i,5) = 0 // travel cars(i,6) = 0 // frame cars(i,7) = rand(0,8) // colour cars(i,8) = 0.1 // mobile cars(i,9) = 0 // mink cars(i,10) = 1 // speed cars(i,11) = 350 // no overtake counter cars(i,12) = 1 // maxspeed cars(i,13)=rand(1,50)//personality low is easier to take over. next maxquickcnt = 30 quickcnt = maxquickcnt mima=2 carx = 120 cary = 110 carangle = 0 carrotation =0 carframe = 0 mobile = .1 carspeed = 1 carovertake = 0 carmaxspeed = 0 carpersonality = 0 camx=0 camy=0 current = 0 // current car for camera //carx = 0 //cary = 0 //carangle = 0 num= 0 for a=359 to 0 step -(359/5) lx(num)=screenwidth()/2+(cos(a)2000) ly(num)=screenheight()/2+(sin(a)2000) lx(num)=lx(num)+rand(-400,400) ly(num)=ly(num)+rand(-400,400) ly(num)=ly(num).6 num=num+1 next for i=0 to maxcars a=lx(0) b=ly(0) cars(i,0)=cars(i,0) + a cars(i,1)=cars(i,1) + b next camx = cars(0,0)-(screenwidth()/2) camy = cars(0,1)-(screenheight()/2) currenttrack = 0 nxttrack = 1 restart = 6000 travel=0 o=0 ax=0;ay=0;bx=0;by=0;cx=0;cy=0 //gosub savestate //gosub loadstate savetemp=0 gosub makequicklist repeat //savetemp=savetemp+1 if savetemp>119 then gosub savestate savetemp=0 end if thiskey=inkey() if gamepad(buttonb,-1) then //gosub savestate //debug camx endif if gamepad(buttona,-1) then gosub loadstate //debug camx //debug "banana" endif quickcnt=quickcnt-1 if quickcnt<1 then quickcnt = maxquickcnt gosub makequicklist endif cls 50,150,20 setcolor 100,80,90 // draw track lines setthick 128 drawline lx(0)-camx,ly(0)-camy,lx(0)-camx+1600,ly(0)-camy for i=0 to 3 drawline lx(i)-camx,ly(i)-camy,lx(i+1)-camx,ly(i+1)-camy next drawline lx(4)-camx,ly(4)-camy,lx(0)-camx,ly(0)-camy setthick 1 // // for j=0 to maxcars current = j carx = cars(j,0) cary = cars(j,1) carangle = cars(j,2) currenttrack = cars(j,3) nxttrack = cars(j,4) travel = cars(j,5) carframe = cars(j,6) carcolour = cars(j,7) mobile = cars(j,8) mink = cars(j,9) carspeed = cars(j,10) carovertake = cars(j,11) carmaxspeed = cars(j,12) carpersonality = cars(j,13) for i=0 to 4 gosub racebot next gosub rotatecar cars(j,0)=carx cars(j,1)=cary cars(j,2)=carangle cars(j,3)=currenttrack cars(j,4)=nxttrack cars(j,5)=travel cars(j,6)=carframe cars(j,8)=mobile cars(j,9)=mink cars(j,10) = carspeed cars(j,11)=carovertake cars(j,12)=carmaxspeed next j // // line overlay arcade fx setcolor 0,0,0 setalpha .15 //setblendmode 1 setthick 1.5 for y=0 to screenheight() step 3 drawline 0,y,screenwidth(),y next setalpha 1 //setblendmode 0 restart=restart-1 if restart<0 then goto start flip forever end .racebot d = distance(lx(currenttrack),ly(currenttrack),lx(nxttrack),ly(nxttrack)) // angle y(dest)-y(from),x(dest)-x(from) a = atan2(ly(nxttrack)-ly(currenttrack),lx(nxttrack)-lx(currenttrack)) pointx = lx(currenttrack)+cos(a)travel pointy = ly(currenttrack)+sin(a)travel pointleftx = pointx+cos(a-90)mink pointlefty = pointy+sin(a-90)mink if rand(240)==1 then mobile=-mobile mink=mink+mobile if mink<-24 then mink=-24 if mink>24 then mink=24 //setcolor 255,0,0 //rect pointx,pointy,5,5 //setcolor 0,0,255 //rect pointleftx,pointlefty,5,5 //drawline pointx,pointy,pointleftx,pointlefty //a= atan2(pointlefty-cary,pointleftx-carx) ax = carx ay = cary bx = ax+(cos(carangle)1000) by = ay+(sin(carangle)1000) cx = pointleftx cy = pointlefty o=0 if(((bx-ax)(cy-ay)-(by-ay)(cx-ax))<0) then o=-1 if(((bx-ax)(cy-ay)-(by-ay)(cx-ax))>0) then o=1 if o==-1 then carangle=carangle-5 endif if o==1 then carangle=carangle+5 endif if carovertake>0 then carovertake=carovertake-1 if carspeed>carmaxspeed then carspeed=carspeed-.001 if carspeed<carmaxspeed then carspeed=carspeed+0.001 if carovertake==0 and distance(travel,0,d,0)>256 and rand(1024/carpersonality)<2 and carspeed<1.6 then carspeed=carspeed+rnd(0.2) gosub carside gosub setcarspeed if carovertake==0 then gosub overtake gosub setbend carx=carx+cos(carangle)carspeed cary=cary+sin(carangle)carspeed if current==0 then camx=camx+cos(carangle)carspeed camy=camy+sin(carangle)carspeed endif if distance(carx,cary,pointleftx,pointlefty)<48 then travel=travel+10 if travel>d then travel=d endif //setcolor 255,255,0 //rect carx,cary,5,5 //drawline carx,cary,pointleftx,pointlefty if travel==d then currenttrack = nxttrack nxttrack = nxttrack+1 travel = 64 if nxttrack==5 then nxttrack =0 endif return // cars next to each other handling .carside //setcolor 255,255,255 posx = carx-camx posy = cary-camy for ii=0 to maxcars if quick(current,ii)==-1 then break ij = quick(current,ii) if distance(cars(ij,0),cars(ij,1),carx,cary) > 0 then dd = distance(cars(ij,0)-camx,cars(ij,1)-camy,posx,posy) if dd<32 then //if dd<30 then //setcolor 255,255,255 //rect 0,0,320,320 //end if //if carspeed>0 then carspeed=carspeed-. z=atan2(cars(ij,1)-cary,cars(ij,0)-carx) carx=carx-cos(z)1 cary=cary-sin(z)1 //cars(ij,2)=z-1 b = cars(ij,9) if mink<b then cars(ij,9)=cars(ij,9)-1 if mink>b then cars(ij,9)=cars(ij,9)+1 //setcolor 255,255,255:drawrect 0,0,10,10 end if end if next //drawoval posx,posy,32,32 return // if close then chose edge(inner/outer)turbo .overtake if rand(100)<99 then return posx = carx-camx+cos(carangle)32 posy = cary-camy+sin(carangle)32 //if distance(travel,0,d,0) < 256 then return for ii=0 to maxcars if quick(current,ii)==-1 then break ij = quick(current,ii) if distance(cars(ij,0),cars(ij,1),carx,cary) > 0 then if distance(cars(ij,0)-camx,cars(ij,1)-camy,posx,posy) < 40 then if cars(ij,9)<0 then mink=mink1.5 carspeed=1.6 cars(ij,11)=600 else mink=mink0.5 carspeed=1.6 cars(ij,11)=600 endif //setcolor 255,255,255 //drawrect 0,0,10,10 //if carspeed>.5 then carspeed=carspeed-.01 //else //if carspeed<1.0 then carspeed=carspeed+.0004 end if end if next return // if close to corner then slow down.. .setbend if distance(travel,0,d,0)<256 then mink=mink+.5 if carspeed>.7 then carspeed=carspeed-0.005 endif return // we check ahead if a other car is in the way. then slow down else speed up. // .setcarspeed // if we get close to another car // break.. //setcolor 255,255,255 posx = carx-camx+cos(carangle)32 posy = cary-camy+sin(carangle)*32 for ii=0 to maxcars if quick(current,ii)==-1 then break ij = quick(current,ii) if distance(cars(ij,0),cars(ij,1),carx,cary) > 0 then q= distance(cars(ij,0)-camx,cars(ij,1)-camy,posx,posy) if q<32 then // if close then break a bit if carspeed>0.3 then carspeed=carspeed-.03 carovertake=100 b = cars(ij,9) if mink<b then mink=mink-2 if mink>b then mink=mink+2 //setcolor 255,255,255 //drawrect 0,0,20,20 else if carspeed<1.0 then carspeed=carspeed+.0004 end if if q<8 then // if to close break more! //setcolor 255,255,255 //rect 0,0,320,320 if carspeed>0.3 then carspeed=carspeed-.03 endif endif next //drawoval posx,posy,64,64 return .rotatecar //if rand(100)==1 then mima = -mima //carangle=carangle+mima carangle = carangle % 360 if carangle<0 then carangle = carangle+360 if carangle >= 0 and carangle<90 then carframe = 0 ; carrotation = carangle if carangle >= 90 and carangle<180 then carframe = 1 ; carrotation = carangle-90 if carangle >= 180 and carangle <270 then carframe = 2;carrotation=carangle-180 if carangle >= 280 and carangle<360 then carframe = 3;carrotation=carangle-270 setrotation carrotation drawimage carx-camx,cary-camy,carframe,carcolour setrotation 0 return // make a list of cars close to each cars. // except itself. ends with -1 .makequicklist for i=0 to maxcars cnt=0 for j=0 to maxcars d = distance(cars(i,0),cars(i,1),cars(j,0),cars(j,1)) if d>0 and d<160 then quick(i,cnt)=j cnt=cnt+1 endif next quick(i,cnt)=-1 next return .savestate if maxcars > 7 then return ding=0 emptyfile for qi=0 to maxcars for qii=0 to 14 writefile(ding,cars(qi,qii)) ding=ding+1 next next for qi=0 to 20 writefile(ding,lx(qi)) ding=ding+1 writefile(ding,ly(qi)) ding=ding+1 next WriteFile(ding,camx) ding=ding+1 writefile(ding,camy) ding=ding+1 writefile(ding,ax) ding=ding+1 writefile(ding,ay) ding=ding+1 writefile(ding,bx) ding=ding+1 writefile(ding,by) ding=ding+1 writefile(ding,cx) ding=ding+1 writefile(ding,cy) ding=ding+1 for qi=0 to maxcars for qii=0 to maxcars writefile(ding,quick(qi,qii) ding=ding+1 next next writefile(ding,quickcnt) ding=ding+1 writefile(ding,o) SaveFile return .loadstate if maxcars > 7 then return //emptyfile loadfile ding=0 for qi=0 to maxcars for qii=0 to 14 cars(qi,qii) =float( readfile(ding)) ding=ding+1 next next for qi=0 to 20 lx(qi) = float(readfile(ding)) ding=ding+1 ly(qi) = float(readfile(ding)) ding=ding+1 next camx =float( ReadFile(ding)) ding=ding+1 camy = float(readfile(ding)) ding=ding+1 ax = float(readfile(ding)) ding=ding+1 ay = float(readfile(ding)) ding=ding+1 bx = float(readfile(ding)) ding=ding+1 by = float(readfile(ding)) ding=ding+1 cx = float(readfile(ding)) ding=ding+1 cy = float(readfile(ding)) ding=ding+1 for qi=0 to maxcars for qii=0 to maxcars quick(qi,qii)= float(readfile(ding)) // list of closeby cars around each car (optimalisation) ding=ding+1 next next quickcnt = float(readfile(ding)) ding=ding+1 o = float(readfile(ding)) return --v
Tue, 12 Sep 2023, 20:19
HoboBen	Seems like it improved? -=-=- blog \| work \| code \| more code
Wed, 13 Sep 2023, 02:10
Jayenkai	Yeah, it's come a long way in just a few days. It's still not perfect, but it is better. Keep going, Jay. Squeeeeeeeeze!!! -=-=- ''Load, Next List!''
Thu, 14 Sep 2023, 13:22
Jayenkai	Not 100% sure I trust this website, now, if I'm honest.. -=-=- ''Load, Next List!''
Thu, 14 Sep 2023, 13:34
Jayenkai	Oh, is that the "preferred" method, is it? 'cos.. You know.. I just tried that and the engine ran about 30% slower.. So, you know.. Stick that idea up your arse. Oh, and it breaks EVERYTHING in Firefox, too. Preferred method my arse.. -=-=- ''Load, Next List!''
Thu, 14 Sep 2023, 14:11
Pakz	I was watching a video on yt. I forgot which one. But the coder was using gpt 4 to suggest optimizations for his I think it was retro assembly code. It mostly were useful responses from gpt4. He just was asking it to suggest it to make certain parts of code to run faster.
Thu, 14 Sep 2023, 14:24
Jayenkai	I have, indeed, been doing that all week And it's been quite fruitful, too. Having little tips that make me delve into code I hastily scrubbed together a year ago has opened my eyes to all manner of little nips and tucks. Edge was running a 4.5 score, on Saturday. The new (v.3ghd) upload is now running at 3.8 It's like squeezing lemons, but without the horrible sour aftertaste. You (Specifically Pakz!!) should now be able to run this with about 350 lemmings. > Reveal 🔎 // Falling Lemmings // by Jayenkai // Created 2021/6/9 // Lemmings (c) DMA Design, Psygnosis, Sony Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/P@0_0_0!P@0_0_0!P.880_0_0@P.880_0_0_08!0_0_0@8!0_0_0@88dd0_0_0_088dd0_0_0_088dd0_0_0_088dd0_0_0_088dd0_0_0_088dd0_0_0_0d.0_0_0_0d.0_0_0@88d.0_0_0@88d.0_0_0_08.0_0_0_08."; Symbol 1,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@PP00PP0_0_0@PP00PP0_0_0!P!0_0_0@P!0_0_0@P.880_0_0@P.880_0_0_08!0_0_0@8!0_0_0@88dd0_0_0_088dd0_0_0@88d.0_0_0@88d.0_0_0@88d.00880_0_0.88d.00880_0_0!d.00880_0_0!d.00880_0_0.d.00880_0_0!d.00880_0_0!8.0_0_0_08."; Symbol 2,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/PP00PP0_0_0@PP00PP0_0_0@P!0_0_0@P!0_0_0_0PP880_0_0_0PP880_0_0_08!0_0_0@8!0_0_0!8.dd0_0_0@8.dd0_0_0@88d.0_0_0@88d.0_0_0!8.d!0_0_0.8.d!0_0_0!d@0_0_0!d@0_0_0.8.0.8.0_0_008.0.8."; Symbol 3,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_P.0_0_0_0P.0_0_0@P.88PP0_0_0!P.88PP0_0_0!PP8!0_0_0!PP8!0_0_0@88dd0_0_0_088dd0_0_0_088dd0_0_0_088dd0_0_0@88d.0_0_0@88d.0_0_0_0d.0_0_0_0d.0_0_0!88d@0_0_0.88d@0_0_0.880.8.0_0_0.880.8."; Symbol 4,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/P@0_0_0!P@0_0_0!P.880_0_0@P.880_0_0@PP8!0_0_0!PP8!0_0_0@88dd0_0_0_088dd0_0_0_0dd880_0_0_0dd880_0_0_088dd0_0_0_088dd0_0_0_0d.0_0_0_0d.0_0_0@88d.0_0_0@88d.0_0_0_08.0_0_0_08."; Symbol 5,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@PP00PP0_0_0@PP00PP0_0_0!P!0_0_0@P!0_0_0@P.880_0_0@P.880_0_0_08!0_0_0@8!0_0_0@88dd0_0_0_088dd0_0_0_0dd880_0_0_0dd880_0_0_0dd8800880_0_0!dd8800880_0_0!d.00880_0_0!d.00880_0_0.d.00880_0_0!d.00880_0_0!8.0_0_0_08."; Symbol 6,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/PP00PP0_0_0@PP00PP0_0_0@P!0_0_0@P!0_0_0_0PP880_0_0_0PP880_0_0_08!0_0_0@8!0_0_0@dd880_0_0_0dd880_0_0_0dd880_0_0_0dd880_0_0_0d.880_0_0@d.880_0_0!d@0_0_0!d@0_0_0.8.0.8.0_0_008.0.8."; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_P.0_0_0_0P.0_0_0@P.88PP0_0_0!P.88PP0_0_0!PP8!0_0_0!PP8!0_0_0@88dd0_0_0_088dd0_0_0_088dd0_0_0_088dd0_0_0_0dd880_0_0_0dd880_0_0_0d.0_0_0_0d.0_0_0!88d@0_0_0.88d@0_0_0.880.8.0_0_0.880.8."; Graphics 512,512,2 AA Fast lems=350 flrs=10 skips=3 pt=0 Dim lemming(1000,20) Dim flr(1000,20) y=ScreenHeight()/(flrs+2) for n=0 to flrs flr(n,1)=jRand(64,ScreenWidth()-64) flr(n,6)=Rnd(0.5,1.5) flr(n,7)=Rnd(0,360) flr(n,8)=Rnd(10,30) flr(n,9)=Rnd(128,256) flr(n,2)=(y(n+1))-flr(n,9) next for d=0 to lems lemming(d,1)=jRand(16,ScreenWidth()-16) lemming(d,2)=0-jRand(16,ScreenHeight()) lemming(d,3)=0 lemming(d,4)=0 lemming(d,5)=h lemming(d,6)=jRnd(0,8) lemming(d,16)=1 next Repeat CLS 30,30,80 pt=((pt+1) mod skips) SetFontSize 32 SetSize 1 for n=0 to flrs flr(n,7)=(flr(n,7)+flr(n,6)) mod 360 ang=Sin(flr(n,7))25 flr(n,11)=flr(n,1)+Sin(ang-flr(n,8))flr(n,9); flr(n,12)=flr(n,2)+Cos(ang-flr(n,8))flr(n,9); flr(n,13)=flr(n,1)+Sin(ang+flr(n,8))flr(n,9); flr(n,14)=flr(n,2)+Cos(ang+flr(n,8))flr(n,9); flr(n,15)=flr(n,1)+Sin(ang)flr(n,9)0.4; flr(n,16)=flr(n,2)+Cos(ang)flr(n,9)0.4; flr(n,5)=Neg(0.1); if flr(n,11)<flr(n,13) and flr(n,12)<flr(n,14) then flr(n,5)=0.1; if flr(n,11)>flr(n,13) and flr(n,12)>flr(n,14) then flr(n,5)=0.1 flr(n,17)=ang SetThick 3:SetCol 255,128,0,1 flr(n,20)=Line(flr(n,11),flr(n,12),flr(n,13),flr(n,14)) SetCol 0,0,0,0.5 Oval(flr(n,1),flr(n,2),8,8,16) SetThick 1:SetCol 150,150,150,0.3 Line(flr(n,15),flr(n,16),flr(n,11),flr(n,12)) Line(flr(n,15),flr(n,16),flr(n,13),flr(n,14)) Line(flr(n,1),flr(n,2),flr(n,15),flr(n,16)) next ResetDraw() for d=0 to lems if pt==(d mod skips) SetAlpha 0 lemming(d,20)=Line(lemming(d,1),lemming(d,2),lemming(d,1),lemming(d,2)+lemming(d,4)+7) for n=0 to flrs if Collide(flr(n,20),lemming(d,20)) lemming(d,2)=LineCollidePointY-8 ang=flr(n,5) lemming(d,3)=lemming(d,3)+ang lemming(d,4)=0.5 lemming(d,5)=-flr(n,17) endif next lemming(d,2)=lemming(d,2)+4+lemming(d,4) lemming(d,4)=lemming(d,4) lemming(d,4)=lemming(d,4)+0.5 if lemming(d,4)>6 then lemming(d,4)=6 if lemming(d,2)>ScreenHeight()+32 lemming(d,2)=-32 lemming(d,1)=jRand(16,ScreenWidth()-16); lemming(d,3)=0 lemming(d,4)=0 endif s=lemming(d,3) lemming(d,1)=lemming(d,1)+s4 if s>0 then lemming(d,16)=1 if s<0 then lemming(d,16)=0-1 lemming(d,3)=s0.94 endif x=lemming(d,1);y=lemming(d,2) SetSize 0.5lemming(d,16),0.5;SetRot lemming(d,5)lemming(d,16) lemming(d,6)=(lemming(d,6)+0.25) mod 8 SetAlpha 1 DrawImg(x,y-2,lemming(d,6)) next ResetDraw;SetFontSize 6 Text jscrw-8,jscrh-8, "FPS "+Stat_FPS,2 Text jscrw-8,jscrh-16,"Stress "+Stat_Perc,2 Text jscrw-8,jscrh-24,"Floors "+flrs,2 Text jscrw-8,jscrh-32,"Lemmings "+lems,2 Flip Forever --v For everyone else, reduce the floors to 5 and the lemmings to about 100. -=-=- ''Load, Next List!''
Thu, 14 Sep 2023, 14:32
Dan	Lemmings 350 Floors 10 stress 56~81 Fps 36~38
Thu, 14 Sep 2023, 14:42
Jayenkai	That's a pretty good set of values, actually. Cool Note the lower framerate even though the stress isn't up to 100%.. That's the drawing that's slowing it down. But I think at 350 sprites + 40 lines of various thicknesses + the ovals, that's likely a bit too far! Note there's a new "AA Fast" command near the top of the script. This will use crisp images when at 0/90/180/270 degrees, but antialiased images for any other angles. It means you can worry less about how fast the sprites are going to draw, at the risk of losing clarity if there's anything too detailed.. Though, as per usual, this seems to be a per-browser/system thing. Bloody none-standards!!! If I switch that to AA False, the framerate on my system plummets to more or less what you're getting. AA Fast is a solid 60fps. I've yet to properly test it out, elsewhere, but it's nice to have it there! -=-=- ''Load, Next List!''
Sun, 17 Sep 2023, 10:14
Jayenkai	Today's work has been mostly gradienting.. Refresh until you get to v.3ghf, and the Optimisationalism 4 test should "hopefully" not be any worse off. Please do let me know if it is. On top of that, The Gradient Test is now mostly functional. Gradients work on Rect/Oval/Star/Text commands. Gradients do not work on Image commands. Gradients will not run fast, at all, so if you DO choose to use them, maybe limit them to backgrounds and the like, so you aren't overdoing things. There's a new OutlineText command, which works exactly the same as the Text command, but draws an outline instead of filling in the text. You can use SetWidth to set the width of the outline. And then there's a very basic lighting setup. Hold the mouse to see that in action. AmbientLight sets the ambient light, with 0,0,0 being pitch black and 255,255,255 being fully lit, but also 512,512,512 being over-exposed!! SetBuffer Lighting, then draw lighting to that layer, then SetBuffer FG, and DrawLighting When drawing to the buffer, anything <128 = darker.. Anything >128 = lighter It should be useable, though I haven't yet written anything significant with the command set to be sure. I'll do that later. .. maybe! Oh, and there's a new SetControlMethod command. It defaults to Gamepad, and by default will trigger the onscreen gamepad whenever the mouse/touch is tapped. If you'd rather not have onscreen gamepad/mouse/touch, you can "SetControlMethod Mouse" and the onscreen gamepad won't ever interrupt the player. The onscreen gamepad button that's usually on the top right of the GUI is now M.I.A. Known issues 1. The "download html5 project" project is all kinds of broken. Needs a LOT of updates to get it back to what the main site's now doing. 2. I don't know WHAT is going on with my mouse co-ordinates.. I need to dig into those.. They're all kinds of screwy in both Graphics Scaling mode 1 and 2. Grrr. -=-=- ''Load, Next List!''
Sun, 17 Sep 2023, 12:47
Jayenkai	Poor Quest 2!! 19.2!! -=-=- ''Load, Next List!''
Sun, 17 Sep 2023, 18:12
Jayenkai	I think the above issues 1+2 are now resolved. There still seems to be the occasional BackgroundBuffer quirk, though. I need to figure out what's going on there. Gosh, that's been a busy day of tweaking and breaking and adding and breaking and fixing and tweaking... -=-=- ''Load, Next List!''
Mon, 18 Sep 2023, 01:06
cyangames	Lenovo Thinkpad T420 I5 2540m , yes from 2012... 12GB DDR3 @ 1333Mhz Samsung 850 EVO SSD Intel HD Graphics 3000 Windows 7 Brave Browser -=-=- Web / Game Dev, occasionally finishes off coding games also!
Mon, 18 Sep 2023, 01:34
Jayenkai	That's a fun set of numbers to study! The maths all seems fairly low, whilst the shapes (texts and ovals) are taking longest. Those are definitely things I need to focus on. I keep wondering about WebGL, but whenever I look into doing text on there, it's not exactly a "better" situation, and that's putting me off. Hmmm.. Also, look at the difference between variables and arrays! Yikes! -=-=- ''Load, Next List!''
Sat, 23 Sep 2023, 14:38
Jayenkai	Worth posting this again, in case anyone else is working on something similar. All the commands are turned into numerical values, and all those are in switch's. This.. switch(command) { case 1 : do command(); break; case 2 : do command(); break; ... case 175792 : do command(); break; } --v is SO MUCH slower than... switch (category) { switch (command) { case 1 : do command(); break; case 2 : do command(); break; } switch (command) { case 3 : do command(); break; case 4 : do command(); break; } .... switch (command) { case 175791 : do command(); break; case 175792 : do command(); break; } } --v -=-=- ''Load, Next List!''
Page : 1 2 Next 3 Prev

Optimisationalism 4 - Just Like Before