1 # This script creates a model described at
2 # http://www.caddd.org/2010/04/opencascade-challenge.html
6 pload MODELING VISUALIZATION
22 box h1 3 -1 2.5 2 9 0.5
37 # make box for inner cylindrical cut
42 blend bc4 bc3 1 bc3_20
43 blend bc5 bc4 1 bc3_23
44 blend bc6 bc5 1.99 bc3_21
45 blend bc7 bc6 1.99 bc3_22
47 # make inner cylindrical cut
49 revol r bc7_1 -1 0 6 1 0 0 100
52 # make outer cylindrical cut
59 trotate res 0 0 0 0 0 1 90
63 vshowfaceboundary res 1 255 255 255