26 lines
785 B
Text
26 lines
785 B
Text
# We need a database to hold the objects
|
|
opendb deathstar.g y
|
|
|
|
# We will be measuring in kilometers
|
|
units km
|
|
|
|
# Create a sphere of radius 60km centred at the origin
|
|
in sph1.s sph 0 0 0 60
|
|
|
|
# We will be subtracting an overlapping sphere with a radius of 40km
|
|
# The resultant hole will be smaller than this, because we only
|
|
# only catch the edge
|
|
in sph2.s sph 0 90 0 40
|
|
|
|
# Create a region named deathstar.r which consists of big minus small sphere
|
|
r deathstar.r u sph1.s - sph2.s
|
|
|
|
# We will use a plastic material texture with rgb colour 224,224,224
|
|
# with specular lighting value of 0.1 and no inheritance
|
|
mater deathstar.r "plastic sp=0.1" 224 224 224 0
|
|
|
|
# Clear the wireframe display and draw the deathstar
|
|
B deathstar.r
|
|
|
|
# We now trigger the raytracer to see our finished product
|
|
rt
|