octave_packages/vrml-1.0.13/vrml_demo_tutorial_3.m

   1 ## Copyright (C) 2002-2012 Etienne Grossmann <etienne@egdn.net>
   2 ##
   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
   6 ## version.
   7 ##
   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
  11 ## details.
  12 ##
  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/>.
  15
  16 printf (["\n",\
  17          "     VRML Mini-HOWTO's second listing\n",\
  18          "     Show a XYZ frame with a background\n\n"]);
  19
  20 printf (["    Reminder of FreeWRL keystrokes and mouse actions :\n"\
  21          "      q : quit\n",\
  22          "      w : switch to walk mode\n",\
  23          "      e : switch to examine mode\n",\
  24          "      drag left mouse : rotate (examine mode) or translate\n",\
  25          "          (walk mode).\n",\
  26          "      drag right mouse : zoom (examine mode) or translate\n",\
  27          "          (walk mode).\n",\
  28          "\n"]);
  29
  30 ## Listing 3
  31
  32 s1 = vrml_frame ("scale",[1 2 3],"col",eye (3), "hcol",0.5*[1 1 1]);
  33
  34 ## One possible variant that uses a two-color sky. I don't refer to it in
  35 ## the tutorial because I am not sure that freewrl behaves correctly with
  36 ## background nodes.
  37
  38 ## s2 = vrml_Background ("skyColor",[3 3 9; 9 9 9]'/10,"groundColor",[3 8 3]/10);
  39 s2 = vrml_Background ("skyColor",[3 3 9]/10,"groundColor",[3 8 3]/10);
  40
  41 vrml_browse ([s1,s2]);
  42
  43
  44
  45
  46
  47