Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

[e6773f]: inst / save_vrml.m Maximize Restore History

Download this file

save_vrml.m    122 lines (100 with data), 3.1 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
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
## Copyright (C) 2002 Etienne Grossmann <etienne@cs.uky.edu>
##
## 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 <http://www.gnu.org/licenses/>.
## save_vrml(outname,[options],s1,...) - Save vrml code
##
## Makes a vrml2 file from strings of vrml code. A "background" node is
## added.
##
## Options :
## "nobg"
## "nolight"
##
## Bugs :
## - "outname" should not contain the substring ".wrl" anywhere else
## than as a suffix.
## - "outname" should only contain the character ">" as ">>" at the
## beginning , to indicate append rather than overwriting the
## file.
function save_vrml(outname, varargin)
verbose = 0;
append = 0;
if ! ischar(outname) ,
error "save_vrml wants a string as first arg"
end
if strcmp(outname(1:2),">>"),
append = 1;
end
outname = strrep(outname,">","");
outname = strrep(outname,".wrl",''); # No suffix.
fname = sprintf("%s.wrl",outname); # Add suffix.
bg_col = [0.4 0.4 0.7];
## bg_col = [1 1 1];
l_intensity = 0.3 ;
l_ambientIntensity = 0.5 ;
l_direction = [0.57735 -0.57735 0.57735] ;
bg_node = sprintf (["Background {\n",...
" skyColor %8.3g %8.3g %8.3g\n",...
"}\n"],\
bg_col);
bg_node = "";
lightstr = sprintf (["PointLight {\n",\
" intensity %8.3g\n",\
" ambientIntensity %8.3g\n",\
" direction %8.3g %8.3g %8.3g\n",\
"}\n"],\
l_intensity, l_ambientIntensity, l_direction);
lightstr = "";
# Read eventual options
nargin = nargin();
ninit = nargin;
i = 1;
args = nargin; # nargin is now a function
while --args,
tmp = nth (varargin, i++);
if strcmp (tmp, "nobg"),
bg_node = "";
elseif strcmp (tmp, "nolight"),
lightstr = "";
else # Reached non-options
## beginpre 2.1.39
# va_start ();
# n = ++args ;
# while n++ < ninit, va_arg (); end
## args, ninit
## endpre 2.1.39
i--; # pos 2.1.39
break;
end
end
bg_node = [bg_node, lightstr];
## No path.
if findstr(outname,"/"),
outname = outname(max(findstr(outname,"/"))+1:size(outname,2)) ;
end
if append, fid = fopen(fname,"at"); # Saving.
else fid = fopen(fname,"wt");
end ;
if fid == -1 , error(sprintf("save_vrml : unable to open %s",fname)); end
## Put header.
fprintf(fid,"#VRML V2.0 utf8 \n# %s , created by save_vrml.m on %s \n%s",
fname,datestr(now),bg_node);
while i <= length (varargin) ,
if verbose, printf ("save_vrml : %i'th string\n",i); end
fprintf (fid,"%s", nth (varargin, i)) ;
i++ ;
end
fprintf(fid,"\n");
fclose(fid);
endfunction