! Document name: Tavolo

!Tavolo

! Ultima versione: 17 marzo 1986

model surface

   if A<>0 then 1
   let A=1.5
1: if B<>0 then 2
   let B=.8
2: if C<>0 then 3
   let C=.7
3:!

addx A/8
addy B/8
brick A/16, B/16,C-.05
del 2

addx A-A/16*3
addy B/8
brick A/16, B/16,C-.05
del 2

addx A/8
addy B-B/16*3
brick A/16, B/16,C-.05
del 2

addx A-A/16*3
addy B-B/16*3
brick A/16, B/16,C-.05
del 2

addz C-.05
brick A, B, .05
del 1

model wire
addz C
addx A/8
addy B/8
rect A-A/4, B-B/4

del top
end