# NOT RUN {
HollowTube( n=3 )
SolidTube( n=3 )
# }
# NOT RUN {
plot( HollowTube( n=3, k.x=3, k.circumference=2 ), show.faces=TRUE, col='red', alpha=0.5 )
plot( SolidTube( n=3, k.x=5, k.circumference=2 ), col='blue' )
# use non-Euclidean sphere to define wall of tube
plot( HollowTube( n=3, k.x=10, k.circumference=2, p=0.6 ), col='green')
# }
Run the code above in your browser using DataLab