Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|391\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> JSE - Jay's Scripting Engine
Page : 1 2 3 4 5 6 7 8 9 Prev 10 11 Next 12 13 14
Thu, 22 Jul 2021, 07:55
Pakz	Ok, that same line seems to work. But I wanted to do it like below. if x2>-1 and y2>-1 and x2<32 and y2<32 then Rotated(x,y)=Tiles(x2,y2) end if --v edit: You do not appear to have a Continue command either? I use these quite a lot for jumping to the next cycle in a loop. for j = 0 to 10 for i = 0 to 10 if i==j then continue ; jump to the next Next. ..code.. next next --v Above, if I got it right. You do not check the same entities in the loop.
Thu, 22 Jul 2021, 08:26
Jayenkai	Your first issue might be end if vs endif.. I'll add that into the parser checks. I've written it as specifically endif because I'm aiming for SingleWordCommands.. But, yeah, people do write "end if", so I'll have to add a check for those. Second issue.. Continue/Break are commands I tend not to use nowadays. One of those things where it didn't do what I expected it to do in a different language, because different languages do things in different ways. IIRC, the language I fell out with it in, when I used it, it stopped the loop dead in it's tracks and exited it. Which is what I would expect Break to do. I found that very frustrating, so opted to do other methods instead. But, yeah, it should be in. Continue = Goto Next, continue the loop Break = Goto the line after Next, abandoning the current Loop Is that right?! Does that "feel" like the right method to everyone? -=-=- ''Load, Next List!''
Thu, 22 Jul 2021, 08:32
Pakz	Break seems like something I would use also
Thu, 22 Jul 2021, 12:08
Dan	Hmm other languages use exit or exit loop instead of break. AutoIt, for e.g. has an optional level parameter, and with it you can exit multiple for-nexts at once. https://www.autoitscript.com/autoit3/docs/keywords/ExitLoop.htm
Thu, 22 Jul 2021, 13:07
Jayenkai	Eek, a parameter could be tricky.. .. maybe ... I'll test it and see. I've got the basic version "mostly" working, but it can be glitchy in the wrong places. It's fairly easy to trip it up, right now. .. but, hey, what else is new!! I'll post the results later/in the morning, depending on how twisted in knots it all gets! "Exit" will be added as an alternative. -=-=- ''Load, Next List!''
Thu, 22 Jul 2021, 15:41
Jayenkai	Ok, I think I've fixed Pakz' "if then ;" issue. It should know what's going on, now. I've also (I think) got "end if" compacting down to endif. I don't think either of those should cause any issues, but as always, let me know if I've knackered something. Meanwhile.. // Breaks and Escapes // by Jayenkai // Created 2021/7/22 Graphics 512,512,1 SetFontSize 12 repeat cls Method=Floor((Mills()%3000)/1000)+1 For y=-1 to 11 For x=-1 to 11 InkRot (xy8)+Mills()0.5,1,1 if x==y and Method==1 then Exit // Jumps to next next, breaking out the next endif if x==3 and y==3 and Method==2 Exit(2) // Jumps two nexts, closing up loops as it goes endif if x==y and Method==3 then Continue // Jumps to next next, then continue end if if x>-1 and y>-1 and x<10 and y<10 text (x+2)32,(y+2)32,x,1:text ((x+2)32)+12,((y+2)*32)+12,y,1 end if Next Next if Method==1 then Text 256,480,"Exit/Break when x==y",1 if Method==2 then Text 256,480,"Exit(2)/Break(2) when x==3 and y==3",1 if Method==3 then Text 256,480,"Continue when x==y",1 flip forever --v Exit/Break, Exit(n)/Break(n) and Continue should all work fine. Currently undocumented. Lazy Jay.. Be sure to refresh to get at least v3gec -=-=- ''Load, Next List!''
Sun, 25 Jul 2021, 08:52
Jayenkai	v3geg (As always, might need a refresh to catch up) The obligatory set of speedups, which have been gradually implemented over the past couple of days. This version broke quite a lot of functionality, earlier, as minus numbers because infinitely more chaotic than they already were! But a little to-and-fro'ing and everything got back to where it oughta be. .. I hope! As always, be sure to stress test it with anything you can think of. I don't think anything has changed other than speedups. If you'd like to check the Optimisationalism 2 test, you should (hopefully) find your numbers have improved a fair bit. Let me know! -=-=- ''Load, Next List!''
Sun, 25 Jul 2021, 12:04
Dan	Yes, the numbers on the PC are now between 102 and 130 (before it was around 150) And 180 for android GN20
Thu, 29 Jul 2021, 07:36
Jayenkai	// Text Spiral // by Jayenkai // Created 2021/7/29 Txt="The spiral swirls around and round, down towards the dusty ground. Falling inwards on itself, and landing firmly on the shelf. " Graphics 640,480,1 Dim txt_bit(250,10) #Const $Spd=3 trigger=0 triggerto=0 SetFont "Runed" ScreenEffect "Noise+VLines",1 Repeat CLS 0,0,0,0.6 trigger=trigger+1 if trigger>8 then trigger=0 triggeruse=triggerto mod 100 txt_bit(triggeruse,0)=Mid$(Txt,triggerto Mod Len(Txt),1) txt_bit(triggeruse,1)=90 txt_bit(triggeruse,2)=320 triggerto=triggerto+1 endif For m=0 to 100 If txt_bit(m,2)>0 txt_bit(m,1)=txt_bit(m,1)-$spd If txt_bit(m,1)<0 Then txt_bit(m,1)=txt_bit(m,1)+360 txt_bit(m,2)=txt_bit(m,2)-$spd0.3 SetRot Sin(txt_bit(m,1))45 SetSize txt_bit(m,2)0.03Cos(txt_bit(m,1)),txt_bit(m,2)0.03 SetCol txt_bit(m,2)0.4,txt_bit(m,2)0.7,txt_bit(m,2),1 Text (ScreenWidth()/2)+Sin(txt_bit(m,1))txt_bit(m,2),(480-(txt_bit(m,2)1.5))-Cos(txt_bit(m,1))txt_bit(m,2)*0.1,txt_bit(m,0),1 Endif Next Flip Forever --v -=-=- ''Load, Next List!''
Thu, 29 Jul 2021, 09:10
Pakz	That is impressive! How do you rotate that text into 3d? Is it a kind of fake 3d?
Thu, 29 Jul 2021, 09:21
Jayenkai	No, just the simple SetSize command with a Cos attached, so their width is reduced when near the edge, and backwards, too. If I used FontSize, that wouldn't do the trick. Size works because it can scale x and y independently and also invert the x. -=-=- ''Load, Next List!''
Thu, 29 Jul 2021, 13:25
Pakz	I was experimenting a bit with jse. I noticed there is no way to erase pixels in the editor once you placed them?(for the transparent ones) Is there a erase shortcut that I am not aware of?
Thu, 29 Jul 2021, 13:32
Jayenkai	Aah, good call. Sorry, that's another one of those "I've been doing it so long, it's second nature to me" things. Magenta (255,0,255) is traditionally (for me, at least!) transparent. In the colour picker, there's a lonely Magenta on its own at the bottom. This is your transparent colour. I need to make that more obvious. -=-=- ''Load, Next List!''
Sat, 31 Jul 2021, 05:29
Dan	I have had the code from this video: View on YouTube converted to BlitzBasic. Now i thought to try it in jse, and it worked without modification. (Well, i had to change the delay into Wait ... ) Here it is. // Amiga Basic Graphics // Dan // Created 2021/7/31 Graphics 512,512,1 For dr#=0 To 100 Step 1 Cls For r=30 To 330 Step 7 For t=0 To 355 Step 5 x#=Float(r)Cos(Float(t)dr#)0.5 y#=Float(r)Sin(Float(r)dr#)0.3 z#=Float(r)Sin(Float(t)dr#)0.5 xp#=x#+(Cos(15.0dr#)z#) yp#=y#+(Sin(15.0dr#)*z#) xp#=xp#+320.0 yp#=150.0-yp# Plot Int(xp#),Int(yp#) Next wait 0.05 Next wait 1 Next --v Comment out the first wait to see the drawing in full speed. Comment out the second wait to see the full speed dia-show
Sat, 31 Jul 2021, 05:38
Jayenkai	Neato!!! Comment out the first wait. Replace the second wait with a Flip and change DR's step size to 0.05 -=-=- ''Load, Next List!''
Sat, 31 Jul 2021, 06:22
Jayenkai	Actually this is a really great example of variable-slowdown.. Compare.. > Reveal 🔎 // Amiga Basic Graphics // Dan - Tweaked by Jayenkai // Created 2021/7/31 Graphics 640,480,1 Border 30,30,80 For dr#=0 To 100 Step 0.05 Lap=Mills() Cls For r=30 To 330 Step 7 For t=0 To 355 Step 5 x#=Float(r)Cos(Float(t)dr#)0.5 y#=Float(r)Sin(Float(r)dr#)0.3 z#=Float(r)Sin(Float(t)dr#)0.5 xp#=x#+(Cos(15.0dr#)z#) yp#=y#+(Sin(15.0dr#)z#) xp#=xp#+320.0 yp#=240.0-yp# Plot Int(xp#),Int(yp#) Next Next Text 20,20,(Mills()-Lap)+" mills per frame",0 Flip Next --v vs > Reveal 🔎 // Amiga Basic Graphics // Dan - Tweaked by Jayenkai // Created 2021/7/31 Graphics 640,480,1 Border 30,30,80 For dr#=0 To 100 Step 0.05 Lap=Mills() Cls For r=30 To 330 Step 7 For t=0 To 355 Step 5 z#=Float(r)Sin(Float(t)dr#)0.5 // This is referenced twice, so we leave it here so we don't have to math-it twice. // All other maths is only referenced once, so it doesn't speed things up by putting it into a variable. // if anything, the act of storing it to a variable, // then later getting the value back out from the variable, // actually ends up slowing the script down. // Instead, we don't bother storing the values, and instead dump the maths directly into the place where it's used. Plot ((Float(r)Cos(Float(t)dr#)0.5)+(Cos(15.0dr#)z#))+320,240-((Float(r)Sin(Float(r)dr#)0.3)+(Sin(15.0dr#)z#)) Next Next Text 20,20,(Mills()-Lap)+" mills per frame",0 Flip Next --v -=-=- ''Load, Next List!''
Sat, 31 Jul 2021, 09:04
Dan
Sun, 01 Aug 2021, 13:09
Dan	Hmm, have you noticed that, when printing the text, at the 1st line (the top one) there are few pixels cut off ? Like the position of the font is not right. The plotting of pixels works ok. // Printing Test Print "Hi" Print "Whats Up ?" for x=30 to 55 plot x,0 next flip --v
Sun, 01 Aug 2021, 15:28
Jayenkai	Yep, it's been noted, and in fact the whole engine had a hefty realignment thing added, to make sure everything lines up nicely. Still happens, though. shrugs Depends on your browser, and it's one of those "You git!!!" browser compatibility issues that's been winding me up. -=-=- ''Load, Next List!''
Mon, 02 Aug 2021, 05:41
Jayenkai	// Buffer Test // by Jayenkai // Created 2021/7/30 Symbol 0,"21_0_0.2!0_0_0?2,5!2,0_0_225_5,220_0?225_5/220_0025,3.5_5.20_2553?5_5!20/2553,25_5_20!2553,5_5_520?2553,5_5_5,20.253325_5_5.20,2553,5_5_5?200253,5_5_5!200253,5_5_5!2025,335_5_5/225,35_5_5@225_5_5_5,225_5_5_556225_5_5_556225_5_5_5662025_5_5_620025_5_5@6620025_5_5@6620,25_5_5!6620.25_5_5?6,20?25_5_5.6620!25_5_5,6,20/25_5_6.20_25_5/6.20_00225_556?220_0?225/6?220_0_2,56?2,0_0_0?2!"; Graphics 1920,1080,2 SetBuffer BG // Draw some bubbles to the BG buffer CLS SetSize 2 for n=0 to 100 DrawImg Rand(32,1024-32),Rand(32,1024-32),0,Rand(0,7) next SetBuffer FG // Don't forget to change back to the FG! scry=0 Repeat ResetDraw CLS 255,255,255 scry=scry-1 SetAlpha 0.6 for m=0.2 to 3 step 0.25 SetSize (m0.5)+0.5 // Draw the contents of the BG buffer to the FG buffer, wrapping it multiple times. WrapBG MouseX()m+(m3717)+Sin(Mills()m0.02)48,((MouseY()+scry)m)+(m768) next ResetDraw SetFontSize 128 SetCol 0,0,0,0.25 Text ScreenWidth()/2+6,ScreenHeight()/2+6,"HURRAY!",1 SetCol 180,200,255,1 Text ScreenWidth()/2,ScreenHeight()/2,"HURRAY!",1 Flip Forever --v Weeeeeeeee... -=-=- ''Load, Next List!''
Tue, 03 Aug 2021, 01:02
therevillsgames	Re: variable-slowdown On my work laptop the first example with the variables runs faster at 180, whereas the one with hard to read (eg less variables) only runs at 127 Edit Ah... It's not fps, but time per frame so the hard to read is faster, my bad.
Tue, 03 Aug 2021, 04:05
Jayenkai	Yeah, I tend to use Mills onscreen. If you want FPS and "CPU Load-ish" values, the FPS toggle button is always available. -=-=- ''Load, Next List!''
Tue, 03 Aug 2021, 06:08
Jayenkai	// OMG - it splodid! // by Jayenkai // Created 2021/8/2 Symbol 0,"06_0_0T0@b9080.9T90?98b0,80_08"; Graphics 1920,1080,2 AntiAlias On scry=0-128 Repeat SeedRnd SetBlend "Normal" g=Rnd(0.22,0.26) CLS 50,30,20,g Gosub Flame SetBlend "Dodge" SeedRnd 37171 SetAlpha 0.4 SetSize 8,8 scry=scry-6 For r=0 to 10 x=Rand(0,1024)+(Sin(Mills()0.006(r+4))140)+(r378) y=Rand(0,1024)+(scry((r0.3)+0.3))+(r*200) WrapBG x,y Next SetBlend Normal SetParticleSize 64 Flip Forever .Flame SetBuffer BG SetBlend "Burn" SetCol 0,0,0,0.08 Rect 0,0,1024,1024 ResetDraw SetBlend "Light" SetAlpha 0.3 for m=0 to 16 h=Rnd(0,30) s=Rnd(0.7,1) x=Rand(0,1024) y=Rand(0,1024) for n=0 to 16 InkRot h,s,Rnd(0.3,0.6) Oval x+Rnd(-8,8),y+Rand(-8,8),Rand(6,12),Rand(6,12),128 next next SetBuffer FG return --v Note : Stress tester, ahoy!! -=-=- ''Load, Next List!''
Tue, 03 Aug 2021, 14:44
Jayenkai	// Stars and Lights // by Jayenkai // Created 2021/8/3 Graphics 512,512,1 Repeat CLS ResetDraw SetRot Mills()0.2 Star 64,64,64,Sin(Mills()0.1)20+34,5 FillStar 64,512-64,64,Sin(Mills()0.1)20+34,6 DrawStar 512-64,64,64,Sin(Mills()0.1)20+34,5 DrawStar 512-64,512-64,64,Sin(Mills()0.1)20+34,6 SetRot 0-Mills()0.1 Star 256,256,100 SetBlend "Light" For m=0 to 2 InkRot m120,0.95,1 Light MouseX()+Sin(m120+Mills()0.1)64,MouseY()-Cos(m120+Mills()0.1)64,512,0.8 Next Flip Forever --v This example shouldn't be too taxing on most systems, but I think it depends on how well the browser handles blend modes.. shrugs* -=-=- ''Load, Next List!''
Tue, 03 Aug 2021, 17:49
Jayenkai	Been playing with Dan's Amiga code again, and managed to squeeze a bit more out of it. Removed all references to Float() since those are already assumed by JSE. (Note : You'll have to Int/Round/Ceil/Floor if you want crisp numbers, here) Float was slowing it down, especially with so many instances. I also reduced the number of loops it does, but replaced the pixels with lines so it's not so obvious. The result is quite nice! > Reveal 🔎 // Amiga Basic Graphics - Reoptimised // Dan - Tweaked by Jayenkai // Created 2021/7/31 Graphics 640,480,1 Border 30,30,80 For dr#=0 To 100 Step 0.01 Lap=Mills() Cls SetThick 3;SetCol 150,255,150 For t=0 To 360 Step 10 z#=10Sin(0dr#)0.5 // This is referenced twice, so we leave it here so we don't have to math-it twice. Move 320,240 For r=10 To 250 Step 10 InkRot r,1,1 z#=rSin(tdr#)0.5 // This is referenced twice, so we leave it here so we don't have to math-it twice. // All other maths is only referenced once, so it doesn't speed things up by putting it into a variable. // if anything, the act of storing it to a variable, // then later getting the value back out from the variable, // actually ends up slowing the script down. // Instead, we don't bother storing the values, and instead dump the maths directly into the place where it's used. LineTo ((rCos(tdr#)0.5)+(Cos(15.0dr#)z#))+320,240-((rSin(rdr#)0.3)+(Sin(15.0dr#)z#)) Next Next Text 20,20,(Mills()-Lap)+" mills per frame",0 Flip Next --v [/spoiler] -=-=- ''Load, Next List!''
Wed, 04 Aug 2021, 01:59
Dan	That looks great ! (all 3 examples)
Page : 1 2 3 4 5 6 7 8 9 Prev 10 11 Next 12 13 14

v3geg