model cylinder

object ship
cull off
push
tra 0 20 0

object spine
co .25 0 1
push
tra 0 0 10
#cone behind orange mesh
{ cylinder
	cylinder 15 1 8 20 20
	quadric style fill
	quadric normals smooth
	quadric orient out
}
pop 

push
tra 0 0 -30
#long spine cone
object cylinder
{ cylinder
	cylinder 0 2 60 4 4
}
pop
#end object spine

object sails
push 
tra 0 0 19

#left light sail
push 
#tra 0 0 19
rot 30 0 1 0
co .45 .65 1
object partial_disk
{ partial_disk
	partial_disk 1 30 16 4 60 60
}
pop

#right light sail
push 

rot -30 0 1 0
co .45 .65 1
object partial_disk
{ partial_disk
	partial_disk 1 30 16 4 240 60
}
pop

#left big dark sail
push 
tra 0 0 2
rot 30 0 1 0
co .25 .25 .5
object partial_disk
{ partial_disk
	partial_disk 1 35 16 4 45 30
}
pop

#right big dark sail
push 
tra 0 0 2
rot -30 0 1 0
co .25 .25 .5
object partial_disk
{ partial_disk
	partial_disk 1 35 16 4 225 30
}
pop

#left sail dark lines
push 
tra 0 0 -2
rot 30 0 1 0
co .25 .25 .5
object partial_disk
{ partial_disk
	partial_disk 1 30 12 4 60 60
	quadric style lines
	quadric normals smooth
	quadric orient out

}
pop

#right sail dark lines
push 
tra 0 0 -2
rot -30 0 1 0
co .25 .25 .5
object partial_disk
{ partial_disk
	partial_disk 1 30 12 4 240 60
}
pop

#left big sail light blue lines
push 
rot 30 0 1 0
co .45 .65 1
object partial_disk
{ partial_disk
	partial_disk 1 35 8 4 45 30
}
pop

#right big sail light blue lines
push 
rot -30 0 1 0
co .45 .65 1
object partial_disk
{ partial_disk
	partial_disk 1 35 8 4 225 30
}
pop

pop
#end object sails

object mesh
push
tra 0 0 10
co .75 .25 0
object disk
{ disk
	disk 1 15 32 4
	quadric style lines
	quadric normals smooth
	quadric orient out
}
pop

push
tra 0 0 -20
co .8 .8 .95
object cylinder
{ cylinder
	cylinder 1 15 30 16 4
}
pop
#end object mesh

object fins
push
tra 0 0 10
rot 90 0 1 0
rot 180 0 0 1
{ partial_disk
	partial_disk 2 20 16 2 90 30
	quadric style fill
}
pop

push
tra 0 0 10
rot 270 0 1 0
rot 60 1 0 0
{ partial_disk
	partial_disk 2 20 16 2 90 30
	quadric style fill
}
pop

push
tra 0 0 10
rot 270 0 1 0
rot 300 1 0 0
{ partial_disk
	partial_disk 2 20 16 2 90 30
	quadric style fill
}
pop
#end object fins
pop
cull on