A few demo animation routines

This is just a wrapper around rgl functions play3d(), spin3d() and par3dinter()

animate_scene(routine = 1, duration = 6)

Arguments

routine	default: 1
duration	duration. default 5