ufff.... complete YM plaYer in PureBasic? Respect! ;-)
Nice colors/UI
Nice colors/UI
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
// t == timer
for (int i = 7; i > 0; --i)
drawRect( 0, 60+pow(i,2) - t*9 % 10, 150, i )
; Small bitmap effect example - va!n in 10/2020
InitSprite()
InitKeyboard()
InitMouse()
OpenScreen(640,480,32,"")
LoadSprite(1,"d:\Unbenannt.bmp",0)
sprH = SpriteHeight(1)
Repeat
ExamineKeyboard()
ExamineMouse()
ClearScreen(0)
; For (int y=0; y<height; ++y) {
; int offsetY = Sin(x * freq) * offsetHeight;
; For (int x=0; x<width; ++x) {
; int offsetX = Sin(y * freq) * offsetWidth;
; putpixel(x,y, bitmap[x + offsetX][y + offsetY]);
; }
; }
offsetHeight = MouseY()
freq.f = MouseX() / 10000 ; 0.004;MouseX() / 1000
For y = 0 To sprH
offsetY = Sin(y * freq) * offsetHeight
ClipSprite(1,0,offsetY,SpriteWidth(1),1)
DisplaySprite(1, 0, y)
Next
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
End
Page created in 2.213 seconds with 15 queries.