1 ## Copyright (C) 2002-2009 Etienne Grossmann <etienne@egdn.net>
3 ## This program is free software; you can redistribute it and/or modify it under
4 ## the terms of the GNU General Public License as published by the Free Software
5 ## Foundation; either version 3 of the License, or (at your option) any later
8 ## This program is distributed in the hope that it will be useful, but WITHOUT
9 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
10 ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
13 ## You should have received a copy of the GNU General Public License along with
14 ## this program; if not, see <http://www.gnu.org/licenses/>.
17 " VRML Mini-HOWTO's second listing\n",\
18 " Show a helix of ellipsoids and one consisting of cylinders\n\n"]);
20 printf ([" Reminder of FreeWRL keystrokes and mouse actions :\n"\
22 " w : switch to walk mode\n",\
23 " e : switch to examine mode\n",\
24 " h : toggle headlights on or off\n",\
25 " drag left mouse : rotate (examine mode) or translate\n",\
27 " drag right mouse : zoom (examine mode) or translate\n",\
33 x = linspace (0,4*pi,50);
37 xx1 = [x/6; sin(x); cos(x)];
43 s1 = vrml_cyl (xx1, "col",kron (ones (3,25),[0.7 0.3]));
47 # Scaled and represented by spheres
49 s2 = vrml_points (xx1,"balls");
51 s2 = vrml_transfo (s2,nan,[pi/2,0,0],[1 0.5 0.5]);
53 s3 = vrml_Background ("skyColor",[0 0 1]);
55 vrml_browse ([s1, s2, s3]);