####
#
# Chicken Politics by Paul Cobbaut (paul@cobbaut.be)
# 20060219
# Download this for free from http://cobbaut.be/stok.brl.txt
#
####

####
# Name and open the file that will contain all our project data
# opendb dbstok.g 

# Title the database
title Kippenstok, cursus hout 2005/2006

# We use metric millimeters
units mm

# Erase leftovers from the previous run.
# Kill * would be nice, but doesn't work :(
kill L.bev R.bev
kill LG.bev RG.bev LM.bev RM.bev LK.bev RK.bev
kill stokG.bev stokM.bev stokK.bev
# End this killing! Now we start constructing...something.
#####

#####
# Creating the bottomleft support beam
# We start with a full beam(arb8), measuring 50 wide(X) by 50 high(Z) and 800 long(Y)
in L.s arb8 0 0 0 0 800 0 50 800 0 50 0 0 0 0 50 0 800 50 50 800 50 50 0 50
# We create three little parts (the halfwood holes in the beam)
in Lgat1.s arb8 25 100 0 50 100 0 50 150 0 25 150 0 25 100 50 50 100 50 50 150 50 25 150 50
in Lgat2.s arb8 25 400 0 50 400 0 50 450 0 25 450 0 25 400 50 50 400 50 50 450 50 25 450 50
in Lgat3.s arb8 25 700 0 50 700 0 50 750 0 25 750 0 25 700 50 50 700 50 50 750 50 25 750 50
# We cut the three holes out of the full beam
r L.r u L.s - Lgat1.s - Lgat2.s - Lgat3.s
# We create a bev of this, so front/left/top-view look more like a technical drawing
bev L.bev L.r
# We select our beam...
sed L.bev
# ...and move it to the desired location
tra 350 0 50
# and deselect
accept
# We don't need these shapes anymore, so we remove them.
kill L.r L.s Lgat1.s Lgat2.s Lgat3.s
# We now have a support beam (L.bev)
#####

#####
# Create the bottomright support
in R.s arb8 0 0 0 0 800 0 50 800 0 50 0 0 0 0 50 0 800 50 50 800 50 50 0 50
in Rgat1.s arb8 0 100 0 25 100 0 25 150 0 0 150 0 0 100 50 25 100 50 25 150 50 0 150 50
in Rgat2.s arb8 0 400 0 25 400 0 25 450 0 0 450 0 0 400 50 25 400 50 25 450 50 0 450 50
in Rgat3.s arb8 0 700 0 25 700 0 25 750 0 0 750 0 0 700 50 25 700 50 25 750 50 0 750 50
r R.r u R.s - Rgat1.s - Rgat2.s - Rgat3.s
bev R.bev R.r
sed R.bev
tra -400 0 50 
accept
kill R.r R.s Rgat1.s Rgat2.s Rgat3.s
# We now have the second support beam (R.bev)
#####

#####
# Create all the poles (L=left,R=right,G=big,M=middle,K=small)
# They all measure 50(X) by 50(Z)
# Their height is 400(LG & RG), 250(LM and RM) or 150(LK & RK)
in LG.s arb8 0 0 0 0 50 0 50 50 0 50 0 0 0 0 400 0 50 400 50 50 400 50 0 400
in RG.s arb8 0 0 0 0 50 0 50 50 0 50 0 0 0 0 400 0 50 400 50 50 400 50 0 400
in LM.s arb8 0 0 0 0 50 0 50 50 0 50 0 0 0 0 250 0 50 250 50 50 250 50 0 250
in RM.s arb8 0 0 0 0 50 0 50 50 0 50 0 0 0 0 250 0 50 250 50 50 250 50 0 250
in LK.s arb8 0 0 0 0 50 0 50 50 0 50 0 0 0 0 150 0 50 150 50 50 150 50 0 150
in RK.s arb8 0 0 0 0 50 0 50 50 0 50 0 0 0 0 150 0 50 150 50 50 150 50 0 150

# halfwood holes (same position for all poles)
in Lgat.s arb8 0 0 50 25 0 50 25 50 50 0 50 50 0 0 100 25 0 100 25 50 100 0 50 100
in Rgat.s arb8 25 0 50 50 0 50 50 50 50 25 50 50 25 0 100 50 0 100 50 50 100 25 50 100

# pins (position relative to the height of the poles)
# 400-40=360 250-40=210 150-40=110
in penK.s rcc 0 25 110 30 0 0 10
in penM.s rcc 0 25 210 30 0 0 10
in penG.s rcc 0 25 360 30 0 0 10

# substract the halfwood hole and the correct pin from each pole
r LK.r u LK.s - Lgat.s - penK.s
r LM.r u LM.s - Lgat.s - penM.s
r LG.r u LG.s - Lgat.s - penG.s
bev LG.bev LG.r
bev LM.bev LM.r
bev LK.bev LK.r

# now we move the three pins so we can use 'm again
sed penK.s
tra 20 0 0
accept

sed penM.s
tra 20 0 0
accept

sed penG.s
tra 20 0 0
accept

# substract the halfwood hole and the correct pin from each pole
r RK.r u RK.s - Rgat.s - penK.s
r RM.r u RM.s - Rgat.s - penM.s
r RG.r u RG.s - Rgat.s - penG.s
bev RG.bev RG.r
bev RM.bev RM.r
bev RK.bev RK.r

# move the six poles to their correct position
sed LG.bev
tra 350 100 0
accept
sed LM.bev
tra 350 400 0
accept
sed LK.bev
tra 350 700 0
accept
sed RG.bev
tra -400 100 0
accept
sed RM.bev
tra -400 400 0
accept
sed RK.bev
tra -400 700 0
accept

kill LG.s RG.s LM.s RM.s LK.s RK.s Lgat.s Rgat.s penK.s penM.s penG.s
kill LG.r RG.r LM.r RM.r LK.r RK.r
# We now have six poles (LG.bev LM.bev LK.bev RG.bev RM.bev RK.bev)
#####

#####
# create the three sticks
in stok.s arb8 0 0 0 700 0 0 700 25 0 0 25 0 0 0 50 700 0 50 700 25 50 0 25 50
in stokpen.s rcc 700 12 25 30 0 0 10
in stokpen2.s rcc -30 12 25 30 0 0 10

r stok.r u stok.s u stokpen.s u stokpen2.s
bev stokG.bev stok.r

# copy stokG to stokM and stokK
cp stokG.bev stokM.bev
cp stokG.bev stokK.bev

# move the sticks to their location
# X is the same for all three
# Y is 100 400 and 700, each + 12 (half of 25 ;-)
# Z is 400, 250 and 150, each - 65
sed stokG.bev
tra -350 112 335
accept

sed stokM.bev
tra -350 412 185
accept

sed stokK.bev
tra -350 712 85
accept

kill stok.s stokpen.s stokpen2.s stok.r
# We now have three sticks
#####

# make the bottom support beams green
comb bodem.c u L.bev u R.bev
mater bodem.c 0 0 255 0 0

# make the six poles red
comb palen.c u LG.bev u RG.bev u LM.bev u RM.bev u LK.bev u RK.bev
mater palen.c 0 255 0 0 0

# make the three sticks blue
comb stokken.c u stokG.bev u stokM.bev u stokK.bev
mater stokken.c 0 0 0 255 0

# show the colored stuff
B bodem.c palen.c stokken.c

# make sure we can see everything on the screen
size 1500
center 0 400 180

# when this script runs, you can use the following keys to change the view:
# b f r l t 3 4