doc/info/figures/draw_points8.mac

   1 load("docdraw.mac");
   2
   3 pts: makelist([t,t^2,cos(t)], t, 0, 15)$
   4 col_num: makelist(k, k, 1, length(pts))$
   5 docdraw3d("figures/draw_points8",
   6         enhanced3d = ['part(col_num,k),k],
   7            point_size = 3,
   8            point_type = filled_circle,
   9            points(pts))$