Menu
▾
▴
[WWcvs] pg: Adding macros to support live.jar
|
From: Mike G. v. a. <we...@ma...> - 2008-06-24 17:22:39
|
Log Message:
-----------
Adding macros to support live.jar
Tags:
----
rel-2-4-patches
Added Files:
-----------
pg/macros:
LiveGraphics3D.pl
Revision Data
-------------
--- /dev/null
+++ macros/LiveGraphics3D.pl
@@ -0,0 +1,190 @@
+sub _LiveGraphics3D_init {}; # don't reload this file
+
+###########################################################################
+#
+# Macros for handling interactive 3D graphics via the LiveGraphics3D
+# Java applet. The applet needs to be in the course html directory.
+# (If it is in the system html area, you will need to change the
+# default below or supply the jar option explicitly).
+#
+# The LiveGraphics3D applet displays a mathematica Graphics3D object
+# that is stored in a .m file (or a compressed one). Use Mathematica
+# to create one. (In the future, I plan to write a perl class that
+# will create these for you on the fly. -- DPVC)
+#
+# The main routines are
+#
+# Live3Dfile load a data file
+# Live3Ddata load raw Graphics3D data
+# LiveGraphics3D access to all parameters
+#
+
+#
+# LiveGraphics3D(options)
+#
+# Options are from:
+#
+# file => name name of .m file to load
+#
+# archive => name name of a .zip file to load
+#
+# input => 3Ddata string containing Graphics3D data to
+# be displayed by the applet
+#
+# size => [w,h] width and height of applet
+#
+# vars => [vars] hash of variables to pass as independent
+# variables to the applet, togther with
+# their initial values
+# e.g., vars => [a=>1,b=>1]
+#
+# depend => [list] list of dependent variables to pass to
+# the applet with their replacement strings
+# (see LiveGraphics3D documentation)
+#
+# jar => URL where to find the live.jar file
+#
+# background=>"#RRGGBB" the background color to use (default is white)
+#
+# scale => n scaling factor for applet (default is 1.)
+#
+# image => file a file containing an image to use in TeX mode
+# or when Java is disabled
+#
+# tex_size => ratio a scaling factor for the TeX image (as a portion
+# of the line width).
+# 1000 is 100%, 500 is 50%, etc.
+#
+# tex_center => 0 or 1 center the image in TeX mode or not
+#
+# Live3D => [params] hash of additional parameters to pass to
+# the Live3D applet.
+# e.g. Live3D => [VISIBLE_FACES => "FRONT"]
+#
+
+sub LiveGraphics3D {
+ my %options = (
+ size => [250,250],
+ jar => findAppletCodebase("live.jar")."/live.jar",
+ background => "#FFFFFF",
+ scale => 1.,
+ tex_size => 500,
+ tex_cener => 0,
+ @_
+ );
+ my $out = ""; my $p; my %pval;
+ my $ratio = $options{tex_size} * (.001);
+
+ if ($main::displayMode eq "TeX") {
+ #
+ # In TeX mode, include the image, if there is one, or
+ # else give the user a message about using it on line
+ #
+ if ($options{image}) {
+ $out = "\\includegraphics[width=$ratio\\linewidth]{$options{image}}";
+ $out = "\\centerline{$out}" if $options{tex_center};
+ $out .= "\n";
+ } else {
+ $out = "\\vbox{
+ \\hbox{[ This image is created by}
+ \\hbox{\\quad an interactive applet;}
+ \\hbox{you must view it on line ]}
+ }";
+ }
+ } else {
+ my ($w,$h) = @{$options{size}};
+ $out .= $bHTML if ($main::displayMode eq "Latex2HTML");
+ #
+ # Put the applet in a table
+ #
+ $out .= qq{\n<TABLE BORDER="1" CELLSPACING="2" CELLPADDING="0">\n<TR>};
+ $out .= qq{<TD WIDTH="$w" HEIGHT="$h" ALIGN="CENTER">};
+ #
+ # start the applet
+ #
+ $out .= qq{
+ <APPLET ARCHIVE="$options{jar}" CODE="Live.class" WIDTH="$w" HEIGHT="$h">
+ <PARAM NAME="BGCOLOR" VALUE="$options{background}">
+ <PARAM NAME="MAGNIFICATION" VALUE="$options{scale}">
+ };
+ #
+ # include the file or data
+ #
+ $out .= qq{<PARAM NAME="INPUT_ARCHIVE" VALUE="$options{archive}">\n}
+ if ($options{archive});
+ $out .= qq{<PARAM NAME="INPUT_FILE" VALUE="$options{file}">\n}
+ if ($options{file});
+ $out .= qq{<PARAM NAME="INPUT" VALUE="$options{input}">\n}
+ if ($options{input});
+ #
+ # include any independent variables
+ #
+ if ($options{vars}) {
+ my @vars = (); %pval = @{$options{vars}};
+ foreach $p (lex_sort(keys(%pval))) {push(@vars,"${p}->$pval{$p}");}
+ $out .=
+ '<PARAM NAME="INDEPENDENT_VARIABLES" VALUE="{'.join(',',@vars).'}">';
+ $out .= "\n";
+ }
+ #
+ # include dependent variables
+ #
+ if ($options{depend}) {
+ my @depend = (); $pval = @{$options{depend}};
+ foreach $p (lex_sort(keys(%pval))) {push(@depend,"${p}->$pval{$p}");}
+ $out .=
+ '<PARAM NAME="DEPENDENT_VARIABLES" VALUE="{'.join(',',@depend).'}">';
+ $out .= "\n";
+ }
+ #
+ # include any extra Live3D parameters
+ #
+ if ($options{Live3D}) {
+ my %pval = @{$options{Live3D}};
+ foreach $p (lex_sort(keys(%pval))) {
+ $out .= qq{<PARAM NAME="$p" VALUE="$pval{$p}">\n};
+ }
+ }
+ #
+ # End the applet and table
+ #
+ $out .= qq{<IMG SRC="$options{image}" BORDER="0">} if ($options{image});
+ $out .= "<SMALL>[Enable Java to make this image interactive]</SMALL><BR>";
+ $out .= "</APPLET>";
+ $out .= "</TD></TD>\n</TABLE>\n";
+ $out .= $eHTML if ($main::displayMode eq "Latex2HTML");
+ }
+
+ return $out;
+}
+
+#
+# Syntactic sugar to make it easier to pass files and data to
+# LiveGraphics3D.
+#
+sub Live3Dfile {
+ my $file = shift;
+ LiveGraphics3D(file => $file, @_);
+}
+
+#
+# Syntactic sugar to make it easier to pass raw Graohics3D data
+# to LiveGraphics3D.
+#
+sub Live3Ddata {
+ my $data = shift;
+ LiveGraphics3D(input => $data, @_);
+}
+
+
+#
+# A message you can use for a caption under a graph
+#
+$LIVEMESSAGE = MODES(
+ TeX => '',
+ Latex2HTML =>
+ $BCENTER.$BSMALL."Drag the surface to rotate it".$ESMALL.$ECENTER,
+ HTML => $BCENTER.$BSMALL."Drag the surface to rotate it".$ESMALL.$ECENTER
+);
+
+1;
|
