Исправление loz, (текущая версия) :
Определенную сложность никуда не деть - сложность предметной области остается. Если нужен богатый инструментарий на котором можно сделать все - он будет требовать изучения.
Суть здесь в другом - в том, насколько просто можно сделать довольно сложные вещи: http://sendvid.com/nd23jw2o
REBOL [
Title: "Bubbles"
Author: "Gabriele Santilli"
Version: 1.0.1
Needs: [view 1.3.1]
]
bubbles: []
d: [pen 80.80.255.175]
random/seed now
rand: func [v] [random/secure v]
rnd-pair: does [as-pair rand 400 rand 400]
move-bubble: func [bubble] [
bubble/1/x: bubble/1/x - 3 + rand 5
bubble/1/y: bubble/1/y - 2 - rand 6
if bubble/1/y < 24 [bubble/1/y: 428]
bubble/-10: bubble/1 - (bubble/2 / 3)
]
loop 100 [
insert insert bbl: insert tail d [
fill-pen radial 150x150 30 150 0 1 1 128.128.255.105 90.90.255.165 80.80.255.175
circle
] rnd-pair 4 + rand 20
bbl/-8: bbl/2
bbl/-9: bbl/2 * 0.2
bbl/-10: bbl/1 - (bbl/2 / 3)
insert/only tail bubbles bbl
]
view/new center-face layout/tight [b: box 400x400 effect [gradient 0x-1 0.0.100 10.10.255 draw d]]
b/feel/engage: none
check-close: does [wait 0 if empty? system/view/screen-face/pane [quit]]
forever [
foreach bubble bubbles [move-bubble bubble]
show b
check-close
]
Представь сколько кода, переменных и структур понадобится для этого на стандартных Qt/Java/JS (Дополнительные 100 баллов можно заработать поняв что происходит внутри цикла ;))
Исходная версия loz, :
Определенную сложность никуда не деть - сложность предметной области остается. Если нужен богатый инструментарий на котором можно сделать все - он будет требовать изучения.
Суть здесь в другом - в том, насколько просто можно сделать довольно сложные вещи: http://sendvid.com/nd23jw2o
REBOL [
Title: "Bubbles"
Author: "Gabriele Santilli"
Version: 1.0.1
Needs: [view 1.3.1]
]
bubbles: []
d: [pen 80.80.255.175]
random/seed now
rand: func [v] [random/secure v]
rnd-pair: does [as-pair rand 400 rand 400]
move-bubble: func [bubble] [
bubble/1/x: bubble/1/x - 3 + rand 5
bubble/1/y: bubble/1/y - 2 - rand 6
if bubble/1/y < 24 [bubble/1/y: 428]
bubble/-10: bubble/1 - (bubble/2 / 3)
]
loop 100 [
insert insert bbl: insert tail d [
fill-pen radial 150x150 30 150 0 1 1 128.128.255.105 90.90.255.165 80.80.255.175
circle
] rnd-pair 4 + rand 20
bbl/-8: bbl/2
bbl/-9: bbl/2 * 0.2
bbl/-10: bbl/1 - (bbl/2 / 3)
insert/only tail bubbles bbl
]
view/new center-face layout/tight [b: box 400x400 effect [gradient 0x-1 0.0.100 10.10.255 draw d]]
b/feel/engage: none
check-close: does [wait 0 if empty? system/view/screen-face/pane [quit]]
forever [
foreach bubble bubbles [move-bubble bubble]
show b
check-close
]
Представь сколько кода, переменных и структур понадобится для этого на стандартных Qt/Java/JS