xmastree.sce

clear
clc
clf
theta = linspace(-8 * %pi, 8 * %pi, 200) 
z = linspace(-3, 0, 200)
r = 5
x = r .* sin(theta).*z
x=x'
y = r .* cos(theta).*z
y=y'
z=z'
param3d1(x, y, z,5,95,"@@", flag=[2,0])
e=gce() //the handle on the 3D polyline
e.foreground=color('green')