PureBoard

Code: Alles auswählen

InitSprite()
SpriteQuality(#PB_Sprite3D_NoFiltering) 

Code: Alles auswählen

#PB_Sprite_NoFiltering

Code: Alles auswählen

InitSprite() 
InitMouse()
InitKeyboard() 
OpenScreen(1024,768,32,"test") 
LoadFont(1, "comic sans ms", 35)
SpriteQuality(#PB_Sprite_BilinearFiltering)  
CreateSprite(1,256,256) 
StartDrawing(SpriteOutput(1))
  Box(0, 0, 256, 256,RGB(0,0,50))
  DrawingFont(FontID(1))
  DrawingMode(#PB_2DDrawing_Transparent)
  DrawText(20,20,"Purebasic", RGB(0, 250, 250))
StopDrawing() 

CreateSprite(2,256,256)
CreateSprite(3,256,256)

StartDrawing(SpriteOutput(3))
  For t=0 To 80
    Box(0, t, 256,1,RGB(t*2+60,0,0))
  Next
  For t=80 To 160
    p=p+1
    Box(0, t, 256,1,RGB(210-p*2,0,0))
  Next
StopDrawing() 


count=10
ClearScreen(RGB(0,0,50))
CreateSprite(4,256,256) 
CreateSprite(5,256,256)
CreateSprite(6,256,256)
For t=0 To 36 
  StartDrawing(SpriteOutput(4)) 
    For h=0 To 256 
      ClipSprite (1,h,0,1,256) 
      DisplaySprite (1,h,Sin((h+t*20)*(3.14159265/180))*20) 
    Next
  StopDrawing() 
  GrabSprite(5,0,0,256,256)
  ClearScreen(RGB(0,0,50))
  StartDrawing(SpriteOutput(6)) 
    For h=0 To 256 
      ClipSprite (5,0,h,256,1) 
      DisplaySprite (5,Sin((h+t*10)*(3.14159265/180))*10,h) 
    Next
  StopDrawing() 
  GrabSprite(count,0,0,256,256) 
  count=count+1 
Next 

speed=1
frame=10

Repeat 
  ExamineKeyboard() 
  ClearScreen(RGB(0,0,0))
  y.f=1
  off=(off+speed) %256
  If frame = count:frame=10:EndIf

  StartDrawing(SpriteOutput(2))
    For n=1 To 256 
		  y.f=y+Sin(n/1.4*(3.14159265/180))
		  temp=(temp+1) %256
		  ClipSprite(frame, 0,temp, 256,1)
		  DisplaySprite(frame,0,y)
    Next
  StopDrawing()
  
  GrabSprite(7, 0, 0, 256, 256,#PB_Sprite_AlphaBlending )

  temp=off
  y=1
  frame=frame+1
  ClearScreen(RGB(0,0,0))
 
  ZoomSprite(7, 1024,150)
  ZoomSprite(3, 1024,148)   
  DisplaySprite(3,0,400)
  DisplayTransparentSprite(7,0,400,150) 
  FlipBuffers()
  FreeSprite(7)
Until KeyboardPushed(#PB_Key_Escape)