Subject: Forwarded mail...

From: Bernie Roehl <broehl>
Date: Tue, 24 Aug 93 10:38:32 EDT

According to David Boeren:
>From [email-masked] Tue Aug  3 23:30:22 1993
Date: Tue, 3 Aug 93 23:00:07 -0400
From: [email-masked] (David Boeren)
Message-Id: <[email-masked]>
Apparently-To: rend386@sunee
X-Status: 

# Dactyl Nightmare World
OBJECT dactyl_world
OBJECT base_board
OBJECT north_board
OBJECT south_board
OBJECT east_board
OBJECT west_board
OBJECT pillar
OBJECT temp_pillar
OBJECT ring
OBJECT temp_ring
OBJECT arch
OBJECT temp_arch
OBJECT stairs
OBJECT temp_stairs

# Some useful constants
define CHECKSIZE 70
define UPPER_OFFSET  500
define UPPER_NEGSET -500
define UPPER_LEVEL 150

# Create the base level
base_board = checker 5 5 CHECKSIZE CHECKSIZE 20 255 255 255 0 0 255
base_board = rotx base_board 90

# Create a prototype upper level board
north_board = checker 5 5 CHECKSIZE CHECKSIZE 20 255 255 255 255 0 0
north_board = rotx north_board 90

# Create a generic pillar (YELLOW)
pillar = revolution 15 8 4 0 [ 10 10 10 10 10 10 20 20 ]
pillar = paint pillar 255 255 0
pillar = trans pillar 0 62.5 0

# Duplicate to multiple pillars on base board
temp_pillar = trans pillar  100  0  100
base_board  = merge base_board temp_pillar
temp_pillar = trans pillar -100  0  100
base_board  = merge base_board temp_pillar
temp_pillar = trans pillar  100  0 -100
base_board  = merge base_board temp_pillar
temp_pillar = trans pillar -100  0 -100
base_board  = merge base_board temp_pillar

# Duplicate to multiple pillars on upper boards
temp_pillar  = trans pillar  100  0  -100
north_board  = merge north_board temp_pillar
temp_pillar  = trans pillar -100  0  -100
north_board  = merge north_board temp_pillar

# Create a generic arch
arch = block 250 50 30
arch = trans arch 0 140 0
arch = paint arch 255 0 100

# Duplicate to multiple arches on base board
temp_arch = trans arch 0 0 -110
base_board = merge base_board temp_arch
temp_arch = roty temp_arch 90
base_board = merge base_board temp_arch
temp_arch = roty temp_arch 90
base_board = merge base_board temp_arch
temp_arch = roty temp_arch 90
base_board = merge base_board temp_arch

# Dupicate to multiple arches on upper boards
temp_arch    = trans arch 0 0 -100
north_board  = merge north_board temp_arch

# Create a generic ring
ring = torus 32 16 5 3
ring = trans ring 0 55 0

# Duplicate prototype upper board into four copies
south_board = roty north_board 180
east_board  = roty north_board  90
west_board  = roty north_board -90

# Add rings to the boards
temp_ring   = paint ring 200 200 200
base_board  = merge base_board temp_ring
temp_ring   = paint ring 255 0 0
north_board = merge north_board temp_ring
temp_ring   = paint ring 0 255 0
south_board = merge south_board temp_ring
temp_ring   = paint ring 0 0 255
east_board  = merge east_board temp_ring
temp_ring   = paint ring 255 255 0
temp_ring   = roty temp_ring 90
west_board  = merge west_board temp_ring

# Trans the four upper boards into position
north_board = trans north_board 0  UPPER_LEVEL  UPPER_OFFSET
south_board = trans south_board 0  UPPER_LEVEL  UPPER_NEGSET
east_board  = trans east_board  UPPER_OFFSET  UPPER_LEVEL  0
west_board  = trans west_board  UPPER_NEGSET  UPPER_LEVEL  0

# Create a generic staircase
stairs = block 80 10 212
stairs = trans stairs 0 0 106
stairs = rotx stairs -45
stairs = trans stairs 0 10 175
stairs = paint stairs 128 128 128

# Duplicate into four staircases
base_board = merge base_board stairs
temp_stairs = roty stairs 90
base_board = merge base_board temp_stairs
temp_stairs = roty stairs 180
base_board = merge base_board temp_stairs
temp_stairs = roty stairs 270
base_board = merge base_board temp_stairs

# Merge and save
dactyl_world = copy base_board
dactyl_world = merge dactyl_world north_board
dactyl_world = merge dactyl_world south_board
dactyl_world = merge dactyl_world east_board
dactyl_world = merge dactyl_world west_board
savePLG dactyl_world dactwld.plg