Ooops
January 15, 2021, 06:28:41 PM

Author Topic: [bb] Lens bal by Nebula [ 1+ years ago ]  (Read 403 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bb] Lens bal by Nebula [ 1+ years ago ]
« on: June 29, 2017, 12:28:40 AM »
Title : Lens bal
Author : Nebula
Posted : 1+ years ago

Description : Draws a high color lens. Paste compile run.

Code :
Code: BlitzBasic
  1. Graphics 640,480,16,2
  2. SetBuffer BackBuffer()
  3. Dim coppermap#(12000)
  4. makecoppermap
  5.  
  6. w = 300
  7. h = 300
  8. While KeyDown(1) = False
  9.         ;Cls
  10.         If n1 < 600 Then
  11.                 n1=n1+1
  12.                 ;
  13.                 drawoval 320 , 240 , 600 - n1 , 600 - n1 , n1 * 2,False
  14.                 ;
  15.         End If
  16.         w = w - 1
  17.         h = h - 1
  18.         Flip
  19. Wend
  20. End
  21.  
  22. Function bound(in,min,max)
  23.         If in>max Then Return max
  24.         If in<min Then Return min
  25. End Function
  26.  
  27. Function drawoval(x,y,w,h,n,f = 0)
  28.         ;
  29.         If w < 1 And h < 1 Then Return
  30.         ;
  31.         Local bmap = CreateImage(w,h)  
  32.         ;      
  33.         ;
  34.         SetBuffer ImageBuffer(bmap)
  35.         n = coppermap( n )
  36.         ;DebugLog n
  37.         Color n,n,n
  38.         ;
  39.         Select f
  40.                 Case 0
  41.                         Oval 0,0,w,h,True
  42.                 Case 1
  43.                         Oval 0,0,w,h,False
  44.         End Select
  45.         ;
  46.         SetBuffer BackBuffer()
  47.         MidHandle bmap
  48.         DrawImage bmap,x,y
  49.         FreeImage bmap
  50. End Function
  51.  
  52. Function makecoppermap()
  53.         Local a# = 255
  54.         Local n# = a# / 1200
  55.         Local n1# = 0
  56.         For i=0 To 1200
  57.                 ;
  58.                 n1 = n1 + n
  59.                 coppermap(i) = n1
  60.                 ;
  61.         Next
  62. End Function


Comments : none...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal