# torus_1
# written by John Dannenhoffer

# torus around x-axis (SolidBody)
TORUS     3  0  0  1  0  0  2  1/2
ASSERT    @itype  3

SELECT    FACE   @nbody 1     # iford=1 in red
ATTRIBUTE _color $red
SELECT    FACE   @nbody 2     # iford=2 in green
ATTRIBUTE _color $green
SELECT    FACE   @nbody 3     # iford=3 in blue
ATTRIBUTE _color $blue
SELECT    FACE   @nbody 4     # iford=4 in cyan
ATTRIBUTE _color $cyan

END