Ooops
January 26, 2021, 06:05:24 AM

Author Topic: [bb] Texture or graphics making parts by Nebula [ 1+ years ago ]  (Read 507 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
Title : Texture or graphics making parts
Author : Nebula
Posted : 1+ years ago

Description : Save the texture making code parts and save the include file as individual files. Run the texture making code.

This sourcecode does not work if you compile it as one part.


Code :
Code: BlitzBasic
  1. ;
  2. ;
  3. ;
  4. ; Texture filter 7
  5. ;
  6. ;
  7. ;
  8. ;
  9. ;
  10. Include "filter_include.bb"
  11. ;
  12. Graphics 640,480,16,2
  13. SetBuffer BackBuffer()
  14. ;
  15. Type font
  16.         Field bmp
  17.         Field normal
  18. End Type
  19.  
  20. Global font.font = New font
  21. fontmp = LoadFont("verdana.ttf",32)
  22. font
  23. ormal = LoadFont("verdana.ttf",11)
  24. ;
  25. Type gfx
  26.         Field buffer[10]
  27. End Type
  28. Global gfx.gfx = New gfx
  29. inigfx()
  30. ;
  31. ms = MilliSecs()
  32. ;
  33.  
  34. ; These are some filter combinations. Uncomment 1 per time to
  35. ; generate them.
  36.  
  37. ;bats : Delay 4000
  38. ;land(3) : Delay 4000
  39. ;image1() : Delay 4000
  40. ;image2 : Delay 4000
  41. ;image3 : Delay 4000
  42. ;image4  : Delay 4000; HQuality - needs 3d'n
  43. image5 : Delay 4000
  44.  
  45.  
  46.  
  47. ms = MilliSecs() - ms
  48. While KeyDown(1) = False
  49.         Cls
  50.         Color 255,255,255      
  51.         If KeyHit(2) = True Then dripfilter2(150)
  52.         If KeyHit(3) = True Then addedge(50)
  53.         ;DrawBlock gfxuffer[0],0,0
  54.         ;DrawImageRect gfxuffer[0],0,0,0,0,256,256
  55.         DrawImageRect gfxuffer[0],0,0,0,0,640,480
  56.         Text GraphicsWidth()-256,0,ms
  57.         Flip
  58. Wend
  59. End
  60.  
  61.  
  62.  
  63. Function bats()
  64.         dripnoise()
  65.         dripfilter2(150)
  66.         edgemess
  67.         addedge(100)
  68.         For i=0 To 150
  69.         spotnoise(100,150)
  70.         spotnoise(50,100)
  71.         Next
  72.         addedge(50)
  73.         For i=0 To 14
  74.         dripfilter2(150)
  75.         Next
  76. End Function
  77.  
  78.  
  79. Function image1()
  80.         Text 0,0,"please wait":Flip
  81.         For i=0 To 15
  82.         spotnoise(100,150)
  83.         spotnoise(50,100)
  84.         Next
  85.         ;edgemess
  86.         For i=0 To 20
  87.         addedge(101)
  88.         Next
  89. End Function
  90.  
  91. Function image2()
  92.         dripnoiseint(100)
  93.         greyfilter(100)
  94.         dripfilter(50)
  95.         dripfilter2(150)
  96.         dripfilter2(150)
  97. End Function
  98.  
  99. Function land(num)
  100.         dripnoiseint(num)
  101.         edgemess()
  102.         ;greyfilter(100)
  103.  
  104.         For i=0 To 10
  105.                 dripfilter2(150)
  106.         Next
  107. End Function
  108.  
  109. Function image3()
  110.         dripnoiseint(2)
  111.         edgemess()
  112.  
  113.         For i=0 To 10
  114.                 dripfilter2(150)
  115.         Next
  116.         addedge(50)
  117.         dripnoise
  118.  
  119.         addedge(80)
  120.         blackout
  121. End Function
  122.  
  123. Function image4()
  124.         dripnoiseint(20)
  125.         ;blackout
  126.  
  127.         For i=0 To 5
  128.         dripfilter(25)
  129.         Next
  130.         greyfilter(100)
  131.         For i=0 To 5
  132.         edgemess()
  133.         Next
  134.         dripfilter2(150)
  135.         dripfilter2(150)
  136. End Function
  137.  
  138. Function image5()
  139.         For i=0 To 250
  140.         spotnoise(110,250)
  141.         Next
  142.         edgemess
  143.         blackout
  144.         dripnoise
  145.         dripnoiseint(20)
  146.         greyfilter(50)
  147. End Function
  148.  
  149.  
  150.  
  151. ; Cut here and delete the other things. save the include part
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161. ;
  162. ;
  163. ; Texture filter 6
  164. ;
  165. ;
  166. ;
  167. ;
  168. ;
  169. ;
  170. ;
  171. ;
  172. Include "filter_include.bb"
  173. ;
  174. Graphics 640,480,16,2
  175. SetBuffer BackBuffer()
  176. ;
  177. Type font
  178.         Field bmp
  179.         Field normal
  180. End Type
  181.  
  182. Global font.font = New font
  183. fontmp = LoadFont("verdana.ttf",32)
  184. font
  185. ormal = LoadFont("verdana.ttf",11)
  186. ;
  187. Type gfx
  188.         Field buffer[10]
  189. End Type
  190. Global gfx.gfx = New gfx
  191. inigfx()
  192. ;
  193. ms = MilliSecs()
  194. ;
  195.  
  196. ; These are some filter combinations. Uncomment 1 per time to
  197. ; generate them.
  198.  
  199. ;bats : Delay 4000
  200. ;land(3) : Delay 4000
  201. ;image1() : Delay 4000
  202. ;image2 : Delay 4000
  203. ;image3 : Delay 4000
  204. image4  : Delay 4000; HQuality - needs 3d'n
  205. ;image5 : Delay 4000
  206.  
  207.  
  208.  
  209. ms = MilliSecs() - ms
  210. While KeyDown(1) = False
  211.         Cls
  212.         Color 255,255,255      
  213.         If KeyHit(2) = True Then dripfilter2(150)
  214.         If KeyHit(3) = True Then addedge(50)
  215.         ;DrawBlock gfxuffer[0],0,0
  216.         ;DrawImageRect gfxuffer[0],0,0,0,0,256,256
  217.         DrawImageRect gfxuffer[0],0,0,0,0,640,480
  218.         Text GraphicsWidth()-256,0,ms
  219.         Flip
  220. Wend
  221. End
  222.  
  223.  
  224.  
  225. Function bats()
  226.         dripnoise()
  227.         dripfilter2(150)
  228.         edgemess
  229.         addedge(100)
  230.         For i=0 To 150
  231.         spotnoise(100,150)
  232.         spotnoise(50,100)
  233.         Next
  234.         addedge(50)
  235.         For i=0 To 14
  236.         dripfilter2(150)
  237.         Next
  238. End Function
  239.  
  240.  
  241. Function image1()
  242.         Text 0,0,"please wait":Flip
  243.         For i=0 To 15
  244.         spotnoise(100,150)
  245.         spotnoise(50,100)
  246.         Next
  247.         ;edgemess
  248.         For i=0 To 20
  249.         addedge(101)
  250.         Next
  251. End Function
  252.  
  253. Function image2()
  254.         dripnoiseint(100)
  255.         greyfilter(100)
  256.         dripfilter(50)
  257.         dripfilter2(150)
  258.         dripfilter2(150)
  259. End Function
  260.  
  261. Function land(num)
  262.         dripnoiseint(num)
  263.         edgemess()
  264.         ;greyfilter(100)
  265.  
  266.         For i=0 To 10
  267.                 dripfilter2(150)
  268.         Next
  269. End Function
  270.  
  271. Function image3()
  272.         dripnoiseint(2)
  273.         edgemess()
  274.  
  275.         For i=0 To 10
  276.                 dripfilter2(150)
  277.         Next
  278.         addedge(50)
  279.         dripnoise
  280.  
  281.         addedge(80)
  282.         blackout
  283. End Function
  284.  
  285. Function image4()
  286.         dripnoiseint(20)
  287.         ;blackout
  288.  
  289.         For i=0 To 5
  290.         dripfilter(25)
  291.         Next
  292.         greyfilter(100)
  293.         For i=0 To 5
  294.         edgemess()
  295.         Next
  296.         dripfilter2(150)
  297.         dripfilter2(150)
  298. End Function
  299.  
  300. Function image5()
  301.         For i=0 To 250
  302.         spotnoise(110,250)
  303.         Next
  304.         edgemess
  305.         blackout
  306.         dripnoise
  307.         dripnoiseint(20)
  308.         greyfilter(50)
  309. End Function
  310.  
  311.  
  312.  
  313.  
  314. ; Cut here and delete the other things. save the include part
  315.  
  316.  
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323. ;
  324. ;
  325. ;
  326. ; Texture filter 5
  327. ;
  328. ;
  329. ;
  330. ;
  331. ;
  332. ;
  333. Include "filter_include.bb"
  334. ;
  335. Graphics 640,480,16,2
  336. SetBuffer BackBuffer()
  337. ;
  338. Type font
  339.         Field bmp
  340.         Field normal
  341. End Type
  342.  
  343. Global font.font = New font
  344. fontmp = LoadFont("verdana.ttf",32)
  345. font
  346. ormal = LoadFont("verdana.ttf",11)
  347. ;
  348. Type gfx
  349.         Field buffer[10]
  350. End Type
  351. Global gfx.gfx = New gfx
  352. inigfx()
  353. ;
  354. ms = MilliSecs()
  355. ;
  356.  
  357. ; These are some filter combinations. Uncomment 1 per time to
  358. ; generate them.
  359.  
  360. ;bats : Delay 4000
  361. ;land(3) : Delay 4000
  362. ;image1() : Delay 4000
  363. ;image2 : Delay 4000
  364. image3 : Delay 4000
  365. ;image4  : Delay 4000; HQuality - needs 3d'n
  366. ;image5 : Delay 4000
  367.  
  368.  
  369.  
  370. ms = MilliSecs() - ms
  371. While KeyDown(1) = False
  372.         Cls
  373.         Color 255,255,255      
  374.         If KeyHit(2) = True Then dripfilter2(150)
  375.         If KeyHit(3) = True Then addedge(50)
  376.         ;DrawBlock gfxuffer[0],0,0
  377.         ;DrawImageRect gfxuffer[0],0,0,0,0,256,256
  378.         DrawImageRect gfxuffer[0],0,0,0,0,640,480
  379.         Text GraphicsWidth()-256,0,ms
  380.         Flip
  381. Wend
  382. End
  383.  
  384.  
  385.  
  386. Function bats()
  387.         dripnoise()
  388.         dripfilter2(150)
  389.         edgemess
  390.         addedge(100)
  391.         For i=0 To 150
  392.         spotnoise(100,150)
  393.         spotnoise(50,100)
  394.         Next
  395.         addedge(50)
  396.         For i=0 To 14
  397.         dripfilter2(150)
  398.         Next
  399. End Function
  400.  
  401.  
  402. Function image1()
  403.         Text 0,0,"please wait":Flip
  404.         For i=0 To 15
  405.         spotnoise(100,150)
  406.         spotnoise(50,100)
  407.         Next
  408.         ;edgemess
  409.         For i=0 To 20
  410.         addedge(101)
  411.         Next
  412. End Function
  413.  
  414. Function image2()
  415.         dripnoiseint(100)
  416.         greyfilter(100)
  417.         dripfilter(50)
  418.         dripfilter2(150)
  419.         dripfilter2(150)
  420. End Function
  421.  
  422. Function land(num)
  423.         dripnoiseint(num)
  424.         edgemess()
  425.         ;greyfilter(100)
  426.  
  427.         For i=0 To 10
  428.                 dripfilter2(150)
  429.         Next
  430. End Function
  431.  
  432. Function image3()
  433.         dripnoiseint(2)
  434.         edgemess()
  435.  
  436.         For i=0 To 10
  437.                 dripfilter2(150)
  438.         Next
  439.         addedge(50)
  440.         dripnoise
  441.  
  442.         addedge(80)
  443.         blackout
  444. End Function
  445.  
  446. Function image4()
  447.         dripnoiseint(20)
  448.         ;blackout
  449.  
  450.         For i=0 To 5
  451.         dripfilter(25)
  452.         Next
  453.         greyfilter(100)
  454.         For i=0 To 5
  455.         edgemess()
  456.         Next
  457.         dripfilter2(150)
  458.         dripfilter2(150)
  459. End Function
  460.  
  461. Function image5()
  462.         For i=0 To 250
  463.         spotnoise(110,250)
  464.         Next
  465.         edgemess
  466.         blackout
  467.         dripnoise
  468.         dripnoiseint(20)
  469.         greyfilter(50)
  470. End Function
  471.  
  472.  
  473.  
  474.  
  475.  
  476. ; Cut here and delete the other things. save the include part
  477.  
  478.  
  479.  
  480.  
  481.  
  482.  
  483.  
  484.  
  485. ;
  486. ;
  487. ;
  488. ; Texture filter 4
  489. ;
  490. ;
  491. ;
  492. ;
  493. ;
  494. ;
  495. ;
  496. ;
  497. Include "filter_include.bb"
  498. ;
  499. Graphics 640,480,16,2
  500. SetBuffer BackBuffer()
  501. ;
  502. Type font
  503.         Field bmp
  504.         Field normal
  505. End Type
  506.  
  507. Global font.font = New font
  508. fontmp = LoadFont("verdana.ttf",32)
  509. font
  510. ormal = LoadFont("verdana.ttf",11)
  511. ;
  512. Type gfx
  513.         Field buffer[10]
  514. End Type
  515. Global gfx.gfx = New gfx
  516. inigfx()
  517. ;
  518. ms = MilliSecs()
  519. ;
  520.  
  521. ; These are some filter combinations. Uncomment 1 per time to
  522. ; generate them.
  523.  
  524. ;bats : Delay 4000
  525. ;land(3) : Delay 4000
  526. ;image1() : Delay 4000
  527. image2 : Delay 4000
  528. ;image3 : Delay 4000
  529. ;image4  : Delay 4000; HQuality - needs 3d'n
  530. ;image5 : Delay 4000
  531.  
  532.  
  533.  
  534. ms = MilliSecs() - ms
  535. While KeyDown(1) = False
  536.         Cls
  537.         Color 255,255,255      
  538.         If KeyHit(2) = True Then dripfilter2(150)
  539.         If KeyHit(3) = True Then addedge(50)
  540.         ;DrawBlock gfxuffer[0],0,0
  541.         ;DrawImageRect gfxuffer[0],0,0,0,0,256,256
  542.         DrawImageRect gfxuffer[0],0,0,0,0,640,480
  543.         Text GraphicsWidth()-256,0,ms
  544.         Flip
  545. Wend
  546. End
  547.  
  548.  
  549.  
  550. Function bats()
  551.         dripnoise()
  552.         dripfilter2(150)
  553.         edgemess
  554.         addedge(100)
  555.         For i=0 To 150
  556.         spotnoise(100,150)
  557.         spotnoise(50,100)
  558.         Next
  559.         addedge(50)
  560.         For i=0 To 14
  561.         dripfilter2(150)
  562.         Next
  563. End Function
  564.  
  565.  
  566. Function image1()
  567.         Text 0,0,"please wait":Flip
  568.         For i=0 To 15
  569.         spotnoise(100,150)
  570.         spotnoise(50,100)
  571.         Next
  572.         ;edgemess
  573.         For i=0 To 20
  574.         addedge(101)
  575.         Next
  576. End Function
  577.  
  578. Function image2()
  579.         dripnoiseint(100)
  580.         greyfilter(100)
  581.         dripfilter(50)
  582.         dripfilter2(150)
  583.         dripfilter2(150)
  584. End Function
  585.  
  586. Function land(num)
  587.         dripnoiseint(num)
  588.         edgemess()
  589.         ;greyfilter(100)
  590.  
  591.         For i=0 To 10
  592.                 dripfilter2(150)
  593.         Next
  594. End Function
  595.  
  596. Function image3()
  597.         dripnoiseint(2)
  598.         edgemess()
  599.  
  600.         For i=0 To 10
  601.                 dripfilter2(150)
  602.         Next
  603.         addedge(50)
  604.         dripnoise
  605.  
  606.         addedge(80)
  607.         blackout
  608. End Function
  609.  
  610. Function image4()
  611.         dripnoiseint(20)
  612.         ;blackout
  613.  
  614.         For i=0 To 5
  615.         dripfilter(25)
  616.         Next
  617.         greyfilter(100)
  618.         For i=0 To 5
  619.         edgemess()
  620.         Next
  621.         dripfilter2(150)
  622.         dripfilter2(150)
  623. End Function
  624.  
  625. Function image5()
  626.         For i=0 To 250
  627.         spotnoise(110,250)
  628.         Next
  629.         edgemess
  630.         blackout
  631.         dripnoise
  632.         dripnoiseint(20)
  633.         greyfilter(50)
  634. End Function
  635.  
  636.  
  637.  
  638.  
  639.  
  640.  
  641. ; Cut here and delete the other things. save the include part
  642.  
  643.  
  644.  
  645.  
  646.  
  647.  
  648.  
  649.  
  650.  
  651.  
  652. ;
  653. ;
  654. ; Texture filter 3
  655. ;
  656. ;
  657. ;
  658. ;
  659. ;
  660. ;
  661. Include "filter_include.bb"
  662. ;
  663. Graphics 640,480,16,2
  664. SetBuffer BackBuffer()
  665. ;
  666. Type font
  667.         Field bmp
  668.         Field normal
  669. End Type
  670.  
  671. Global font.font = New font
  672. fontmp = LoadFont("verdana.ttf",32)
  673. font
  674. ormal = LoadFont("verdana.ttf",11)
  675. ;
  676. Type gfx
  677.         Field buffer[10]
  678. End Type
  679. Global gfx.gfx = New gfx
  680. inigfx()
  681. ;
  682. ms = MilliSecs()
  683. ;
  684.  
  685. ; These are some filter combinations. Uncomment 1 per time to
  686. ; generate them.
  687.  
  688. ;bats : Delay 4000
  689. ;land(3) : Delay 4000
  690. image1() : Delay 4000
  691. ;image2 : Delay 4000
  692. ;image3 : Delay 4000
  693. ;image4  : Delay 4000; HQuality - needs 3d'n
  694. ;image5 : Delay 4000
  695.  
  696.  
  697.  
  698. ms = MilliSecs() - ms
  699. While KeyDown(1) = False
  700.         Cls
  701.         Color 255,255,255      
  702.         If KeyHit(2) = True Then dripfilter2(150)
  703.         If KeyHit(3) = True Then addedge(50)
  704.         ;DrawBlock gfxuffer[0],0,0
  705.         ;DrawImageRect gfxuffer[0],0,0,0,0,256,256
  706.         DrawImageRect gfxuffer[0],0,0,0,0,640,480
  707.         Text GraphicsWidth()-256,0,ms
  708.         Flip
  709. Wend
  710. End
  711.  
  712.  
  713.  
  714. Function bats()
  715.         dripnoise()
  716.         dripfilter2(150)
  717.         edgemess
  718.         addedge(100)
  719.         For i=0 To 150
  720.         spotnoise(100,150)
  721.         spotnoise(50,100)
  722.         Next
  723.         addedge(50)
  724.         For i=0 To 14
  725.         dripfilter2(150)
  726.         Next
  727. End Function
  728.  
  729.  
  730. Function image1()
  731.         Text 0,0,"please wait":Flip
  732.         For i=0 To 15
  733.         spotnoise(100,150)
  734.         spotnoise(50,100)
  735.         Next
  736.         ;edgemess
  737.         For i=0 To 20
  738.         addedge(101)
  739.         Next
  740. End Function
  741.  
  742. Function image2()
  743.         dripnoiseint(100)
  744.         greyfilter(100)
  745.         dripfilter(50)
  746.         dripfilter2(150)
  747.         dripfilter2(150)
  748. End Function
  749.  
  750. Function land(num)
  751.         dripnoiseint(num)
  752.         edgemess()
  753.         ;greyfilter(100)
  754.  
  755.         For i=0 To 10
  756.                 dripfilter2(150)
  757.         Next
  758. End Function
  759.  
  760. Function image3()
  761.         dripnoiseint(2)
  762.         edgemess()
  763.  
  764.         For i=0 To 10
  765.                 dripfilter2(150)
  766.         Next
  767.         addedge(50)
  768.         dripnoise
  769.  
  770.         addedge(80)
  771.         blackout
  772. End Function
  773.  
  774. Function image4()
  775.         dripnoiseint(20)
  776.         ;blackout
  777.  
  778.         For i=0 To 5
  779.         dripfilter(25)
  780.         Next
  781.         greyfilter(100)
  782.         For i=0 To 5
  783.         edgemess()
  784.         Next
  785.         dripfilter2(150)
  786.         dripfilter2(150)
  787. End Function
  788.  
  789. Function image5()
  790.         For i=0 To 250
  791.         spotnoise(110,250)
  792.         Next
  793.         edgemess
  794.         blackout
  795.         dripnoise
  796.         dripnoiseint(20)
  797.         greyfilter(50)
  798. End Function
  799.  
  800.  
  801.  
  802.  
  803.  
  804.  
  805.  
  806.  
  807. ; Cut here and delete the other things. save the include part
  808.  
  809.  
  810.  
  811.  
  812.  
  813.  
  814.  
  815.  
  816. ;
  817. ;
  818. ; Texture filter 2
  819. ;
  820. ;
  821. ;
  822. ;
  823. ;
  824. Include "filter_include.bb"
  825. ;
  826. Graphics 640,480,16,2
  827. SetBuffer BackBuffer()
  828. ;
  829. Type font
  830.         Field bmp
  831.         Field normal
  832. End Type
  833.  
  834. Global font.font = New font
  835. fontmp = LoadFont("verdana.ttf",32)
  836. font
  837. ormal = LoadFont("verdana.ttf",11)
  838. ;
  839. Type gfx
  840.         Field buffer[10]
  841. End Type
  842. Global gfx.gfx = New gfx
  843. inigfx()
  844. ;
  845. ms = MilliSecs()
  846. ;
  847.  
  848. ; These are some filter combinations. Uncomment 1 per time to
  849. ; generate them.
  850.  
  851. ;bats : Delay 4000
  852. land(3) : Delay 4000
  853. ;image1() : Delay 4000
  854. ;image2 : Delay 4000
  855. ;image3 : Delay 4000
  856. ;image4  : Delay 4000; HQuality - needs 3d'n
  857. ;image5 : Delay 4000
  858.  
  859.  
  860.  
  861. ms = MilliSecs() - ms
  862. While KeyDown(1) = False
  863.         Cls
  864.         Color 255,255,255      
  865.         If KeyHit(2) = True Then dripfilter2(150)
  866.         If KeyHit(3) = True Then addedge(50)
  867.         ;DrawBlock gfxuffer[0],0,0
  868.         ;DrawImageRect gfxuffer[0],0,0,0,0,256,256
  869.         DrawImageRect gfxuffer[0],0,0,0,0,640,480
  870.         Text GraphicsWidth()-256,0,ms
  871.         Flip
  872. Wend
  873. End
  874.  
  875.  
  876.  
  877. Function bats()
  878.         dripnoise()
  879.         dripfilter2(150)
  880.         edgemess
  881.         addedge(100)
  882.         For i=0 To 150
  883.         spotnoise(100,150)
  884.         spotnoise(50,100)
  885.         Next
  886.         addedge(50)
  887.         For i=0 To 14
  888.         dripfilter2(150)
  889.         Next
  890. End Function
  891.  
  892.  
  893. Function image1()
  894.         Text 0,0,"please wait":Flip
  895.         For i=0 To 15
  896.         spotnoise(100,150)
  897.         spotnoise(50,100)
  898.         Next
  899.         ;edgemess
  900.         For i=0 To 20
  901.         addedge(101)
  902.         Next
  903. End Function
  904.  
  905. Function image2()
  906.         dripnoiseint(100)
  907.         greyfilter(100)
  908.         dripfilter(50)
  909.         dripfilter2(150)
  910.         dripfilter2(150)
  911. End Function
  912.  
  913. Function land(num)
  914.         dripnoiseint(num)
  915.         edgemess()
  916.         ;greyfilter(100)
  917.  
  918.         For i=0 To 10
  919.                 dripfilter2(150)
  920.         Next
  921. End Function
  922.  
  923. Function image3()
  924.         dripnoiseint(2)
  925.         edgemess()
  926.  
  927.         For i=0 To 10
  928.                 dripfilter2(150)
  929.         Next
  930.         addedge(50)
  931.         dripnoise
  932.  
  933.         addedge(80)
  934.         blackout
  935. End Function
  936.  
  937. Function image4()
  938.         dripnoiseint(20)
  939.         ;blackout
  940.  
  941.         For i=0 To 5
  942.         dripfilter(25)
  943.         Next
  944.         greyfilter(100)
  945.         For i=0 To 5
  946.         edgemess()
  947.         Next
  948.         dripfilter2(150)
  949.         dripfilter2(150)
  950. End Function
  951.  
  952. Function image5()
  953.         For i=0 To 250
  954.         spotnoise(110,250)
  955.         Next
  956.         edgemess
  957.         blackout
  958.         dripnoise
  959.         dripnoiseint(20)
  960.         greyfilter(50)
  961. End Function
  962.  
  963.  
  964.  
  965.  
  966.  
  967.  
  968.  
  969.  
  970.  
  971.  
  972. ; Cut here and delete the other things. save the include part
  973.  
  974.  
  975.  
  976.  
  977.  
  978.  
  979.  
  980.  
  981. ;
  982. ;
  983. ; Texture Filter 1
  984. ;
  985. ;
  986. ;
  987. ;
  988. ;
  989. Include "filter_include.bb"
  990. ;
  991. Graphics 640,480,16,2
  992. SetBuffer BackBuffer()
  993. ;
  994. Type font
  995.         Field bmp
  996.         Field normal
  997. End Type
  998.  
  999. Global font.font = New font
  1000. fontmp = LoadFont("verdana.ttf",32)
  1001. font
  1002. ormal = LoadFont("verdana.ttf",11)
  1003. ;
  1004. Type gfx
  1005.         Field buffer[10]
  1006. End Type
  1007. Global gfx.gfx = New gfx
  1008. inigfx()
  1009. ;
  1010. ms = MilliSecs()
  1011. ;
  1012.  
  1013. ; These are some filter combinations. Uncomment 1 per time to
  1014. ; generate them.
  1015.  
  1016. bats : Delay 4000
  1017. ;land(3) : Delay 4000
  1018. ;image1() : Delay 4000
  1019. ;image2 : Delay 4000
  1020. ;image3 : Delay 4000
  1021. ;image4  : Delay 4000; HQuality - needs 3d'n
  1022. ;image5 : Delay 4000
  1023.  
  1024.  
  1025.  
  1026. ms = MilliSecs() - ms
  1027. While KeyDown(1) = False
  1028.         Cls
  1029.         Color 255,255,255      
  1030.         If KeyHit(2) = True Then dripfilter2(150)
  1031.         If KeyHit(3) = True Then addedge(50)
  1032.         ;DrawBlock gfxuffer[0],0,0
  1033.         ;DrawImageRect gfxuffer[0],0,0,0,0,256,256
  1034.         DrawImageRect gfxuffer[0],0,0,0,0,640,480
  1035.         Text GraphicsWidth()-256,0,ms
  1036.         Flip
  1037. Wend
  1038. End
  1039.  
  1040.  
  1041.  
  1042. Function bats()
  1043.         dripnoise()
  1044.         dripfilter2(150)
  1045.         edgemess
  1046.         addedge(100)
  1047.         For i=0 To 150
  1048.         spotnoise(100,150)
  1049.         spotnoise(50,100)
  1050.         Next
  1051.         addedge(50)
  1052.         For i=0 To 14
  1053.         dripfilter2(150)
  1054.         Next
  1055. End Function
  1056.  
  1057.  
  1058. Function image1()
  1059.         Text 0,0,"please wait":Flip
  1060.         For i=0 To 15
  1061.         spotnoise(100,150)
  1062.         spotnoise(50,100)
  1063.         Next
  1064.         ;edgemess
  1065.         For i=0 To 20
  1066.         addedge(101)
  1067.         Next
  1068. End Function
  1069.  
  1070. Function image2()
  1071.         dripnoiseint(100)
  1072.         greyfilter(100)
  1073.         dripfilter(50)
  1074.         dripfilter2(150)
  1075.         dripfilter2(150)
  1076. End Function
  1077.  
  1078. Function land(num)
  1079.         dripnoiseint(num)
  1080.         edgemess()
  1081.         ;greyfilter(100)
  1082.  
  1083.         For i=0 To 10
  1084.                 dripfilter2(150)
  1085.         Next
  1086. End Function
  1087.  
  1088. Function image3()
  1089.         dripnoiseint(2)
  1090.         edgemess()
  1091.  
  1092.         For i=0 To 10
  1093.                 dripfilter2(150)
  1094.         Next
  1095.         addedge(50)
  1096.         dripnoise
  1097.  
  1098.         addedge(80)
  1099.         blackout
  1100. End Function
  1101.  
  1102. Function image4()
  1103.         dripnoiseint(20)
  1104.         ;blackout
  1105.  
  1106.         For i=0 To 5
  1107.         dripfilter(25)
  1108.         Next
  1109.         greyfilter(100)
  1110.         For i=0 To 5
  1111.         edgemess()
  1112.         Next
  1113.         dripfilter2(150)
  1114.         dripfilter2(150)
  1115. End Function
  1116.  
  1117. Function image5()
  1118.         For i=0 To 250
  1119.         spotnoise(110,250)
  1120.         Next
  1121.         edgemess
  1122.         blackout
  1123.         dripnoise
  1124.         dripnoiseint(20)
  1125.         greyfilter(50)
  1126. End Function
  1127.  
  1128.  
  1129.  
  1130.  
  1131.  
  1132. ; Cut here and delete the other things. save the include part
  1133.  
  1134.  
  1135.  
  1136. ;
  1137. ;
  1138. ; This is the include part.
  1139. ;
  1140. ;
  1141. ;
  1142. ;
  1143. ;
  1144. ;
  1145. ;
  1146. ;
  1147. ;
  1148. ;
  1149. ;
  1150. ;
  1151. ;
  1152. ;
  1153. ;
  1154. ;
  1155. ;
  1156. ;
  1157. ;
  1158. ;
  1159. ;
  1160. ;
  1161. ;
  1162. ; Filters Include file
  1163. ;
  1164.  
  1165. Function makefont()
  1166.         SetBuffer ImageBuffer(gfxuffer[1])
  1167.         SetFont fontmp
  1168.         Color 255,255,255
  1169.         cnt=32
  1170.         For y=0 To 480 Step 32
  1171.                 For x=0 To 640-64 Step 32
  1172.                 If cnt<256
  1173.                 Text x+16,y+16,Chr(cnt)
  1174.                 cnt=cnt+1
  1175.         End If
  1176.         Next:Next
  1177.  
  1178.  
  1179.         SetFont font
  1180. ormal
  1181.         SetBuffer BackBuffer()
  1182. End Function
  1183.  
  1184.  
  1185.  
  1186. Function edgemessfont()
  1187.         SetBuffer ImageBuffer(gfxuffer[1])
  1188.         LockBuffer ImageBuffer(gfxuffer[1])
  1189.         Local iw = ImageWidth(gfxuffer[1])
  1190.         Local ih = ImageHeight(gfxuffer[1])
  1191.         For i=0 To 3
  1192.        
  1193.         For x1 = 1 To iw-1
  1194.         For y1 = 1 To ih-1
  1195.         If Rand(1,2) = 1
  1196.         a = ReadPixelFast(x1+1,y1)
  1197.         b = ReadPixelFast(x1,y1)
  1198.         If rgbisblack(b) = True And rgbisblack(a) = False Then
  1199.                 WritePixelFast(x1,y1,lightrgb(a,49))
  1200.         End If
  1201.         End If
  1202.         Next:Next
  1203.        
  1204.         ;
  1205.         For x1 = iw-1 To 1 Step -1
  1206.         For y1 = 1 To ih-1
  1207.         If Rand(1,2) = 1
  1208.         a = ReadPixelFast(x1-1,y1)
  1209.         b = ReadPixelFast(x1,y1)
  1210.         If rgbisblack(b) = True And rgbisblack(a) = False Then
  1211.                 WritePixelFast(x1,y1,lightrgb(a,49))
  1212.         End If
  1213.         End If
  1214.         Next:Next
  1215.        
  1216.         For x1 = 1 To iw-1
  1217.         For y1 = ih-1 To 1 Step -1
  1218.         If Rand(1,2) = 1
  1219.         a = ReadPixelFast(x1,y1-1)
  1220.         b = ReadPixelFast(x1,y1)
  1221.         If rgbisblack(b) = True And rgbisblack(a) = False Then
  1222.                 WritePixelFast(x1,y1,lightrgb(a,49))
  1223.         End If
  1224.         End If
  1225.         Next:Next
  1226.  
  1227.         For x1 = 1 To iw-1      
  1228.         For y1 = 1 To ih-2
  1229.         If Rand(1,2) = 1
  1230.                 a = ReadPixelFast(x1,y1+1)
  1231.                 b = ReadPixelFast(x1,y1)
  1232.                 If rgbisblack(b) = True And rgbisblack(a) = False Then
  1233.                         WritePixelFast(x1,y1,lightrgb(a,49))
  1234.                 End If
  1235.         End If
  1236.         Next:Next
  1237.  
  1238. Next
  1239.  
  1240.         UnlockBuffer ImageBuffer(gfxuffer[1])
  1241.         SetBuffer BackBuffer()
  1242. End Function
  1243.  
  1244.  
  1245.  
  1246. Function lightuprect(x,y,w,h)
  1247.         SetBuffer ImageBuffer(gfxuffer[0])
  1248.         LockBuffer ImageBuffer(gfxuffer[0])
  1249.  
  1250.         Local Stp# = 200/h
  1251.         Local cnt#
  1252.  
  1253.         For y1=y To y+h
  1254.         For x1=x To x+w
  1255.                 a = ReadPixelFast(x1,y1)
  1256.                 b = lightrgb(a,100+cnt)
  1257.                 WritePixelFast(x1,y1,b)
  1258.         Next:
  1259.         cnt=cnt+stp
  1260.         Next
  1261.  
  1262.  
  1263.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1264.         SetBuffer BackBuffer()
  1265.  
  1266. End Function
  1267.  
  1268.  
  1269. Function lightdownrect(x,y,w,h)
  1270.         SetBuffer ImageBuffer(gfxuffer[0])
  1271.         LockBuffer ImageBuffer(gfxuffer[0])
  1272.  
  1273.         Local Stp# = 200/h
  1274.         Local cnt#
  1275.  
  1276.         For y1=y To y+h
  1277.         For x1=x To x+w
  1278.                 a = ReadPixelFast(x1,y1)
  1279.                 b = lightrgb(a,300-cnt)
  1280.                 WritePixelFast(x1,y1,b)
  1281.         Next:
  1282.         cnt=cnt+stp
  1283.         Next
  1284.  
  1285.  
  1286.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1287.         SetBuffer BackBuffer()
  1288.  
  1289. End Function
  1290.  
  1291. Function lightup()
  1292.         SetBuffer ImageBuffer(gfxuffer[0])
  1293.         LockBuffer ImageBuffer(gfxuffer[0])
  1294.  
  1295.         For y=0 To 256
  1296.         For x=0 To 256
  1297.                 a = ReadPixelFast(x,y)
  1298.                 b = lightrgb(a,100+y/2.56)
  1299.                 WritePixelFast(x,y,b)
  1300.         Next:Next
  1301.  
  1302.  
  1303.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1304.         SetBuffer BackBuffer()
  1305. End Function
  1306.  
  1307.  
  1308. Function lightdown()
  1309.         SetBuffer ImageBuffer(gfxuffer[0])
  1310.         LockBuffer ImageBuffer(gfxuffer[0])
  1311.  
  1312.         For y=0 To 256
  1313.         For x=0 To 256
  1314.                 a = ReadPixelFast(x,y)
  1315.                 b = lightrgb(a,256-y/2.56)
  1316.                 WritePixelFast(x,y,b)
  1317.         Next:Next
  1318.  
  1319.  
  1320.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1321.         SetBuffer BackBuffer()
  1322. End Function
  1323.  
  1324. Function shadeup()
  1325.         SetBuffer ImageBuffer(gfxuffer[0])
  1326.         LockBuffer ImageBuffer(gfxuffer[0])
  1327.  
  1328.         For y=0 To 256
  1329.         For x=0 To 256
  1330.                 a = ReadPixelFast(x,y)
  1331.                 b = lightrgb(a,100-y/2.56)
  1332.                 WritePixelFast(x,y,b)
  1333.         Next:Next
  1334.  
  1335.  
  1336.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1337.         SetBuffer BackBuffer()
  1338. End Function
  1339.  
  1340.  
  1341. Function shadedown()
  1342.         SetBuffer ImageBuffer(gfxuffer[0])
  1343.         LockBuffer ImageBuffer(gfxuffer[0])
  1344.  
  1345.         For y=0 To 256
  1346.         For x=0 To 256
  1347.                 a = ReadPixelFast(x,y)
  1348.                 b = lightrgb(a,y/2.56)
  1349.                 WritePixelFast(x,y,b)
  1350.         Next:Next
  1351.  
  1352.  
  1353.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1354.         SetBuffer BackBuffer()
  1355. End Function
  1356.  
  1357. Function edgemess()
  1358.         SetBuffer ImageBuffer(gfxuffer[0])
  1359.         LockBuffer ImageBuffer(gfxuffer[0])
  1360.         Local iw = ImageWidth(gfxuffer[0])
  1361.         Local ih = ImageHeight(gfxuffer[0])
  1362.         For i=0 To 3
  1363.        
  1364.         For x1 = 1 To 256-1
  1365.         For y1 = 1 To 256-1
  1366.         If Rand(1,2) = 1
  1367.         a = ReadPixelFast(x1+1,y1)
  1368.         b = ReadPixelFast(x1,y1)
  1369.         If rgbisblack(b) = True And rgbisblack(a) = False Then
  1370.                 WritePixelFast(x1,y1,lightrgb(a,99))
  1371.         End If
  1372.         End If
  1373.         Next:Next
  1374.        
  1375.         ;
  1376.         For x1 = 256-1 To 1 Step -1
  1377.         For y1 = 1 To 256-1
  1378.         If Rand(1,2) = 1
  1379.         a = ReadPixelFast(x1-1,y1)
  1380.         b = ReadPixelFast(x1,y1)
  1381.         If rgbisblack(b) = True And rgbisblack(a) = False Then
  1382.                 WritePixelFast(x1,y1,lightrgb(a,99))
  1383.         End If
  1384.         End If
  1385.         Next:Next
  1386.        
  1387.         For x1 = 1 To 256-1
  1388.         For y1 = 256-1 To 1 Step -1
  1389.         If Rand(1,2) = 1
  1390.         a = ReadPixelFast(x1,y1-1)
  1391.         b = ReadPixelFast(x1,y1)
  1392.         If rgbisblack(b) = True And rgbisblack(a) = False Then
  1393.                 WritePixelFast(x1,y1,lightrgb(a,99))
  1394.         End If
  1395.         End If
  1396.         Next:Next
  1397.  
  1398.         For x1 = 1 To 256-1      
  1399.         For y1 = 1 To 256-1
  1400.         If Rand(1,2) = 1
  1401.                 a = ReadPixelFast(x1,y1+1)
  1402.                 b = ReadPixelFast(x1,y1)
  1403.                 If rgbisblack(b) = True And rgbisblack(a) = False Then
  1404.                         WritePixelFast(x1,y1,lightrgb(a,99))
  1405.                 End If
  1406.         End If
  1407.         Next:Next
  1408.  
  1409. Next
  1410.  
  1411.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1412.         SetBuffer BackBuffer()
  1413. End Function
  1414.  
  1415. Function addedge(in)
  1416.         SetBuffer ImageBuffer(gfxuffer[0])
  1417.         LockBuffer ImageBuffer(gfxuffer[0])
  1418.         Local iw = ImageWidth(gfxuffer[0])
  1419.         Local ih = ImageHeight(gfxuffer[0])
  1420.  
  1421.         ;
  1422.         For i=0 To 3
  1423.        
  1424.         For x1 = 0 To 256-1
  1425.         For y1 = 0 To 256-1
  1426.         a = ReadPixelFast(x1+1,y1)
  1427.         b = ReadPixelFast(x1,y1)
  1428.         If rgbisblack(b) = True And rgbisblack(a) = False Then
  1429.                 WritePixelFast(x1,y1,lightrgb(a,In))
  1430.         End If
  1431.         Next:Next
  1432.        
  1433.         ;
  1434.         For x1 = 256-1 To 1 Step -1
  1435.         For y1 = 1 To 256-1
  1436.         a = ReadPixelFast(x1-1,y1)
  1437.         b = ReadPixelFast(x1,y1)
  1438.         If rgbisblack(b) = True And rgbisblack(a) = False Then
  1439.                 WritePixelFast(x1,y1,lightrgb(a,In))
  1440.         End If
  1441.         Next:Next
  1442.        
  1443.         For x1 = 1 To 256-1
  1444.         For y1 = 256-1 To 1 Step -1
  1445.         a = ReadPixelFast(x1,y1-1)
  1446.         b = ReadPixelFast(x1,y1)
  1447.         If rgbisblack(b) = True And rgbisblack(a) = False Then
  1448.                 WritePixelFast(x1,y1,lightrgb(a,In))
  1449.         End If
  1450.         Next:Next
  1451.  
  1452.         For x1 = 1 To 256-1      
  1453.         For y1 = 0 To 256-1
  1454.         a = ReadPixelFast(x1,y1+1)
  1455.         b = ReadPixelFast(x1,y1)
  1456.         If rgbisblack(b) = True And rgbisblack(a) = False Then
  1457.                 WritePixelFast(x1,y1,lightrgb(a,In))
  1458.         End If
  1459.         Next:Next
  1460.                
  1461.        
  1462.         Next
  1463.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1464.         SetBuffer BackBuffer()
  1465. End Function
  1466.  
  1467. Function spotnoise(rvl,rvh)    
  1468.         SetBuffer ImageBuffer(gfxuffer[0])
  1469.         LockBuffer ImageBuffer(gfxuffer[0])
  1470.         Local iw = ImageWidth(gfxuffer[0])
  1471.         Local ih = ImageHeight(gfxuffer[0])
  1472.         ;
  1473.         ;
  1474.         For iii=0 To 1
  1475.         xz1 = Rand(0,256-82)
  1476.         xy1 = Rand(0,256-82)
  1477.         For ii=0 To 2
  1478.         xz = xz1 + Rand(0,20)
  1479.         yz = xy1 + Rand(0,20)
  1480.         For i=0 To 34
  1481.         x2 = xz+Rand(0,40)
  1482.         y2 = yz+Rand(0,40)
  1483.         Select Rand(1,12)
  1484.         Case 1
  1485.         z = Rand(rvl/1.3,rvh/1.3)
  1486.         r = z
  1487.         g = z
  1488.         b = z
  1489.         Default
  1490.         z = Rand(rvl,rvh)
  1491.         r = 0
  1492.         g = 0
  1493.         b = 0
  1494.  
  1495.         End Select
  1496.  
  1497.         If Rand(1,4) = 1
  1498.         For x1=0 To 4
  1499.         For y1=0 To 4
  1500.                 If Rand(1,2) = 1 Then
  1501.                         If RectsOverlap(x1+x2,y1+y2,1,1,0,0,ImageWidth(gfxuffer[0]),ImageHeight(gfxuffer[0])) = True Then
  1502.                                 WritePixelFast x1+x2,y1+y2,getrgb(r,g,b)
  1503.                         End If
  1504.                 End If
  1505.         Next:Next
  1506.         End If 
  1507.         Next
  1508.         Next
  1509.         Next
  1510.         ;
  1511.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1512.         SetBuffer BackBuffer()
  1513.        
  1514. End Function
  1515.  
  1516. Function dripfilter2(in)       
  1517.         SetBuffer ImageBuffer(gfxuffer[0])
  1518.         LockBuffer ImageBuffer(gfxuffer[0])
  1519.         Local iw = ImageWidth(gfxuffer[0])
  1520.         Local ih = ImageHeight(gfxuffer[0])
  1521.         ;
  1522.         ;
  1523.         For i=0 To 10024
  1524.         x2 = Rand(0,256)
  1525.         y2 = Rand(0,256)
  1526.         If Rand(1,4) = 1
  1527.         For x1=0 To 4
  1528.         For y1=0 To 4          
  1529.                 If RectsOverlap(x1+x2,y1+y2,1,1,0,0,256,256) = True Then
  1530.                         a = ReadPixelFast(x1+x2,y1+y2)
  1531.                         WritePixelFast x1+x2,y1+y2,greybrightpixel(a)
  1532.                 End If
  1533.                 Next:Next
  1534.         End If 
  1535.         Next
  1536.         ;
  1537.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1538.         SetBuffer BackBuffer()
  1539.        
  1540. End Function
  1541.  
  1542.  
  1543.  
  1544. Function dripfilter(in)
  1545.         SetBuffer ImageBuffer(gfxuffer[0])
  1546.         LockBuffer ImageBuffer(gfxuffer[0])
  1547.         Local iw = ImageWidth(gfxuffer[0])
  1548.         Local ih = ImageHeight(gfxuffer[0])
  1549.         ;
  1550.         ;
  1551.         For i=0 To 10024
  1552.         x2 = Rand(0,256)
  1553.         y2 = Rand(0,256)
  1554.         Select Rand(1,12)
  1555.         Case 1
  1556.         r = Rand(150,200)
  1557.         g = Rand(40,80)
  1558.         b = Rand(40,80)
  1559.         Default
  1560.         r = Rand(150,200)
  1561.         g = 0
  1562.         b = 0
  1563.  
  1564.         End Select
  1565.  
  1566.         If Rand(1,4) = 1
  1567.         For x1=0 To 4
  1568.         For y1=0 To 4
  1569.                 If Rand(1,2) = 1 Then
  1570.                         If RectsOverlap(x1+x2,y1+y2,1,1,0,0,256,256) = True Then
  1571.                                 a = ReadPixelFast(x1+x2,y1+y2)
  1572.                                 WritePixelFast x1+x2,y1+y2,lightrgb(a,in)
  1573.                         End If
  1574.                 End If
  1575.         Next:Next
  1576.         End If 
  1577.         Next
  1578.         ;
  1579.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1580.         SetBuffer BackBuffer()
  1581.        
  1582. End Function
  1583.  
  1584.  
  1585.  
  1586. Function dripnoiseint(val)     
  1587.         SetBuffer ImageBuffer(gfxuffer[0])
  1588.         LockBuffer ImageBuffer(gfxuffer[0])
  1589.         Local iw = ImageWidth(gfxuffer[0])
  1590.         Local ih = ImageHeight(gfxuffer[0])
  1591.         ;
  1592.         ;
  1593.         For i=0 To (100000/100*val)
  1594.         x2 = Rand(0,256)
  1595.         y2 = Rand(0,256)
  1596.         Select Rand(1,12)
  1597.         Case 1
  1598.         z = Rand(150,200)
  1599.         r = z+Rand(1,50)
  1600.         g = z+Rand(1,50)
  1601.         b = z+Rand(1,50)
  1602.         Default
  1603.         z = Rand(150,200)
  1604.         r = z+Rand(1,50)
  1605.         g = z+Rand(1,50)
  1606.         b = z+Rand(1,50)
  1607.  
  1608.         End Select
  1609.  
  1610.         If Rand(1,4) = 1
  1611.         For x1=0 To 4
  1612.         For y1=0 To 4
  1613.                 If Rand(1,2) = 1 Then
  1614.                         If RectsOverlap(x1+x2,y1+y2,1,1,0,0,ImageWidth(gfxuffer[0]),ImageHeight(gfxuffer[0])) = True Then
  1615.                                 WritePixelFast x1+x2,y1+y2,getrgb(r,g,b)
  1616.                         End If
  1617.                 End If
  1618.         Next:Next
  1619.         End If 
  1620.         Next
  1621.         ;
  1622.         If val = 100 Then
  1623.                 For x=0 To 256
  1624.                 For y=0 To 256
  1625.                 a = ReadPixelFast(x,y)
  1626.                 If getr(a) < 15 And getg(a) < 15 And getb(a) < 15 Then
  1627.                 WritePixelFast(x,y,getrgb(240,240,240))
  1628.                 End If
  1629.                 Next:Next
  1630.                
  1631.         End If
  1632.         ;
  1633.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1634.         SetBuffer BackBuffer()
  1635.        
  1636. End Function
  1637.  
  1638. Function greyfilter(In)
  1639.         SetBuffer ImageBuffer(gfxuffer[0])
  1640.         LockBuffer ImageBuffer(gfxuffer[0])
  1641.         For x=0 To 256
  1642.         For y=0 To 256
  1643.                 a = ReadPixelFast(x,y)
  1644.                 b = greypixel(a)
  1645.                 WritePixelFast x,y,lightrgb(b,in)
  1646.         Next:Next
  1647.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1648.         SetBuffer BackBuffer()
  1649. End Function
  1650.  
  1651. Function blackout()
  1652.         SetBuffer ImageBuffer(gfxuffer[0])
  1653.         LockBuffer ImageBuffer(gfxuffer[0])
  1654.         Local iw = ImageWidth(gfxuffer[0])
  1655.         Local ih = ImageHeight(gfxuffer[0])
  1656.  
  1657.         For x=0 To 256
  1658.         For y=0 To 256
  1659.         a = ReadPixelFast(x,y)
  1660.         If getr(a) < 10 And getg(a)<10 And getb(a)<10 Then
  1661.         WritePixelFast(x,y,getrgb(255,255,255))
  1662.         Else
  1663. ;       WritePixelFast(x,y,getrgb(10,10,10))
  1664.         End If
  1665.        
  1666.         Next:Next
  1667.  
  1668.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1669.         SetBuffer BackBuffer()
  1670.  
  1671. End Function
  1672.  
  1673. Function dripnoise()   
  1674.         SetBuffer ImageBuffer(gfxuffer[0])
  1675.         LockBuffer ImageBuffer(gfxuffer[0])
  1676.         Local iw = ImageWidth(gfxuffer[0])
  1677.         Local ih = ImageHeight(gfxuffer[0])
  1678.         ;
  1679.         ;
  1680.         For i=0 To 10024
  1681.         x2 = Rand(0,256)
  1682.         y2 = Rand(0,256)
  1683.         Select Rand(1,12)
  1684.         Case 1
  1685.         z = Rand(150,200)
  1686.         r = z+Rand(1,50)
  1687.         g = z+Rand(1,50)
  1688.         b = z+Rand(1,50)
  1689.         Default
  1690.         z = Rand(150,200)
  1691.         r = z+Rand(1,50)
  1692.         g = z+Rand(1,50)
  1693.         b = z+Rand(1,50)
  1694.  
  1695.         End Select
  1696.  
  1697.         If Rand(1,4) = 1
  1698.         For x1=0 To 4
  1699.         For y1=0 To 4
  1700.                 If Rand(1,2) = 1 Then
  1701.                         If RectsOverlap(x1+x2,y1+y2,1,1,0,0,ImageWidth(gfxuffer[0]),ImageHeight(gfxuffer[0])) = True Then
  1702.                                 WritePixelFast x1+x2,y1+y2,getrgb(r,g,b)
  1703.                         End If
  1704.                 End If
  1705.         Next:Next
  1706.         End If 
  1707.         Next
  1708.         ;
  1709.         UnlockBuffer ImageBuffer(gfxuffer[0])
  1710.         SetBuffer BackBuffer()
  1711.        
  1712. End Function
  1713.  
  1714.  
  1715.  
  1716. Function inigfx()
  1717.         gfxuffer[0] = CreateImage(640,480)
  1718.         gfxuffer[1] = CreateImage(640,480)
  1719.         gfxuffer[2] = CreateImage(640,480)
  1720.         gfxuffer[3] = CreateImage(640,480)
  1721. End Function
  1722.  
  1723. Function GetRGB(r,g,b)
  1724.         Return b Or (g Shl 8) Or (r Shl 16)
  1725. End Function
  1726.  
  1727. Function GetR(rgb)
  1728.     Return rgb Shr 16 And %11111111
  1729. End Function
  1730.  
  1731. Function GetG(rgb)
  1732.         Return rgb Shr 8 And %11111111
  1733. End Function
  1734.  
  1735. Function GetB(rgb)
  1736.         Return rgb And %11111111
  1737. End Function
  1738.  
  1739. Function rgbisblack(rgb)
  1740.         If getr(rgb) = 0 And getg(rgb) = 0 And getb(rgb) = 0 Then Return True
  1741. End Function
  1742.  
  1743. Function lightrgb(rgb,perc#)
  1744.        
  1745.         Local r# = getr(rgb)
  1746.         Local g# = getg(rgb)
  1747.         Local b# = getb(rgb)
  1748.        
  1749.         Local r1# = r / 100 * perc
  1750.         Local g1# = g / 100 * perc
  1751.         Local b1# = b / 100 * perc
  1752.        
  1753.         If r1 > 255 Then r1 = 255
  1754.         If g1 > 255 Then g1 = 255
  1755.         If b1 > 255 Then b1 = 255
  1756.        
  1757.         If r1 < 0 Then r1 = 0
  1758.         If g1 < 0 Then g1 = 0
  1759.         If b1 < 0 Then b1 = 0
  1760.        
  1761.         Return getrgb(r1,g1,b1)
  1762.                        
  1763. End Function
  1764.  
  1765.  
  1766.  
  1767. Function greybrightpixel(rgb)
  1768.         ;Grayscale
  1769.         ;By pexe
  1770.         GS_pix = rgb
  1771.  
  1772.         GS_r% = (GS_pix Shr 16) And $ff ;
  1773.         GS_g% = (GS_pix Shr 8) And $ff  ;  Transform values
  1774.         GS_b% = GS_pix And $ff          ;/
  1775.  
  1776.         GS_v% = GS_r+GS_g+GS_b
  1777.         GS_v% = GS_v/3
  1778.  
  1779.         GS_pix=(GS_v Or (GS_v Shl 8) Or (GS_v Shl 16) Or ($ff000000)) ;Put values back
  1780.         a# = getr(gs_pix)
  1781.         b# = getg(gs_pix)
  1782.         c# = getb(gs_pix)      
  1783.         a=a*1.5
  1784.         b=b*1.2
  1785.         If a>255 Then a=255
  1786.         If b>255 Then b=255
  1787.         gs_pix = getrgb(a,b,c)
  1788.         Return GS_pix
  1789. End Function
  1790. Function greypixel(rgb)
  1791.         ;Grayscale
  1792.         ;By pexe
  1793.         GS_pix = rgb
  1794.  
  1795.         GS_r% = (GS_pix Shr 16) And $ff ;
  1796.         GS_g% = (GS_pix Shr 8) And $ff  ;  Transform values
  1797.         GS_b% = GS_pix And $ff          ;/
  1798.  
  1799.         GS_v% = GS_r+GS_g+GS_b
  1800.         GS_v% = GS_v/3
  1801.  
  1802.         GS_pix=(GS_v Or (GS_v Shl 8) Or (GS_v Shl 16) Or ($ff000000)) ;Put values back
  1803.         Return GS_pix
  1804. End Function


Comments : none...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal