Advertisement
Guest User

Untitled

a guest
Sep 19th, 2017
119
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     Function DrawBufferRects()
  2.         Local X:Int, Y:Int, B_W:Int, B_H:Int, B_C:Int, C:Int
  3.         Local LSCALE:Int = LIGHT_SCALE
  4.         B_C = BUFFER_QUALITY
  5.         B_W = (BUFFER_WIDTH - 1)
  6.         B_H = (BUFFER_HEIGHT - 1)
  7.        
  8.         For X = 0 To B_W Step 1
  9.             For Y = 0 To B_H Step 1
  10.                 BUFFER[X,Y] = ShadowsEngine.CPPShadows.GetPixel(X,Y)
  11.                 C = RGBToGrey(BUFFER[X,Y])
  12.                 SetColor(C,C,C)
  13.                 DrawRect(X*B_C,Y*B_C,B_C,B_C)
  14.             Next
  15.         Next
  16.     End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement