## [e6773f]: inst / vrml_demo_tutorial_4.m  Maximize  Restore  History

### 62 lines (38 with data), 1.7 kB

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55``` ```## Copyright (C) 2002-2009 Etienne Grossmann ## ## This program is free software; you can redistribute it and/or modify it under ## the terms of the GNU General Public License as published by the Free Software ## Foundation; either version 3 of the License, or (at your option) any later ## version. ## ## This program is distributed in the hope that it will be useful, but WITHOUT ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more ## details. ## ## You should have received a copy of the GNU General Public License along with ## this program; if not, see . printf (["\n",\ " VRML Mini-HOWTO's second listing\n",\ " Show a helix of ellipsoids and one consisting of cylinders\n\n"]); printf ([" Reminder of FreeWRL keystrokes and mouse actions :\n"\ " q : quit\n",\ " w : switch to walk mode\n",\ " e : switch to examine mode\n",\ " h : toggle headlights on or off\n",\ " drag left mouse : rotate (examine mode) or translate\n",\ " (walk mode).\n",\ " drag right mouse : zoom (examine mode) or translate\n",\ " (walk mode).\n",\ "\n"]); ## Listing 4 x = linspace (0,4*pi,50); # Points on a helix xx1 = [x/6; sin(x); cos(x)]; # Linked by segments s1 = vrml_cyl (xx1, "col",kron (ones (3,25),[0.7 0.3])); # Scaled and represented by spheres s2 = vrml_points (xx1,"balls"); s2 = vrml_transfo (s2,nan,[pi/2,0,0],[1 0.5 0.5]); s3 = vrml_Background ("skyColor",[0 0 1]); vrml_browse ([s1, s2, s3]); ```