Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Bugfixes to my reb

From: bolek::pretorian::cz at: 8-Mar-2002 9:17

Hello, I've found some time and fixed that stupid load bugs in: Magion Gun (shoot 'em up) Iconbay (toolbar system) Slider (unfinished gradient slider style) There still may be other bugs and I don't know if things like Sintezar or Universe works but at least something is done. Bye, reBolek (and always remember REBOL/Demo Compo 2002 blah blah blah so here is another small piece called "Black Star") rebol [Title: "REBOL/Demo Competition"] rd: [1x1 0x1 -1x1 -1x0 -1x-1 0x-1 1x-1 1x0] cl: [255.127.127 255.255.127 127.255.127 127.255.255 127.127.255 255.127.255] view layout [ b: box 151x151 with [ rate: 0 edge: none image: make image! 151x151 feel: make feel [ engage: func [f a e][ switch a [ time [ f/effect: compose/deep [ draw [pen 127.127.127 circle 76x76 11] (xx: to-image f) crop 5x5 140x140 fit contrast (random 4) ;(5 - random 3) blur gradcol (ss: first rd rd: next rd if tail? rd [rd: head rd] ss) (cs: first cl cl: next cl if tail? cl [cl: head cl] cs) 120.120.120 luma (-40 + random 7) ] f/image: to-image f show f ] ] ] ] ] ] --- Odchoz=ED zpr=E1va neobsahuje viry. Zkontrolov=E1no antivirov=FDm syst=E9mem AVG ( Verze: 6.0.231 / Virov=E1 b=E1ze: 112 - datum vyd=E1n=ED: 12.2.2001