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

### 66 lines (45 with data), 1.8 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 56 57 58 59 60 61 62 63 64 65``` ```## 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 first listing\n",\ " Display a quadratic surface w/ 31 x 31 points\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 1 x = linspace (-1,1,31); [xx,yy] = meshgrid (x,x); zz = xx.^2 + yy.^2; vmesh (zz); ## Variant of listing 1 printf (" Hit a key to see the variant of listing 1\n\n"); pause vmesh (zz,"checker",[5,-2],"col",[1 0 0;0.7 0.7 0.7]', "emit",0); vmesh (zz,"checker",[5,-2],"col",[1 0 0;0.7 0.7 0.7]', "emit",0); printf (" Another one, just with 7 x 7 points\n"); x = linspace (-1,1,7); [xx,yy] = meshgrid (x,x); zz = 2 - xx.^2 - yy.^2; printf (" Now, with steps, then barss\n"); vmesh (zz); vmesh (zz,"steps"); vmesh (zz,"bars"); ```