Return to Answer

cut-off 22 chars

edited Feb 20, 2017 at 16:16

1.7k
10
12

Rebol/View, 284284 266 bytes

rebol[]p: 3x9 d:[3 3]view layout[b: box blackblue 99x99 effect[draw[fill-pen white circleeffect[draw[circle p 2]]rate :0.01 feel[engage: func[f a e][if a = 'time[case/all[p/x < 2[d/1: abs d/1]p/y < 2[d/2: abs d/2]p/x >=> 99[d98[d/1: negate d/1]p/y >=> 99[d98[d/2: negate d/2]]p/x: p/x + d/1 p/y: p/y + d/2 show b]]]]

Ungolfed:

rebol [] p: 3x9 ;; starting position d: [3 3] ;; direction view layout [ b: box blackblue 99x99 effect [ draw [ fill-pen white circle p 2 ] ] rate :0.01 feel [ engage: func [f a e] [ if a = 'time [ case/all [ p/x < 2  [d/1: abs d/1]  p/y < 2  [d/2: abs d/2] p/x >=> 9998 [d/1: negate d/1] p/y >=> 9998 [d/2: negate d/2] ] p/x: p/x + d/1 p/y: p/y + d/2 show b ] ] ] ]

Rebol/View, 284 bytes

rebol[]p: 3x9 d:[3 3]view layout[b: box black 99x99 effect[draw[fill-pen white circle p 2]]rate :0.01 feel[engage: func[f a e][if a = 'time[case/all[p/x < 2[d/1: abs d/1]p/y < 2[d/2: abs d/2]p/x >= 99[d/1: negate d/1]p/y >= 99[d/2: negate d/2]]p/x: p/x + d/1 p/y: p/y + d/2 show b]]]]

Ungolfed:

rebol [] p: 3x9 ;; starting position d: [3 3] ;; direction view layout [ b: box black 99x99 effect [ draw [ fill-pen white circle p 2 ] ] rate :0.01 feel [ engage: func [f a e] [ if a = 'time [ case/all [ p/x < 2  [d/1: abs d/1]  p/y < 2  [d/2: abs d/2] p/x >= 99 [d/1: negate d/1] p/y >= 99 [d/2: negate d/2] ] p/x: p/x + d/1 p/y: p/y + d/2 show b ] ] ] ]

Rebol/View, 284 266 bytes

rebol[]p: 3x9 d:[3 3]view layout[b: box blue 99x99 effect[draw[circle p 2]]rate :0.01 feel[engage: func[f a e][if a = 'time[case/all[p/x < 2[d/1: abs d/1]p/y < 2[d/2: abs d/2]p/x > 98[d/1: negate d/1]p/y > 98[d/2: negate d/2]]p/x: p/x + d/1 p/y: p/y + d/2 show b]]]]

Ungolfed:

rebol [] p: 3x9 ;; starting position d: [3 3] ;; direction view layout [ b: box blue 99x99 effect [ draw [ circle p 2 ] ] rate :0.01 feel [ engage: func [f a e] [ if a = 'time [ case/all [ p/x < 2 [d/1: abs d/1] p/y < 2 [d/2: abs d/2] p/x > 98 [d/1: negate d/1] p/y > 98 [d/2: negate d/2] ] p/x: p/x + d/1 p/y: p/y + d/2 show b ] ] ] ]

Source Link

answered Feb 19, 2017 at 17:22

draegtun

1.7k
10
12

Rebol/View, 284 bytes

rebol[]p: 3x9 d:[3 3]view layout[b: box black 99x99 effect[draw[fill-pen white circle p 2]]rate :0.01 feel[engage: func[f a e][if a = 'time[case/all[p/x < 2[d/1: abs d/1]p/y < 2[d/2: abs d/2]p/x >= 99[d/1: negate d/1]p/y >= 99[d/2: negate d/2]]p/x: p/x + d/1 p/y: p/y + d/2 show b]]]]

Ungolfed:

rebol [] p: 3x9 ;; starting position d: [3 3] ;; direction view layout [ b: box black 99x99 effect [ draw [ fill-pen white circle p 2 ] ] rate :0.01 feel [ engage: func [f a e] [ if a = 'time [ case/all [ p/x < 2 [d/1: abs d/1] p/y < 2 [d/2: abs d/2] p/x >= 99 [d/1: negate d/1] p/y >= 99 [d/2: negate d/2] ] p/x: p/x + d/1 p/y: p/y + d/2 show b ] ] ] ]