+PROG AQUA urs:1
KOPF
NORM DC EN NDC 199X-200X
BETO NR 1 ART C FC 30
ENDE

+PROG SOFIMSHC urs:2
SYST ART 3D GDIV 10000
STEU MESH 2
STEU HMIN WERT 0.5

SAR  1 MNR 1  NX 0 0 1 NRA 7 DRX 1 0 0 T 200 CB 0 CT 0
SARB OUT
SLNB R 20 XM 0 YM 0 ZM 0 NX 0 0 1

SAR NR prop GRP 10
SARB out
SLNB R 10 XM 0 YM 0 ZM 0 NX 0 0 1

ENDE


+PROG SOFIMSHA urs:3
SYST REST
GRUP 'big' BEZ "Quads in SBOX"
SBOX a1x 0 a1y 0 a1z 0 b1x 0 b1y 0 b1z 1 r 30

GRUP 'small' BEZ "Quads in SBOX"
SBOX a1x 0 a1y 0 a1z 0 b1x 0 b1y 0 b1z 1 r 10

GRUP 'A' $ big - small = ring
quad 'grp' 'big' ! select big disc
quad '!grp' 'small' ! subtract small disc

ENDE



+prog sofimsha urs:4
kopf
syst rest

QUAD PROP T 500
MOD QUAD GRP 'A'

ende


$+PROG SOFIMSHA urs:3
$SYST REST
$GRUP 'A'
$    SBOX A1X 0 A1Y 0 A1Z 0 B1X 0 B1Y 0 B1Z 1 R 21
$    SBOX A1X 0 A1Y 0 A1Z 0 B1X 0 B1Y 0 B1Z 1 R 15 OPT NOT
$ENDE



$+PROG SOFIMSHA urs:4
$SYST REST
$GRUP 'A1'
$    SBOX A1X 0 A1Y 0 A1Z 0 B1X 0 B1Y 0 B1Z 1 R 21
$GRUP 'A2'
$    SBOX A1X 0 A1Y 0 A1Z 0 B1X 0 B1Y 0 B1Z 1 R 15
$GRUP 'A'
$    QUAD 'GRP' 'A1'
$    QUAD '!GRP' 'A2'

ENDE