REBOL [
    Title: "Reflect all Directions"
    File: %reflect-all.r
    Date: 20-May-2000
    Purpose: {Displays all reflection directions.}
    Category: [view VID 2]
]


pic: %bay.jpg
spec: [styles refl-style]
refl-style: stylize [refl: box with [make font [color: red size: 24]]]
vectors: [0x0 0x1 0x-1 | 1x0 1x1 1x-1 | -1x0 -1x1 -1x-1]

foreach v vectors [
    append spec either word? v ['return][
        compose/deep [refl pic form (v) effect [reflect (v)]]
    ]
]


view layout spec