[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 (http://www.grisoft.cz).
Verze: 6.0.231 / Virov=E1 b=E1ze: 112 - datum vyd=E1n=ED: 12.2.2001
