Ploted

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|528\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Misc

Dan	Created : 16 June 2018 Edited : 17 June 2018 System : Windows Language : Blitz Ploted Ploted
Graphics 640,480,32,2 Graphics 640,480,32,3 AppTitle "Ploted" SeedRnd MilliSecs() Local CR = Rand(20,255), CG = Rand(20,255), CB = Rand(20,255) imgbfr=CreateImage(640,480) Const leng=5000 ;Snake's length (erase part) ymax = GraphicsHeight()-1 Dim ALTX(leng), ALTY(leng) Local C = 0, CO = 0, FIR = 0 , XS = Rand (1,319) , YS = Rand (1,199),drop=1 ;How many plot operations before redrawing the screen Local X = XS , Y = YS , tcolor=MilliSecs(),keytt=MilliSecs() Local TCDelay=6020-(drop20) ;Delay for Color change in ms Repeat keytimer=MilliSecs()-keytt If (KeyDown(78) Or KeyDown(200)) And keytimer>30 Then drop=add(drop,1,1,200) : keytt=MilliSecs() If (KeyDown(74) Or KeyDown(208)) And keytimer>30 Then drop=add(drop,-1,1,200) : keytt=MilliSecs() TCDelay=6020-(drop20) bbb=(bbb+1) Mod drop If bbb=60 Then Delay 5 ;Delay at higher speed rates If bbb=0 Then AppTitle "Ploted. Draw Speed="+String("0",3-Len(drop))+drop+" \| Use: (Num + , Arrow up / Num - , Arrow Down)" Flip SetBuffer BackBuffer() DrawBlock imgbfr,0,0 Color 255,255,255 Text 1,1,"Erase Points" Text 50*7,1,"Draw Only" Line 320, 0,320, ymax End If SetBuffer ImageBuffer(imgbfr) ;Draw on the image buffer ! If MilliSecs()-tcolor>TCDelay ;Delay for the color change tcolor=MilliSecs() CR = Rand(20,255) CG = Rand(20,255) CB = Rand(20,255) EndIf CO = CO + 1 ;Counter for the length of the 'snake' If CO = leng Then CO = 1 ;Wrap it to 1 ALTX(CO) = X ALTY(CO) = Y OeN= Rand(1,4) ;Random direction to move If oen=1 Then Y = Y - 1 : If Y < 1 Then Y = ymax If oen=2 Then Y = Y + 1 : If Y > ymax Then Y = 1 If oen=3 Then X = X - 1 : If X < 1 Then X = 319 If oen=4 Then X = X + 1 : If X > 319 Then X = 1 Color CR,CG,CB Plot X, Y ;Left part Plot X + 320, Y ;Right part If CO = leng-1 And FIR = 0 ;If Counter reaches leng-1 then start erasing points FIR = 1 End If If FIR = 1 ;Start erasing points here COI = COI + 1 If COI = leng Then COI = 1 Color 0,0,0 Plot ALTX(COI), ALTY(COI) EndIf Until KeyDown(1) End Function add(var,ammount,min,max) tmp=var+ammount If tmp<min Then tmp=min If tmp>max Then tmp=max Return tmp End Function --v
Latest Update This code was first coded on AmosPro on Amiga, then it was converted to BasicBasic on Win3.11 and lastly for Blitzbasic on Windows. It was coded during a time when i learned (by myself) to Program. It was, actually, never meant to be released. But whatever, here it is. What it does: Draws colored dots on screen, which is split into 2 parts. The dot moves from its starting point randomly to up/down/left/right side. Left half of the screen gets erased, after a set amount of dots, making of it an snakelike effect, while the right side retain the dots. Overall it's more like a Screensaver.

Comments
Saturday, 16 June 2018, 12:36
Jayenkai	Nice and swirly! Tip : Massive speedup if you move the "Line 320, 0,320, ymax" up, to just above the buffer change. Drawing lines to imagebuffers is slow as hell!! Additionally, if you enclose the "Draw to Backbuffer" chunk into an if, and only call it every n-frames, you can bulk draw a lot of the stuff before drawing it to the screen. > Reveal 🔎 Graphics 640,480,32,2 Graphics 640,480,32,3 AppTitle "Ploted" SeedRnd MilliSecs() Local CR = Rand(20,255), CG = Rand(20,255), CB = Rand(20,255) imgbfr=CreateImage(640,480) Const leng=1000 ;Snake's length (erase part) ymax = GraphicsHeight()-1 Dim ALTX(leng), ALTY(leng) Local C = 0, CO = 0, FIR = 0 , XS = Rand (1,319) , YS = Rand (1,199) Local X = XS , Y = YS , tcolor=MilliSecs() Local TCDelay=6000 ;Delay for Color change in ms Local tcount=0 Repeat tcount=tcount+1 If tcount>30 tcount=0 Flip SetBuffer BackBuffer() Cls DrawBlock imgbfr,0,0 Color 255,255,255 Text 1,1,"Erase Points" Text 50*7,1,"Draw Only" Line 320, 0,320, ymax EndIf SetBuffer ImageBuffer(imgbfr) ;Draw on the image buffer ! If MilliSecs()-tcolor>TCDelay ;Delay for the color change tcolor=MilliSecs() CR = Rand(20,255) CG = Rand(20,255) CB = Rand(20,255) EndIf CO = CO + 1 ;Counter for the length of the 'snake' If CO = leng Then CO = 1 ;Wrap it to 1 ALTX(CO) = X ALTY(CO) = Y OeN= Rand(1,4) ;Random direction to move If oen=1 Then Y = Y - 1 : If Y < 1 Then Y = ymax If oen=2 Then Y = Y + 1 : If Y > ymax Then Y = 1 If oen=3 Then X = X - 1 : If X < 1 Then X = 319 If oen=4 Then X = X + 1 : If X > 319 Then X = 1 Color CR,CG,CB Plot X, Y ;Left part Plot X + 320, Y ;Right part If CO = leng-1 And FIR = 0 ;If Counter reaches leng-1 then start erasing points FIR = 1 End If If FIR = 1 ;Start erasing points here COI = COI + 1 If COI = leng Then COI = 1 Color 0,0,0 Plot ALTX(COI), ALTY(COI) EndIf Until KeyDown(1) End --v
Sunday, 17 June 2018, 02:40
Dan	Cool, thanks for the ideas, i'v updated the code to match it. Now you can use Arrow Up/Down Keys or Numpad +/- to speedup the drawing. The Speed of 1 would be the speed on the Amiga. Although i haven't noticed the speed change by drawing the Line on the backbuffer. Maybe it is up to the Graphic Card ?
Sunday, 17 June 2018, 02:45
Jayenkai	Quite Possibly. I know my old NVidia card used to struggle to do all kinds of things, but later driver updates fixed quite a lot. Perhaps Intel (my current onboard gfx) never got around to those fixes.

Latest Update

Comments