# HG changeset patch
# User cdf
# Date 1439806779 0
# Node ID 20e8aca47b2ce309e3c4bcf6c31de1683f1ad0ca
# Parent d68da2f2417bda6d93b6602b0e53933bbd356893
prepare for release
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/INDEX
--- a/extra/fpl/INDEX Mon Aug 17 10:16:44 2015 +0000
+++ b/extra/fpl/INDEX Mon Aug 17 10:19:39 2015 +0000
@@ -6,9 +6,6 @@
fpl_vtk_assemble_series.m
savevtk
savevtkvector
-functions to save data in OpenDX format
- fpl_dx_write_field
- fpl_dx_write_series
pdetool compatible plotting functions
pdesurf
pdemesh
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2coloredgradient.net
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2coloredgradient.net Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,635 @@
+//
+// time: Wed Jun 13 18:54:22 2007
+//
+// version: 3.2.0 (format), 4.4.4 (DX)
+//
+//
+// MODULE main
+// workspace: width = 459, height = 507
+// layout: snap = 0, width = 50, height = 50, align = NN
+//
+macro main(
+) -> (
+) {
+ //
+ // node FileSelector[1]: x = 28, y = 29, inputs = 0, label = FileSelector
+ // output[1]: visible = 1, type = 32, value = "__FILE__DX__"
+ // output[2]: visible = 1, type = 32, value = "__FILE__DX__"
+ //
+ //
+ // node Import[1]: x = 34, y = 109, inputs = 6, label = Import
+ //
+main_Import_1_out_1 =
+ Import(
+ main_FileSelector_1_out_1,
+ main_Import_1_in_2,
+ main_Import_1_in_3,
+ main_Import_1_in_4,
+ main_Import_1_in_5,
+ main_Import_1_in_6
+ ) [instance: 1, cache: 1];
+ //
+ // node Post[1]: x = 124, y = 167, inputs = 2, label = Post
+ // input[2]: defaulting = 0, visible = 1, type = 32, value = "positions"
+ //
+main_Post_1_out_1 =
+ Post(
+ main_Import_1_out_1,
+ main_Post_1_in_2
+ ) [instance: 1, cache: 1];
+ //
+ // node Gradient[1]: x = 227, y = 144, inputs = 2, label = Gradient
+ //
+main_Gradient_1_out_1 =
+ Gradient(
+ main_Post_1_out_1,
+ main_Gradient_1_in_2
+ ) [instance: 1, cache: 1];
+ //
+ // node AutoGlyph[1]: x = 241, y = 215, inputs = 7, label = AutoGlyph
+ //
+main_AutoGlyph_1_out_1 =
+ AutoGlyph(
+ main_Gradient_1_out_1,
+ main_AutoGlyph_1_in_2,
+ main_AutoGlyph_1_in_3,
+ main_AutoGlyph_1_in_4,
+ main_AutoGlyph_1_in_5,
+ main_AutoGlyph_1_in_6,
+ main_AutoGlyph_1_in_7
+ ) [instance: 1, cache: 1];
+ //
+ // node AutoColor[1]: x = 253, y = 283, inputs = 10, label = AutoColor
+ //
+main_AutoColor_1_out_1,
+main_AutoColor_1_out_2 =
+ AutoColor(
+ main_AutoGlyph_1_out_1,
+ main_AutoColor_1_in_2,
+ main_AutoColor_1_in_3,
+ main_AutoColor_1_in_4,
+ main_AutoColor_1_in_5,
+ main_AutoColor_1_in_6,
+ main_AutoColor_1_in_7,
+ main_AutoColor_1_in_8,
+ main_AutoColor_1_in_9,
+ main_AutoColor_1_in_10
+ ) [instance: 1, cache: 1];
+ //
+ // node ShowConnections[1]: x = 39, y = 242, inputs = 1, label = ShowConnections
+ //
+main_ShowConnections_1_out_1 =
+ ShowConnections(
+ main_Post_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Color[1]: x = 72, y = 328, inputs = 5, label = Color
+ // input[2]: defaulting = 0, visible = 1, type = 32, value = "black"
+ // input[3]: defaulting = 0, visible = 1, type = 5, value = .5
+ //
+main_Color_1_out_1 =
+ Color(
+ main_ShowConnections_1_out_1,
+ main_Color_1_in_2,
+ main_Color_1_in_3,
+ main_Color_1_in_4,
+ main_Color_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node ColorBar[1]: x = 339, y = 285, inputs = 16, label = ColorBar
+ // input[9]: defaulting = 0, visible = 0, type = 16777248, value = {"black"}
+ //
+main_ColorBar_1_out_1 =
+ ColorBar(
+ main_AutoColor_1_out_2,
+ main_ColorBar_1_in_2,
+ main_ColorBar_1_in_3,
+ main_ColorBar_1_in_4,
+ main_ColorBar_1_in_5,
+ main_ColorBar_1_in_6,
+ main_ColorBar_1_in_7,
+ main_ColorBar_1_in_8,
+ main_ColorBar_1_in_9,
+ main_ColorBar_1_in_10,
+ main_ColorBar_1_in_11,
+ main_ColorBar_1_in_12,
+ main_ColorBar_1_in_13,
+ main_ColorBar_1_in_14,
+ main_ColorBar_1_in_15,
+ main_ColorBar_1_in_16
+ ) [instance: 1, cache: 1];
+ //
+ // node Collect[1]: x = 280, y = 393, inputs = 3, label = Collect
+ //
+main_Collect_1_out_1 =
+ Collect(
+ main_Color_1_out_1,
+ main_AutoColor_1_out_1,
+ main_ColorBar_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Image[1]: x = 188, y = 445, inputs = 49, label = Image
+ // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1"
+ // input[4]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[5]: defaulting = 0, visible = 0, type = 8, value = [0.182894 0.102434 0]
+ // input[6]: defaulting = 0, visible = 0, type = 8, value = [0.182894 0.102434 3.60504]
+ // input[7]: defaulting = 0, visible = 0, type = 5, value = 0.460265
+ // input[8]: defaulting = 0, visible = 0, type = 1, value = 772
+ // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.791
+ // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0]
+ // input[11]: defaulting = 1, visible = 0, type = 5, value = 7.30519
+ // input[12]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[15]: defaulting = 1, visible = 0, type = 32, value = "none"
+ // input[16]: defaulting = 1, visible = 0, type = 32, value = "none"
+ // input[17]: defaulting = 1, visible = 0, type = 1, value = 1
+ // input[18]: defaulting = 1, visible = 0, type = 1, value = 1
+ // input[19]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow"
+ // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif"
+ // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff"
+ // input[29]: defaulting = 0, visible = 0, type = 3, value = 1
+ // input[31]: defaulting = 0, visible = 0, type = 1, value = -5
+ // input[33]: defaulting = 0, visible = 0, type = 3, value = 1
+ // input[34]: defaulting = 0, visible = 0, type = 3, value = 0
+ // input[36]: defaulting = 0, visible = 0, type = 3, value = 1
+ // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "black", "blue", "blue"}
+ // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"}
+ // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.65
+ // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_d"
+ // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom"
+ // depth: value = 24
+ // window: position = (0.0000,0.0000), size = 0.6141x0.6396
+ // internal caching: 1
+ //
+main_Image_1_out_1,
+main_Image_1_out_2,
+main_Image_1_out_3 =
+ Image(
+ main_Image_1_in_1,
+ main_Collect_1_out_1,
+ main_Image_1_in_3,
+ main_Image_1_in_4,
+ main_Image_1_in_5,
+ main_Image_1_in_6,
+ main_Image_1_in_7,
+ main_Image_1_in_8,
+ main_Image_1_in_9,
+ main_Image_1_in_10,
+ main_Image_1_in_11,
+ main_Image_1_in_12,
+ main_Image_1_in_13,
+ main_Image_1_in_14,
+ main_Image_1_in_15,
+ main_Image_1_in_16,
+ main_Image_1_in_17,
+ main_Image_1_in_18,
+ main_Image_1_in_19,
+ main_Image_1_in_20,
+ main_Image_1_in_21,
+ main_Image_1_in_22,
+ main_Image_1_in_23,
+ main_Image_1_in_24,
+ main_Image_1_in_25,
+ main_Image_1_in_26,
+ main_Image_1_in_27,
+ main_Image_1_in_28,
+ main_Image_1_in_29,
+ main_Image_1_in_30,
+ main_Image_1_in_31,
+ main_Image_1_in_32,
+ main_Image_1_in_33,
+ main_Image_1_in_34,
+ main_Image_1_in_35,
+ main_Image_1_in_36,
+ main_Image_1_in_37,
+ main_Image_1_in_38,
+ main_Image_1_in_39,
+ main_Image_1_in_40,
+ main_Image_1_in_41,
+ main_Image_1_in_42,
+ main_Image_1_in_43,
+ main_Image_1_in_44,
+ main_Image_1_in_45,
+ main_Image_1_in_46,
+ main_Image_1_in_47,
+ main_Image_1_in_48,
+ main_Image_1_in_49
+ ) [instance: 1, cache: 1];
+// network: end of macro body
+CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
+}
+main_FileSelector_1_out_1 = "/tmp/SECS2D.6003912.dx";
+main_Import_1_in_2 = NULL;
+main_Import_1_in_3 = NULL;
+main_Import_1_in_4 = NULL;
+main_Import_1_in_5 = NULL;
+main_Import_1_in_6 = NULL;
+main_Import_1_out_1 = NULL;
+main_Post_1_in_2 = "positions";
+main_Post_1_out_1 = NULL;
+main_Gradient_1_in_2 = NULL;
+main_Gradient_1_out_1 = NULL;
+main_AutoGlyph_1_in_2 = NULL;
+main_AutoGlyph_1_in_3 = NULL;
+main_AutoGlyph_1_in_4 = NULL;
+main_AutoGlyph_1_in_5 = NULL;
+main_AutoGlyph_1_in_6 = NULL;
+main_AutoGlyph_1_in_7 = NULL;
+main_AutoGlyph_1_out_1 = NULL;
+main_AutoColor_1_in_2 = NULL;
+main_AutoColor_1_in_3 = NULL;
+main_AutoColor_1_in_4 = NULL;
+main_AutoColor_1_in_5 = NULL;
+main_AutoColor_1_in_6 = NULL;
+main_AutoColor_1_in_7 = NULL;
+main_AutoColor_1_in_8 = NULL;
+main_AutoColor_1_in_9 = NULL;
+main_AutoColor_1_in_10 = NULL;
+main_AutoColor_1_out_1 = NULL;
+main_AutoColor_1_out_2 = NULL;
+main_ShowConnections_1_out_1 = NULL;
+main_Color_1_in_2 = "black";
+main_Color_1_in_3 = .5;
+main_Color_1_in_4 = NULL;
+main_Color_1_in_5 = NULL;
+main_Color_1_out_1 = NULL;
+main_ColorBar_1_in_2 = NULL;
+main_ColorBar_1_in_3 = NULL;
+main_ColorBar_1_in_4 = NULL;
+main_ColorBar_1_in_5 = NULL;
+main_ColorBar_1_in_6 = NULL;
+main_ColorBar_1_in_7 = NULL;
+main_ColorBar_1_in_8 = NULL;
+main_ColorBar_1_in_9 = {"black"};
+main_ColorBar_1_in_10 = NULL;
+main_ColorBar_1_in_11 = NULL;
+main_ColorBar_1_in_12 = NULL;
+main_ColorBar_1_in_13 = NULL;
+main_ColorBar_1_in_14 = NULL;
+main_ColorBar_1_in_15 = NULL;
+main_ColorBar_1_in_16 = NULL;
+main_ColorBar_1_out_1 = NULL;
+main_Collect_1_out_1 = NULL;
+macro Image(
+ id,
+ object,
+ where,
+ useVector,
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ viewAngle,
+ perspective,
+ options,
+ buttonState = 1,
+ buttonUpApprox = "none",
+ buttonDownApprox = "none",
+ buttonUpDensity = 1,
+ buttonDownDensity = 1,
+ renderMode = 0,
+ defaultCamera,
+ reset,
+ backgroundColor,
+ throttle,
+ RECenable = 0,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable = 0,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ interactionMode,
+ title,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ webOptions) -> (
+ object,
+ camera,
+ where)
+{
+ ImageMessage(
+ id,
+ backgroundColor,
+ throttle,
+ RECenable,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ interactionMode,
+ title,
+ renderMode,
+ buttonUpApprox,
+ buttonDownApprox,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 1, cache: 1];
+ autoCamera =
+ AutoCamera(
+ object,
+ "front",
+ object,
+ resolution,
+ aspect,
+ [0,1,0],
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ realCamera =
+ Camera(
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ coloredDefaultCamera =
+ UpdateCamera(defaultCamera,
+ background=backgroundColor) [instance: 1, cache: 1];
+ nullDefaultCamera =
+ Inquire(defaultCamera,
+ "is null + 1") [instance: 1, cache: 1];
+ resetCamera =
+ Switch(
+ nullDefaultCamera,
+ coloredDefaultCamera,
+ autoCamera) [instance: 1, cache: 1];
+ resetNull =
+ Inquire(
+ reset,
+ "is null + 1") [instance: 2, cache: 1];
+ reset =
+ Switch(
+ resetNull,
+ reset,
+ 0) [instance: 2, cache: 1];
+ whichCamera =
+ Compute(
+ "($0 != 0 || $1 == 0) ? 1 : 2",
+ reset,
+ useVector) [instance: 1, cache: 1];
+ camera = Switch(
+ whichCamera,
+ resetCamera,
+ realCamera) [instance: 3, cache: 1];
+ AAobject =
+ AutoAxes(
+ object,
+ camera,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels) [instance: 1, cache: 1];
+ switchAAenable = Compute("$0+1",
+ AAenable) [instance: 2, cache: 1];
+ object = Switch(
+ switchAAenable,
+ object,
+ AAobject) [instance:4, cache: 1];
+ SWapproximation_options =
+ Switch(
+ buttonState,
+ buttonUpApprox,
+ buttonDownApprox) [instance: 5, cache: 1];
+ SWdensity_options =
+ Switch(
+ buttonState,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 6, cache: 1];
+ HWapproximation_options =
+ Format(
+ "%s,%s",
+ buttonDownApprox,
+ buttonUpApprox) [instance: 1, cache: 1];
+ HWdensity_options =
+ Format(
+ "%d,%d",
+ buttonDownDensity,
+ buttonUpDensity) [instance: 2, cache: 1];
+ switchRenderMode = Compute(
+ "$0+1",
+ renderMode) [instance: 3, cache: 1];
+ approximation_options = Switch(
+ switchRenderMode,
+ SWapproximation_options,
+ HWapproximation_options) [instance: 7, cache: 1];
+ density_options = Switch(
+ switchRenderMode,
+ SWdensity_options,
+ HWdensity_options) [instance: 8, cache: 1];
+ renderModeString = Switch(
+ switchRenderMode,
+ "software",
+ "hardware")[instance: 9, cache: 1];
+ object_tag = Inquire(
+ object,
+ "object tag")[instance: 3, cache: 1];
+ annoted_object =
+ Options(
+ object,
+ "send boxes",
+ 0,
+ "cache",
+ 1,
+ "object tag",
+ object_tag,
+ "ddcamera",
+ whichCamera,
+ "rendering approximation",
+ approximation_options,
+ "render every",
+ density_options,
+ "button state",
+ buttonState,
+ "rendering mode",
+ renderModeString) [instance: 1, cache: 1];
+ RECresNull =
+ Inquire(
+ RECresolution,
+ "is null + 1") [instance: 4, cache: 1];
+ ImageResolution =
+ Inquire(
+ camera,
+ "camera resolution") [instance: 5, cache: 1];
+ RECresolution =
+ Switch(
+ RECresNull,
+ RECresolution,
+ ImageResolution) [instance: 10, cache: 1];
+ RECaspectNull =
+ Inquire(
+ RECaspect,
+ "is null + 1") [instance: 6, cache: 1];
+ ImageAspect =
+ Inquire(
+ camera,
+ "camera aspect") [instance: 7, cache: 1];
+ RECaspect =
+ Switch(
+ RECaspectNull,
+ RECaspect,
+ ImageAspect) [instance: 11, cache: 1];
+ switchRECenable = Compute(
+ "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
+ RECenable,
+ switchRenderMode,
+ RECresolution,
+ ImageResolution,
+ RECaspect,
+ ImageAspect) [instance: 4, cache: 1];
+ NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
+ Display(
+ NoRECobject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECNoRerenderObject,
+ camera) [instance: 1, cache: 1];
+ Display(
+ image,
+ NULL,
+ where,
+ throttle) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ rec_where = Display(
+ RECNoRerHW,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 0];
+ rec_image = ReadImageWindow(
+ rec_where) [instance: 1, cache: 1];
+ WriteImage(
+ rec_image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ RECupdateCamera =
+ UpdateCamera(
+ camera,
+ resolution=RECresolution,
+ aspect=RECaspect) [instance: 2, cache: 1];
+ Display(
+ RECRerenderObject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ RECRerenderObject =
+ ScaleScreen(
+ RECRerenderObject,
+ NULL,
+ RECresolution,
+ camera) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECRerenderObject,
+ RECupdateCamera) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 2, cache: 1];
+}
+main_Image_1_in_1 = "Image_1";
+main_Image_1_in_3 = "X24,,";
+main_Image_1_in_4 = 1;
+main_Image_1_in_5 = [0.182894 0.102434 0];
+main_Image_1_in_6 = [0.182894 0.102434 3.60504];
+main_Image_1_in_7 = 0.460265;
+main_Image_1_in_8 = 772;
+main_Image_1_in_9 = 0.791;
+main_Image_1_in_10 = [0 1 0];
+main_Image_1_in_11 = NULL;
+main_Image_1_in_12 = 0;
+main_Image_1_in_13 = NULL;
+main_Image_1_in_14 = 1;
+main_Image_1_in_15 = NULL;
+main_Image_1_in_16 = NULL;
+main_Image_1_in_17 = NULL;
+main_Image_1_in_18 = NULL;
+main_Image_1_in_19 = 0;
+main_Image_1_in_20 = NULL;
+main_Image_1_in_21 = NULL;
+main_Image_1_in_22 = "snow";
+main_Image_1_in_23 = NULL;
+main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif";
+main_Image_1_in_26 = "tiff";
+main_Image_1_in_27 = NULL;
+main_Image_1_in_28 = NULL;
+main_Image_1_in_29 = 1;
+main_Image_1_in_30 = NULL;
+main_Image_1_in_31 = -5;
+main_Image_1_in_32 = NULL;
+main_Image_1_in_33 = 1;
+main_Image_1_in_34 = 0;
+main_Image_1_in_35 = NULL;
+main_Image_1_in_36 = 1;
+main_Image_1_in_37 = {"clear", "black", "blue", "blue"};
+main_Image_1_in_38 = {"background", "grid", "ticks", "labels"};
+main_Image_1_in_39 = 0.65;
+main_Image_1_in_40 = "roman_d";
+main_Image_1_in_41 = "panzoom";
+main_Image_1_in_42 = NULL;
+main_Image_1_in_43 = NULL;
+main_Image_1_in_44 = NULL;
+main_Image_1_in_45 = NULL;
+main_Image_1_in_46 = NULL;
+main_Image_1_in_47 = NULL;
+main_Image_1_in_48 = NULL;
+main_Image_1_in_49 = NULL;
+Executive("product version 4 4 4");
+$sync
+main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2coloredrubbersheet.net
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2coloredrubbersheet.net Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,619 @@
+//
+// time: Wed Jun 13 17:16:01 2007
+//
+// version: 3.2.0 (format), 4.4.4 (DX)
+//
+//
+// MODULE main
+// workspace: width = 533, height = 507
+// layout: snap = 0, width = 50, height = 50, align = NN
+//
+macro main(
+) -> (
+) {
+ //
+ // node FileSelector[1]: x = 51, y = 31, inputs = 0, label = FileSelector
+ // output[1]: visible = 1, type = 32, value = "__FILE__DX__"
+ // output[2]: visible = 1, type = 32, value = "__FILE__DX__"
+ //
+ //
+ // node Import[1]: x = 104, y = 118, inputs = 6, label = Import
+ //
+main_Import_1_out_1 =
+ Import(
+ main_FileSelector_1_out_1,
+ main_Import_1_in_2,
+ main_Import_1_in_3,
+ main_Import_1_in_4,
+ main_Import_1_in_5,
+ main_Import_1_in_6
+ ) [instance: 1, cache: 1];
+ //
+ // node Post[1]: x = 249, y = 57, inputs = 2, label = Post
+ // input[2]: defaulting = 0, visible = 1, type = 32, value = "__DATA_DEPENDENCY__"
+ //
+main_Post_1_out_1 =
+ Post(
+ main_Import_1_out_1,
+ main_Post_1_in_2
+ ) [instance: 1, cache: 1];
+ //
+ // node RubberSheet[1]: x = 228, y = 142, inputs = 4, label = RubberSheet
+ //
+main_RubberSheet_1_out_1 =
+ RubberSheet(
+ main_Post_1_out_1,
+ main_RubberSheet_1_in_2,
+ main_RubberSheet_1_in_3,
+ main_RubberSheet_1_in_4
+ ) [instance: 1, cache: 1];
+ //
+ // node AutoColor[1]: x = 253, y = 283, inputs = 10, label = AutoColor
+ //
+main_AutoColor_1_out_1,
+main_AutoColor_1_out_2 =
+ AutoColor(
+ main_RubberSheet_1_out_1,
+ main_AutoColor_1_in_2,
+ main_AutoColor_1_in_3,
+ main_AutoColor_1_in_4,
+ main_AutoColor_1_in_5,
+ main_AutoColor_1_in_6,
+ main_AutoColor_1_in_7,
+ main_AutoColor_1_in_8,
+ main_AutoColor_1_in_9,
+ main_AutoColor_1_in_10
+ ) [instance: 1, cache: 1];
+ //
+ // node ShowConnections[1]: x = 49, y = 232, inputs = 1, label = ShowConnections
+ //
+main_ShowConnections_1_out_1 =
+ ShowConnections(
+ main_RubberSheet_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Color[1]: x = 72, y = 328, inputs = 5, label = Color
+ // input[2]: defaulting = 0, visible = 1, type = 32, value = "black"
+ // input[3]: defaulting = 0, visible = 1, type = 5, value = .5
+ //
+main_Color_1_out_1 =
+ Color(
+ main_ShowConnections_1_out_1,
+ main_Color_1_in_2,
+ main_Color_1_in_3,
+ main_Color_1_in_4,
+ main_Color_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node ColorBar[1]: x = 413, y = 290, inputs = 16, label = ColorBar
+ // input[9]: defaulting = 0, visible = 0, type = 16777248, value = {"black"}
+ //
+main_ColorBar_1_out_1 =
+ ColorBar(
+ main_AutoColor_1_out_2,
+ main_ColorBar_1_in_2,
+ main_ColorBar_1_in_3,
+ main_ColorBar_1_in_4,
+ main_ColorBar_1_in_5,
+ main_ColorBar_1_in_6,
+ main_ColorBar_1_in_7,
+ main_ColorBar_1_in_8,
+ main_ColorBar_1_in_9,
+ main_ColorBar_1_in_10,
+ main_ColorBar_1_in_11,
+ main_ColorBar_1_in_12,
+ main_ColorBar_1_in_13,
+ main_ColorBar_1_in_14,
+ main_ColorBar_1_in_15,
+ main_ColorBar_1_in_16
+ ) [instance: 1, cache: 1];
+ //
+ // node Collect[1]: x = 280, y = 393, inputs = 3, label = Collect
+ //
+main_Collect_1_out_1 =
+ Collect(
+ main_Color_1_out_1,
+ main_AutoColor_1_out_1,
+ main_ColorBar_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Image[1]: x = 188, y = 445, inputs = 49, label = Image
+ // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1"
+ // input[4]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[5]: defaulting = 0, visible = 0, type = 8, value = [0.466889 0.863877 0.166499]
+ // input[6]: defaulting = 0, visible = 0, type = 8, value = [0.466889 0.863877 4.74189]
+ // input[7]: defaulting = 0, visible = 0, type = 5, value = 1.01623
+ // input[8]: defaulting = 0, visible = 0, type = 1, value = 1254
+ // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.730064
+ // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0]
+ // input[11]: defaulting = 1, visible = 0, type = 5, value = 12.6739
+ // input[12]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[15]: defaulting = 1, visible = 0, type = 32, value = "none"
+ // input[16]: defaulting = 1, visible = 0, type = 32, value = "none"
+ // input[17]: defaulting = 1, visible = 0, type = 1, value = 1
+ // input[18]: defaulting = 1, visible = 0, type = 1, value = 1
+ // input[19]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow"
+ // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif"
+ // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff"
+ // input[29]: defaulting = 0, visible = 0, type = 3, value = 1
+ // input[31]: defaulting = 0, visible = 0, type = 1, value = -5
+ // input[33]: defaulting = 0, visible = 0, type = 3, value = 1
+ // input[34]: defaulting = 0, visible = 0, type = 3, value = 0
+ // input[36]: defaulting = 0, visible = 0, type = 3, value = 1
+ // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "black", "blue", "blue"}
+ // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"}
+ // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.65
+ // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_d"
+ // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom"
+ // depth: value = 24
+ // window: position = (0.0000,0.0283), size = 0.9906x0.9375
+ // internal caching: 1
+ //
+main_Image_1_out_1,
+main_Image_1_out_2,
+main_Image_1_out_3 =
+ Image(
+ main_Image_1_in_1,
+ main_Collect_1_out_1,
+ main_Image_1_in_3,
+ main_Image_1_in_4,
+ main_Image_1_in_5,
+ main_Image_1_in_6,
+ main_Image_1_in_7,
+ main_Image_1_in_8,
+ main_Image_1_in_9,
+ main_Image_1_in_10,
+ main_Image_1_in_11,
+ main_Image_1_in_12,
+ main_Image_1_in_13,
+ main_Image_1_in_14,
+ main_Image_1_in_15,
+ main_Image_1_in_16,
+ main_Image_1_in_17,
+ main_Image_1_in_18,
+ main_Image_1_in_19,
+ main_Image_1_in_20,
+ main_Image_1_in_21,
+ main_Image_1_in_22,
+ main_Image_1_in_23,
+ main_Image_1_in_24,
+ main_Image_1_in_25,
+ main_Image_1_in_26,
+ main_Image_1_in_27,
+ main_Image_1_in_28,
+ main_Image_1_in_29,
+ main_Image_1_in_30,
+ main_Image_1_in_31,
+ main_Image_1_in_32,
+ main_Image_1_in_33,
+ main_Image_1_in_34,
+ main_Image_1_in_35,
+ main_Image_1_in_36,
+ main_Image_1_in_37,
+ main_Image_1_in_38,
+ main_Image_1_in_39,
+ main_Image_1_in_40,
+ main_Image_1_in_41,
+ main_Image_1_in_42,
+ main_Image_1_in_43,
+ main_Image_1_in_44,
+ main_Image_1_in_45,
+ main_Image_1_in_46,
+ main_Image_1_in_47,
+ main_Image_1_in_48,
+ main_Image_1_in_49
+ ) [instance: 1, cache: 1];
+// network: end of macro body
+CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
+}
+main_FileSelector_1_out_1 = "__FILE__DX__";
+main_Import_1_in_2 = NULL;
+main_Import_1_in_3 = NULL;
+main_Import_1_in_4 = NULL;
+main_Import_1_in_5 = NULL;
+main_Import_1_in_6 = NULL;
+main_Import_1_out_1 = NULL;
+main_Post_1_in_2 = "positions";
+main_Post_1_out_1 = NULL;
+main_RubberSheet_1_in_2 = NULL;
+main_RubberSheet_1_in_3 = NULL;
+main_RubberSheet_1_in_4 = NULL;
+main_RubberSheet_1_out_1 = NULL;
+main_AutoColor_1_in_2 = NULL;
+main_AutoColor_1_in_3 = NULL;
+main_AutoColor_1_in_4 = NULL;
+main_AutoColor_1_in_5 = NULL;
+main_AutoColor_1_in_6 = NULL;
+main_AutoColor_1_in_7 = NULL;
+main_AutoColor_1_in_8 = NULL;
+main_AutoColor_1_in_9 = NULL;
+main_AutoColor_1_in_10 = NULL;
+main_AutoColor_1_out_1 = NULL;
+main_AutoColor_1_out_2 = NULL;
+main_ShowConnections_1_out_1 = NULL;
+main_Color_1_in_2 = "black";
+main_Color_1_in_3 = .5;
+main_Color_1_in_4 = NULL;
+main_Color_1_in_5 = NULL;
+main_Color_1_out_1 = NULL;
+main_ColorBar_1_in_2 = NULL;
+main_ColorBar_1_in_3 = NULL;
+main_ColorBar_1_in_4 = NULL;
+main_ColorBar_1_in_5 = NULL;
+main_ColorBar_1_in_6 = NULL;
+main_ColorBar_1_in_7 = NULL;
+main_ColorBar_1_in_8 = NULL;
+main_ColorBar_1_in_9 = {"black"};
+main_ColorBar_1_in_10 = NULL;
+main_ColorBar_1_in_11 = NULL;
+main_ColorBar_1_in_12 = NULL;
+main_ColorBar_1_in_13 = NULL;
+main_ColorBar_1_in_14 = NULL;
+main_ColorBar_1_in_15 = NULL;
+main_ColorBar_1_in_16 = NULL;
+main_ColorBar_1_out_1 = NULL;
+main_Collect_1_out_1 = NULL;
+macro Image(
+ id,
+ object,
+ where,
+ useVector,
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ viewAngle,
+ perspective,
+ options,
+ buttonState = 1,
+ buttonUpApprox = "none",
+ buttonDownApprox = "none",
+ buttonUpDensity = 1,
+ buttonDownDensity = 1,
+ renderMode = 0,
+ defaultCamera,
+ reset,
+ backgroundColor,
+ throttle,
+ RECenable = 0,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable = 0,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ interactionMode,
+ title,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ webOptions) -> (
+ object,
+ camera,
+ where)
+{
+ ImageMessage(
+ id,
+ backgroundColor,
+ throttle,
+ RECenable,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ interactionMode,
+ title,
+ renderMode,
+ buttonUpApprox,
+ buttonDownApprox,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 1, cache: 1];
+ autoCamera =
+ AutoCamera(
+ object,
+ "front",
+ object,
+ resolution,
+ aspect,
+ [0,1,0],
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ realCamera =
+ Camera(
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ coloredDefaultCamera =
+ UpdateCamera(defaultCamera,
+ background=backgroundColor) [instance: 1, cache: 1];
+ nullDefaultCamera =
+ Inquire(defaultCamera,
+ "is null + 1") [instance: 1, cache: 1];
+ resetCamera =
+ Switch(
+ nullDefaultCamera,
+ coloredDefaultCamera,
+ autoCamera) [instance: 1, cache: 1];
+ resetNull =
+ Inquire(
+ reset,
+ "is null + 1") [instance: 2, cache: 1];
+ reset =
+ Switch(
+ resetNull,
+ reset,
+ 0) [instance: 2, cache: 1];
+ whichCamera =
+ Compute(
+ "($0 != 0 || $1 == 0) ? 1 : 2",
+ reset,
+ useVector) [instance: 1, cache: 1];
+ camera = Switch(
+ whichCamera,
+ resetCamera,
+ realCamera) [instance: 3, cache: 1];
+ AAobject =
+ AutoAxes(
+ object,
+ camera,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels) [instance: 1, cache: 1];
+ switchAAenable = Compute("$0+1",
+ AAenable) [instance: 2, cache: 1];
+ object = Switch(
+ switchAAenable,
+ object,
+ AAobject) [instance:4, cache: 1];
+ SWapproximation_options =
+ Switch(
+ buttonState,
+ buttonUpApprox,
+ buttonDownApprox) [instance: 5, cache: 1];
+ SWdensity_options =
+ Switch(
+ buttonState,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 6, cache: 1];
+ HWapproximation_options =
+ Format(
+ "%s,%s",
+ buttonDownApprox,
+ buttonUpApprox) [instance: 1, cache: 1];
+ HWdensity_options =
+ Format(
+ "%d,%d",
+ buttonDownDensity,
+ buttonUpDensity) [instance: 2, cache: 1];
+ switchRenderMode = Compute(
+ "$0+1",
+ renderMode) [instance: 3, cache: 1];
+ approximation_options = Switch(
+ switchRenderMode,
+ SWapproximation_options,
+ HWapproximation_options) [instance: 7, cache: 1];
+ density_options = Switch(
+ switchRenderMode,
+ SWdensity_options,
+ HWdensity_options) [instance: 8, cache: 1];
+ renderModeString = Switch(
+ switchRenderMode,
+ "software",
+ "hardware")[instance: 9, cache: 1];
+ object_tag = Inquire(
+ object,
+ "object tag")[instance: 3, cache: 1];
+ annoted_object =
+ Options(
+ object,
+ "send boxes",
+ 0,
+ "cache",
+ 1,
+ "object tag",
+ object_tag,
+ "ddcamera",
+ whichCamera,
+ "rendering approximation",
+ approximation_options,
+ "render every",
+ density_options,
+ "button state",
+ buttonState,
+ "rendering mode",
+ renderModeString) [instance: 1, cache: 1];
+ RECresNull =
+ Inquire(
+ RECresolution,
+ "is null + 1") [instance: 4, cache: 1];
+ ImageResolution =
+ Inquire(
+ camera,
+ "camera resolution") [instance: 5, cache: 1];
+ RECresolution =
+ Switch(
+ RECresNull,
+ RECresolution,
+ ImageResolution) [instance: 10, cache: 1];
+ RECaspectNull =
+ Inquire(
+ RECaspect,
+ "is null + 1") [instance: 6, cache: 1];
+ ImageAspect =
+ Inquire(
+ camera,
+ "camera aspect") [instance: 7, cache: 1];
+ RECaspect =
+ Switch(
+ RECaspectNull,
+ RECaspect,
+ ImageAspect) [instance: 11, cache: 1];
+ switchRECenable = Compute(
+ "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
+ RECenable,
+ switchRenderMode,
+ RECresolution,
+ ImageResolution,
+ RECaspect,
+ ImageAspect) [instance: 4, cache: 1];
+ NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
+ Display(
+ NoRECobject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECNoRerenderObject,
+ camera) [instance: 1, cache: 1];
+ Display(
+ image,
+ NULL,
+ where,
+ throttle) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ rec_where = Display(
+ RECNoRerHW,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 0];
+ rec_image = ReadImageWindow(
+ rec_where) [instance: 1, cache: 1];
+ WriteImage(
+ rec_image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ RECupdateCamera =
+ UpdateCamera(
+ camera,
+ resolution=RECresolution,
+ aspect=RECaspect) [instance: 2, cache: 1];
+ Display(
+ RECRerenderObject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ RECRerenderObject =
+ ScaleScreen(
+ RECRerenderObject,
+ NULL,
+ RECresolution,
+ camera) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECRerenderObject,
+ RECupdateCamera) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 2, cache: 1];
+}
+main_Image_1_in_1 = "Image_1";
+main_Image_1_in_3 = "X24,,";
+main_Image_1_in_4 = 1;
+main_Image_1_in_5 = [0.466889 0.863877 0.166499];
+main_Image_1_in_6 = [0.466889 0.863877 4.74189];
+main_Image_1_in_7 = 1.01623;
+main_Image_1_in_8 = 1254;
+main_Image_1_in_9 = 0.730064;
+main_Image_1_in_10 = [0 1 0];
+main_Image_1_in_11 = NULL;
+main_Image_1_in_12 = 0;
+main_Image_1_in_13 = NULL;
+main_Image_1_in_14 = 1;
+main_Image_1_in_15 = NULL;
+main_Image_1_in_16 = NULL;
+main_Image_1_in_17 = NULL;
+main_Image_1_in_18 = NULL;
+main_Image_1_in_19 = 0;
+main_Image_1_in_20 = NULL;
+main_Image_1_in_21 = NULL;
+main_Image_1_in_22 = "snow";
+main_Image_1_in_23 = NULL;
+main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif";
+main_Image_1_in_26 = "tiff";
+main_Image_1_in_27 = NULL;
+main_Image_1_in_28 = NULL;
+main_Image_1_in_29 = 1;
+main_Image_1_in_30 = NULL;
+main_Image_1_in_31 = -5;
+main_Image_1_in_32 = NULL;
+main_Image_1_in_33 = 1;
+main_Image_1_in_34 = 0;
+main_Image_1_in_35 = NULL;
+main_Image_1_in_36 = 1;
+main_Image_1_in_37 = {"clear", "black", "blue", "blue"};
+main_Image_1_in_38 = {"background", "grid", "ticks", "labels"};
+main_Image_1_in_39 = 0.65;
+main_Image_1_in_40 = "roman_d";
+main_Image_1_in_41 = "panzoom";
+main_Image_1_in_42 = NULL;
+main_Image_1_in_43 = NULL;
+main_Image_1_in_44 = NULL;
+main_Image_1_in_45 = NULL;
+main_Image_1_in_46 = NULL;
+main_Image_1_in_47 = NULL;
+main_Image_1_in_48 = NULL;
+main_Image_1_in_49 = NULL;
+Executive("product version 4 4 4");
+$sync
+main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2dxappenddata.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2dxappenddata.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,90 @@
+## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} FPL2dxappenddata ( @var{filename},
+## @var{p}, @var{t}, @var{u}, @var{attr_name}, @var{attr_rank},
+## @var{attr_shape}, @var{endflie} )
+##
+## Apends data to a file in DX form.
+## Only one variable can be written to the file
+## variable must be a scalar, vector or tensor of doubles
+## mesh data in the file must be consistent with this variable
+##
+## Variable must be a scalar, vector or tensor of doubles
+##
+## @itemize @minus
+## @item @var{filename}= name of file to save (type string)
+## @item @var{p}, @var{t} = mesh
+## @item @var{u} = variable to save
+## @item @var{attr_name} = name of the variable (type string)
+## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.)
+## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar)
+## @item @var{endfile} = 0 if you want to add other variables to the
+## same file, 1 otherwise
+## @end itemize
+## @end deftypefn
+
+function FPL2dxappenddata(filename,p,t,u,attr_name,attr_rank,attr_shape,endfile)
+
+ p = p';
+ t = t';
+ t = t(:,1:3);
+
+ fid=fopen (filename,'a');
+ Nnodi = size(p,1);
+ Ntriangoli = size(t,1);
+
+ fprintf(fid,'\nattribute "element type" string "triangles"\nattribute "ref" string "positions"\n\n');
+
+ if ((attr_rank==0) && (min(size(u))==1))
+ fprintf(fid,'object "%s.data"\nclass array type double rank 0 items %d data follows',attr_name,Nnodi);
+ fprintf(fid,'\n %1.7e',u);
+ else
+ fprintf(fid,'object "%s.data"\nclass array type double rank %d shape %d items %d data follows', ...
+ attr_name,attr_rank,attr_shape,Nnodi);
+ for i=1:Nnodi
+ fprintf(fid,'\n');
+ fprintf(fid,' %1.7e',u(i,:));
+ endfor
+ endif
+ fprintf(fid,['\nattribute "dep" string "positions"\n\n' ...
+ 'object "%s" class field\n'...
+ 'component "positions" value "pos"\n'...
+ 'component "connections" value "con"\n'...
+ 'component "data" value "%s.data"\n'],...
+ attr_name,attr_name);
+
+ if(endfile)
+ fprintf(fid,'\nend\n');
+ endif
+
+ fclose (fid);
+
+endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2dxoutputdata.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2dxoutputdata.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,126 @@
+## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} FPL2dxoutputdata ( @var{filename}, @
+## @var{p}, @var{t}, @var{u}, @var{attr_name}, @var{attr_rank}, @
+## @var{attr_shape}, @var{endfile} )
+##
+## Outputs data in DX form.
+##
+## Variable must be a scalar, vector or tensor of doubles
+##
+## @itemize @minus
+## @item @var{filename}= name of file to save (type string)
+## @item @var{p}, @var{t} = mesh
+## @item @var{u} = variable to save
+## @item @var{attr_name} = name of the variable (type string)
+## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.)
+## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar)
+## @item @var{endfile} = 0 if you want to add other variables to the
+## same file, 1 otherwise
+## @end itemize
+## @end deftypefn
+
+function FPL2dxoutputdata(filename,p,t,u,attr_name,attr_rank,attr_shape,endfile)
+
+ p = p';
+ t = t';
+ t = t(:,1:3);
+
+ fid=fopen (filename,'w');
+ Nnodi = size(p,1);
+ Ntriangoli = size(t,1);
+ Ndati = size(u,1);
+
+ fprintf(fid,"object ""pos""\nclass array type float rank 1 shape 2 items %d data follows",Nnodi);
+
+ for i=1:Nnodi
+ fprintf(fid,"\n");
+ fprintf(fid," %1.7e",p(i,:));
+ endfor
+
+ if (min(min(t))==1)
+ t=t-1;
+ elseif(min(min(t))~=0)
+ disp('WARNING: check triangle structure')
+ endif
+ ## In DX format nodes are
+ ## numbered starting from zero,
+ ## instead we want to number
+ ## them starting from 1!
+ ## Here we restore the DX
+ ## format
+
+ fprintf(fid,"\n\nobject ""con""\nclass array type int rank 1 shape 3 items %d data follows",Ntriangoli);
+ for i=1:Ntriangoli
+ fprintf(fid,"\n");
+ fprintf(fid," %d",t(i,:));
+ endfor
+
+ fprintf(fid,"\nattribute ""element type"" string ""triangles""\nattribute ""ref"" string ""positions""\n\n");
+
+ if ((attr_rank==0) && (min(size(u))==1))
+ fprintf(fid,"object ""%s.data""\nclass array type double rank 0 items %d data follows",attr_name,Ndati);
+ fprintf(fid,"\n %1.7e",u);
+
+ else
+ fprintf(fid,"object ""%s.data""\nclass array type double rank %d shape %d items %d data follows", ...
+ attr_name,attr_rank,attr_shape,Ndati);
+ for i=1:Ndati
+ fprintf(fid,"\n");
+ fprintf(fid," %1.7e",u(i,:));
+ endfor
+
+ endif
+
+ if Ndati==Nnodi
+ fprintf(fid,["\nattribute ""dep"" string ""positions""\n\n" ...
+ "object ""%s"" class field\n"...
+ "component ""positions"" value ""pos""\n"...
+ "component ""connections"" value ""con""\n"...
+ "component ""data"" value ""%s.data""\n"],...
+ attr_name,attr_name);
+ elseif Ndati==Ntriangoli
+ fprintf(fid,["\nattribute ""dep"" string ""connections""\n\n" ...
+ "object ""%s"" class field\n"...
+ "component ""positions"" value ""pos""\n"...
+ "component ""connections"" value ""con""\n"...
+ "component ""data"" value ""%s.data""\n"],...
+ attr_name,attr_name);
+ endif
+
+ if(endfile)
+ fprintf(fid,"\nend\n");
+ endif
+
+ fclose (fid);
+
+
+endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2dxoutputtimeseries.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2dxoutputtimeseries.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,71 @@
+## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} FPL2dxoutputtimeseries ( @var{filename}, @var{p}, @var{t}, @var{u}, @var{attr_name}, @var{attr_rank}, @var{attr_shape}, @var{time} )
+##
+## Outputs a time series in DX form.
+## variable must be a scalar, vector or tensor of doubles
+## @itemize @minus
+## @item @var{filename}= name of file to save (type string)
+## @item @var{p}, @var{t} = mesh
+## @item @var{u} = variable to save
+## @item @var{attr_name} = name of the variable (type string)
+## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.)
+## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar)
+## @item @var{time} = time instants
+## @end itemize
+## @end deftypefn
+
+function FPL2dxoutputtimeseries(filename,p,t,u,attr_name,attr_rank,attr_shape,time)
+
+ Nsteps = length(time);
+ if (Nsteps<=1)
+ endfile = 1;
+ else
+ endfile = 0;
+ endif
+
+ FPL2dxoutputdata(filename,p,t,u(:,1:attr_shape),[attr_name "1"],attr_rank,attr_shape,endfile);
+
+ for it = 2:Nsteps
+ FPL2dxappenddata(filename,p,t,u(:,[1:attr_shape]+attr_shape*(it-1)),...
+ [attr_name num2str(it)],attr_rank,attr_shape,endfile);
+ endfor
+
+ fid=fopen(filename,"a");
+
+ fprintf (fid, "object \"%s_series\" class series\n",attr_name);
+ for it = 1:Nsteps
+ fprintf (fid,"member %d position %g value \"%s\"\n",it-1,time(it),[attr_name num2str(it)]);
+ endfor
+ fprintf (fid, "\nend\n");
+ fclose(fid);
+
+endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2pdequiver.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2pdequiver.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,92 @@
+## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} FPL2pdequiver (@var{mesh}, @
+## @var{vx}, @var{vy}, [ @var{property}, @var{value} ...])
+##
+## Plots the 2D vector field @var{vx}, @var{vy}
+## defined on the triangulation @var{mesh} using opendx.
+##
+## Options (default values):
+## @var{sample_density} (100)
+##
+## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2ptcquiver}
+## @end deftypefn
+
+function FPL2pdequiver(mesh,vecfieldx,vecfieldy,varargin);
+
+ sample_density = "100";
+
+ if( (nargin >= 3) && (rem(nargin,2)==1) )
+ for ii=1:2:length(varargin)
+ [ varargin{ii} " = " varargin{ii+1} ";" ]
+ eval([ varargin{ii} " = """ varargin{ii+1} """;" ]);
+ endfor
+ else
+ error(["wrong number of parameters " num2str (nargin)])
+ endif
+
+ JX = sum(vecfieldx,1)'/3;
+ JY = sum(vecfieldy,1)'/3;
+
+ dataname = mktemp("/tmp",".dx");
+ scriptname = mktemp("/tmp",".net");
+
+ FPL2dxoutputdata(dataname,mesh.p,mesh.t,[ JX JY],'J',1,2,1);
+
+ showmesh = file_in_path(path,"FPL2pdequiver.net");
+
+ system (["cp " showmesh " " scriptname]);
+ system (["sed -i \'s|__FILE__DX__|" dataname "|g\' " scriptname]);
+ system (["sed -i \'s|__SAMPLE__DENSITY__|" sample_density "|g\' " scriptname]);
+
+ command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
+
+ system(command);
+
+
+endfunction
+
+function filename = mktemp (direct,ext);
+
+ if (~exist(direct,"dir"))
+ error("trying to save temporary file to non existing directory")
+ endif
+
+ done=false;
+
+ while ~done
+ filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
+ if ~exist(filename,"file")
+ done =true;
+ endif
+ endwhile
+
+endfunction
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2pdequiver.net
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2pdequiver.net Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,613 @@
+//
+// time: Fri Jun 15 19:24:56 2007
+//
+// version: 3.2.0 (format), 4.4.4 (DX)
+//
+//
+// MODULE main
+// workspace: width = 481, height = 614
+// layout: snap = 0, width = 50, height = 50, align = NN
+//
+macro main(
+) -> (
+) {
+ //
+ // node FileSelector[1]: x = 173, y = 81, inputs = 0, label = FileSelector
+ // output[1]: visible = 1, type = 32, value = "__FILE__DX__"
+ // output[2]: visible = 1, type = 32, value = "__FILE__DX__"
+ //
+ //
+ // node Import[1]: x = 203, y = 177, inputs = 6, label = Import
+ //
+main_Import_1_out_1 =
+ Import(
+ main_FileSelector_1_out_1,
+ main_Import_1_in_2,
+ main_Import_1_in_3,
+ main_Import_1_in_4,
+ main_Import_1_in_5,
+ main_Import_1_in_6
+ ) [instance: 1, cache: 1];
+ //
+ // node Sample[1]: x = 89, y = 238, inputs = 2, label = Sample
+ // input[2]: defaulting = 0, visible = 1, type = 1, value = __SAMPLE__DENSITY__
+ //
+main_Sample_1_out_1 =
+ Sample(
+ main_Import_1_out_1,
+ main_Sample_1_in_2
+ ) [instance: 1, cache: 1];
+ //
+ // node AutoGlyph[1]: x = 64, y = 323, inputs = 7, label = AutoGlyph
+ //
+main_AutoGlyph_1_out_1 =
+ AutoGlyph(
+ main_Sample_1_out_1,
+ main_AutoGlyph_1_in_2,
+ main_AutoGlyph_1_in_3,
+ main_AutoGlyph_1_in_4,
+ main_AutoGlyph_1_in_5,
+ main_AutoGlyph_1_in_6,
+ main_AutoGlyph_1_in_7
+ ) [instance: 1, cache: 1];
+ //
+ // node AutoColor[1]: x = 76, y = 415, inputs = 10, label = AutoColor
+ //
+main_AutoColor_1_out_1,
+main_AutoColor_1_out_2 =
+ AutoColor(
+ main_AutoGlyph_1_out_1,
+ main_AutoColor_1_in_2,
+ main_AutoColor_1_in_3,
+ main_AutoColor_1_in_4,
+ main_AutoColor_1_in_5,
+ main_AutoColor_1_in_6,
+ main_AutoColor_1_in_7,
+ main_AutoColor_1_in_8,
+ main_AutoColor_1_in_9,
+ main_AutoColor_1_in_10
+ ) [instance: 1, cache: 1];
+ //
+ // node ColorBar[1]: x = 238, y = 367, inputs = 16, label = ColorBar
+ //
+main_ColorBar_1_out_1 =
+ ColorBar(
+ main_AutoColor_1_out_2,
+ main_ColorBar_1_in_2,
+ main_ColorBar_1_in_3,
+ main_ColorBar_1_in_4,
+ main_ColorBar_1_in_5,
+ main_ColorBar_1_in_6,
+ main_ColorBar_1_in_7,
+ main_ColorBar_1_in_8,
+ main_ColorBar_1_in_9,
+ main_ColorBar_1_in_10,
+ main_ColorBar_1_in_11,
+ main_ColorBar_1_in_12,
+ main_ColorBar_1_in_13,
+ main_ColorBar_1_in_14,
+ main_ColorBar_1_in_15,
+ main_ColorBar_1_in_16
+ ) [instance: 1, cache: 1];
+ //
+ // node ShowConnections[1]: x = 348, y = 295, inputs = 1, label = ShowConnections
+ //
+main_ShowConnections_1_out_1 =
+ ShowConnections(
+ main_Import_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Color[1]: x = 359, y = 398, inputs = 5, label = Color
+ // input[2]: defaulting = 0, visible = 1, type = 32, value = "black"
+ //
+main_Color_1_out_1 =
+ Color(
+ main_ShowConnections_1_out_1,
+ main_Color_1_in_2,
+ main_Color_1_in_3,
+ main_Color_1_in_4,
+ main_Color_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node Collect[1]: x = 198, y = 465, inputs = 3, label = Collect
+ //
+main_Collect_1_out_1 =
+ Collect(
+ main_AutoColor_1_out_1,
+ main_ColorBar_1_out_1,
+ main_Color_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Image[1]: x = 195, y = 552, inputs = 49, label = Image
+ // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1"
+ // input[4]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[5]: defaulting = 0, visible = 0, type = 8, value = [0.555651 0.5 0]
+ // input[6]: defaulting = 0, visible = 0, type = 8, value = [0.555651 0.5 3.71222]
+ // input[7]: defaulting = 0, visible = 0, type = 5, value = 1.98938
+ // input[8]: defaulting = 0, visible = 0, type = 1, value = 1254
+ // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.759
+ // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0]
+ // input[11]: defaulting = 1, visible = 0, type = 5, value = 30.0001
+ // input[12]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[15]: defaulting = 1, visible = 0, type = 32, value = "none"
+ // input[16]: defaulting = 1, visible = 0, type = 32, value = "none"
+ // input[17]: defaulting = 1, visible = 0, type = 1, value = 1
+ // input[18]: defaulting = 1, visible = 0, type = 1, value = 1
+ // input[19]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[22]: defaulting = 0, visible = 0, type = 32, value = "grey70"
+ // input[29]: defaulting = 1, visible = 0, type = 3, value = 0
+ // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom"
+ // depth: value = 24
+ // window: position = (0.0000,0.0000), size = 0.9906x0.9697
+ // internal caching: 1
+ //
+main_Image_1_out_1,
+main_Image_1_out_2,
+main_Image_1_out_3 =
+ Image(
+ main_Image_1_in_1,
+ main_Collect_1_out_1,
+ main_Image_1_in_3,
+ main_Image_1_in_4,
+ main_Image_1_in_5,
+ main_Image_1_in_6,
+ main_Image_1_in_7,
+ main_Image_1_in_8,
+ main_Image_1_in_9,
+ main_Image_1_in_10,
+ main_Image_1_in_11,
+ main_Image_1_in_12,
+ main_Image_1_in_13,
+ main_Image_1_in_14,
+ main_Image_1_in_15,
+ main_Image_1_in_16,
+ main_Image_1_in_17,
+ main_Image_1_in_18,
+ main_Image_1_in_19,
+ main_Image_1_in_20,
+ main_Image_1_in_21,
+ main_Image_1_in_22,
+ main_Image_1_in_23,
+ main_Image_1_in_24,
+ main_Image_1_in_25,
+ main_Image_1_in_26,
+ main_Image_1_in_27,
+ main_Image_1_in_28,
+ main_Image_1_in_29,
+ main_Image_1_in_30,
+ main_Image_1_in_31,
+ main_Image_1_in_32,
+ main_Image_1_in_33,
+ main_Image_1_in_34,
+ main_Image_1_in_35,
+ main_Image_1_in_36,
+ main_Image_1_in_37,
+ main_Image_1_in_38,
+ main_Image_1_in_39,
+ main_Image_1_in_40,
+ main_Image_1_in_41,
+ main_Image_1_in_42,
+ main_Image_1_in_43,
+ main_Image_1_in_44,
+ main_Image_1_in_45,
+ main_Image_1_in_46,
+ main_Image_1_in_47,
+ main_Image_1_in_48,
+ main_Image_1_in_49
+ ) [instance: 1, cache: 1];
+// network: end of macro body
+CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
+}
+main_FileSelector_1_out_1 = "__FILE__DX__";
+main_Import_1_in_2 = NULL;
+main_Import_1_in_3 = NULL;
+main_Import_1_in_4 = NULL;
+main_Import_1_in_5 = NULL;
+main_Import_1_in_6 = NULL;
+main_Import_1_out_1 = NULL;
+main_Sample_1_in_2 = __SAMPLE__DENSITY__;
+main_Sample_1_out_1 = NULL;
+main_AutoGlyph_1_in_2 = NULL;
+main_AutoGlyph_1_in_3 = NULL;
+main_AutoGlyph_1_in_4 = NULL;
+main_AutoGlyph_1_in_5 = NULL;
+main_AutoGlyph_1_in_6 = NULL;
+main_AutoGlyph_1_in_7 = NULL;
+main_AutoGlyph_1_out_1 = NULL;
+main_AutoColor_1_in_2 = NULL;
+main_AutoColor_1_in_3 = NULL;
+main_AutoColor_1_in_4 = NULL;
+main_AutoColor_1_in_5 = NULL;
+main_AutoColor_1_in_6 = NULL;
+main_AutoColor_1_in_7 = NULL;
+main_AutoColor_1_in_8 = NULL;
+main_AutoColor_1_in_9 = NULL;
+main_AutoColor_1_in_10 = NULL;
+main_AutoColor_1_out_1 = NULL;
+main_AutoColor_1_out_2 = NULL;
+main_ColorBar_1_in_2 = NULL;
+main_ColorBar_1_in_3 = NULL;
+main_ColorBar_1_in_4 = NULL;
+main_ColorBar_1_in_5 = NULL;
+main_ColorBar_1_in_6 = NULL;
+main_ColorBar_1_in_7 = NULL;
+main_ColorBar_1_in_8 = NULL;
+main_ColorBar_1_in_9 = NULL;
+main_ColorBar_1_in_10 = NULL;
+main_ColorBar_1_in_11 = NULL;
+main_ColorBar_1_in_12 = NULL;
+main_ColorBar_1_in_13 = NULL;
+main_ColorBar_1_in_14 = NULL;
+main_ColorBar_1_in_15 = NULL;
+main_ColorBar_1_in_16 = NULL;
+main_ColorBar_1_out_1 = NULL;
+main_ShowConnections_1_out_1 = NULL;
+main_Color_1_in_2 = "black";
+main_Color_1_in_3 = NULL;
+main_Color_1_in_4 = NULL;
+main_Color_1_in_5 = NULL;
+main_Color_1_out_1 = NULL;
+main_Collect_1_out_1 = NULL;
+macro Image(
+ id,
+ object,
+ where,
+ useVector,
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ viewAngle,
+ perspective,
+ options,
+ buttonState = 1,
+ buttonUpApprox = "none",
+ buttonDownApprox = "none",
+ buttonUpDensity = 1,
+ buttonDownDensity = 1,
+ renderMode = 0,
+ defaultCamera,
+ reset,
+ backgroundColor,
+ throttle,
+ RECenable = 0,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable = 0,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ interactionMode,
+ title,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ webOptions) -> (
+ object,
+ camera,
+ where)
+{
+ ImageMessage(
+ id,
+ backgroundColor,
+ throttle,
+ RECenable,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ interactionMode,
+ title,
+ renderMode,
+ buttonUpApprox,
+ buttonDownApprox,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 1, cache: 1];
+ autoCamera =
+ AutoCamera(
+ object,
+ "front",
+ object,
+ resolution,
+ aspect,
+ [0,1,0],
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ realCamera =
+ Camera(
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ coloredDefaultCamera =
+ UpdateCamera(defaultCamera,
+ background=backgroundColor) [instance: 1, cache: 1];
+ nullDefaultCamera =
+ Inquire(defaultCamera,
+ "is null + 1") [instance: 1, cache: 1];
+ resetCamera =
+ Switch(
+ nullDefaultCamera,
+ coloredDefaultCamera,
+ autoCamera) [instance: 1, cache: 1];
+ resetNull =
+ Inquire(
+ reset,
+ "is null + 1") [instance: 2, cache: 1];
+ reset =
+ Switch(
+ resetNull,
+ reset,
+ 0) [instance: 2, cache: 1];
+ whichCamera =
+ Compute(
+ "($0 != 0 || $1 == 0) ? 1 : 2",
+ reset,
+ useVector) [instance: 1, cache: 1];
+ camera = Switch(
+ whichCamera,
+ resetCamera,
+ realCamera) [instance: 3, cache: 1];
+ AAobject =
+ AutoAxes(
+ object,
+ camera,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels) [instance: 1, cache: 1];
+ switchAAenable = Compute("$0+1",
+ AAenable) [instance: 2, cache: 1];
+ object = Switch(
+ switchAAenable,
+ object,
+ AAobject) [instance:4, cache: 1];
+ SWapproximation_options =
+ Switch(
+ buttonState,
+ buttonUpApprox,
+ buttonDownApprox) [instance: 5, cache: 1];
+ SWdensity_options =
+ Switch(
+ buttonState,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 6, cache: 1];
+ HWapproximation_options =
+ Format(
+ "%s,%s",
+ buttonDownApprox,
+ buttonUpApprox) [instance: 1, cache: 1];
+ HWdensity_options =
+ Format(
+ "%d,%d",
+ buttonDownDensity,
+ buttonUpDensity) [instance: 2, cache: 1];
+ switchRenderMode = Compute(
+ "$0+1",
+ renderMode) [instance: 3, cache: 1];
+ approximation_options = Switch(
+ switchRenderMode,
+ SWapproximation_options,
+ HWapproximation_options) [instance: 7, cache: 1];
+ density_options = Switch(
+ switchRenderMode,
+ SWdensity_options,
+ HWdensity_options) [instance: 8, cache: 1];
+ renderModeString = Switch(
+ switchRenderMode,
+ "software",
+ "hardware")[instance: 9, cache: 1];
+ object_tag = Inquire(
+ object,
+ "object tag")[instance: 3, cache: 1];
+ annoted_object =
+ Options(
+ object,
+ "send boxes",
+ 0,
+ "cache",
+ 1,
+ "object tag",
+ object_tag,
+ "ddcamera",
+ whichCamera,
+ "rendering approximation",
+ approximation_options,
+ "render every",
+ density_options,
+ "button state",
+ buttonState,
+ "rendering mode",
+ renderModeString) [instance: 1, cache: 1];
+ RECresNull =
+ Inquire(
+ RECresolution,
+ "is null + 1") [instance: 4, cache: 1];
+ ImageResolution =
+ Inquire(
+ camera,
+ "camera resolution") [instance: 5, cache: 1];
+ RECresolution =
+ Switch(
+ RECresNull,
+ RECresolution,
+ ImageResolution) [instance: 10, cache: 1];
+ RECaspectNull =
+ Inquire(
+ RECaspect,
+ "is null + 1") [instance: 6, cache: 1];
+ ImageAspect =
+ Inquire(
+ camera,
+ "camera aspect") [instance: 7, cache: 1];
+ RECaspect =
+ Switch(
+ RECaspectNull,
+ RECaspect,
+ ImageAspect) [instance: 11, cache: 1];
+ switchRECenable = Compute(
+ "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
+ RECenable,
+ switchRenderMode,
+ RECresolution,
+ ImageResolution,
+ RECaspect,
+ ImageAspect) [instance: 4, cache: 1];
+ NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
+ Display(
+ NoRECobject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECNoRerenderObject,
+ camera) [instance: 1, cache: 1];
+ Display(
+ image,
+ NULL,
+ where,
+ throttle) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ rec_where = Display(
+ RECNoRerHW,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 0];
+ rec_image = ReadImageWindow(
+ rec_where) [instance: 1, cache: 1];
+ WriteImage(
+ rec_image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ RECupdateCamera =
+ UpdateCamera(
+ camera,
+ resolution=RECresolution,
+ aspect=RECaspect) [instance: 2, cache: 1];
+ Display(
+ RECRerenderObject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ RECRerenderObject =
+ ScaleScreen(
+ RECRerenderObject,
+ NULL,
+ RECresolution,
+ camera) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECRerenderObject,
+ RECupdateCamera) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 2, cache: 1];
+}
+main_Image_1_in_1 = "Image_1";
+main_Image_1_in_3 = "X24,,";
+main_Image_1_in_4 = 1;
+main_Image_1_in_5 = [0.555651 0.5 0];
+main_Image_1_in_6 = [0.555651 0.5 3.71222];
+main_Image_1_in_7 = 1.98938;
+main_Image_1_in_8 = 1254;
+main_Image_1_in_9 = 0.759;
+main_Image_1_in_10 = [0 1 0];
+main_Image_1_in_11 = NULL;
+main_Image_1_in_12 = 0;
+main_Image_1_in_13 = NULL;
+main_Image_1_in_14 = 1;
+main_Image_1_in_15 = NULL;
+main_Image_1_in_16 = NULL;
+main_Image_1_in_17 = NULL;
+main_Image_1_in_18 = NULL;
+main_Image_1_in_19 = 0;
+main_Image_1_in_20 = NULL;
+main_Image_1_in_21 = NULL;
+main_Image_1_in_22 = "grey70";
+main_Image_1_in_23 = NULL;
+main_Image_1_in_25 = NULL;
+main_Image_1_in_26 = NULL;
+main_Image_1_in_27 = NULL;
+main_Image_1_in_28 = NULL;
+main_Image_1_in_29 = NULL;
+main_Image_1_in_30 = NULL;
+main_Image_1_in_31 = NULL;
+main_Image_1_in_32 = NULL;
+main_Image_1_in_33 = NULL;
+main_Image_1_in_34 = NULL;
+main_Image_1_in_35 = NULL;
+main_Image_1_in_36 = NULL;
+main_Image_1_in_37 = NULL;
+main_Image_1_in_38 = NULL;
+main_Image_1_in_39 = NULL;
+main_Image_1_in_40 = NULL;
+main_Image_1_in_41 = "panzoom";
+main_Image_1_in_42 = NULL;
+main_Image_1_in_43 = NULL;
+main_Image_1_in_44 = NULL;
+main_Image_1_in_45 = NULL;
+main_Image_1_in_46 = NULL;
+main_Image_1_in_47 = NULL;
+main_Image_1_in_48 = NULL;
+main_Image_1_in_49 = NULL;
+Executive("product version 4 4 4");
+$sync
+main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2pdeshowmesh.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2pdeshowmesh.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,94 @@
+## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+##
+## @deftypefn {Function File} {} FPL2pdeshowmesh (@var{mesh},@var{color})
+##
+## Displays one 2-D triangulations using opendx
+##
+## Examples:
+## @example
+##
+## FPL2pdeshowmesh(mesh)
+## FPL2pdeshowmesh(mesh,"blue")
+##
+## @end example
+##
+## @seealso{FPL2ptcshowmesh}
+## @end deftypefn
+
+function FPL2pdeshowmesh (varargin)
+
+ if nargin == 1
+ colorname = "red";
+ else
+ colorname = varargin{2};
+ endif
+
+ dataname = mktemp("/tmp",".dx");
+ FPL2dxoutputdata(dataname,varargin{1}.p,varargin{1}.t,varargin{1}.p(1,:)','x',0,1,1);
+
+ scriptname = mktemp("/tmp",".net");
+
+ showmesh = file_in_path(path,"FPL2pdeshowmesh.net");
+
+ system (["cp " showmesh " " scriptname]);
+ system (["sed -i \'s|FILENAME|" dataname "|g\' " scriptname]);
+ system (["sed -i \'s|COLORNAME|" colorname "|g\' " scriptname]);
+
+ command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
+ system(command);
+
+endfunction
+
+function filename = mktemp (direct,ext);
+
+ if (~exist(direct,"dir"))
+ error("trying to save temporary file to non existing directory")
+ end
+
+ done=false;
+
+ while ~done
+ filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
+ if ~exist(filename,"file")
+ done =true;
+ endif
+ endwhile
+
+endfunction
+
+%!test
+%! msh.p = [0 0; 1 0; 1 1; 0 1].';
+%! msh.t = [1 2 3 1; 1 3 4 1].';
+%! msh.e = [1 2 0 0 1 0 1; 2 3 0 0 2 0 1; 3 4 0 0 3 0 1; 4 1 0 0 4 0 1].';
+%! FPL2pdeshowmesh (msh, "red");
+%! s = input ("do you see a red outlined square divided in two triangles (if you see an empty plot try ctrl-F)? (y/n): " ,"s");
+%! assert(s, "y")
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2pdeshowmesh.net
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2pdeshowmesh.net Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,518 @@
+//
+// time: Sat Jan 5 12:20:20 2008
+//
+// version: 3.2.0 (format), 4.4.4 (DX)
+//
+//
+// MODULE main
+// workspace: width = 260, height = 456
+// layout: snap = 1, width = 10, height = 10, align = CC
+//
+macro main(
+) -> (
+) {
+ //
+ // node String[1]: x = 81, y = 24, inputs = 0, label = String
+ // output[1]: visible = 1, type = 32, value = "FILENAME"
+ //
+ //
+ // node Import[1]: x = 79, y = 104, inputs = 6, label = Import
+ //
+main_Import_1_out_1 =
+ Import(
+ main_String_1_out_1,
+ main_Import_1_in_2,
+ main_Import_1_in_3,
+ main_Import_1_in_4,
+ main_Import_1_in_5,
+ main_Import_1_in_6
+ ) [instance: 1, cache: 1];
+ //
+ // node String[2]: x = 211, y = 24, inputs = 0, label = String
+ // output[1]: visible = 1, type = 32, value = "COLORNAME"
+ //
+ //
+ // node Color[1]: x = 149, y = 184, inputs = 5, label = Color
+ // input[2]: defaulting = 1, visible = 1, type = 32, value = "indianred"
+ //
+main_Color_1_out_1 =
+ Color(
+ main_Import_1_out_1,
+ main_String_2_out_1,
+ main_Color_1_in_3,
+ main_Color_1_in_4,
+ main_Color_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node ShowConnections[1]: x = 119, y = 294, inputs = 1, label = ShowConnections
+ //
+main_ShowConnections_1_out_1 =
+ ShowConnections(
+ main_Color_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Image[1]: x = 149, y = 394, inputs = 49, label = Image
+ // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1"
+ // input[4]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[5]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 0]
+ // input[6]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 39.3199]
+ // input[7]: defaulting = 0, visible = 0, type = 5, value = 21.0715
+ // input[8]: defaulting = 0, visible = 0, type = 1, value = 804
+ // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.610075
+ // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0]
+ // input[11]: defaulting = 1, visible = 0, type = 5, value = 30.0
+ // input[12]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[15]: defaulting = 1, visible = 0, type = 32, value = "none"
+ // input[16]: defaulting = 1, visible = 0, type = 32, value = "none"
+ // input[17]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[18]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[19]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow"
+ // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif"
+ // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff"
+ // input[29]: defaulting = 0, visible = 0, type = 3, value = 1
+ // input[31]: defaulting = 0, visible = 0, type = 1, value = -15
+ // input[33]: defaulting = 0, visible = 0, type = 3, value = 0
+ // input[34]: defaulting = 0, visible = 0, type = 3, value = 0
+ // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "grey5", "saddlebrown", "saddlebrown"}
+ // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"}
+ // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.7
+ // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_s"
+ // input[41]: defaulting = 0, visible = 0, type = 32, value = "none"
+ // depth: value = 24
+ // window: position = (0.2479,0.1267), size = 0.6389x0.6833
+ // internal caching: 1
+ //
+main_Image_1_out_1,
+main_Image_1_out_2,
+main_Image_1_out_3 =
+ Image(
+ main_Image_1_in_1,
+ main_ShowConnections_1_out_1,
+ main_Image_1_in_3,
+ main_Image_1_in_4,
+ main_Image_1_in_5,
+ main_Image_1_in_6,
+ main_Image_1_in_7,
+ main_Image_1_in_8,
+ main_Image_1_in_9,
+ main_Image_1_in_10,
+ main_Image_1_in_11,
+ main_Image_1_in_12,
+ main_Image_1_in_13,
+ main_Image_1_in_14,
+ main_Image_1_in_15,
+ main_Image_1_in_16,
+ main_Image_1_in_17,
+ main_Image_1_in_18,
+ main_Image_1_in_19,
+ main_Image_1_in_20,
+ main_Image_1_in_21,
+ main_Image_1_in_22,
+ main_Image_1_in_23,
+ main_Image_1_in_24,
+ main_Image_1_in_25,
+ main_Image_1_in_26,
+ main_Image_1_in_27,
+ main_Image_1_in_28,
+ main_Image_1_in_29,
+ main_Image_1_in_30,
+ main_Image_1_in_31,
+ main_Image_1_in_32,
+ main_Image_1_in_33,
+ main_Image_1_in_34,
+ main_Image_1_in_35,
+ main_Image_1_in_36,
+ main_Image_1_in_37,
+ main_Image_1_in_38,
+ main_Image_1_in_39,
+ main_Image_1_in_40,
+ main_Image_1_in_41,
+ main_Image_1_in_42,
+ main_Image_1_in_43,
+ main_Image_1_in_44,
+ main_Image_1_in_45,
+ main_Image_1_in_46,
+ main_Image_1_in_47,
+ main_Image_1_in_48,
+ main_Image_1_in_49
+ ) [instance: 1, cache: 1];
+// network: end of macro body
+CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
+}
+main_String_1_out_1 = "FILENAME";
+main_Import_1_in_2 = NULL;
+main_Import_1_in_3 = NULL;
+main_Import_1_in_4 = NULL;
+main_Import_1_in_5 = NULL;
+main_Import_1_in_6 = NULL;
+main_Import_1_out_1 = NULL;
+main_String_2_out_1 = "COLORNAME";
+main_Color_1_in_3 = NULL;
+main_Color_1_in_4 = NULL;
+main_Color_1_in_5 = NULL;
+main_Color_1_out_1 = NULL;
+main_ShowConnections_1_out_1 = NULL;
+macro Image(
+ id,
+ object,
+ where,
+ useVector,
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ viewAngle,
+ perspective,
+ options,
+ buttonState = 1,
+ buttonUpApprox = "none",
+ buttonDownApprox = "none",
+ buttonUpDensity = 1,
+ buttonDownDensity = 1,
+ renderMode = 0,
+ defaultCamera,
+ reset,
+ backgroundColor,
+ throttle,
+ RECenable = 0,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable = 0,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ interactionMode,
+ title,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ webOptions) -> (
+ object,
+ camera,
+ where)
+{
+ ImageMessage(
+ id,
+ backgroundColor,
+ throttle,
+ RECenable,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ interactionMode,
+ title,
+ renderMode,
+ buttonUpApprox,
+ buttonDownApprox,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 1, cache: 1];
+ autoCamera =
+ AutoCamera(
+ object,
+ "front",
+ object,
+ resolution,
+ aspect,
+ [0,1,0],
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ realCamera =
+ Camera(
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ coloredDefaultCamera =
+ UpdateCamera(defaultCamera,
+ background=backgroundColor) [instance: 1, cache: 1];
+ nullDefaultCamera =
+ Inquire(defaultCamera,
+ "is null + 1") [instance: 1, cache: 1];
+ resetCamera =
+ Switch(
+ nullDefaultCamera,
+ coloredDefaultCamera,
+ autoCamera) [instance: 1, cache: 1];
+ resetNull =
+ Inquire(
+ reset,
+ "is null + 1") [instance: 2, cache: 1];
+ reset =
+ Switch(
+ resetNull,
+ reset,
+ 0) [instance: 2, cache: 1];
+ whichCamera =
+ Compute(
+ "($0 != 0 || $1 == 0) ? 1 : 2",
+ reset,
+ useVector) [instance: 1, cache: 1];
+ camera = Switch(
+ whichCamera,
+ resetCamera,
+ realCamera) [instance: 3, cache: 1];
+ AAobject =
+ AutoAxes(
+ object,
+ camera,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels) [instance: 1, cache: 1];
+ switchAAenable = Compute("$0+1",
+ AAenable) [instance: 2, cache: 1];
+ object = Switch(
+ switchAAenable,
+ object,
+ AAobject) [instance:4, cache: 1];
+ SWapproximation_options =
+ Switch(
+ buttonState,
+ buttonUpApprox,
+ buttonDownApprox) [instance: 5, cache: 1];
+ SWdensity_options =
+ Switch(
+ buttonState,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 6, cache: 1];
+ HWapproximation_options =
+ Format(
+ "%s,%s",
+ buttonDownApprox,
+ buttonUpApprox) [instance: 1, cache: 1];
+ HWdensity_options =
+ Format(
+ "%d,%d",
+ buttonDownDensity,
+ buttonUpDensity) [instance: 2, cache: 1];
+ switchRenderMode = Compute(
+ "$0+1",
+ renderMode) [instance: 3, cache: 1];
+ approximation_options = Switch(
+ switchRenderMode,
+ SWapproximation_options,
+ HWapproximation_options) [instance: 7, cache: 1];
+ density_options = Switch(
+ switchRenderMode,
+ SWdensity_options,
+ HWdensity_options) [instance: 8, cache: 1];
+ renderModeString = Switch(
+ switchRenderMode,
+ "software",
+ "hardware")[instance: 9, cache: 1];
+ object_tag = Inquire(
+ object,
+ "object tag")[instance: 3, cache: 1];
+ annoted_object =
+ Options(
+ object,
+ "send boxes",
+ 0,
+ "cache",
+ 1,
+ "object tag",
+ object_tag,
+ "ddcamera",
+ whichCamera,
+ "rendering approximation",
+ approximation_options,
+ "render every",
+ density_options,
+ "button state",
+ buttonState,
+ "rendering mode",
+ renderModeString) [instance: 1, cache: 1];
+ RECresNull =
+ Inquire(
+ RECresolution,
+ "is null + 1") [instance: 4, cache: 1];
+ ImageResolution =
+ Inquire(
+ camera,
+ "camera resolution") [instance: 5, cache: 1];
+ RECresolution =
+ Switch(
+ RECresNull,
+ RECresolution,
+ ImageResolution) [instance: 10, cache: 1];
+ RECaspectNull =
+ Inquire(
+ RECaspect,
+ "is null + 1") [instance: 6, cache: 1];
+ ImageAspect =
+ Inquire(
+ camera,
+ "camera aspect") [instance: 7, cache: 1];
+ RECaspect =
+ Switch(
+ RECaspectNull,
+ RECaspect,
+ ImageAspect) [instance: 11, cache: 1];
+ switchRECenable = Compute(
+ "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
+ RECenable,
+ switchRenderMode,
+ RECresolution,
+ ImageResolution,
+ RECaspect,
+ ImageAspect) [instance: 4, cache: 1];
+ NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
+ Display(
+ NoRECobject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECNoRerenderObject,
+ camera) [instance: 1, cache: 1];
+ Display(
+ image,
+ NULL,
+ where,
+ throttle) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ rec_where = Display(
+ RECNoRerHW,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 0];
+ rec_image = ReadImageWindow(
+ rec_where) [instance: 1, cache: 1];
+ WriteImage(
+ rec_image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ RECupdateCamera =
+ UpdateCamera(
+ camera,
+ resolution=RECresolution,
+ aspect=RECaspect) [instance: 2, cache: 1];
+ Display(
+ RECRerenderObject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ RECRerenderObject =
+ ScaleScreen(
+ RECRerenderObject,
+ NULL,
+ RECresolution,
+ camera) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECRerenderObject,
+ RECupdateCamera) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 2, cache: 1];
+}
+main_Image_1_in_1 = "Image_1";
+main_Image_1_in_3 = "X24,,";
+main_Image_1_in_4 = 1;
+main_Image_1_in_5 = [7.5 7.5 0];
+main_Image_1_in_6 = [7.5 7.5 39.3199];
+main_Image_1_in_7 = 21.0715;
+main_Image_1_in_8 = 804;
+main_Image_1_in_9 = 0.610075;
+main_Image_1_in_10 = [0 1 0];
+main_Image_1_in_11 = NULL;
+main_Image_1_in_12 = 0;
+main_Image_1_in_13 = NULL;
+main_Image_1_in_14 = 1;
+main_Image_1_in_15 = NULL;
+main_Image_1_in_16 = NULL;
+main_Image_1_in_17 = 1;
+main_Image_1_in_18 = 1;
+main_Image_1_in_19 = 1;
+main_Image_1_in_20 = NULL;
+main_Image_1_in_21 = NULL;
+main_Image_1_in_22 = "snow";
+main_Image_1_in_23 = NULL;
+main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif";
+main_Image_1_in_26 = "tiff";
+main_Image_1_in_27 = NULL;
+main_Image_1_in_28 = NULL;
+main_Image_1_in_29 = 1;
+main_Image_1_in_30 = NULL;
+main_Image_1_in_31 = -15;
+main_Image_1_in_32 = NULL;
+main_Image_1_in_33 = 0;
+main_Image_1_in_34 = 0;
+main_Image_1_in_35 = NULL;
+main_Image_1_in_36 = NULL;
+main_Image_1_in_37 = {"clear", "grey5", "saddlebrown", "saddlebrown"};
+main_Image_1_in_38 = {"background", "grid", "ticks", "labels"};
+main_Image_1_in_39 = 0.7;
+main_Image_1_in_40 = "roman_s";
+main_Image_1_in_41 = "none";
+main_Image_1_in_42 = NULL;
+main_Image_1_in_43 = NULL;
+main_Image_1_in_44 = NULL;
+main_Image_1_in_45 = NULL;
+main_Image_1_in_46 = NULL;
+main_Image_1_in_47 = NULL;
+main_Image_1_in_48 = NULL;
+main_Image_1_in_49 = NULL;
+Executive("product version 4 4 4");
+$sync
+main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2pdesurf.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2pdesurf.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,130 @@
+## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} FPL2pdesurf (@var{mesh}, @
+## @var{u} [ @var{property}, @var{value} ...])
+##
+## plots the scalar field @var{u}
+## defined on the triangulation @var{mesh} using opendx.
+##
+## options (default value):
+## @itemize @minus
+## @item data_dep ("positions") defines wether data depends on
+## positions or connections
+## @item plot_field ("scalar") defines wether to plot the scalar field
+## itself or its gradient
+## @end itemize
+##
+## @seealso{MSH2Mgmsh, MSH2Mstructmesh}
+## @end deftypefn
+
+function FPL2pdesurf(varargin)
+
+ data_dep = "positions";
+ plot_field = "scalar";
+
+ if nargin == 1
+ FPL2showmesh(varargin{1});
+ elseif nargin == 2
+ mesh = varargin{1};
+ u = varargin{2};
+ elseif ( (nargin > 2) && (rem(nargin,2)==0) )
+ mesh = varargin{1};
+ u = varargin{2};
+ for ii=3:2:nargin
+ eval([ varargin{ii} " = """ varargin{ii+1} """;" ]);
+ endfor
+ else
+ keyboard ,error(["wrong number of parameters " num2str (nargin)])
+ endif
+
+ dataname = mktemp("/tmp",".dx");
+ scriptname = mktemp("/tmp",".net");
+
+ FPL2dxoutputdata(dataname,mesh.p,mesh.t,u,'u',0,1,1);
+
+ switch plot_field
+ case {"scalar","scal"}
+ showmesh = file_in_path(path,"FPL2coloredrubbersheet.net");
+ case {"gradient","grad"}
+ showmesh = file_in_path(path,"FPL2coloredgradient.net");
+ otherwise
+ error ([ "incorrect value " plot_field " for option plot_field "])
+ endswitch
+
+ system (["cp " showmesh " " scriptname]);
+ system (["sed -i \'s|__FILE__DX__|" dataname "|g\' " scriptname]);
+
+ switch data_dep
+ case {"positions","continuous","interpolate","P1"}
+ system (["sed -i \'s|__DATA_DEPENDENCY__|positions|g\' " scriptname]);
+ case {"connections","discontinuous","P0"}
+ system (["sed -i \'s|__DATA_DEPENDENCY__|positions|g\' " scriptname]);
+ otherwise
+ error ([ "incorrect value " data_dep " for option data_dep "])
+ endswitch
+
+ ##command = ["dx -noConfirmedQuit -noImageRWNetFile -program " scriptname " -execute -image >& /dev/null & "];
+ command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
+
+ system(command);
+
+endfunction
+
+function filename = mktemp (direct,ext);
+
+ if (~exist(direct,"dir"))
+ error("trying to save temporary file to non existing directory")
+ endif
+
+ done=false;
+
+ while ~done
+ filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
+ if ~exist(filename,"file")
+ done =true;
+ endif
+ endwhile
+
+endfunction
+
+%!shared msh
+%!test
+%! msh.p = [0 0; 1 0; 1 1; 0 1].';
+%! msh.t = [1 2 3 1; 1 3 4 1].';
+%! msh.e = [1 2 0 0 1 0 1; 2 3 0 0 2 0 1; 3 4 0 0 3 0 1; 4 1 0 0 4 0 1].';
+%! u = [0 1].';
+%! FPL2pdesurf (msh, u, "data_dep", "connections");
+%! s = input ("do you see a square divided into two triangles with a diagonal red-to-blue gradient color (if you see an empty plot try ctrl-F)? (y/n): " ,"s");
+%! assert(s, "y")
+%!test
+%! v = [0 0 1 1].';
+%! FPL2pdesurf (msh, v);
+%! s = input ("do you see a square divided into two triangles with a vertical red-to-blue gradient color (if you see an empty plot try ctrl-F)? (y/n): " ,"s");
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2ptcquiver.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2ptcquiver.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,83 @@
+## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} FPL2ptcquiver (@var{mesh1}, @var{color1}
+## @var{vx1}, @var{vy1}, [ @var{mesh2}, @var{color2}, @var{vx2}, @var{vy2} ...])
+##
+## Plots the 2D vector fields @var{vx}, @var{vy}
+## defined on the triangulations @var{mesh} using opendx.
+##
+##
+## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2pdequiver}
+## @end deftypefn
+
+function FPL2ptcquiver(varargin)
+
+ colorlist = "";
+ datalist = "";
+
+ for ii = 1:4:nargin
+ dataname{ii} = mktemp("/tmp",".dx");
+ JX = sum(varargin{ii+2},1)'/3;
+ JY = sum(varargin{ii+3},1)'/3;
+ FPL2dxoutputdata(dataname{ii},varargin{ii}.p,varargin{ii}.t,[ JX JY],'J',1,2,1);
+ datalist = strcat (datalist, """", dataname{ii} , """");
+ colorlist= strcat (colorlist, """", varargin{ii+1} , """");
+ endfor
+
+ scriptname = mktemp("/tmp",".net");
+
+ view = file_in_path(path,"FPL2ptcquiver.net");
+
+ system (["cp " view " " scriptname]);
+ system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]);
+ system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]);
+
+ command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
+ system(command);
+
+endfunction
+
+function filename = mktemp (direct,ext);
+
+ if (~exist(direct,"dir"))
+ error("trying to save temporary file to non existing directory")
+ endif
+
+ done=false;
+
+ while ~done
+ filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
+ if ~exist(filename,"file")
+ done =true;
+ endif
+ endwhile
+
+endfunction
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2ptcquiver.net
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2ptcquiver.net Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,710 @@
+//
+// time: Mon Jan 7 11:37:04 2008
+//
+// version: 3.2.0 (format), 4.4.4 (DX)
+//
+//
+// MODULE main
+// workspace: width = 875, height = 996
+// layout: snap = 1, width = 10, height = 10, align = CC
+//
+macro main(
+) -> (
+) {
+ //
+ // node CollectMultiGrid[1]: x = 125, y = 584, inputs = 4, label = CollectMultiGrid
+ //
+main_CollectMultiGrid_1_out_1 =
+ CollectMultiGrid(
+ main_CollectMultiGrid_1_in_1,
+ main_CollectMultiGrid_1_in_2,
+ main_CollectMultiGrid_1_in_3,
+ main_CollectMultiGrid_1_in_4
+ ) [instance: 1, cache: 1];
+ //
+ // node StringList[1]: x = 478, y = 14, inputs = 0, label = StringList
+ // output[1]: visible = 1, type = 16777248, value = { "FILELIST" }
+ //
+ //
+ // node ForEachMember[1]: x = 455, y = 94, inputs = 1, label = ForEachMember
+ //
+main_ForEachMember_1_out_1,
+main_ForEachMember_1_out_2,
+main_ForEachMember_1_out_3 =
+ ForEachMember(
+ main_StringList_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Import[1]: x = 479, y = 194, inputs = 6, label = Import
+ //
+main_Import_1_out_1 =
+ Import(
+ main_ForEachMember_1_out_1,
+ main_Import_1_in_2,
+ main_Import_1_in_3,
+ main_Import_1_in_4,
+ main_Import_1_in_5,
+ main_Import_1_in_6
+ ) [instance: 1, cache: 1];
+ //
+ // node ShowConnections[1]: x = 239, y = 384, inputs = 1, label = ShowConnections
+ //
+main_ShowConnections_1_out_1 =
+ ShowConnections(
+ main_Import_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node StringList[2]: x = 418, y = 384, inputs = 0, label = StringList
+ // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" }
+ //
+ //
+ // node ForEachMember[2]: x = 395, y = 474, inputs = 1, label = ForEachMember
+ //
+main_ForEachMember_2_out_1,
+main_ForEachMember_2_out_2,
+main_ForEachMember_2_out_3 =
+ ForEachMember(
+ main_StringList_2_out_1
+ ) [instance: 2, cache: 1];
+ //
+ // node Color[1]: x = 289, y = 584, inputs = 5, label = Color
+ //
+main_Color_1_out_1 =
+ Color(
+ main_ShowConnections_1_out_1,
+ main_ForEachMember_2_out_1,
+ main_Color_1_in_3,
+ main_Color_1_in_4,
+ main_Color_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node GetLocal[1]: x = 452, y = 614, inputs = 3, label = GetLocal
+ //
+main_GetLocal_1_out_1,
+main_GetLocal_1_out_2 =
+ GetLocal(
+ main_GetLocal_1_in_1,
+ main_GetLocal_1_in_2,
+ main_GetLocal_1_in_3
+ ) [instance: 1, cache: 1];
+ //
+ // node Append[1]: x = 285, y = 724, inputs = 5, label = Append
+ //
+main_Append_1_out_1 =
+ Append(
+ main_CollectMultiGrid_1_out_1,
+ main_Color_1_out_1,
+ main_Append_1_in_3,
+ main_GetLocal_1_out_1,
+ main_Append_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node GetLocal[2]: x = 802, y = 264, inputs = 3, label = GetLocal
+ //
+main_GetLocal_2_out_1,
+main_GetLocal_2_out_2 =
+ GetLocal(
+ main_GetLocal_2_in_1,
+ main_GetLocal_2_in_2,
+ main_GetLocal_2_in_3
+ ) [instance: 2, cache: 1];
+ //
+ // node Append[2]: x = 595, y = 384, inputs = 5, label = Append
+ //
+main_Append_2_out_1 =
+ Append(
+ main_CollectMultiGrid_1_out_1,
+ main_Import_1_out_1,
+ main_Append_2_in_3,
+ main_GetLocal_2_out_1,
+ main_Append_2_in_5
+ ) [instance: 2, cache: 1];
+ //
+ // node Sample[1]: x = 627, y = 474, inputs = 2, label = Sample
+ //
+main_Sample_1_out_1 =
+ Sample(
+ main_Append_2_out_1,
+ main_Sample_1_in_2
+ ) [instance: 1, cache: 1];
+ //
+ // node AutoGlyph[1]: x = 625, y = 544, inputs = 7, label = AutoGlyph
+ //
+main_AutoGlyph_1_out_1 =
+ AutoGlyph(
+ main_Sample_1_out_1,
+ main_AutoGlyph_1_in_2,
+ main_AutoGlyph_1_in_3,
+ main_AutoGlyph_1_in_4,
+ main_AutoGlyph_1_in_5,
+ main_AutoGlyph_1_in_6,
+ main_AutoGlyph_1_in_7
+ ) [instance: 1, cache: 1];
+ //
+ // node AutoColor[1]: x = 626, y = 614, inputs = 10, label = AutoColor
+ // input[8]: visible = 1
+ //
+main_AutoColor_1_out_1,
+main_AutoColor_1_out_2 =
+ AutoColor(
+ main_AutoGlyph_1_out_1,
+ main_AutoColor_1_in_2,
+ main_AutoColor_1_in_3,
+ main_AutoColor_1_in_4,
+ main_AutoColor_1_in_5,
+ main_AutoColor_1_in_6,
+ main_AutoColor_1_in_7,
+ main_AutoColor_1_in_8,
+ main_AutoColor_1_in_9,
+ main_AutoColor_1_in_10
+ ) [instance: 1, cache: 1];
+ //
+ // node ColorBar[1]: x = 755, y = 724, inputs = 16, label = ColorBar
+ //
+main_ColorBar_1_out_1 =
+ ColorBar(
+ main_AutoColor_1_out_2,
+ main_ColorBar_1_in_2,
+ main_ColorBar_1_in_3,
+ main_ColorBar_1_in_4,
+ main_ColorBar_1_in_5,
+ main_ColorBar_1_in_6,
+ main_ColorBar_1_in_7,
+ main_ColorBar_1_in_8,
+ main_ColorBar_1_in_9,
+ main_ColorBar_1_in_10,
+ main_ColorBar_1_in_11,
+ main_ColorBar_1_in_12,
+ main_ColorBar_1_in_13,
+ main_ColorBar_1_in_14,
+ main_ColorBar_1_in_15,
+ main_ColorBar_1_in_16
+ ) [instance: 1, cache: 1];
+ //
+ // node Collect[1]: x = 599, y = 844, inputs = 3, label = Collect
+ //
+main_Collect_1_out_1 =
+ Collect(
+ main_Append_1_out_1,
+ main_AutoColor_1_out_1,
+ main_ColorBar_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Image[1]: x = 599, y = 934, inputs = 49, label = Image
+ // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_1"
+ // input[4]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[19]: defaulting = 0, visible = 0, type = 3, value = 0
+ // depth: value = 24
+ // internal caching: 1
+ //
+main_Image_1_out_1,
+main_Image_1_out_2,
+main_Image_1_out_3 =
+ Image(
+ main_Image_1_in_1,
+ main_Collect_1_out_1,
+ main_Image_1_in_3,
+ main_Image_1_in_4,
+ main_Image_1_in_5,
+ main_Image_1_in_6,
+ main_Image_1_in_7,
+ main_Image_1_in_8,
+ main_Image_1_in_9,
+ main_Image_1_in_10,
+ main_Image_1_in_11,
+ main_Image_1_in_12,
+ main_Image_1_in_13,
+ main_Image_1_in_14,
+ main_Image_1_in_15,
+ main_Image_1_in_16,
+ main_Image_1_in_17,
+ main_Image_1_in_18,
+ main_Image_1_in_19,
+ main_Image_1_in_20,
+ main_Image_1_in_21,
+ main_Image_1_in_22,
+ main_Image_1_in_23,
+ main_Image_1_in_24,
+ main_Image_1_in_25,
+ main_Image_1_in_26,
+ main_Image_1_in_27,
+ main_Image_1_in_28,
+ main_Image_1_in_29,
+ main_Image_1_in_30,
+ main_Image_1_in_31,
+ main_Image_1_in_32,
+ main_Image_1_in_33,
+ main_Image_1_in_34,
+ main_Image_1_in_35,
+ main_Image_1_in_36,
+ main_Image_1_in_37,
+ main_Image_1_in_38,
+ main_Image_1_in_39,
+ main_Image_1_in_40,
+ main_Image_1_in_41,
+ main_Image_1_in_42,
+ main_Image_1_in_43,
+ main_Image_1_in_44,
+ main_Image_1_in_45,
+ main_Image_1_in_46,
+ main_Image_1_in_47,
+ main_Image_1_in_48,
+ main_Image_1_in_49
+ ) [instance: 1, cache: 1];
+ //
+ // node SetLocal[1]: x = 462, y = 724, inputs = 3, label = SetLocal
+ //
+ SetLocal(
+ main_Append_1_out_1,
+ main_GetLocal_1_out_2,
+ main_SetLocal_1_in_3
+ ) [instance: 1, cache: 1];
+ //
+ // node SetLocal[2]: x = 792, y = 384, inputs = 3, label = SetLocal
+ //
+ SetLocal(
+ main_Append_2_out_1,
+ main_GetLocal_2_out_2,
+ main_SetLocal_2_in_3
+ ) [instance: 2, cache: 1];
+// network: end of macro body
+CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
+}
+main_CollectMultiGrid_1_in_1 = NULL;
+main_CollectMultiGrid_1_in_2 = NULL;
+main_CollectMultiGrid_1_in_3 = NULL;
+main_CollectMultiGrid_1_in_4 = NULL;
+main_CollectMultiGrid_1_out_1 = NULL;
+main_StringList_1_out_1 = { "FILELIST" };
+main_ForEachMember_1_out_1 = NULL;
+main_Import_1_in_2 = NULL;
+main_Import_1_in_3 = NULL;
+main_Import_1_in_4 = NULL;
+main_Import_1_in_5 = NULL;
+main_Import_1_in_6 = NULL;
+main_Import_1_out_1 = NULL;
+main_ShowConnections_1_out_1 = NULL;
+main_StringList_2_out_1 = { "COLORLIST" };
+main_ForEachMember_2_out_1 = NULL;
+main_Color_1_in_3 = NULL;
+main_Color_1_in_4 = NULL;
+main_Color_1_in_5 = NULL;
+main_Color_1_out_1 = NULL;
+main_GetLocal_1_in_1 = NULL;
+main_GetLocal_1_in_2 = NULL;
+main_GetLocal_1_in_3 = NULL;
+main_GetLocal_1_out_1 = NULL;
+main_GetLocal_1_out_2 = NULL;
+main_Append_1_in_3 = NULL;
+main_Append_1_in_5 = NULL;
+main_Append_1_out_1 = NULL;
+main_GetLocal_2_in_1 = NULL;
+main_GetLocal_2_in_2 = NULL;
+main_GetLocal_2_in_3 = NULL;
+main_GetLocal_2_out_1 = NULL;
+main_GetLocal_2_out_2 = NULL;
+main_Append_2_in_3 = NULL;
+main_Append_2_in_5 = NULL;
+main_Append_2_out_1 = NULL;
+main_Sample_1_in_2 = NULL;
+main_Sample_1_out_1 = NULL;
+main_AutoGlyph_1_in_2 = NULL;
+main_AutoGlyph_1_in_3 = NULL;
+main_AutoGlyph_1_in_4 = NULL;
+main_AutoGlyph_1_in_5 = NULL;
+main_AutoGlyph_1_in_6 = NULL;
+main_AutoGlyph_1_in_7 = NULL;
+main_AutoGlyph_1_out_1 = NULL;
+main_AutoColor_1_in_2 = NULL;
+main_AutoColor_1_in_3 = NULL;
+main_AutoColor_1_in_4 = NULL;
+main_AutoColor_1_in_5 = NULL;
+main_AutoColor_1_in_6 = NULL;
+main_AutoColor_1_in_7 = NULL;
+main_AutoColor_1_in_8 = NULL;
+main_AutoColor_1_in_9 = NULL;
+main_AutoColor_1_in_10 = NULL;
+main_AutoColor_1_out_1 = NULL;
+main_AutoColor_1_out_2 = NULL;
+main_ColorBar_1_in_2 = NULL;
+main_ColorBar_1_in_3 = NULL;
+main_ColorBar_1_in_4 = NULL;
+main_ColorBar_1_in_5 = NULL;
+main_ColorBar_1_in_6 = NULL;
+main_ColorBar_1_in_7 = NULL;
+main_ColorBar_1_in_8 = NULL;
+main_ColorBar_1_in_9 = NULL;
+main_ColorBar_1_in_10 = NULL;
+main_ColorBar_1_in_11 = NULL;
+main_ColorBar_1_in_12 = NULL;
+main_ColorBar_1_in_13 = NULL;
+main_ColorBar_1_in_14 = NULL;
+main_ColorBar_1_in_15 = NULL;
+main_ColorBar_1_in_16 = NULL;
+main_ColorBar_1_out_1 = NULL;
+main_Collect_1_out_1 = NULL;
+macro Image(
+ id,
+ object,
+ where,
+ useVector,
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ viewAngle,
+ perspective,
+ options,
+ buttonState = 1,
+ buttonUpApprox = "none",
+ buttonDownApprox = "none",
+ buttonUpDensity = 1,
+ buttonDownDensity = 1,
+ renderMode = 0,
+ defaultCamera,
+ reset,
+ backgroundColor,
+ throttle,
+ RECenable = 0,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable = 0,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ interactionMode,
+ title,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ webOptions) -> (
+ object,
+ camera,
+ where)
+{
+ ImageMessage(
+ id,
+ backgroundColor,
+ throttle,
+ RECenable,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ interactionMode,
+ title,
+ renderMode,
+ buttonUpApprox,
+ buttonDownApprox,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 1, cache: 1];
+ autoCamera =
+ AutoCamera(
+ object,
+ "front",
+ object,
+ resolution,
+ aspect,
+ [0,1,0],
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ realCamera =
+ Camera(
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ coloredDefaultCamera =
+ UpdateCamera(defaultCamera,
+ background=backgroundColor) [instance: 1, cache: 1];
+ nullDefaultCamera =
+ Inquire(defaultCamera,
+ "is null + 1") [instance: 1, cache: 1];
+ resetCamera =
+ Switch(
+ nullDefaultCamera,
+ coloredDefaultCamera,
+ autoCamera) [instance: 1, cache: 1];
+ resetNull =
+ Inquire(
+ reset,
+ "is null + 1") [instance: 2, cache: 1];
+ reset =
+ Switch(
+ resetNull,
+ reset,
+ 0) [instance: 2, cache: 1];
+ whichCamera =
+ Compute(
+ "($0 != 0 || $1 == 0) ? 1 : 2",
+ reset,
+ useVector) [instance: 1, cache: 1];
+ camera = Switch(
+ whichCamera,
+ resetCamera,
+ realCamera) [instance: 3, cache: 1];
+ AAobject =
+ AutoAxes(
+ object,
+ camera,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels) [instance: 1, cache: 1];
+ switchAAenable = Compute("$0+1",
+ AAenable) [instance: 2, cache: 1];
+ object = Switch(
+ switchAAenable,
+ object,
+ AAobject) [instance:4, cache: 1];
+ SWapproximation_options =
+ Switch(
+ buttonState,
+ buttonUpApprox,
+ buttonDownApprox) [instance: 5, cache: 1];
+ SWdensity_options =
+ Switch(
+ buttonState,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 6, cache: 1];
+ HWapproximation_options =
+ Format(
+ "%s,%s",
+ buttonDownApprox,
+ buttonUpApprox) [instance: 1, cache: 1];
+ HWdensity_options =
+ Format(
+ "%d,%d",
+ buttonDownDensity,
+ buttonUpDensity) [instance: 2, cache: 1];
+ switchRenderMode = Compute(
+ "$0+1",
+ renderMode) [instance: 3, cache: 1];
+ approximation_options = Switch(
+ switchRenderMode,
+ SWapproximation_options,
+ HWapproximation_options) [instance: 7, cache: 1];
+ density_options = Switch(
+ switchRenderMode,
+ SWdensity_options,
+ HWdensity_options) [instance: 8, cache: 1];
+ renderModeString = Switch(
+ switchRenderMode,
+ "software",
+ "hardware")[instance: 9, cache: 1];
+ object_tag = Inquire(
+ object,
+ "object tag")[instance: 3, cache: 1];
+ annoted_object =
+ Options(
+ object,
+ "send boxes",
+ 0,
+ "cache",
+ 1,
+ "object tag",
+ object_tag,
+ "ddcamera",
+ whichCamera,
+ "rendering approximation",
+ approximation_options,
+ "render every",
+ density_options,
+ "button state",
+ buttonState,
+ "rendering mode",
+ renderModeString) [instance: 1, cache: 1];
+ RECresNull =
+ Inquire(
+ RECresolution,
+ "is null + 1") [instance: 4, cache: 1];
+ ImageResolution =
+ Inquire(
+ camera,
+ "camera resolution") [instance: 5, cache: 1];
+ RECresolution =
+ Switch(
+ RECresNull,
+ RECresolution,
+ ImageResolution) [instance: 10, cache: 1];
+ RECaspectNull =
+ Inquire(
+ RECaspect,
+ "is null + 1") [instance: 6, cache: 1];
+ ImageAspect =
+ Inquire(
+ camera,
+ "camera aspect") [instance: 7, cache: 1];
+ RECaspect =
+ Switch(
+ RECaspectNull,
+ RECaspect,
+ ImageAspect) [instance: 11, cache: 1];
+ switchRECenable = Compute(
+ "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
+ RECenable,
+ switchRenderMode,
+ RECresolution,
+ ImageResolution,
+ RECaspect,
+ ImageAspect) [instance: 4, cache: 1];
+ NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
+ Display(
+ NoRECobject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECNoRerenderObject,
+ camera) [instance: 1, cache: 1];
+ Display(
+ image,
+ NULL,
+ where,
+ throttle) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ rec_where = Display(
+ RECNoRerHW,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 0];
+ rec_image = ReadImageWindow(
+ rec_where) [instance: 1, cache: 1];
+ WriteImage(
+ rec_image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ RECupdateCamera =
+ UpdateCamera(
+ camera,
+ resolution=RECresolution,
+ aspect=RECaspect) [instance: 2, cache: 1];
+ Display(
+ RECRerenderObject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ RECRerenderObject =
+ ScaleScreen(
+ RECRerenderObject,
+ NULL,
+ RECresolution,
+ camera) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECRerenderObject,
+ RECupdateCamera) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 2, cache: 1];
+}
+main_Image_1_in_1 = "Image_1";
+main_Image_1_in_3 = "X24,,";
+main_Image_1_in_4 = 0;
+main_Image_1_in_5 = NULL;
+main_Image_1_in_6 = NULL;
+main_Image_1_in_7 = NULL;
+main_Image_1_in_8 = NULL;
+main_Image_1_in_9 = NULL;
+main_Image_1_in_10 = NULL;
+main_Image_1_in_11 = NULL;
+main_Image_1_in_12 = NULL;
+main_Image_1_in_13 = NULL;
+main_Image_1_in_14 = 1;
+main_Image_1_in_15 = NULL;
+main_Image_1_in_16 = NULL;
+main_Image_1_in_17 = NULL;
+main_Image_1_in_18 = NULL;
+main_Image_1_in_19 = 0;
+main_Image_1_in_20 = NULL;
+main_Image_1_in_21 = NULL;
+main_Image_1_in_22 = NULL;
+main_Image_1_in_23 = NULL;
+main_Image_1_in_25 = NULL;
+main_Image_1_in_26 = NULL;
+main_Image_1_in_27 = NULL;
+main_Image_1_in_28 = NULL;
+main_Image_1_in_29 = NULL;
+main_Image_1_in_30 = NULL;
+main_Image_1_in_31 = NULL;
+main_Image_1_in_32 = NULL;
+main_Image_1_in_33 = NULL;
+main_Image_1_in_34 = NULL;
+main_Image_1_in_35 = NULL;
+main_Image_1_in_36 = NULL;
+main_Image_1_in_37 = NULL;
+main_Image_1_in_38 = NULL;
+main_Image_1_in_39 = NULL;
+main_Image_1_in_40 = NULL;
+main_Image_1_in_41 = NULL;
+main_Image_1_in_42 = NULL;
+main_Image_1_in_43 = NULL;
+main_Image_1_in_44 = NULL;
+main_Image_1_in_45 = NULL;
+main_Image_1_in_46 = NULL;
+main_Image_1_in_47 = NULL;
+main_Image_1_in_48 = NULL;
+main_Image_1_in_49 = NULL;
+main_SetLocal_1_in_3 = NULL;
+main_SetLocal_2_in_3 = NULL;
+Executive("product version 4 4 4");
+$sync
+main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2ptcshowmesh.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2ptcshowmesh.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,80 @@
+## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} FPL2ptcshowmesh (@var{mesh1}, @
+## @var{color1}, @ [@var{mesh2}, @var{color2}, ...])
+##
+## Displays two or more 2-D triangulations using opendx
+##
+## @seealso{FPL2pdeshowmesh}
+## @end deftypefn
+
+function FPL2ptcshowmesh (varargin)
+
+ datalist = "";
+ colorlist= "";
+
+ for ii=1:2:nargin
+ dataname{ii} = mktemp("/tmp",".dx");
+ FPL2dxoutputdata(dataname{ii},varargin{ii}.p,varargin{ii}.t,...
+ varargin{ii}.p(1,:)','x',0,1,1);
+ datalist = strcat (datalist, """", dataname{ii} ,"""");
+ colorlist= strcat (colorlist, """", varargin{ii+1} ,"""");
+ endfor
+
+ scriptname = mktemp("/tmp",".net");
+
+ showmesh = file_in_path(path,"FPL2ptcshowmesh.net");
+
+ system (["cp " showmesh " " scriptname]);
+ system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]);
+ system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]);
+
+ command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
+ system(command);
+
+endfunction
+
+function filename = mktemp (direct,ext);
+
+ if (~exist(direct,"dir"))
+ error("trying to save temporary file to non existing directory")
+ endif
+
+ done=false;
+
+ while ~done
+ filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
+ if ~exist(filename,"file")
+ done =true;
+ endif
+ endwhile
+
+endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2ptcshowmesh.net
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2ptcshowmesh.net Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,565 @@
+//
+// time: Sun Jan 6 13:50:14 2008
+//
+// version: 3.2.0 (format), 4.4.4 (DX)
+//
+//
+// MODULE main
+// workspace: width = 489, height = 756
+// layout: snap = 1, width = 10, height = 10, align = CC
+//
+macro main(
+) -> (
+) {
+ //
+ // node CollectMultiGrid[1]: x = 55, y = 504, inputs = 4, label = CollectMultiGrid
+ //
+main_CollectMultiGrid_1_out_1 =
+ CollectMultiGrid(
+ main_CollectMultiGrid_1_in_1,
+ main_CollectMultiGrid_1_in_2,
+ main_CollectMultiGrid_1_in_3,
+ main_CollectMultiGrid_1_in_4
+ ) [instance: 1, cache: 1];
+ //
+ // node StringList[1]: x = 128, y = 34, inputs = 0, label = StringList
+ // output[1]: visible = 1, type = 16777248, value = { "FILELIST" }
+ //
+ //
+ // node ForEachMember[1]: x = 105, y = 134, inputs = 1, label = ForEachMember
+ //
+main_ForEachMember_1_out_1,
+main_ForEachMember_1_out_2,
+main_ForEachMember_1_out_3 =
+ ForEachMember(
+ main_StringList_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Import[1]: x = 119, y = 244, inputs = 6, label = Import
+ //
+main_Import_1_out_1 =
+ Import(
+ main_ForEachMember_1_out_1,
+ main_Import_1_in_2,
+ main_Import_1_in_3,
+ main_Import_1_in_4,
+ main_Import_1_in_5,
+ main_Import_1_in_6
+ ) [instance: 1, cache: 1];
+ //
+ // node ShowConnections[1]: x = 89, y = 354, inputs = 1, label = ShowConnections
+ //
+main_ShowConnections_1_out_1 =
+ ShowConnections(
+ main_Import_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node StringList[2]: x = 278, y = 34, inputs = 0, label = StringList
+ // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" }
+ //
+ //
+ // node ForEachMember[2]: x = 255, y = 134, inputs = 1, label = ForEachMember
+ //
+main_ForEachMember_2_out_1,
+main_ForEachMember_2_out_2,
+main_ForEachMember_2_out_3 =
+ ForEachMember(
+ main_StringList_2_out_1
+ ) [instance: 2, cache: 1];
+ //
+ // node Color[1]: x = 239, y = 454, inputs = 5, label = Color
+ //
+main_Color_1_out_1 =
+ Color(
+ main_ShowConnections_1_out_1,
+ main_ForEachMember_2_out_1,
+ main_Color_1_in_3,
+ main_Color_1_in_4,
+ main_Color_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node GetLocal[1]: x = 422, y = 494, inputs = 3, label = GetLocal
+ //
+main_GetLocal_1_out_1,
+main_GetLocal_1_out_2 =
+ GetLocal(
+ main_GetLocal_1_in_1,
+ main_GetLocal_1_in_2,
+ main_GetLocal_1_in_3
+ ) [instance: 1, cache: 1];
+ //
+ // node Append[1]: x = 235, y = 574, inputs = 5, label = Append
+ //
+main_Append_1_out_1 =
+ Append(
+ main_CollectMultiGrid_1_out_1,
+ main_Color_1_out_1,
+ main_Append_1_in_3,
+ main_GetLocal_1_out_1,
+ main_Append_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node Image[1]: x = 249, y = 694, inputs = 49, label = Image
+ // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_1"
+ // input[4]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[19]: defaulting = 0, visible = 0, type = 3, value = 0
+ // depth: value = 24
+ // internal caching: 1
+ //
+main_Image_1_out_1,
+main_Image_1_out_2,
+main_Image_1_out_3 =
+ Image(
+ main_Image_1_in_1,
+ main_Append_1_out_1,
+ main_Image_1_in_3,
+ main_Image_1_in_4,
+ main_Image_1_in_5,
+ main_Image_1_in_6,
+ main_Image_1_in_7,
+ main_Image_1_in_8,
+ main_Image_1_in_9,
+ main_Image_1_in_10,
+ main_Image_1_in_11,
+ main_Image_1_in_12,
+ main_Image_1_in_13,
+ main_Image_1_in_14,
+ main_Image_1_in_15,
+ main_Image_1_in_16,
+ main_Image_1_in_17,
+ main_Image_1_in_18,
+ main_Image_1_in_19,
+ main_Image_1_in_20,
+ main_Image_1_in_21,
+ main_Image_1_in_22,
+ main_Image_1_in_23,
+ main_Image_1_in_24,
+ main_Image_1_in_25,
+ main_Image_1_in_26,
+ main_Image_1_in_27,
+ main_Image_1_in_28,
+ main_Image_1_in_29,
+ main_Image_1_in_30,
+ main_Image_1_in_31,
+ main_Image_1_in_32,
+ main_Image_1_in_33,
+ main_Image_1_in_34,
+ main_Image_1_in_35,
+ main_Image_1_in_36,
+ main_Image_1_in_37,
+ main_Image_1_in_38,
+ main_Image_1_in_39,
+ main_Image_1_in_40,
+ main_Image_1_in_41,
+ main_Image_1_in_42,
+ main_Image_1_in_43,
+ main_Image_1_in_44,
+ main_Image_1_in_45,
+ main_Image_1_in_46,
+ main_Image_1_in_47,
+ main_Image_1_in_48,
+ main_Image_1_in_49
+ ) [instance: 1, cache: 1];
+ //
+ // node SetLocal[1]: x = 422, y = 644, inputs = 3, label = SetLocal
+ //
+ SetLocal(
+ main_Append_1_out_1,
+ main_GetLocal_1_out_2,
+ main_SetLocal_1_in_3
+ ) [instance: 1, cache: 1];
+// network: end of macro body
+CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
+}
+main_CollectMultiGrid_1_in_1 = NULL;
+main_CollectMultiGrid_1_in_2 = NULL;
+main_CollectMultiGrid_1_in_3 = NULL;
+main_CollectMultiGrid_1_in_4 = NULL;
+main_CollectMultiGrid_1_out_1 = NULL;
+main_StringList_1_out_1 = { "FILELIST" };
+main_ForEachMember_1_out_1 = NULL;
+main_Import_1_in_2 = NULL;
+main_Import_1_in_3 = NULL;
+main_Import_1_in_4 = NULL;
+main_Import_1_in_5 = NULL;
+main_Import_1_in_6 = NULL;
+main_Import_1_out_1 = NULL;
+main_ShowConnections_1_out_1 = NULL;
+main_StringList_2_out_1 = { "COLORLIST" };
+main_ForEachMember_2_out_1 = NULL;
+main_Color_1_in_3 = NULL;
+main_Color_1_in_4 = NULL;
+main_Color_1_in_5 = NULL;
+main_Color_1_out_1 = NULL;
+main_GetLocal_1_in_1 = NULL;
+main_GetLocal_1_in_2 = NULL;
+main_GetLocal_1_in_3 = NULL;
+main_GetLocal_1_out_1 = NULL;
+main_GetLocal_1_out_2 = NULL;
+main_Append_1_in_3 = NULL;
+main_Append_1_in_5 = NULL;
+main_Append_1_out_1 = NULL;
+macro Image(
+ id,
+ object,
+ where,
+ useVector,
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ viewAngle,
+ perspective,
+ options,
+ buttonState = 1,
+ buttonUpApprox = "none",
+ buttonDownApprox = "none",
+ buttonUpDensity = 1,
+ buttonDownDensity = 1,
+ renderMode = 0,
+ defaultCamera,
+ reset,
+ backgroundColor,
+ throttle,
+ RECenable = 0,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable = 0,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ interactionMode,
+ title,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ webOptions) -> (
+ object,
+ camera,
+ where)
+{
+ ImageMessage(
+ id,
+ backgroundColor,
+ throttle,
+ RECenable,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ interactionMode,
+ title,
+ renderMode,
+ buttonUpApprox,
+ buttonDownApprox,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 1, cache: 1];
+ autoCamera =
+ AutoCamera(
+ object,
+ "front",
+ object,
+ resolution,
+ aspect,
+ [0,1,0],
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ realCamera =
+ Camera(
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ coloredDefaultCamera =
+ UpdateCamera(defaultCamera,
+ background=backgroundColor) [instance: 1, cache: 1];
+ nullDefaultCamera =
+ Inquire(defaultCamera,
+ "is null + 1") [instance: 1, cache: 1];
+ resetCamera =
+ Switch(
+ nullDefaultCamera,
+ coloredDefaultCamera,
+ autoCamera) [instance: 1, cache: 1];
+ resetNull =
+ Inquire(
+ reset,
+ "is null + 1") [instance: 2, cache: 1];
+ reset =
+ Switch(
+ resetNull,
+ reset,
+ 0) [instance: 2, cache: 1];
+ whichCamera =
+ Compute(
+ "($0 != 0 || $1 == 0) ? 1 : 2",
+ reset,
+ useVector) [instance: 1, cache: 1];
+ camera = Switch(
+ whichCamera,
+ resetCamera,
+ realCamera) [instance: 3, cache: 1];
+ AAobject =
+ AutoAxes(
+ object,
+ camera,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels) [instance: 1, cache: 1];
+ switchAAenable = Compute("$0+1",
+ AAenable) [instance: 2, cache: 1];
+ object = Switch(
+ switchAAenable,
+ object,
+ AAobject) [instance:4, cache: 1];
+ SWapproximation_options =
+ Switch(
+ buttonState,
+ buttonUpApprox,
+ buttonDownApprox) [instance: 5, cache: 1];
+ SWdensity_options =
+ Switch(
+ buttonState,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 6, cache: 1];
+ HWapproximation_options =
+ Format(
+ "%s,%s",
+ buttonDownApprox,
+ buttonUpApprox) [instance: 1, cache: 1];
+ HWdensity_options =
+ Format(
+ "%d,%d",
+ buttonDownDensity,
+ buttonUpDensity) [instance: 2, cache: 1];
+ switchRenderMode = Compute(
+ "$0+1",
+ renderMode) [instance: 3, cache: 1];
+ approximation_options = Switch(
+ switchRenderMode,
+ SWapproximation_options,
+ HWapproximation_options) [instance: 7, cache: 1];
+ density_options = Switch(
+ switchRenderMode,
+ SWdensity_options,
+ HWdensity_options) [instance: 8, cache: 1];
+ renderModeString = Switch(
+ switchRenderMode,
+ "software",
+ "hardware")[instance: 9, cache: 1];
+ object_tag = Inquire(
+ object,
+ "object tag")[instance: 3, cache: 1];
+ annoted_object =
+ Options(
+ object,
+ "send boxes",
+ 0,
+ "cache",
+ 1,
+ "object tag",
+ object_tag,
+ "ddcamera",
+ whichCamera,
+ "rendering approximation",
+ approximation_options,
+ "render every",
+ density_options,
+ "button state",
+ buttonState,
+ "rendering mode",
+ renderModeString) [instance: 1, cache: 1];
+ RECresNull =
+ Inquire(
+ RECresolution,
+ "is null + 1") [instance: 4, cache: 1];
+ ImageResolution =
+ Inquire(
+ camera,
+ "camera resolution") [instance: 5, cache: 1];
+ RECresolution =
+ Switch(
+ RECresNull,
+ RECresolution,
+ ImageResolution) [instance: 10, cache: 1];
+ RECaspectNull =
+ Inquire(
+ RECaspect,
+ "is null + 1") [instance: 6, cache: 1];
+ ImageAspect =
+ Inquire(
+ camera,
+ "camera aspect") [instance: 7, cache: 1];
+ RECaspect =
+ Switch(
+ RECaspectNull,
+ RECaspect,
+ ImageAspect) [instance: 11, cache: 1];
+ switchRECenable = Compute(
+ "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
+ RECenable,
+ switchRenderMode,
+ RECresolution,
+ ImageResolution,
+ RECaspect,
+ ImageAspect) [instance: 4, cache: 1];
+ NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
+ Display(
+ NoRECobject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECNoRerenderObject,
+ camera) [instance: 1, cache: 1];
+ Display(
+ image,
+ NULL,
+ where,
+ throttle) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ rec_where = Display(
+ RECNoRerHW,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 0];
+ rec_image = ReadImageWindow(
+ rec_where) [instance: 1, cache: 1];
+ WriteImage(
+ rec_image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ RECupdateCamera =
+ UpdateCamera(
+ camera,
+ resolution=RECresolution,
+ aspect=RECaspect) [instance: 2, cache: 1];
+ Display(
+ RECRerenderObject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ RECRerenderObject =
+ ScaleScreen(
+ RECRerenderObject,
+ NULL,
+ RECresolution,
+ camera) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECRerenderObject,
+ RECupdateCamera) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 2, cache: 1];
+}
+main_Image_1_in_1 = "Image_1";
+main_Image_1_in_3 = "X24,,";
+main_Image_1_in_4 = 0;
+main_Image_1_in_5 = NULL;
+main_Image_1_in_6 = NULL;
+main_Image_1_in_7 = NULL;
+main_Image_1_in_8 = NULL;
+main_Image_1_in_9 = NULL;
+main_Image_1_in_10 = NULL;
+main_Image_1_in_11 = NULL;
+main_Image_1_in_12 = NULL;
+main_Image_1_in_13 = NULL;
+main_Image_1_in_14 = 1;
+main_Image_1_in_15 = NULL;
+main_Image_1_in_16 = NULL;
+main_Image_1_in_17 = NULL;
+main_Image_1_in_18 = NULL;
+main_Image_1_in_19 = 0;
+main_Image_1_in_20 = NULL;
+main_Image_1_in_21 = NULL;
+main_Image_1_in_22 = NULL;
+main_Image_1_in_23 = NULL;
+main_Image_1_in_25 = NULL;
+main_Image_1_in_26 = NULL;
+main_Image_1_in_27 = NULL;
+main_Image_1_in_28 = NULL;
+main_Image_1_in_29 = NULL;
+main_Image_1_in_30 = NULL;
+main_Image_1_in_31 = NULL;
+main_Image_1_in_32 = NULL;
+main_Image_1_in_33 = NULL;
+main_Image_1_in_34 = NULL;
+main_Image_1_in_35 = NULL;
+main_Image_1_in_36 = NULL;
+main_Image_1_in_37 = NULL;
+main_Image_1_in_38 = NULL;
+main_Image_1_in_39 = NULL;
+main_Image_1_in_40 = NULL;
+main_Image_1_in_41 = NULL;
+main_Image_1_in_42 = NULL;
+main_Image_1_in_43 = NULL;
+main_Image_1_in_44 = NULL;
+main_Image_1_in_45 = NULL;
+main_Image_1_in_46 = NULL;
+main_Image_1_in_47 = NULL;
+main_Image_1_in_48 = NULL;
+main_Image_1_in_49 = NULL;
+main_SetLocal_1_in_3 = NULL;
+Executive("product version 4 4 4");
+$sync
+main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2ptcsurf.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2ptcsurf.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,81 @@
+## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+##
+## @deftypefn {Function File} {} FPL2ptcsurf (@var{mesh1}, @
+## @var{color1}, @var{data1} @ [@var{mesh2}, @var{color2},@var{data2}])
+##
+## Plots the scalar fields @var{data} over the triangulation
+## @var{mesh} using opendx. Connections will be displayed as defined
+## in @var{color}.
+##
+## @end deftypefn
+
+function FPL2ptcsurf(varargin)
+
+ colorlist = "";
+ datalist = "";
+
+ for ii=1:3:nargin
+ dataname{ii} = mktemp("/tmp",".dx");
+ FPL2dxoutputdata(dataname{ii},varargin{ii}.p,varargin{ii}.t,varargin{ii+2},"var",0,1,1);
+ datalist = strcat (datalist, """", dataname{ii} ,"""");
+ colorlist= strcat (colorlist, """", varargin{ii+1} ,"""");
+ endfor
+
+ scriptname = mktemp("/tmp",".net");
+
+ ptcview = file_in_path(path,"FPL2ptcsurf.net");
+
+ system (["cp " ptcview " " scriptname]);
+ system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]);
+ system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]);
+
+ command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
+ system(command);
+
+endfunction
+
+function filename = mktemp (direct,ext);
+
+ if (~exist(direct,"dir"))
+ error("Trying to save temporary file to non existing directory")
+ endif
+
+ done = false;
+
+ while ~done
+ filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
+ if ~exist(filename,"file")
+ done = true;
+ endif
+ endwhile
+
+endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2ptcsurf.net
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2ptcsurf.net Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,749 @@
+//
+// time: Fri Jan 4 17:10:29 2008
+//
+// version: 3.2.0 (format), 4.4.4 (DX)
+//
+//
+// MODULE main
+// workspace: width = 968, height = 946
+// layout: snap = 1, width = 10, height = 10, align = CC
+//
+macro main(
+) -> (
+) {
+ //
+ // node CollectMultiGrid[5]: x = 45, y = 424, inputs = 4, label = CollectMultiGrid
+ //
+main_CollectMultiGrid_5_out_1 =
+ CollectMultiGrid(
+ main_CollectMultiGrid_5_in_1,
+ main_CollectMultiGrid_5_in_2,
+ main_CollectMultiGrid_5_in_3,
+ main_CollectMultiGrid_5_in_4
+ ) [instance: 5, cache: 1];
+ //
+ // node StringList[1]: x = 178, y = 34, inputs = 0, label = StringList
+ // output[1]: visible = 1, type = 16777248, value = { "FILELIST" }
+ //
+ //
+ // node ForEachMember[1]: x = 155, y = 124, inputs = 1, label = ForEachMember
+ //
+main_ForEachMember_1_out_1,
+main_ForEachMember_1_out_2,
+main_ForEachMember_1_out_3 =
+ ForEachMember(
+ main_StringList_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Import[2]: x = 169, y = 224, inputs = 6, label = Import
+ //
+main_Import_2_out_1 =
+ Import(
+ main_ForEachMember_1_out_1,
+ main_Import_2_in_2,
+ main_Import_2_in_3,
+ main_Import_2_in_4,
+ main_Import_2_in_5,
+ main_Import_2_in_6
+ ) [instance: 2, cache: 1];
+ //
+ // node ShowConnections[4]: x = 139, y = 324, inputs = 1, label = ShowConnections
+ //
+main_ShowConnections_4_out_1 =
+ ShowConnections(
+ main_Import_2_out_1
+ ) [instance: 4, cache: 1];
+ //
+ // node StringList[2]: x = 368, y = 34, inputs = 0, label = StringList
+ // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" }
+ //
+ //
+ // node ForEachMember[2]: x = 345, y = 124, inputs = 1, label = ForEachMember
+ //
+main_ForEachMember_2_out_1,
+main_ForEachMember_2_out_2,
+main_ForEachMember_2_out_3 =
+ ForEachMember(
+ main_StringList_2_out_1
+ ) [instance: 2, cache: 1];
+ //
+ // node Color[3]: x = 179, y = 404, inputs = 5, label = Color
+ // input[3]: defaulting = 0, visible = 1, type = 5, value = .3
+ //
+main_Color_3_out_1 =
+ Color(
+ main_ShowConnections_4_out_1,
+ main_ForEachMember_2_out_1,
+ main_Color_3_in_3,
+ main_Color_3_in_4,
+ main_Color_3_in_5
+ ) [instance: 3, cache: 1];
+ //
+ // node GetLocal[4]: x = 322, y = 404, inputs = 3, label = GetLocal
+ //
+main_GetLocal_4_out_1,
+main_GetLocal_4_out_2 =
+ GetLocal(
+ main_GetLocal_4_in_1,
+ main_GetLocal_4_in_2,
+ main_GetLocal_4_in_3
+ ) [instance: 4, cache: 1];
+ //
+ // node Append[1]: x = 185, y = 504, inputs = 5, label = Append
+ //
+main_Append_1_out_1 =
+ Append(
+ main_CollectMultiGrid_5_out_1,
+ main_Color_3_out_1,
+ main_Append_1_in_3,
+ main_GetLocal_4_out_1,
+ main_Append_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node CollectMultiGrid[4]: x = 615, y = 454, inputs = 4, label = CollectMultiGrid
+ //
+main_CollectMultiGrid_4_out_1 =
+ CollectMultiGrid(
+ main_CollectMultiGrid_4_in_1,
+ main_CollectMultiGrid_4_in_2,
+ main_CollectMultiGrid_4_in_3,
+ main_CollectMultiGrid_4_in_4
+ ) [instance: 4, cache: 1];
+ //
+ // node GetLocal[5]: x = 872, y = 394, inputs = 3, label = GetLocal
+ //
+main_GetLocal_5_out_1,
+main_GetLocal_5_out_2 =
+ GetLocal(
+ main_GetLocal_5_in_1,
+ main_GetLocal_5_in_2,
+ main_GetLocal_5_in_3
+ ) [instance: 5, cache: 1];
+ //
+ // node Append[2]: x = 765, y = 514, inputs = 5, label = Append
+ //
+main_Append_2_out_1 =
+ Append(
+ main_CollectMultiGrid_4_out_1,
+ main_Import_2_out_1,
+ main_Append_2_in_3,
+ main_GetLocal_5_out_1,
+ main_Append_2_in_5
+ ) [instance: 2, cache: 1];
+ //
+ // node AutoColor[2]: x = 736, y = 604, inputs = 10, label = AutoColor
+ // input[8]: visible = 1
+ //
+main_AutoColor_2_out_1,
+main_AutoColor_2_out_2 =
+ AutoColor(
+ main_Append_2_out_1,
+ main_AutoColor_2_in_2,
+ main_AutoColor_2_in_3,
+ main_AutoColor_2_in_4,
+ main_AutoColor_2_in_5,
+ main_AutoColor_2_in_6,
+ main_AutoColor_2_in_7,
+ main_AutoColor_2_in_8,
+ main_AutoColor_2_in_9,
+ main_AutoColor_2_in_10
+ ) [instance: 2, cache: 1];
+ //
+ // node RubberSheet[1]: x = 176, y = 624, inputs = 4, label = RubberSheet
+ //
+main_RubberSheet_1_out_1 =
+ RubberSheet(
+ main_Append_1_out_1,
+ main_RubberSheet_1_in_2,
+ main_RubberSheet_1_in_3,
+ main_RubberSheet_1_in_4
+ ) [instance: 1, cache: 1];
+ //
+ // node Shade[1]: x = 599, y = 654, inputs = 8, label = Shade
+ // input[2]: defaulting = 0, visible = 1, type = 3, value = 1
+ // input[3]: defaulting = 0, visible = 1, type = 32, value = "smooth"
+ //
+main_Shade_1_out_1 =
+ Shade(
+ main_AutoColor_2_out_1,
+ main_Shade_1_in_2,
+ main_Shade_1_in_3,
+ main_Shade_1_in_4,
+ main_Shade_1_in_5,
+ main_Shade_1_in_6,
+ main_Shade_1_in_7,
+ main_Shade_1_in_8
+ ) [instance: 1, cache: 1];
+ //
+ // node RubberSheet[2]: x = 526, y = 734, inputs = 4, label = RubberSheet
+ //
+main_RubberSheet_2_out_1 =
+ RubberSheet(
+ main_Shade_1_out_1,
+ main_RubberSheet_2_in_2,
+ main_RubberSheet_2_in_3,
+ main_RubberSheet_2_in_4
+ ) [instance: 2, cache: 1];
+ //
+ // node ColorBar[1]: x = 755, y = 734, inputs = 16, label = ColorBar
+ // input[4]: defaulting = 0, visible = 1, type = 3, value = 1
+ //
+main_ColorBar_1_out_1 =
+ ColorBar(
+ main_AutoColor_2_out_2,
+ main_ColorBar_1_in_2,
+ main_ColorBar_1_in_3,
+ main_ColorBar_1_in_4,
+ main_ColorBar_1_in_5,
+ main_ColorBar_1_in_6,
+ main_ColorBar_1_in_7,
+ main_ColorBar_1_in_8,
+ main_ColorBar_1_in_9,
+ main_ColorBar_1_in_10,
+ main_ColorBar_1_in_11,
+ main_ColorBar_1_in_12,
+ main_ColorBar_1_in_13,
+ main_ColorBar_1_in_14,
+ main_ColorBar_1_in_15,
+ main_ColorBar_1_in_16
+ ) [instance: 1, cache: 1];
+ //
+ // node Collect[1]: x = 349, y = 774, inputs = 3, label = Collect
+ //
+main_Collect_1_out_1 =
+ Collect(
+ main_RubberSheet_1_out_1,
+ main_RubberSheet_2_out_1,
+ main_ColorBar_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Image[5]: x = 339, y = 884, inputs = 49, label = Image
+ // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_5"
+ // input[4]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[19]: defaulting = 0, visible = 0, type = 3, value = 0
+ // depth: value = 24
+ // internal caching: 1
+ //
+main_Image_5_out_1,
+main_Image_5_out_2,
+main_Image_5_out_3 =
+ Image(
+ main_Image_5_in_1,
+ main_Collect_1_out_1,
+ main_Image_5_in_3,
+ main_Image_5_in_4,
+ main_Image_5_in_5,
+ main_Image_5_in_6,
+ main_Image_5_in_7,
+ main_Image_5_in_8,
+ main_Image_5_in_9,
+ main_Image_5_in_10,
+ main_Image_5_in_11,
+ main_Image_5_in_12,
+ main_Image_5_in_13,
+ main_Image_5_in_14,
+ main_Image_5_in_15,
+ main_Image_5_in_16,
+ main_Image_5_in_17,
+ main_Image_5_in_18,
+ main_Image_5_in_19,
+ main_Image_5_in_20,
+ main_Image_5_in_21,
+ main_Image_5_in_22,
+ main_Image_5_in_23,
+ main_Image_5_in_24,
+ main_Image_5_in_25,
+ main_Image_5_in_26,
+ main_Image_5_in_27,
+ main_Image_5_in_28,
+ main_Image_5_in_29,
+ main_Image_5_in_30,
+ main_Image_5_in_31,
+ main_Image_5_in_32,
+ main_Image_5_in_33,
+ main_Image_5_in_34,
+ main_Image_5_in_35,
+ main_Image_5_in_36,
+ main_Image_5_in_37,
+ main_Image_5_in_38,
+ main_Image_5_in_39,
+ main_Image_5_in_40,
+ main_Image_5_in_41,
+ main_Image_5_in_42,
+ main_Image_5_in_43,
+ main_Image_5_in_44,
+ main_Image_5_in_45,
+ main_Image_5_in_46,
+ main_Image_5_in_47,
+ main_Image_5_in_48,
+ main_Image_5_in_49
+ ) [instance: 5, cache: 1];
+ //
+ // node SetLocal[4]: x = 322, y = 514, inputs = 3, label = SetLocal
+ //
+ SetLocal(
+ main_Append_1_out_1,
+ main_GetLocal_4_out_2,
+ main_SetLocal_4_in_3
+ ) [instance: 4, cache: 1];
+ //
+ // node SetLocal[5]: x = 902, y = 514, inputs = 3, label = SetLocal
+ //
+ SetLocal(
+ main_Append_2_out_1,
+ main_GetLocal_5_out_2,
+ main_SetLocal_5_in_3
+ ) [instance: 5, cache: 1];
+// network: end of macro body
+CacheScene(main_Image_5_in_1, main_Image_5_out_1, main_Image_5_out_2);
+}
+main_CollectMultiGrid_5_in_1 = NULL;
+main_CollectMultiGrid_5_in_2 = NULL;
+main_CollectMultiGrid_5_in_3 = NULL;
+main_CollectMultiGrid_5_in_4 = NULL;
+main_CollectMultiGrid_5_out_1 = NULL;
+main_StringList_1_out_1 = { "FILELIST" };
+main_ForEachMember_1_out_1 = NULL;
+main_Import_2_in_2 = NULL;
+main_Import_2_in_3 = NULL;
+main_Import_2_in_4 = NULL;
+main_Import_2_in_5 = NULL;
+main_Import_2_in_6 = NULL;
+main_Import_2_out_1 = NULL;
+main_ShowConnections_4_out_1 = NULL;
+main_StringList_2_out_1 = { "COLORLIST" };
+main_ForEachMember_2_out_1 = NULL;
+main_Color_3_in_3 = .3;
+main_Color_3_in_4 = NULL;
+main_Color_3_in_5 = NULL;
+main_Color_3_out_1 = NULL;
+main_GetLocal_4_in_1 = NULL;
+main_GetLocal_4_in_2 = NULL;
+main_GetLocal_4_in_3 = NULL;
+main_GetLocal_4_out_1 = NULL;
+main_GetLocal_4_out_2 = NULL;
+main_Append_1_in_3 = NULL;
+main_Append_1_in_5 = NULL;
+main_Append_1_out_1 = NULL;
+main_CollectMultiGrid_4_in_1 = NULL;
+main_CollectMultiGrid_4_in_2 = NULL;
+main_CollectMultiGrid_4_in_3 = NULL;
+main_CollectMultiGrid_4_in_4 = NULL;
+main_CollectMultiGrid_4_out_1 = NULL;
+main_GetLocal_5_in_1 = NULL;
+main_GetLocal_5_in_2 = NULL;
+main_GetLocal_5_in_3 = NULL;
+main_GetLocal_5_out_1 = NULL;
+main_GetLocal_5_out_2 = NULL;
+main_Append_2_in_3 = NULL;
+main_Append_2_in_5 = NULL;
+main_Append_2_out_1 = NULL;
+main_AutoColor_2_in_2 = NULL;
+main_AutoColor_2_in_3 = NULL;
+main_AutoColor_2_in_4 = NULL;
+main_AutoColor_2_in_5 = NULL;
+main_AutoColor_2_in_6 = NULL;
+main_AutoColor_2_in_7 = NULL;
+main_AutoColor_2_in_8 = NULL;
+main_AutoColor_2_in_9 = NULL;
+main_AutoColor_2_in_10 = NULL;
+main_AutoColor_2_out_1 = NULL;
+main_AutoColor_2_out_2 = NULL;
+main_RubberSheet_1_in_2 = NULL;
+main_RubberSheet_1_in_3 = NULL;
+main_RubberSheet_1_in_4 = NULL;
+main_RubberSheet_1_out_1 = NULL;
+main_Shade_1_in_2 = 1;
+main_Shade_1_in_3 = "smooth";
+main_Shade_1_in_4 = NULL;
+main_Shade_1_in_5 = NULL;
+main_Shade_1_in_6 = NULL;
+main_Shade_1_in_7 = NULL;
+main_Shade_1_in_8 = NULL;
+main_Shade_1_out_1 = NULL;
+main_RubberSheet_2_in_2 = NULL;
+main_RubberSheet_2_in_3 = NULL;
+main_RubberSheet_2_in_4 = NULL;
+main_RubberSheet_2_out_1 = NULL;
+main_ColorBar_1_in_2 = NULL;
+main_ColorBar_1_in_3 = NULL;
+main_ColorBar_1_in_4 = 1;
+main_ColorBar_1_in_5 = NULL;
+main_ColorBar_1_in_6 = NULL;
+main_ColorBar_1_in_7 = NULL;
+main_ColorBar_1_in_8 = NULL;
+main_ColorBar_1_in_9 = NULL;
+main_ColorBar_1_in_10 = NULL;
+main_ColorBar_1_in_11 = NULL;
+main_ColorBar_1_in_12 = NULL;
+main_ColorBar_1_in_13 = NULL;
+main_ColorBar_1_in_14 = NULL;
+main_ColorBar_1_in_15 = NULL;
+main_ColorBar_1_in_16 = NULL;
+main_ColorBar_1_out_1 = NULL;
+main_Collect_1_out_1 = NULL;
+macro Image(
+ id,
+ object,
+ where,
+ useVector,
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ viewAngle,
+ perspective,
+ options,
+ buttonState = 1,
+ buttonUpApprox = "none",
+ buttonDownApprox = "none",
+ buttonUpDensity = 1,
+ buttonDownDensity = 1,
+ renderMode = 0,
+ defaultCamera,
+ reset,
+ backgroundColor,
+ throttle,
+ RECenable = 0,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable = 0,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ interactionMode,
+ title,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ webOptions) -> (
+ object,
+ camera,
+ where)
+{
+ ImageMessage(
+ id,
+ backgroundColor,
+ throttle,
+ RECenable,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ interactionMode,
+ title,
+ renderMode,
+ buttonUpApprox,
+ buttonDownApprox,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 1, cache: 1];
+ autoCamera =
+ AutoCamera(
+ object,
+ "front",
+ object,
+ resolution,
+ aspect,
+ [0,1,0],
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ realCamera =
+ Camera(
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ coloredDefaultCamera =
+ UpdateCamera(defaultCamera,
+ background=backgroundColor) [instance: 1, cache: 1];
+ nullDefaultCamera =
+ Inquire(defaultCamera,
+ "is null + 1") [instance: 1, cache: 1];
+ resetCamera =
+ Switch(
+ nullDefaultCamera,
+ coloredDefaultCamera,
+ autoCamera) [instance: 1, cache: 1];
+ resetNull =
+ Inquire(
+ reset,
+ "is null + 1") [instance: 2, cache: 1];
+ reset =
+ Switch(
+ resetNull,
+ reset,
+ 0) [instance: 2, cache: 1];
+ whichCamera =
+ Compute(
+ "($0 != 0 || $1 == 0) ? 1 : 2",
+ reset,
+ useVector) [instance: 1, cache: 1];
+ camera = Switch(
+ whichCamera,
+ resetCamera,
+ realCamera) [instance: 3, cache: 1];
+ AAobject =
+ AutoAxes(
+ object,
+ camera,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels) [instance: 1, cache: 1];
+ switchAAenable = Compute("$0+1",
+ AAenable) [instance: 2, cache: 1];
+ object = Switch(
+ switchAAenable,
+ object,
+ AAobject) [instance:4, cache: 1];
+ SWapproximation_options =
+ Switch(
+ buttonState,
+ buttonUpApprox,
+ buttonDownApprox) [instance: 5, cache: 1];
+ SWdensity_options =
+ Switch(
+ buttonState,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 6, cache: 1];
+ HWapproximation_options =
+ Format(
+ "%s,%s",
+ buttonDownApprox,
+ buttonUpApprox) [instance: 1, cache: 1];
+ HWdensity_options =
+ Format(
+ "%d,%d",
+ buttonDownDensity,
+ buttonUpDensity) [instance: 2, cache: 1];
+ switchRenderMode = Compute(
+ "$0+1",
+ renderMode) [instance: 3, cache: 1];
+ approximation_options = Switch(
+ switchRenderMode,
+ SWapproximation_options,
+ HWapproximation_options) [instance: 7, cache: 1];
+ density_options = Switch(
+ switchRenderMode,
+ SWdensity_options,
+ HWdensity_options) [instance: 8, cache: 1];
+ renderModeString = Switch(
+ switchRenderMode,
+ "software",
+ "hardware")[instance: 9, cache: 1];
+ object_tag = Inquire(
+ object,
+ "object tag")[instance: 3, cache: 1];
+ annoted_object =
+ Options(
+ object,
+ "send boxes",
+ 0,
+ "cache",
+ 1,
+ "object tag",
+ object_tag,
+ "ddcamera",
+ whichCamera,
+ "rendering approximation",
+ approximation_options,
+ "render every",
+ density_options,
+ "button state",
+ buttonState,
+ "rendering mode",
+ renderModeString) [instance: 1, cache: 1];
+ RECresNull =
+ Inquire(
+ RECresolution,
+ "is null + 1") [instance: 4, cache: 1];
+ ImageResolution =
+ Inquire(
+ camera,
+ "camera resolution") [instance: 5, cache: 1];
+ RECresolution =
+ Switch(
+ RECresNull,
+ RECresolution,
+ ImageResolution) [instance: 10, cache: 1];
+ RECaspectNull =
+ Inquire(
+ RECaspect,
+ "is null + 1") [instance: 6, cache: 1];
+ ImageAspect =
+ Inquire(
+ camera,
+ "camera aspect") [instance: 7, cache: 1];
+ RECaspect =
+ Switch(
+ RECaspectNull,
+ RECaspect,
+ ImageAspect) [instance: 11, cache: 1];
+ switchRECenable = Compute(
+ "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
+ RECenable,
+ switchRenderMode,
+ RECresolution,
+ ImageResolution,
+ RECaspect,
+ ImageAspect) [instance: 4, cache: 1];
+ NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
+ Display(
+ NoRECobject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECNoRerenderObject,
+ camera) [instance: 1, cache: 1];
+ Display(
+ image,
+ NULL,
+ where,
+ throttle) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ rec_where = Display(
+ RECNoRerHW,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 0];
+ rec_image = ReadImageWindow(
+ rec_where) [instance: 1, cache: 1];
+ WriteImage(
+ rec_image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ RECupdateCamera =
+ UpdateCamera(
+ camera,
+ resolution=RECresolution,
+ aspect=RECaspect) [instance: 2, cache: 1];
+ Display(
+ RECRerenderObject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ RECRerenderObject =
+ ScaleScreen(
+ RECRerenderObject,
+ NULL,
+ RECresolution,
+ camera) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECRerenderObject,
+ RECupdateCamera) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 2, cache: 1];
+}
+main_Image_5_in_1 = "Image_5";
+main_Image_5_in_3 = "X24,,";
+main_Image_5_in_4 = 0;
+main_Image_5_in_5 = NULL;
+main_Image_5_in_6 = NULL;
+main_Image_5_in_7 = NULL;
+main_Image_5_in_8 = NULL;
+main_Image_5_in_9 = NULL;
+main_Image_5_in_10 = NULL;
+main_Image_5_in_11 = NULL;
+main_Image_5_in_12 = NULL;
+main_Image_5_in_13 = NULL;
+main_Image_5_in_14 = 1;
+main_Image_5_in_15 = NULL;
+main_Image_5_in_16 = NULL;
+main_Image_5_in_17 = NULL;
+main_Image_5_in_18 = NULL;
+main_Image_5_in_19 = 0;
+main_Image_5_in_20 = NULL;
+main_Image_5_in_21 = NULL;
+main_Image_5_in_22 = NULL;
+main_Image_5_in_23 = NULL;
+main_Image_5_in_25 = NULL;
+main_Image_5_in_26 = NULL;
+main_Image_5_in_27 = NULL;
+main_Image_5_in_28 = NULL;
+main_Image_5_in_29 = NULL;
+main_Image_5_in_30 = NULL;
+main_Image_5_in_31 = NULL;
+main_Image_5_in_32 = NULL;
+main_Image_5_in_33 = NULL;
+main_Image_5_in_34 = NULL;
+main_Image_5_in_35 = NULL;
+main_Image_5_in_36 = NULL;
+main_Image_5_in_37 = NULL;
+main_Image_5_in_38 = NULL;
+main_Image_5_in_39 = NULL;
+main_Image_5_in_40 = NULL;
+main_Image_5_in_41 = NULL;
+main_Image_5_in_42 = NULL;
+main_Image_5_in_43 = NULL;
+main_Image_5_in_44 = NULL;
+main_Image_5_in_45 = NULL;
+main_Image_5_in_46 = NULL;
+main_Image_5_in_47 = NULL;
+main_Image_5_in_48 = NULL;
+main_Image_5_in_49 = NULL;
+main_SetLocal_4_in_3 = NULL;
+main_SetLocal_5_in_3 = NULL;
+Executive("product version 4 4 4");
+$sync
+main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2showmesh.net
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2showmesh.net Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,587 @@
+//
+// time: Wed Jun 27 18:36:54 2007
+//
+// version: 3.2.0 (format), 4.4.4 (DX)
+//
+//
+// MODULE main
+// workspace: width = 464, height = 625
+// layout: snap = 0, width = 50, height = 50, align = NN
+//
+macro main(
+) -> (
+) {
+ //
+ // node Collect[1]: x = 409, y = 272, inputs = 2, label = Collect
+ //
+main_Collect_1_out_1 =
+ Collect(
+ main_Collect_1_in_1,
+ main_Collect_1_in_2
+ ) [instance: 1, cache: 1];
+ //
+ // node GetLocal[1]: x = 308, y = 381, inputs = 3, label = GetLocal
+ //
+main_GetLocal_1_out_1,
+main_GetLocal_1_out_2 =
+ GetLocal(
+ main_Collect_1_out_1,
+ main_GetLocal_1_in_2,
+ main_GetLocal_1_in_3
+ ) [instance: 1, cache: 1];
+ //
+ // node StringList[1]: x = 42, y = 74, inputs = 0, label = StringList
+ // output[1]: visible = 1, type = 16777248, value = {__FILE__DX__ }
+ //
+ //
+ // node ForEachMember[1]: x = 28, y = 151, inputs = 1, label = ForEachMember
+ //
+main_ForEachMember_1_out_1,
+main_ForEachMember_1_out_2,
+main_ForEachMember_1_out_3 =
+ ForEachMember(
+ main_StringList_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Import[1]: x = 40, y = 234, inputs = 6, label = Import
+ //
+main_Import_1_out_1 =
+ Import(
+ main_ForEachMember_1_out_1,
+ main_Import_1_in_2,
+ main_Import_1_in_3,
+ main_Import_1_in_4,
+ main_Import_1_in_5,
+ main_Import_1_in_6
+ ) [instance: 1, cache: 1];
+ //
+ // node StringList[2]: x = 215, y = 61, inputs = 0, label = StringList
+ // output[1]: visible = 1, type = 16777248, value = { __MESH__COLOR__ }
+ //
+ //
+ // node ForEachMember[2]: x = 198, y = 159, inputs = 1, label = ForEachMember
+ //
+main_ForEachMember_2_out_1,
+main_ForEachMember_2_out_2,
+main_ForEachMember_2_out_3 =
+ ForEachMember(
+ main_StringList_2_out_1
+ ) [instance: 2, cache: 1];
+ //
+ // node Color[1]: x = 179, y = 312, inputs = 5, label = Color
+ // input[2]: defaulting = 1, visible = 1, type = 32, value = "indianred"
+ //
+main_Color_1_out_1 =
+ Color(
+ main_Import_1_out_1,
+ main_ForEachMember_2_out_1,
+ main_Color_1_in_3,
+ main_Color_1_in_4,
+ main_Color_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node ShowConnections[1]: x = 31, y = 354, inputs = 1, label = ShowConnections
+ //
+main_ShowConnections_1_out_1 =
+ ShowConnections(
+ main_Color_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Append[1]: x = 60, y = 453, inputs = 5, label = Append
+ //
+main_Append_1_out_1 =
+ Append(
+ main_GetLocal_1_out_1,
+ main_ShowConnections_1_out_1,
+ main_Append_1_in_3,
+ main_Append_1_in_4,
+ main_Append_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node Image[1]: x = 153, y = 563, inputs = 49, label = Image
+ // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1"
+ // input[4]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[5]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 0]
+ // input[6]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 39.3199]
+ // input[7]: defaulting = 0, visible = 0, type = 5, value = 21.0715
+ // input[8]: defaulting = 0, visible = 0, type = 1, value = 804
+ // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.610075
+ // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0]
+ // input[11]: defaulting = 1, visible = 0, type = 5, value = 30.0
+ // input[12]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[15]: defaulting = 1, visible = 0, type = 32, value = "none"
+ // input[16]: defaulting = 1, visible = 0, type = 32, value = "none"
+ // input[17]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[18]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[19]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow"
+ // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif"
+ // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff"
+ // input[29]: defaulting = 0, visible = 0, type = 3, value = 1
+ // input[31]: defaulting = 0, visible = 0, type = 1, value = -15
+ // input[33]: defaulting = 0, visible = 0, type = 3, value = 0
+ // input[34]: defaulting = 0, visible = 0, type = 3, value = 0
+ // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "grey5", "saddlebrown", "saddlebrown"}
+ // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"}
+ // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.7
+ // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_s"
+ // input[41]: defaulting = 0, visible = 0, type = 32, value = "none"
+ // depth: value = 24
+ // window: position = (0.2477,0.1272), size = 0.6391x0.6838, screen = 0
+ // internal caching: 1
+ //
+main_Image_1_out_1,
+main_Image_1_out_2,
+main_Image_1_out_3 =
+ Image(
+ main_Image_1_in_1,
+ main_Append_1_out_1,
+ main_Image_1_in_3,
+ main_Image_1_in_4,
+ main_Image_1_in_5,
+ main_Image_1_in_6,
+ main_Image_1_in_7,
+ main_Image_1_in_8,
+ main_Image_1_in_9,
+ main_Image_1_in_10,
+ main_Image_1_in_11,
+ main_Image_1_in_12,
+ main_Image_1_in_13,
+ main_Image_1_in_14,
+ main_Image_1_in_15,
+ main_Image_1_in_16,
+ main_Image_1_in_17,
+ main_Image_1_in_18,
+ main_Image_1_in_19,
+ main_Image_1_in_20,
+ main_Image_1_in_21,
+ main_Image_1_in_22,
+ main_Image_1_in_23,
+ main_Image_1_in_24,
+ main_Image_1_in_25,
+ main_Image_1_in_26,
+ main_Image_1_in_27,
+ main_Image_1_in_28,
+ main_Image_1_in_29,
+ main_Image_1_in_30,
+ main_Image_1_in_31,
+ main_Image_1_in_32,
+ main_Image_1_in_33,
+ main_Image_1_in_34,
+ main_Image_1_in_35,
+ main_Image_1_in_36,
+ main_Image_1_in_37,
+ main_Image_1_in_38,
+ main_Image_1_in_39,
+ main_Image_1_in_40,
+ main_Image_1_in_41,
+ main_Image_1_in_42,
+ main_Image_1_in_43,
+ main_Image_1_in_44,
+ main_Image_1_in_45,
+ main_Image_1_in_46,
+ main_Image_1_in_47,
+ main_Image_1_in_48,
+ main_Image_1_in_49
+ ) [instance: 1, cache: 1];
+ //
+ // node SetLocal[1]: x = 316, y = 471, inputs = 3, label = SetLocal
+ //
+ SetLocal(
+ main_Append_1_out_1,
+ main_GetLocal_1_out_2,
+ main_SetLocal_1_in_3
+ ) [instance: 1, cache: 1];
+// network: end of macro body
+CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
+}
+main_Collect_1_in_1 = NULL;
+main_Collect_1_in_2 = NULL;
+main_Collect_1_out_1 = NULL;
+main_GetLocal_1_in_2 = NULL;
+main_GetLocal_1_in_3 = NULL;
+main_GetLocal_1_out_1 = NULL;
+main_GetLocal_1_out_2 = NULL;
+main_StringList_1_out_1 = {__FILE__DX__};
+main_ForEachMember_1_out_1 = NULL;
+main_Import_1_in_2 = NULL;
+main_Import_1_in_3 = NULL;
+main_Import_1_in_4 = NULL;
+main_Import_1_in_5 = NULL;
+main_Import_1_in_6 = NULL;
+main_Import_1_out_1 = NULL;
+main_StringList_2_out_1 = {__MESH__COLOR__ };
+main_ForEachMember_2_out_1 = NULL;
+main_Color_1_in_3 = NULL;
+main_Color_1_in_4 = NULL;
+main_Color_1_in_5 = NULL;
+main_Color_1_out_1 = NULL;
+main_ShowConnections_1_out_1 = NULL;
+main_Append_1_in_3 = NULL;
+main_Append_1_in_4 = NULL;
+main_Append_1_in_5 = NULL;
+main_Append_1_out_1 = NULL;
+macro Image(
+ id,
+ object,
+ where,
+ useVector,
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ viewAngle,
+ perspective,
+ options,
+ buttonState = 1,
+ buttonUpApprox = "none",
+ buttonDownApprox = "none",
+ buttonUpDensity = 1,
+ buttonDownDensity = 1,
+ renderMode = 0,
+ defaultCamera,
+ reset,
+ backgroundColor,
+ throttle,
+ RECenable = 0,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable = 0,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ interactionMode,
+ title,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ webOptions) -> (
+ object,
+ camera,
+ where)
+{
+ ImageMessage(
+ id,
+ backgroundColor,
+ throttle,
+ RECenable,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ interactionMode,
+ title,
+ renderMode,
+ buttonUpApprox,
+ buttonDownApprox,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 1, cache: 1];
+ autoCamera =
+ AutoCamera(
+ object,
+ "front",
+ object,
+ resolution,
+ aspect,
+ [0,1,0],
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ realCamera =
+ Camera(
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ coloredDefaultCamera =
+ UpdateCamera(defaultCamera,
+ background=backgroundColor) [instance: 1, cache: 1];
+ nullDefaultCamera =
+ Inquire(defaultCamera,
+ "is null + 1") [instance: 1, cache: 1];
+ resetCamera =
+ Switch(
+ nullDefaultCamera,
+ coloredDefaultCamera,
+ autoCamera) [instance: 1, cache: 1];
+ resetNull =
+ Inquire(
+ reset,
+ "is null + 1") [instance: 2, cache: 1];
+ reset =
+ Switch(
+ resetNull,
+ reset,
+ 0) [instance: 2, cache: 1];
+ whichCamera =
+ Compute(
+ "($0 != 0 || $1 == 0) ? 1 : 2",
+ reset,
+ useVector) [instance: 1, cache: 1];
+ camera = Switch(
+ whichCamera,
+ resetCamera,
+ realCamera) [instance: 3, cache: 1];
+ AAobject =
+ AutoAxes(
+ object,
+ camera,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels) [instance: 1, cache: 1];
+ switchAAenable = Compute("$0+1",
+ AAenable) [instance: 2, cache: 1];
+ object = Switch(
+ switchAAenable,
+ object,
+ AAobject) [instance:4, cache: 1];
+ SWapproximation_options =
+ Switch(
+ buttonState,
+ buttonUpApprox,
+ buttonDownApprox) [instance: 5, cache: 1];
+ SWdensity_options =
+ Switch(
+ buttonState,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 6, cache: 1];
+ HWapproximation_options =
+ Format(
+ "%s,%s",
+ buttonDownApprox,
+ buttonUpApprox) [instance: 1, cache: 1];
+ HWdensity_options =
+ Format(
+ "%d,%d",
+ buttonDownDensity,
+ buttonUpDensity) [instance: 2, cache: 1];
+ switchRenderMode = Compute(
+ "$0+1",
+ renderMode) [instance: 3, cache: 1];
+ approximation_options = Switch(
+ switchRenderMode,
+ SWapproximation_options,
+ HWapproximation_options) [instance: 7, cache: 1];
+ density_options = Switch(
+ switchRenderMode,
+ SWdensity_options,
+ HWdensity_options) [instance: 8, cache: 1];
+ renderModeString = Switch(
+ switchRenderMode,
+ "software",
+ "hardware")[instance: 9, cache: 1];
+ object_tag = Inquire(
+ object,
+ "object tag")[instance: 3, cache: 1];
+ annoted_object =
+ Options(
+ object,
+ "send boxes",
+ 0,
+ "cache",
+ 1,
+ "object tag",
+ object_tag,
+ "ddcamera",
+ whichCamera,
+ "rendering approximation",
+ approximation_options,
+ "render every",
+ density_options,
+ "button state",
+ buttonState,
+ "rendering mode",
+ renderModeString) [instance: 1, cache: 1];
+ RECresNull =
+ Inquire(
+ RECresolution,
+ "is null + 1") [instance: 4, cache: 1];
+ ImageResolution =
+ Inquire(
+ camera,
+ "camera resolution") [instance: 5, cache: 1];
+ RECresolution =
+ Switch(
+ RECresNull,
+ RECresolution,
+ ImageResolution) [instance: 10, cache: 1];
+ RECaspectNull =
+ Inquire(
+ RECaspect,
+ "is null + 1") [instance: 6, cache: 1];
+ ImageAspect =
+ Inquire(
+ camera,
+ "camera aspect") [instance: 7, cache: 1];
+ RECaspect =
+ Switch(
+ RECaspectNull,
+ RECaspect,
+ ImageAspect) [instance: 11, cache: 1];
+ switchRECenable = Compute(
+ "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
+ RECenable,
+ switchRenderMode,
+ RECresolution,
+ ImageResolution,
+ RECaspect,
+ ImageAspect) [instance: 4, cache: 1];
+ NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
+ Display(
+ NoRECobject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECNoRerenderObject,
+ camera) [instance: 1, cache: 1];
+ Display(
+ image,
+ NULL,
+ where,
+ throttle) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ rec_where = Display(
+ RECNoRerHW,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 0];
+ rec_image = ReadImageWindow(
+ rec_where) [instance: 1, cache: 1];
+ WriteImage(
+ rec_image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ RECupdateCamera =
+ UpdateCamera(
+ camera,
+ resolution=RECresolution,
+ aspect=RECaspect) [instance: 2, cache: 1];
+ Display(
+ RECRerenderObject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ RECRerenderObject =
+ ScaleScreen(
+ RECRerenderObject,
+ NULL,
+ RECresolution,
+ camera) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECRerenderObject,
+ RECupdateCamera) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 2, cache: 1];
+}
+main_Image_1_in_1 = "Image_1";
+main_Image_1_in_3 = "X24,,";
+main_Image_1_in_4 = 1;
+main_Image_1_in_5 = [7.5 7.5 0];
+main_Image_1_in_6 = [7.5 7.5 39.3199];
+main_Image_1_in_7 = 21.0715;
+main_Image_1_in_8 = 804;
+main_Image_1_in_9 = 0.610075;
+main_Image_1_in_10 = [0 1 0];
+main_Image_1_in_11 = NULL;
+main_Image_1_in_12 = 0;
+main_Image_1_in_13 = NULL;
+main_Image_1_in_14 = 1;
+main_Image_1_in_15 = NULL;
+main_Image_1_in_16 = NULL;
+main_Image_1_in_17 = 1;
+main_Image_1_in_18 = 1;
+main_Image_1_in_19 = 1;
+main_Image_1_in_20 = NULL;
+main_Image_1_in_21 = NULL;
+main_Image_1_in_22 = "snow";
+main_Image_1_in_23 = NULL;
+main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif";
+main_Image_1_in_26 = "tiff";
+main_Image_1_in_27 = NULL;
+main_Image_1_in_28 = NULL;
+main_Image_1_in_29 = 1;
+main_Image_1_in_30 = NULL;
+main_Image_1_in_31 = -15;
+main_Image_1_in_32 = NULL;
+main_Image_1_in_33 = 0;
+main_Image_1_in_34 = 0;
+main_Image_1_in_35 = NULL;
+main_Image_1_in_36 = NULL;
+main_Image_1_in_37 = {"clear", "grey5", "saddlebrown", "saddlebrown"};
+main_Image_1_in_38 = {"background", "grid", "ticks", "labels"};
+main_Image_1_in_39 = 0.7;
+main_Image_1_in_40 = "roman_s";
+main_Image_1_in_41 = "none";
+main_Image_1_in_42 = NULL;
+main_Image_1_in_43 = NULL;
+main_Image_1_in_44 = NULL;
+main_Image_1_in_45 = NULL;
+main_Image_1_in_46 = NULL;
+main_Image_1_in_47 = NULL;
+main_Image_1_in_48 = NULL;
+main_Image_1_in_49 = NULL;
+main_SetLocal_1_in_3 = NULL;
+Executive("product version 4 4 4");
+$sync
+main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2trspdesurf.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2trspdesurf.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,83 @@
+## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} FPL2trspdesurf (@var{mesh}, @
+## @var{color}, @var{data})
+##
+## Plots the transient scalar field @var{u} defined on the triangulation
+## @var{mesh} using opendx. Connections are rendered as defined by
+## @var{color}
+##
+## Example:
+## @example
+##
+## FPL2trspdesurf(mesh,"blue",data)
+##
+## @end example
+## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2trsptcsurf}
+## @end deftypefn
+
+function FPL2trspdesurf(varargin)
+
+ seriesend = columns(varargin{3});
+ dataname = mktemp("/tmp",".dx");
+ colorname = varargin{2};
+ FPL2dxoutputtimeseries(dataname, varargin{1}.p, varargin{1}.t, ...
+ varargin{3}, "dataseries", 0, 1, 1:seriesend);
+
+ scriptname = mktemp("/tmp",".net");
+
+ view = file_in_path(path,"FPL2trspdesurf.net");
+
+ system (["cp " view " " scriptname]);
+ system (["sed -i \'s|FILENAME|" dataname "|g\' " scriptname]);
+ system (["sed -i \'s|COLORNAME|" colorname "|g\' " scriptname]);
+
+ command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
+ system(command);
+
+endfunction
+
+function filename = mktemp (direct,ext);
+
+ if (~exist(direct,"dir"))
+ error("Trying to save temporary file to non existing directory")
+ endif
+
+ done = false;
+
+ while ~done
+ filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
+ if ~exist(filename,"file")
+ done = true;
+ endif
+ endwhile
+
+endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2trspdesurf.net
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2trspdesurf.net Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,702 @@
+//
+// time: Sat Jan 5 19:47:19 2008
+//
+// version: 3.2.0 (format), 4.4.4 (DX)
+//
+//
+// MODULE main
+// workspace: width = 1161, height = 826
+// layout: snap = 1, width = 10, height = 10, align = CC
+//
+macro main(
+) -> (
+) {
+ //
+ // node String[1]: x = 281, y = 24, inputs = 0, label = String
+ // output[1]: visible = 1, type = 32, value = "FILENAME"
+ //
+ //
+ // node Import[1]: x = 269, y = 114, inputs = 6, label = Import
+ //
+main_Import_1_out_1 =
+ Import(
+ main_String_1_out_1,
+ main_Import_1_in_2,
+ main_Import_1_in_3,
+ main_Import_1_in_4,
+ main_Import_1_in_5,
+ main_Import_1_in_6
+ ) [instance: 1, cache: 1];
+ //
+ // node Value[1]: x = 513, y = 104, inputs = 0, label = Value
+ // output[1]: visible = 1, type = 29, value = 0
+ //
+ //
+ // node Inquire[1]: x = 509, y = 24, inputs = 3, label = Inquire
+ // input[2]: defaulting = 0, visible = 1, type = 32, value = "member count"
+ //
+main_Inquire_1_out_1 =
+ Inquire(
+ main_Import_1_out_1,
+ main_Inquire_1_in_2,
+ main_Inquire_1_in_3
+ ) [instance: 1, cache: 1];
+ //
+ // node Value[2]: x = 643, y = 4, inputs = 0, label = Value
+ // output[1]: visible = 1, type = 29, value = 1
+ //
+ //
+ // node Compute[1]: x = 601, y = 94, inputs = 3, label = Compute
+ // input[1]: defaulting = 0, visible = 0, type = 32, value = "$0 - $1"
+ // expression: value = a - b
+ // name[2]: value = a
+ // name[3]: value = b
+ //
+main_Compute_1_out_1 =
+ Compute(
+ main_Compute_1_in_1,
+ main_Inquire_1_out_1,
+ main_Value_2_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Sequencer[1]: x = 585, y = 184, inputs = 7, label = Sequencer
+ // input[1]: defaulting = 0, visible = 0, type = 32, value = "Sequencer_1"
+ // input[4]: defaulting = 1, visible = 1, type = 1, value = 0
+ // input[5]: defaulting = 1, visible = 1, type = 1, value = 95
+ // input[6]: defaulting = 1, visible = 0, type = 1, value = 1
+ // input[7]: defaulting = 0, visible = 0, type = 16777217, value = { 0 95 1 0 95 1 }
+ // vcr[1]: min = 0, max = 95, beg = 0, end = 95, cur = 38, inc = 1, loop = off, step = off, pal = off
+ // window: position = (0.0132,0.0833), size = 0.1750x0.0667
+ //
+ main_Sequencer_1_in_3 = @frame;
+main_Sequencer_1_out_1[cache: 2] =
+ Sequencer(
+ main_Sequencer_1_in_1,
+ main_Sequencer_1_in_2,
+ main_Sequencer_1_in_3,
+ main_Value_1_out_1,
+ main_Compute_1_out_1,
+ main_Sequencer_1_in_6,
+ main_Sequencer_1_in_7
+ ) [instance: 1, cache: 1];
+ //
+ // node Select[1]: x = 411, y = 214, inputs = 3, label = Select
+ //
+main_Select_1_out_1 =
+ Select(
+ main_Import_1_out_1,
+ main_Sequencer_1_out_1,
+ main_Select_1_in_3
+ ) [instance: 1, cache: 1];
+ //
+ // node RubberSheet[3]: x = 406, y = 364, inputs = 4, label = RubberSheet
+ //
+main_RubberSheet_3_out_1 =
+ RubberSheet(
+ main_Select_1_out_1,
+ main_RubberSheet_3_in_2,
+ main_RubberSheet_3_in_3,
+ main_RubberSheet_3_in_4
+ ) [instance: 3, cache: 1];
+ //
+ // node Statistics[4]: x = 185, y = 234, inputs = 1, label = Statistics
+ //
+main_Statistics_4_out_1,
+main_Statistics_4_out_2,
+main_Statistics_4_out_3,
+main_Statistics_4_out_4,
+main_Statistics_4_out_5 =
+ Statistics(
+ main_Import_1_out_1
+ ) [instance: 4, cache: 1];
+ //
+ // node AutoColor[1]: x = 336, y = 474, inputs = 10, label = AutoColor
+ // input[8]: visible = 1
+ //
+main_AutoColor_1_out_1,
+main_AutoColor_1_out_2 =
+ AutoColor(
+ main_RubberSheet_3_out_1,
+ main_AutoColor_1_in_2,
+ main_AutoColor_1_in_3,
+ main_AutoColor_1_in_4,
+ main_AutoColor_1_in_5,
+ main_AutoColor_1_in_6,
+ main_Statistics_4_out_4,
+ main_Statistics_4_out_5,
+ main_AutoColor_1_in_9,
+ main_AutoColor_1_in_10
+ ) [instance: 1, cache: 1];
+ //
+ // node Shade[2]: x = 299, y = 574, inputs = 8, label = Shade
+ // input[3]: defaulting = 0, visible = 1, type = 32, value = "smooth"
+ //
+main_Shade_2_out_1 =
+ Shade(
+ main_AutoColor_1_out_1,
+ main_Shade_2_in_2,
+ main_Shade_2_in_3,
+ main_Shade_2_in_4,
+ main_Shade_2_in_5,
+ main_Shade_2_in_6,
+ main_Shade_2_in_7,
+ main_Shade_2_in_8
+ ) [instance: 2, cache: 1];
+ //
+ // node ColorBar[1]: x = 775, y = 574, inputs = 16, label = ColorBar
+ // input[4]: defaulting = 0, visible = 1, type = 3, value = 1
+ //
+main_ColorBar_1_out_1 =
+ ColorBar(
+ main_AutoColor_1_out_2,
+ main_ColorBar_1_in_2,
+ main_ColorBar_1_in_3,
+ main_ColorBar_1_in_4,
+ main_ColorBar_1_in_5,
+ main_ColorBar_1_in_6,
+ main_ColorBar_1_in_7,
+ main_ColorBar_1_in_8,
+ main_ColorBar_1_in_9,
+ main_ColorBar_1_in_10,
+ main_ColorBar_1_in_11,
+ main_ColorBar_1_in_12,
+ main_ColorBar_1_in_13,
+ main_ColorBar_1_in_14,
+ main_ColorBar_1_in_15,
+ main_ColorBar_1_in_16
+ ) [instance: 1, cache: 1];
+ //
+ // node ShowConnections[1]: x = 869, y = 474, inputs = 1, label = ShowConnections
+ //
+main_ShowConnections_1_out_1 =
+ ShowConnections(
+ main_RubberSheet_3_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node String[2]: x = 1091, y = 474, inputs = 0, label = String
+ // output[1]: visible = 1, type = 32, value = "COLORNAME"
+ //
+ //
+ // node Color[1]: x = 929, y = 574, inputs = 5, label = Color
+ // input[3]: defaulting = 0, visible = 1, type = 5, value = .3
+ //
+main_Color_1_out_1 =
+ Color(
+ main_ShowConnections_1_out_1,
+ main_String_2_out_1,
+ main_Color_1_in_3,
+ main_Color_1_in_4,
+ main_Color_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node Collect[1]: x = 799, y = 684, inputs = 3, label = Collect
+ //
+main_Collect_1_out_1 =
+ Collect(
+ main_Shade_2_out_1,
+ main_ColorBar_1_out_1,
+ main_Color_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Image[1]: x = 1089, y = 764, inputs = 49, label = Image
+ // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_1"
+ // input[4]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[19]: defaulting = 0, visible = 0, type = 3, value = 0
+ // depth: value = 24
+ // internal caching: 1
+ //
+main_Image_1_out_1,
+main_Image_1_out_2,
+main_Image_1_out_3 =
+ Image(
+ main_Image_1_in_1,
+ main_Collect_1_out_1,
+ main_Image_1_in_3,
+ main_Image_1_in_4,
+ main_Image_1_in_5,
+ main_Image_1_in_6,
+ main_Image_1_in_7,
+ main_Image_1_in_8,
+ main_Image_1_in_9,
+ main_Image_1_in_10,
+ main_Image_1_in_11,
+ main_Image_1_in_12,
+ main_Image_1_in_13,
+ main_Image_1_in_14,
+ main_Image_1_in_15,
+ main_Image_1_in_16,
+ main_Image_1_in_17,
+ main_Image_1_in_18,
+ main_Image_1_in_19,
+ main_Image_1_in_20,
+ main_Image_1_in_21,
+ main_Image_1_in_22,
+ main_Image_1_in_23,
+ main_Image_1_in_24,
+ main_Image_1_in_25,
+ main_Image_1_in_26,
+ main_Image_1_in_27,
+ main_Image_1_in_28,
+ main_Image_1_in_29,
+ main_Image_1_in_30,
+ main_Image_1_in_31,
+ main_Image_1_in_32,
+ main_Image_1_in_33,
+ main_Image_1_in_34,
+ main_Image_1_in_35,
+ main_Image_1_in_36,
+ main_Image_1_in_37,
+ main_Image_1_in_38,
+ main_Image_1_in_39,
+ main_Image_1_in_40,
+ main_Image_1_in_41,
+ main_Image_1_in_42,
+ main_Image_1_in_43,
+ main_Image_1_in_44,
+ main_Image_1_in_45,
+ main_Image_1_in_46,
+ main_Image_1_in_47,
+ main_Image_1_in_48,
+ main_Image_1_in_49
+ ) [instance: 1, cache: 1];
+// network: end of macro body
+CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
+}
+main_String_1_out_1 = "FILENAME";
+main_Import_1_in_2 = NULL;
+main_Import_1_in_3 = NULL;
+main_Import_1_in_4 = NULL;
+main_Import_1_in_5 = NULL;
+main_Import_1_in_6 = NULL;
+main_Import_1_out_1 = NULL;
+main_Value_1_out_1 = 0;
+main_Inquire_1_in_2 = "member count";
+main_Inquire_1_in_3 = NULL;
+main_Inquire_1_out_1 = NULL;
+main_Value_2_out_1 = 1;
+main_Compute_1_in_1 = "$0 - $1";
+main_Compute_1_out_1 = NULL;
+main_Sequencer_1_in_1 = "Sequencer_1";
+main_Sequencer_1_in_2 = NULL;
+main_Sequencer_1_in_3 = NULL;
+main_Sequencer_1_in_6 = NULL;
+main_Sequencer_1_in_7 = { 0 95 1 0 95 1 };
+main_Sequencer_1_out_1 = NULL;
+
+@startframe = 0;
+@nextframe = @startframe;
+@endframe = 95;
+@deltaframe = 1;
+main_Select_1_in_3 = NULL;
+main_Select_1_out_1 = NULL;
+main_RubberSheet_3_in_2 = NULL;
+main_RubberSheet_3_in_3 = NULL;
+main_RubberSheet_3_in_4 = NULL;
+main_RubberSheet_3_out_1 = NULL;
+main_Statistics_4_out_4 = NULL;
+main_Statistics_4_out_5 = NULL;
+main_AutoColor_1_in_2 = NULL;
+main_AutoColor_1_in_3 = NULL;
+main_AutoColor_1_in_4 = NULL;
+main_AutoColor_1_in_5 = NULL;
+main_AutoColor_1_in_6 = NULL;
+main_AutoColor_1_in_9 = NULL;
+main_AutoColor_1_in_10 = NULL;
+main_AutoColor_1_out_1 = NULL;
+main_AutoColor_1_out_2 = NULL;
+main_Shade_2_in_2 = NULL;
+main_Shade_2_in_3 = "smooth";
+main_Shade_2_in_4 = NULL;
+main_Shade_2_in_5 = NULL;
+main_Shade_2_in_6 = NULL;
+main_Shade_2_in_7 = NULL;
+main_Shade_2_in_8 = NULL;
+main_Shade_2_out_1 = NULL;
+main_ColorBar_1_in_2 = NULL;
+main_ColorBar_1_in_3 = NULL;
+main_ColorBar_1_in_4 = 1;
+main_ColorBar_1_in_5 = NULL;
+main_ColorBar_1_in_6 = NULL;
+main_ColorBar_1_in_7 = NULL;
+main_ColorBar_1_in_8 = NULL;
+main_ColorBar_1_in_9 = NULL;
+main_ColorBar_1_in_10 = NULL;
+main_ColorBar_1_in_11 = NULL;
+main_ColorBar_1_in_12 = NULL;
+main_ColorBar_1_in_13 = NULL;
+main_ColorBar_1_in_14 = NULL;
+main_ColorBar_1_in_15 = NULL;
+main_ColorBar_1_in_16 = NULL;
+main_ColorBar_1_out_1 = NULL;
+main_ShowConnections_1_out_1 = NULL;
+main_String_2_out_1 = "COLORNAME";
+main_Color_1_in_3 = .3;
+main_Color_1_in_4 = NULL;
+main_Color_1_in_5 = NULL;
+main_Color_1_out_1 = NULL;
+main_Collect_1_out_1 = NULL;
+macro Image(
+ id,
+ object,
+ where,
+ useVector,
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ viewAngle,
+ perspective,
+ options,
+ buttonState = 1,
+ buttonUpApprox = "none",
+ buttonDownApprox = "none",
+ buttonUpDensity = 1,
+ buttonDownDensity = 1,
+ renderMode = 0,
+ defaultCamera,
+ reset,
+ backgroundColor,
+ throttle,
+ RECenable = 0,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable = 0,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ interactionMode,
+ title,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ webOptions) -> (
+ object,
+ camera,
+ where)
+{
+ ImageMessage(
+ id,
+ backgroundColor,
+ throttle,
+ RECenable,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ interactionMode,
+ title,
+ renderMode,
+ buttonUpApprox,
+ buttonDownApprox,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 1, cache: 1];
+ autoCamera =
+ AutoCamera(
+ object,
+ "front",
+ object,
+ resolution,
+ aspect,
+ [0,1,0],
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ realCamera =
+ Camera(
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ coloredDefaultCamera =
+ UpdateCamera(defaultCamera,
+ background=backgroundColor) [instance: 1, cache: 1];
+ nullDefaultCamera =
+ Inquire(defaultCamera,
+ "is null + 1") [instance: 1, cache: 1];
+ resetCamera =
+ Switch(
+ nullDefaultCamera,
+ coloredDefaultCamera,
+ autoCamera) [instance: 1, cache: 1];
+ resetNull =
+ Inquire(
+ reset,
+ "is null + 1") [instance: 2, cache: 1];
+ reset =
+ Switch(
+ resetNull,
+ reset,
+ 0) [instance: 2, cache: 1];
+ whichCamera =
+ Compute(
+ "($0 != 0 || $1 == 0) ? 1 : 2",
+ reset,
+ useVector) [instance: 1, cache: 1];
+ camera = Switch(
+ whichCamera,
+ resetCamera,
+ realCamera) [instance: 3, cache: 1];
+ AAobject =
+ AutoAxes(
+ object,
+ camera,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels) [instance: 1, cache: 1];
+ switchAAenable = Compute("$0+1",
+ AAenable) [instance: 2, cache: 1];
+ object = Switch(
+ switchAAenable,
+ object,
+ AAobject) [instance:4, cache: 1];
+ SWapproximation_options =
+ Switch(
+ buttonState,
+ buttonUpApprox,
+ buttonDownApprox) [instance: 5, cache: 1];
+ SWdensity_options =
+ Switch(
+ buttonState,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 6, cache: 1];
+ HWapproximation_options =
+ Format(
+ "%s,%s",
+ buttonDownApprox,
+ buttonUpApprox) [instance: 1, cache: 1];
+ HWdensity_options =
+ Format(
+ "%d,%d",
+ buttonDownDensity,
+ buttonUpDensity) [instance: 2, cache: 1];
+ switchRenderMode = Compute(
+ "$0+1",
+ renderMode) [instance: 3, cache: 1];
+ approximation_options = Switch(
+ switchRenderMode,
+ SWapproximation_options,
+ HWapproximation_options) [instance: 7, cache: 1];
+ density_options = Switch(
+ switchRenderMode,
+ SWdensity_options,
+ HWdensity_options) [instance: 8, cache: 1];
+ renderModeString = Switch(
+ switchRenderMode,
+ "software",
+ "hardware")[instance: 9, cache: 1];
+ object_tag = Inquire(
+ object,
+ "object tag")[instance: 3, cache: 1];
+ annoted_object =
+ Options(
+ object,
+ "send boxes",
+ 0,
+ "cache",
+ 1,
+ "object tag",
+ object_tag,
+ "ddcamera",
+ whichCamera,
+ "rendering approximation",
+ approximation_options,
+ "render every",
+ density_options,
+ "button state",
+ buttonState,
+ "rendering mode",
+ renderModeString) [instance: 1, cache: 1];
+ RECresNull =
+ Inquire(
+ RECresolution,
+ "is null + 1") [instance: 4, cache: 1];
+ ImageResolution =
+ Inquire(
+ camera,
+ "camera resolution") [instance: 5, cache: 1];
+ RECresolution =
+ Switch(
+ RECresNull,
+ RECresolution,
+ ImageResolution) [instance: 10, cache: 1];
+ RECaspectNull =
+ Inquire(
+ RECaspect,
+ "is null + 1") [instance: 6, cache: 1];
+ ImageAspect =
+ Inquire(
+ camera,
+ "camera aspect") [instance: 7, cache: 1];
+ RECaspect =
+ Switch(
+ RECaspectNull,
+ RECaspect,
+ ImageAspect) [instance: 11, cache: 1];
+ switchRECenable = Compute(
+ "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
+ RECenable,
+ switchRenderMode,
+ RECresolution,
+ ImageResolution,
+ RECaspect,
+ ImageAspect) [instance: 4, cache: 1];
+ NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
+ Display(
+ NoRECobject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECNoRerenderObject,
+ camera) [instance: 1, cache: 1];
+ Display(
+ image,
+ NULL,
+ where,
+ throttle) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ rec_where = Display(
+ RECNoRerHW,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 0];
+ rec_image = ReadImageWindow(
+ rec_where) [instance: 1, cache: 1];
+ WriteImage(
+ rec_image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ RECupdateCamera =
+ UpdateCamera(
+ camera,
+ resolution=RECresolution,
+ aspect=RECaspect) [instance: 2, cache: 1];
+ Display(
+ RECRerenderObject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ RECRerenderObject =
+ ScaleScreen(
+ RECRerenderObject,
+ NULL,
+ RECresolution,
+ camera) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECRerenderObject,
+ RECupdateCamera) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 2, cache: 1];
+}
+main_Image_1_in_1 = "Image_1";
+main_Image_1_in_3 = "X24,,";
+main_Image_1_in_4 = 0;
+main_Image_1_in_5 = NULL;
+main_Image_1_in_6 = NULL;
+main_Image_1_in_7 = NULL;
+main_Image_1_in_8 = NULL;
+main_Image_1_in_9 = NULL;
+main_Image_1_in_10 = NULL;
+main_Image_1_in_11 = NULL;
+main_Image_1_in_12 = NULL;
+main_Image_1_in_13 = NULL;
+main_Image_1_in_14 = 1;
+main_Image_1_in_15 = NULL;
+main_Image_1_in_16 = NULL;
+main_Image_1_in_17 = NULL;
+main_Image_1_in_18 = NULL;
+main_Image_1_in_19 = 0;
+main_Image_1_in_20 = NULL;
+main_Image_1_in_21 = NULL;
+main_Image_1_in_22 = NULL;
+main_Image_1_in_23 = NULL;
+main_Image_1_in_25 = NULL;
+main_Image_1_in_26 = NULL;
+main_Image_1_in_27 = NULL;
+main_Image_1_in_28 = NULL;
+main_Image_1_in_29 = NULL;
+main_Image_1_in_30 = NULL;
+main_Image_1_in_31 = NULL;
+main_Image_1_in_32 = NULL;
+main_Image_1_in_33 = NULL;
+main_Image_1_in_34 = NULL;
+main_Image_1_in_35 = NULL;
+main_Image_1_in_36 = NULL;
+main_Image_1_in_37 = NULL;
+main_Image_1_in_38 = NULL;
+main_Image_1_in_39 = NULL;
+main_Image_1_in_40 = NULL;
+main_Image_1_in_41 = NULL;
+main_Image_1_in_42 = NULL;
+main_Image_1_in_43 = NULL;
+main_Image_1_in_44 = NULL;
+main_Image_1_in_45 = NULL;
+main_Image_1_in_46 = NULL;
+main_Image_1_in_47 = NULL;
+main_Image_1_in_48 = NULL;
+main_Image_1_in_49 = NULL;
+Executive("product version 4 4 4");
+$sync
+
+sequence main();
+play;
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2trsptcsurf.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2trsptcsurf.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,90 @@
+## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} FPL2trsptcsurf (@var{mesh1}, @
+## @var{color1}, @var{data1}, [@var{mesh2}, @var{color2}, @var{data2}])
+##
+## Plots the transient scalar fields @var{data} defined on the triangulation
+## @var{mesh} using opendx. Connections are rendered as defined by
+## @var{color}
+##
+## Example:
+## @example
+##
+## FPL2trspdesurf(mesh1,"blue",data1, mesh2,"red",data2)
+##
+## @end example
+## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2trspdesurf}
+## @end deftypefn
+
+function FPL2trsptcsurf(varargin)
+
+ datalist = "";
+ colorlist = "";
+
+ for ii = 1:3:nargin
+ seriesend = columns(varargin{ii+2});
+ dataname = mktemp("/tmp",".dx");
+ colorname = varargin{ii+1};
+ FPL2dxoutputtimeseries(dataname, varargin{ii}.p, varargin{ii}.t, ...
+ varargin{ii+2}, "dataseries", 0, 1, ...
+ 1:seriesend);
+ datalist = strcat(datalist, """", dataname ,"""");
+ colorlist = strcat(colorlist, """", colorname, """");
+ endfor
+
+ scriptname = mktemp("/tmp",".net");
+
+ view = file_in_path(path,"FPL2trsptcsurf.net");
+
+ system (["cp " view " " scriptname]);
+ system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]);
+ system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]);
+
+ command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
+ system(command);
+endfunction
+
+function filename = mktemp (direct,ext);
+
+ if (~exist(direct,"dir"))
+ error("Trying to save temporary file to non existing directory")
+ endif
+
+ done = false;
+
+ while ~done
+ filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
+ if ~exist(filename,"file")
+ done = true;
+ endif
+ endwhile
+
+endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2trsptcsurf.net
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2trsptcsurf.net Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,923 @@
+//
+// time: Sun Jan 6 17:08:01 2008
+//
+// version: 3.2.0 (format), 4.4.4 (DX)
+//
+//
+// MODULE main
+// workspace: width = 1098, height = 1006
+// layout: snap = 1, width = 10, height = 10, align = CC
+//
+macro main(
+) -> (
+) {
+ //
+ // node CollectMultiGrid[1]: x = 425, y = 404, inputs = 4, label = CollectMultiGrid
+ // input[1]: defaulting = 0, visible = 1, type = 67108863, value = NULL
+ // input[3]: defaulting = 0, visible = 1, type = 67108863, value = NULL
+ //
+main_CollectMultiGrid_1_out_1 =
+ CollectMultiGrid(
+ main_CollectMultiGrid_1_in_1,
+ main_CollectMultiGrid_1_in_2,
+ main_CollectMultiGrid_1_in_3,
+ main_CollectMultiGrid_1_in_4
+ ) [instance: 1, cache: 1];
+ //
+ // node StringList[1]: x = 178, y = 24, inputs = 0, label = StringList
+ // output[1]: visible = 1, type = 16777248, value = { "FILELIST" }
+ //
+ //
+ // node ForEachMember[1]: x = 155, y = 124, inputs = 1, label = ForEachMember
+ //
+main_ForEachMember_1_out_1,
+main_ForEachMember_1_out_2,
+main_ForEachMember_1_out_3 =
+ ForEachMember(
+ main_StringList_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Import[1]: x = 159, y = 224, inputs = 6, label = Import
+ //
+main_Import_1_out_1 =
+ Import(
+ main_ForEachMember_1_out_1,
+ main_Import_1_in_2,
+ main_Import_1_in_3,
+ main_Import_1_in_4,
+ main_Import_1_in_5,
+ main_Import_1_in_6
+ ) [instance: 1, cache: 1];
+ //
+ // node Value[1]: x = 993, y = 294, inputs = 0, label = Value
+ // output[1]: visible = 1, type = 29, value = 0
+ //
+ //
+ // node Inquire[1]: x = 879, y = 294, inputs = 3, label = Inquire
+ // input[2]: defaulting = 0, visible = 1, type = 32, value = "member count"
+ //
+main_Inquire_1_out_1 =
+ Inquire(
+ main_Import_1_out_1,
+ main_Inquire_1_in_2,
+ main_Inquire_1_in_3
+ ) [instance: 1, cache: 1];
+ //
+ // node Value[2]: x = 1053, y = 74, inputs = 0, label = Value
+ // output[1]: visible = 1, type = 29, value = 1
+ //
+ //
+ // node Compute[1]: x = 1021, y = 164, inputs = 3, label = Compute
+ // input[1]: defaulting = 0, visible = 0, type = 32, value = "$0 - $1"
+ // expression: value = a - b
+ // name[2]: value = a
+ // name[3]: value = b
+ //
+main_Compute_1_out_1 =
+ Compute(
+ main_Compute_1_in_1,
+ main_Inquire_1_out_1,
+ main_Value_2_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Sequencer[1]: x = 995, y = 394, inputs = 7, label = Sequencer
+ // input[1]: defaulting = 0, visible = 0, type = 32, value = "Sequencer_1"
+ // input[4]: defaulting = 1, visible = 1, type = 1, value = 0
+ // input[5]: defaulting = 1, visible = 1, type = 1, value = 95
+ // input[6]: defaulting = 1, visible = 0, type = 1, value = 1
+ // input[7]: defaulting = 0, visible = 0, type = 16777217, value = { 0 95 1 0 95 1 }
+ // vcr[1]: min = 0, max = 95, beg = 0, end = 95, cur = 38, inc = 1, loop = off, step = off, pal = off
+ // window: position = (0.0132,0.0833), size = 0.1750x0.0667
+ //
+ main_Sequencer_1_in_3 = @frame;
+main_Sequencer_1_out_1[cache: 2] =
+ Sequencer(
+ main_Sequencer_1_in_1,
+ main_Sequencer_1_in_2,
+ main_Sequencer_1_in_3,
+ main_Value_1_out_1,
+ main_Compute_1_out_1,
+ main_Sequencer_1_in_6,
+ main_Sequencer_1_in_7
+ ) [instance: 1, cache: 1];
+ //
+ // node Select[1]: x = 851, y = 394, inputs = 3, label = Select
+ //
+main_Select_1_out_1 =
+ Select(
+ main_Import_1_out_1,
+ main_Sequencer_1_out_1,
+ main_Select_1_in_3
+ ) [instance: 1, cache: 1];
+ //
+ // node ShowConnections[1]: x = 449, y = 324, inputs = 1, label = ShowConnections
+ //
+main_ShowConnections_1_out_1 =
+ ShowConnections(
+ main_Select_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node StringList[2]: x = 628, y = 224, inputs = 0, label = StringList
+ // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" }
+ //
+ //
+ // node ForEachMember[2]: x = 605, y = 324, inputs = 1, label = ForEachMember
+ //
+main_ForEachMember_2_out_1,
+main_ForEachMember_2_out_2,
+main_ForEachMember_2_out_3 =
+ ForEachMember(
+ main_StringList_2_out_1
+ ) [instance: 2, cache: 1];
+ //
+ // node Color[1]: x = 589, y = 404, inputs = 5, label = Color
+ // input[3]: defaulting = 0, visible = 1, type = 5, value = .3
+ //
+main_Color_1_out_1 =
+ Color(
+ main_ShowConnections_1_out_1,
+ main_ForEachMember_2_out_1,
+ main_Color_1_in_3,
+ main_Color_1_in_4,
+ main_Color_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node GetLocal[3]: x = 732, y = 394, inputs = 3, label = GetLocal
+ //
+main_GetLocal_3_out_1,
+main_GetLocal_3_out_2 =
+ GetLocal(
+ main_GetLocal_3_in_1,
+ main_GetLocal_3_in_2,
+ main_GetLocal_3_in_3
+ ) [instance: 3, cache: 1];
+ //
+ // node Append[1]: x = 555, y = 484, inputs = 5, label = Append
+ //
+main_Append_1_out_1 =
+ Append(
+ main_CollectMultiGrid_1_out_1,
+ main_Color_1_out_1,
+ main_Append_1_in_3,
+ main_GetLocal_3_out_1,
+ main_Append_1_in_5
+ ) [instance: 1, cache: 1];
+ //
+ // node GetLocal[4]: x = 1012, y = 484, inputs = 3, label = GetLocal
+ //
+main_GetLocal_4_out_1,
+main_GetLocal_4_out_2 =
+ GetLocal(
+ main_GetLocal_4_in_1,
+ main_GetLocal_4_in_2,
+ main_GetLocal_4_in_3
+ ) [instance: 4, cache: 1];
+ //
+ // node Append[2]: x = 835, y = 484, inputs = 5, label = Append
+ //
+main_Append_2_out_1 =
+ Append(
+ main_CollectMultiGrid_1_out_1,
+ main_Select_1_out_1,
+ main_Append_2_in_3,
+ main_GetLocal_4_out_1,
+ main_Append_2_in_5
+ ) [instance: 2, cache: 1];
+ //
+ // node RubberSheet[2]: x = 786, y = 644, inputs = 4, label = RubberSheet
+ // input[2]: defaulting = 1, visible = 1, type = 5, value = .1
+ //
+main_RubberSheet_2_out_1 =
+ RubberSheet(
+ main_Append_2_out_1,
+ main_RubberSheet_2_in_2,
+ main_RubberSheet_2_in_3,
+ main_RubberSheet_2_in_4
+ ) [instance: 2, cache: 1];
+ //
+ // node Shade[1]: x = 899, y = 684, inputs = 8, label = Shade
+ // input[2]: defaulting = 0, visible = 1, type = 3, value = 1
+ // input[3]: defaulting = 0, visible = 1, type = 32, value = "smooth"
+ //
+main_Shade_1_out_1 =
+ Shade(
+ main_RubberSheet_2_out_1,
+ main_Shade_1_in_2,
+ main_Shade_1_in_3,
+ main_Shade_1_in_4,
+ main_Shade_1_in_5,
+ main_Shade_1_in_6,
+ main_Shade_1_in_7,
+ main_Shade_1_in_8
+ ) [instance: 1, cache: 1];
+ //
+ // node Statistics[1]: x = 135, y = 324, inputs = 1, label = Statistics
+ //
+main_Statistics_1_out_1,
+main_Statistics_1_out_2,
+main_Statistics_1_out_3,
+main_Statistics_1_out_4,
+main_Statistics_1_out_5 =
+ Statistics(
+ main_Import_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node GetLocal[2]: x = 12, y = 324, inputs = 3, label = GetLocal
+ //
+main_GetLocal_2_out_1,
+main_GetLocal_2_out_2 =
+ GetLocal(
+ main_GetLocal_2_in_1,
+ main_GetLocal_2_in_2,
+ main_GetLocal_2_in_3
+ ) [instance: 2, cache: 1];
+ //
+ // node List[2]: x = 111, y = 464, inputs = 2, label = List
+ //
+main_List_2_out_1 =
+ List(
+ main_Statistics_1_out_4,
+ main_GetLocal_2_out_1
+ ) [instance: 2, cache: 1];
+ //
+ // node Statistics[3]: x = 75, y = 594, inputs = 1, label = Statistics
+ //
+main_Statistics_3_out_1,
+main_Statistics_3_out_2,
+main_Statistics_3_out_3,
+main_Statistics_3_out_4,
+main_Statistics_3_out_5 =
+ Statistics(
+ main_List_2_out_1
+ ) [instance: 3, cache: 1];
+ //
+ // node GetLocal[1]: x = 302, y = 324, inputs = 3, label = GetLocal
+ //
+main_GetLocal_1_out_1,
+main_GetLocal_1_out_2 =
+ GetLocal(
+ main_GetLocal_1_in_1,
+ main_GetLocal_1_in_2,
+ main_GetLocal_1_in_3
+ ) [instance: 1, cache: 1];
+ //
+ // node List[1]: x = 231, y = 464, inputs = 2, label = List
+ //
+main_List_1_out_1 =
+ List(
+ main_Statistics_1_out_5,
+ main_GetLocal_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Statistics[2]: x = 235, y = 594, inputs = 1, label = Statistics
+ //
+main_Statistics_2_out_1,
+main_Statistics_2_out_2,
+main_Statistics_2_out_3,
+main_Statistics_2_out_4,
+main_Statistics_2_out_5 =
+ Statistics(
+ main_List_1_out_1
+ ) [instance: 2, cache: 1];
+ //
+ // node AutoColor[1]: x = 896, y = 804, inputs = 10, label = AutoColor
+ // input[2]: defaulting = 0, visible = 0, type = 5, value = 1.0
+ // input[8]: visible = 1
+ //
+main_AutoColor_1_out_1,
+main_AutoColor_1_out_2 =
+ AutoColor(
+ main_Shade_1_out_1,
+ main_AutoColor_1_in_2,
+ main_AutoColor_1_in_3,
+ main_AutoColor_1_in_4,
+ main_AutoColor_1_in_5,
+ main_AutoColor_1_in_6,
+ main_Statistics_3_out_4,
+ main_Statistics_2_out_5,
+ main_AutoColor_1_in_9,
+ main_AutoColor_1_in_10
+ ) [instance: 1, cache: 1];
+ //
+ // node RubberSheet[4]: x = 606, y = 734, inputs = 4, label = RubberSheet
+ // input[2]: defaulting = 1, visible = 1, type = 5, value = .1
+ //
+main_RubberSheet_4_out_1 =
+ RubberSheet(
+ main_Append_1_out_1,
+ main_RubberSheet_4_in_2,
+ main_RubberSheet_4_in_3,
+ main_RubberSheet_4_in_4
+ ) [instance: 4, cache: 1];
+ //
+ // node ColorBar[1]: x = 835, y = 934, inputs = 16, label = ColorBar
+ // input[4]: defaulting = 0, visible = 1, type = 3, value = 1
+ //
+main_ColorBar_1_out_1 =
+ ColorBar(
+ main_AutoColor_1_out_2,
+ main_ColorBar_1_in_2,
+ main_ColorBar_1_in_3,
+ main_ColorBar_1_in_4,
+ main_ColorBar_1_in_5,
+ main_ColorBar_1_in_6,
+ main_ColorBar_1_in_7,
+ main_ColorBar_1_in_8,
+ main_ColorBar_1_in_9,
+ main_ColorBar_1_in_10,
+ main_ColorBar_1_in_11,
+ main_ColorBar_1_in_12,
+ main_ColorBar_1_in_13,
+ main_ColorBar_1_in_14,
+ main_ColorBar_1_in_15,
+ main_ColorBar_1_in_16
+ ) [instance: 1, cache: 1];
+ //
+ // node Collect[1]: x = 619, y = 844, inputs = 3, label = Collect
+ //
+main_Collect_1_out_1 =
+ Collect(
+ main_RubberSheet_4_out_1,
+ main_AutoColor_1_out_1,
+ main_ColorBar_1_out_1
+ ) [instance: 1, cache: 1];
+ //
+ // node Image[1]: x = 609, y = 944, inputs = 49, label = Image
+ // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1"
+ // input[4]: defaulting = 0, visible = 0, type = 1, value = 0
+ // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
+ // input[19]: defaulting = 0, visible = 0, type = 3, value = 0
+ // depth: value = 24
+ // internal caching: 1
+ //
+main_Image_1_out_1,
+main_Image_1_out_2,
+main_Image_1_out_3 =
+ Image(
+ main_Image_1_in_1,
+ main_Collect_1_out_1,
+ main_Image_1_in_3,
+ main_Image_1_in_4,
+ main_Image_1_in_5,
+ main_Image_1_in_6,
+ main_Image_1_in_7,
+ main_Image_1_in_8,
+ main_Image_1_in_9,
+ main_Image_1_in_10,
+ main_Image_1_in_11,
+ main_Image_1_in_12,
+ main_Image_1_in_13,
+ main_Image_1_in_14,
+ main_Image_1_in_15,
+ main_Image_1_in_16,
+ main_Image_1_in_17,
+ main_Image_1_in_18,
+ main_Image_1_in_19,
+ main_Image_1_in_20,
+ main_Image_1_in_21,
+ main_Image_1_in_22,
+ main_Image_1_in_23,
+ main_Image_1_in_24,
+ main_Image_1_in_25,
+ main_Image_1_in_26,
+ main_Image_1_in_27,
+ main_Image_1_in_28,
+ main_Image_1_in_29,
+ main_Image_1_in_30,
+ main_Image_1_in_31,
+ main_Image_1_in_32,
+ main_Image_1_in_33,
+ main_Image_1_in_34,
+ main_Image_1_in_35,
+ main_Image_1_in_36,
+ main_Image_1_in_37,
+ main_Image_1_in_38,
+ main_Image_1_in_39,
+ main_Image_1_in_40,
+ main_Image_1_in_41,
+ main_Image_1_in_42,
+ main_Image_1_in_43,
+ main_Image_1_in_44,
+ main_Image_1_in_45,
+ main_Image_1_in_46,
+ main_Image_1_in_47,
+ main_Image_1_in_48,
+ main_Image_1_in_49
+ ) [instance: 1, cache: 1];
+ //
+ // node SetLocal[1]: x = 332, y = 464, inputs = 3, label = SetLocal
+ //
+ SetLocal(
+ main_List_1_out_1,
+ main_GetLocal_1_out_2,
+ main_SetLocal_1_in_3
+ ) [instance: 1, cache: 1];
+ //
+ // node SetLocal[2]: x = 12, y = 464, inputs = 3, label = SetLocal
+ //
+ SetLocal(
+ main_List_2_out_1,
+ main_GetLocal_2_out_2,
+ main_SetLocal_2_in_3
+ ) [instance: 2, cache: 1];
+ //
+ // node SetLocal[3]: x = 732, y = 484, inputs = 3, label = SetLocal
+ //
+ SetLocal(
+ main_Append_1_out_1,
+ main_GetLocal_3_out_2,
+ main_SetLocal_3_in_3
+ ) [instance: 3, cache: 1];
+ //
+ // node SetLocal[4]: x = 1012, y = 564, inputs = 3, label = SetLocal
+ //
+ SetLocal(
+ main_Append_2_out_1,
+ main_GetLocal_4_out_2,
+ main_SetLocal_4_in_3
+ ) [instance: 4, cache: 1];
+// network: end of macro body
+CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
+}
+main_CollectMultiGrid_1_in_1 = NULL;
+main_CollectMultiGrid_1_in_2 = NULL;
+main_CollectMultiGrid_1_in_3 = NULL;
+main_CollectMultiGrid_1_in_4 = NULL;
+main_CollectMultiGrid_1_out_1 = NULL;
+main_StringList_1_out_1 = { "FILELIST" };
+main_ForEachMember_1_out_1 = NULL;
+main_Import_1_in_2 = NULL;
+main_Import_1_in_3 = NULL;
+main_Import_1_in_4 = NULL;
+main_Import_1_in_5 = NULL;
+main_Import_1_in_6 = NULL;
+main_Import_1_out_1 = NULL;
+main_Value_1_out_1 = 0;
+main_Inquire_1_in_2 = "member count";
+main_Inquire_1_in_3 = NULL;
+main_Inquire_1_out_1 = NULL;
+main_Value_2_out_1 = 1;
+main_Compute_1_in_1 = "$0 - $1";
+main_Compute_1_out_1 = NULL;
+main_Sequencer_1_in_1 = "Sequencer_1";
+main_Sequencer_1_in_2 = NULL;
+main_Sequencer_1_in_3 = NULL;
+main_Sequencer_1_in_6 = NULL;
+main_Sequencer_1_in_7 = { 0 95 1 0 95 1 };
+main_Sequencer_1_out_1 = NULL;
+
+@startframe = 0;
+@nextframe = @startframe;
+@endframe = 95;
+@deltaframe = 1;
+main_Select_1_in_3 = NULL;
+main_Select_1_out_1 = NULL;
+main_ShowConnections_1_out_1 = NULL;
+main_StringList_2_out_1 = { "COLORLIST" };
+main_ForEachMember_2_out_1 = NULL;
+main_Color_1_in_3 = .3;
+main_Color_1_in_4 = NULL;
+main_Color_1_in_5 = NULL;
+main_Color_1_out_1 = NULL;
+main_GetLocal_3_in_1 = NULL;
+main_GetLocal_3_in_2 = NULL;
+main_GetLocal_3_in_3 = NULL;
+main_GetLocal_3_out_1 = NULL;
+main_GetLocal_3_out_2 = NULL;
+main_Append_1_in_3 = NULL;
+main_Append_1_in_5 = NULL;
+main_Append_1_out_1 = NULL;
+main_GetLocal_4_in_1 = NULL;
+main_GetLocal_4_in_2 = NULL;
+main_GetLocal_4_in_3 = NULL;
+main_GetLocal_4_out_1 = NULL;
+main_GetLocal_4_out_2 = NULL;
+main_Append_2_in_3 = NULL;
+main_Append_2_in_5 = NULL;
+main_Append_2_out_1 = NULL;
+main_RubberSheet_2_in_2 = NULL;
+main_RubberSheet_2_in_3 = NULL;
+main_RubberSheet_2_in_4 = NULL;
+main_RubberSheet_2_out_1 = NULL;
+main_Shade_1_in_2 = 1;
+main_Shade_1_in_3 = "smooth";
+main_Shade_1_in_4 = NULL;
+main_Shade_1_in_5 = NULL;
+main_Shade_1_in_6 = NULL;
+main_Shade_1_in_7 = NULL;
+main_Shade_1_in_8 = NULL;
+main_Shade_1_out_1 = NULL;
+main_Statistics_1_out_4 = NULL;
+main_Statistics_1_out_5 = NULL;
+main_GetLocal_2_in_1 = NULL;
+main_GetLocal_2_in_2 = NULL;
+main_GetLocal_2_in_3 = NULL;
+main_GetLocal_2_out_1 = NULL;
+main_GetLocal_2_out_2 = NULL;
+main_List_2_out_1 = NULL;
+main_Statistics_3_out_4 = NULL;
+main_GetLocal_1_in_1 = NULL;
+main_GetLocal_1_in_2 = NULL;
+main_GetLocal_1_in_3 = NULL;
+main_GetLocal_1_out_1 = NULL;
+main_GetLocal_1_out_2 = NULL;
+main_List_1_out_1 = NULL;
+main_Statistics_2_out_5 = NULL;
+main_AutoColor_1_in_2 = 1.0;
+main_AutoColor_1_in_3 = NULL;
+main_AutoColor_1_in_4 = NULL;
+main_AutoColor_1_in_5 = NULL;
+main_AutoColor_1_in_6 = NULL;
+main_AutoColor_1_in_9 = NULL;
+main_AutoColor_1_in_10 = NULL;
+main_AutoColor_1_out_1 = NULL;
+main_AutoColor_1_out_2 = NULL;
+main_RubberSheet_4_in_2 = NULL;
+main_RubberSheet_4_in_3 = NULL;
+main_RubberSheet_4_in_4 = NULL;
+main_RubberSheet_4_out_1 = NULL;
+main_ColorBar_1_in_2 = NULL;
+main_ColorBar_1_in_3 = NULL;
+main_ColorBar_1_in_4 = 1;
+main_ColorBar_1_in_5 = NULL;
+main_ColorBar_1_in_6 = NULL;
+main_ColorBar_1_in_7 = NULL;
+main_ColorBar_1_in_8 = NULL;
+main_ColorBar_1_in_9 = NULL;
+main_ColorBar_1_in_10 = NULL;
+main_ColorBar_1_in_11 = NULL;
+main_ColorBar_1_in_12 = NULL;
+main_ColorBar_1_in_13 = NULL;
+main_ColorBar_1_in_14 = NULL;
+main_ColorBar_1_in_15 = NULL;
+main_ColorBar_1_in_16 = NULL;
+main_ColorBar_1_out_1 = NULL;
+main_Collect_1_out_1 = NULL;
+macro Image(
+ id,
+ object,
+ where,
+ useVector,
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ viewAngle,
+ perspective,
+ options,
+ buttonState = 1,
+ buttonUpApprox = "none",
+ buttonDownApprox = "none",
+ buttonUpDensity = 1,
+ buttonDownDensity = 1,
+ renderMode = 0,
+ defaultCamera,
+ reset,
+ backgroundColor,
+ throttle,
+ RECenable = 0,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable = 0,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ interactionMode,
+ title,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ webOptions) -> (
+ object,
+ camera,
+ where)
+{
+ ImageMessage(
+ id,
+ backgroundColor,
+ throttle,
+ RECenable,
+ RECfile,
+ RECformat,
+ RECresolution,
+ RECaspect,
+ AAenable,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels,
+ interactionMode,
+ title,
+ renderMode,
+ buttonUpApprox,
+ buttonDownApprox,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 1, cache: 1];
+ autoCamera =
+ AutoCamera(
+ object,
+ "front",
+ object,
+ resolution,
+ aspect,
+ [0,1,0],
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ realCamera =
+ Camera(
+ to,
+ from,
+ width,
+ resolution,
+ aspect,
+ up,
+ perspective,
+ viewAngle,
+ backgroundColor) [instance: 1, cache: 1];
+ coloredDefaultCamera =
+ UpdateCamera(defaultCamera,
+ background=backgroundColor) [instance: 1, cache: 1];
+ nullDefaultCamera =
+ Inquire(defaultCamera,
+ "is null + 1") [instance: 1, cache: 1];
+ resetCamera =
+ Switch(
+ nullDefaultCamera,
+ coloredDefaultCamera,
+ autoCamera) [instance: 1, cache: 1];
+ resetNull =
+ Inquire(
+ reset,
+ "is null + 1") [instance: 2, cache: 1];
+ reset =
+ Switch(
+ resetNull,
+ reset,
+ 0) [instance: 2, cache: 1];
+ whichCamera =
+ Compute(
+ "($0 != 0 || $1 == 0) ? 1 : 2",
+ reset,
+ useVector) [instance: 1, cache: 1];
+ camera = Switch(
+ whichCamera,
+ resetCamera,
+ realCamera) [instance: 3, cache: 1];
+ AAobject =
+ AutoAxes(
+ object,
+ camera,
+ AAlabels,
+ AAticks,
+ AAcorners,
+ AAframe,
+ AAadjust,
+ AAcursor,
+ AAgrid,
+ AAcolors,
+ AAannotation,
+ AAlabelscale,
+ AAfont,
+ AAxTickLocs,
+ AAyTickLocs,
+ AAzTickLocs,
+ AAxTickLabels,
+ AAyTickLabels,
+ AAzTickLabels) [instance: 1, cache: 1];
+ switchAAenable = Compute("$0+1",
+ AAenable) [instance: 2, cache: 1];
+ object = Switch(
+ switchAAenable,
+ object,
+ AAobject) [instance:4, cache: 1];
+ SWapproximation_options =
+ Switch(
+ buttonState,
+ buttonUpApprox,
+ buttonDownApprox) [instance: 5, cache: 1];
+ SWdensity_options =
+ Switch(
+ buttonState,
+ buttonUpDensity,
+ buttonDownDensity) [instance: 6, cache: 1];
+ HWapproximation_options =
+ Format(
+ "%s,%s",
+ buttonDownApprox,
+ buttonUpApprox) [instance: 1, cache: 1];
+ HWdensity_options =
+ Format(
+ "%d,%d",
+ buttonDownDensity,
+ buttonUpDensity) [instance: 2, cache: 1];
+ switchRenderMode = Compute(
+ "$0+1",
+ renderMode) [instance: 3, cache: 1];
+ approximation_options = Switch(
+ switchRenderMode,
+ SWapproximation_options,
+ HWapproximation_options) [instance: 7, cache: 1];
+ density_options = Switch(
+ switchRenderMode,
+ SWdensity_options,
+ HWdensity_options) [instance: 8, cache: 1];
+ renderModeString = Switch(
+ switchRenderMode,
+ "software",
+ "hardware")[instance: 9, cache: 1];
+ object_tag = Inquire(
+ object,
+ "object tag")[instance: 3, cache: 1];
+ annoted_object =
+ Options(
+ object,
+ "send boxes",
+ 0,
+ "cache",
+ 1,
+ "object tag",
+ object_tag,
+ "ddcamera",
+ whichCamera,
+ "rendering approximation",
+ approximation_options,
+ "render every",
+ density_options,
+ "button state",
+ buttonState,
+ "rendering mode",
+ renderModeString) [instance: 1, cache: 1];
+ RECresNull =
+ Inquire(
+ RECresolution,
+ "is null + 1") [instance: 4, cache: 1];
+ ImageResolution =
+ Inquire(
+ camera,
+ "camera resolution") [instance: 5, cache: 1];
+ RECresolution =
+ Switch(
+ RECresNull,
+ RECresolution,
+ ImageResolution) [instance: 10, cache: 1];
+ RECaspectNull =
+ Inquire(
+ RECaspect,
+ "is null + 1") [instance: 6, cache: 1];
+ ImageAspect =
+ Inquire(
+ camera,
+ "camera aspect") [instance: 7, cache: 1];
+ RECaspect =
+ Switch(
+ RECaspectNull,
+ RECaspect,
+ ImageAspect) [instance: 11, cache: 1];
+ switchRECenable = Compute(
+ "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
+ RECenable,
+ switchRenderMode,
+ RECresolution,
+ ImageResolution,
+ RECaspect,
+ ImageAspect) [instance: 4, cache: 1];
+ NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
+ Display(
+ NoRECobject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECNoRerenderObject,
+ camera) [instance: 1, cache: 1];
+ Display(
+ image,
+ NULL,
+ where,
+ throttle) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ rec_where = Display(
+ RECNoRerHW,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 0];
+ rec_image = ReadImageWindow(
+ rec_where) [instance: 1, cache: 1];
+ WriteImage(
+ rec_image,
+ RECfile,
+ RECformat) [instance: 1, cache: 1];
+ RECupdateCamera =
+ UpdateCamera(
+ camera,
+ resolution=RECresolution,
+ aspect=RECaspect) [instance: 2, cache: 1];
+ Display(
+ RECRerenderObject,
+ camera,
+ where,
+ throttle) [instance: 1, cache: 1];
+ RECRerenderObject =
+ ScaleScreen(
+ RECRerenderObject,
+ NULL,
+ RECresolution,
+ camera) [instance: 1, cache: 1];
+ image =
+ Render(
+ RECRerenderObject,
+ RECupdateCamera) [instance: 2, cache: 1];
+ WriteImage(
+ image,
+ RECfile,
+ RECformat) [instance: 2, cache: 1];
+}
+main_Image_1_in_1 = "Image_1";
+main_Image_1_in_3 = "X24,,";
+main_Image_1_in_4 = 0;
+main_Image_1_in_5 = NULL;
+main_Image_1_in_6 = NULL;
+main_Image_1_in_7 = NULL;
+main_Image_1_in_8 = NULL;
+main_Image_1_in_9 = NULL;
+main_Image_1_in_10 = NULL;
+main_Image_1_in_11 = NULL;
+main_Image_1_in_12 = NULL;
+main_Image_1_in_13 = NULL;
+main_Image_1_in_14 = 1;
+main_Image_1_in_15 = NULL;
+main_Image_1_in_16 = NULL;
+main_Image_1_in_17 = NULL;
+main_Image_1_in_18 = NULL;
+main_Image_1_in_19 = 0;
+main_Image_1_in_20 = NULL;
+main_Image_1_in_21 = NULL;
+main_Image_1_in_22 = NULL;
+main_Image_1_in_23 = NULL;
+main_Image_1_in_25 = NULL;
+main_Image_1_in_26 = NULL;
+main_Image_1_in_27 = NULL;
+main_Image_1_in_28 = NULL;
+main_Image_1_in_29 = NULL;
+main_Image_1_in_30 = NULL;
+main_Image_1_in_31 = NULL;
+main_Image_1_in_32 = NULL;
+main_Image_1_in_33 = NULL;
+main_Image_1_in_34 = NULL;
+main_Image_1_in_35 = NULL;
+main_Image_1_in_36 = NULL;
+main_Image_1_in_37 = NULL;
+main_Image_1_in_38 = NULL;
+main_Image_1_in_39 = NULL;
+main_Image_1_in_40 = NULL;
+main_Image_1_in_41 = NULL;
+main_Image_1_in_42 = NULL;
+main_Image_1_in_43 = NULL;
+main_Image_1_in_44 = NULL;
+main_Image_1_in_45 = NULL;
+main_Image_1_in_46 = NULL;
+main_Image_1_in_47 = NULL;
+main_Image_1_in_48 = NULL;
+main_Image_1_in_49 = NULL;
+main_SetLocal_1_in_3 = NULL;
+main_SetLocal_2_in_3 = NULL;
+main_SetLocal_3_in_3 = NULL;
+main_SetLocal_4_in_3 = NULL;
+Executive("product version 4 4 4");
+$sync
+
+sequence main();
+play;
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2vtkoutputdata.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL2vtkoutputdata.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,144 @@
+## Copyright (C) 2008 Carlo de Falco
+##
+## 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, write to the Free Software
+## Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} FPL2vtkoutputdata ( @var{filename}, @var{p}, @var{t}, @var{nodedata}, @var{celldata}, @var{header}, @var{vtkver})
+##
+## Save data in VTK ASCII format.
+##
+## @itemize @minus
+## @item @var{filename} = name of file to save into
+## @item @var{p}, @var{t} = mesh node coordinates and connectivity
+## @item @var{name} = name of a mesh variable
+## @item @var{nodedata}/@var{celldata} = node/cell centered data
+## fields (2xNfields cell array), @var{*data}@{:,1@} = variable names;
+## @var{*data}@{:,2@} = variable data;
+## @item @var{header} comment to add in the file header
+## @item @var{vtkver} format version (default is 3.0)
+## @end itemize
+##
+## @seealso{FPL2dxoutputdata}
+## @end deftypefn
+
+function FPL2vtkoutputdata (filename, p, t, nodedata, celldata, header, vtkver)
+
+ fid = fopen (filename, "w");
+ if ( fid )
+
+ ## version ID
+ if (!exist("vtkver"))
+ vtkver = [3 0];
+ endif
+
+ fprintf (fid, "# vtk DataFile Version %d.%d\n", vtkver(1), vtkver(2));
+
+ ## header
+ if (!exist("header"))
+ header = "";
+ elseif (length(header) > 255)
+ header (255:end) = [];
+ endif
+
+ fprintf (fid, "%s\n", header);
+
+ ## File format: only ASCII supported for the moment
+ fprintf (fid, "ASCII\n");
+
+ ## Mesh: only triangles suported
+ fprintf (fid, "DATASET UNSTRUCTURED_GRID\n");
+
+ Nnodes = columns(p);
+ fprintf (fid,"POINTS %d double\n", Nnodes);
+ fprintf (fid,"%g %g 0\n", p);
+
+ Nelem = columns(t);
+ T = zeros(4,Nelem);
+ T(1,:)= 3;
+ T(2:4,:) = t(1:3,:) -1;
+ fprintf (fid,"CELLS %d %d\n", Nelem, Nelem*4);
+ fprintf (fid,"%d %d %d %d\n", T);
+ fprintf (fid,"CELL_TYPES %d \n", Nelem);
+ fprintf (fid,"%d\n", 5*ones(Nelem,1));
+
+ ## node data
+ if (exist("nodedata"))
+ nfields = rows(nodedata);
+ if nfields
+ fprintf (fid,"POINT_DATA %d\n", Nnodes);
+ for ifield = 1:nfields
+ V = nodedata {ifield, 2};
+ N = nodedata {ifield, 1};
+ if (isvector (V))
+ fprintf (fid,"SCALARS %s double\nLOOKUP_TABLE default\n", N);
+ fprintf (fid,"%g\n", V);
+ else
+ V(:,3) = 0;
+ fprintf (fid,"VECTORS %s double\nLOOKUP_TABLE default\n", N);
+ fprintf (fid,"%g %g %g\n", V);
+ endif
+ endfor
+ endif
+ endif
+
+ ## cell data
+ if (exist("celldata"))
+ nfields = rows(celldata);
+ if nfields
+ fprintf (fid,"CELL_DATA %d\n", Nelem);
+ for ifield = 1:nfields
+ V = celldata {ifield, 2};
+ N = celldata {ifield, 1};
+ if (isvector (V))
+ fprintf (fid,"SCALARS %s double\nLOOKUP_TABLE default\n", N);
+ fprintf (fid,"%g\n", V);
+ else
+ V(:,3) = 0;
+ fprintf (fid,"VECTORS %s double\nLOOKUP_TABLE default\n", N);
+ fprintf (fid,"%g %g %g\n", V);
+ endif
+ endfor
+ endif
+ endif
+
+ ## cleanup
+ fclose (fid);
+ else
+ error(["FPL2vtkoutputdata: could not open file " filename]);
+ endif
+endfunction
+
+%!test
+%! msh.p =[ 0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3
+%! 0 1 2 3 0 1 2 3 0 1 2 3 0 1 2 3];
+%! msh.e =[1 5 9 13 14 15 4 8 12 1 2 3
+%! 5 9 13 14 15 16 8 12 16 2 3 4
+%! 0 0 0 0 0 0 0 0 0 0 0 0
+%! 0 0 0 0 0 0 0 0 0 0 0 0
+%! 1 1 1 2 2 2 3 3 3 4 4 4
+%! 0 0 0 0 0 0 0 0 0 0 0 0
+%! 1 1 1 1 1 1 1 1 1 1 1 1];
+%! msh.t =[ 1 2 3 5 6 7 9 10 11 1 2 3 5 6 7 9 10 11
+%! 5 6 7 9 10 11 13 14 15 6 7 8 10 11 12 14 15 16
+%! 6 7 8 10 11 12 14 15 16 2 3 4 6 7 8 10 11 12
+%! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1];
+%! testfile = "# vtk DataFile Version 3.0\n\nASCII\nDATASET UNSTRUCTURED_GRID\nPOINTS 16 double\n0 0 0\n0 1 0\n0 2 0\n0 3 0\n1 0 0\n1 1 0\n1 2 0\n1 3 0\n2 0 0\n2 1 0\n2 2 0\n2 3 0\n3 0 0\n3 1 0\n3 2 0\n3 3 0\nCELLS 18 72\n3 0 4 5\n3 1 5 6\n3 2 6 7\n3 4 8 9\n3 5 9 10\n3 6 10 11\n3 8 12 13\n3 9 13 14\n3 10 14 15\n3 0 5 1\n3 1 6 2\n3 2 7 3\n3 4 9 5\n3 5 10 6\n3 6 11 7\n3 8 13 9\n3 9 14 10\n3 10 15 11\nCELL_TYPES 18 \n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\nPOINT_DATA 16\nSCALARS u double\nLOOKUP_TABLE default\n0\n0\n0\n0\n1\n1\n1\n1\n2\n2\n2\n2\n3\n3\n3\n3\n";
+%! FPL2vtkoutputdata ("__FPL2vtkoutputdata__test__.vtk", msh.p, msh.t, {"u", msh.p(1,:).'});
+%! fid = fopen("__FPL2vtkoutputdata__test__.vtk","r");
+%! s = fread(fid);
+%! fclose(fid);
+%! assert (char(s'), testfile);
+%! delete __FPL2vtkoutputdata__test__.vtk
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL3dxoutputfield.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL3dxoutputfield.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,76 @@
+## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} FPL3dxoutputfield( @var{filename}, @
+## @var{meshfilename}, @var{dep}, @var{u}, @var{attr_name}, @var{attr_rank}, @
+## @var{attr_shape}, @var{endfile} )
+##
+## Outputs data in DX form.
+##
+## Variable must be a scalar, vector or tensor of doubles
+##
+## @itemize @minus
+## @item @var{filename} = name of file to save (type string)
+## @item @var{meshfilename} = name of mesh file (type string)
+## @item @var{dep} = "positions" for node data, "connections" for element data
+## @item @var{field} = field data to be saved
+## @item @var{attr_name} = name of the variable (type string)
+## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.)
+## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar)
+## @end itemize
+## @end deftypefn
+
+function FPL3dxoutputfield(filename,meshfilename,dep,field,attr_name,attr_rank,attr_shape)
+
+ fid = fopen (filename,"w");
+ nnodes = size(field,1);
+
+ if ((attr_rank==0) && (min(size(field))==1))
+ fprintf(fid,"object ""%s.data""\nclass array type double rank 0 items %d data follows",attr_name,nnodes);
+ fprintf(fid,"\n %e",field);
+ else
+ fprintf(fid,"object ""%s.data""\nclass array type double rank %d shape %d items %d data follows",attr_name,attr_rank,attr_shape,nnodes);
+ for ii = 1:nnodes
+ fprintf(fid,"\n");
+ fprintf(fid," %e",field(ii,:));
+ endfor
+ endif
+ fprintf(fid,"\nattribute ""dep"" string ""%s""\n\n",dep);
+ fprintf(fid,"object ""%s"" class field\n",attr_name);
+ fprintf(fid,"component ""positions"" file %s ""pos""\n",meshfilename);
+ fprintf(fid,"component ""connections"" file %s ""con""\n",meshfilename);
+ fprintf(fid,"component ""data"" value ""%s.data""\n",attr_name);
+
+ fprintf(fid,"\nend\n");
+ fclose (fid);
+
+endfunction
+
+
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL3dxoutputmesh.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/FPL3dxoutputmesh.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,110 @@
+## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of
+##
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+##
+## AUTHORS:
+## Carlo de Falco
+##
+## Culpo Massimiliano
+## Bergische Universitaet Wuppertal
+## Fachbereich C - Mathematik und Naturwissenschaften
+## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
+## D-42119 Wuppertal, Germany
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} FPL3dxoutputmesh ( @var{filename}, @
+## @var{mesh} )
+##
+## Outputs data in DX form.
+##
+## Variable must be a scalar, vector or tensor of doubles
+##
+## @itemize @minus
+## @item @var{filename} = name of file to save (type string)
+## @item @var{mesh} = PDE-tool like mesh
+## @end itemize
+## @end deftypefn
+
+
+function FPL3dxoutputmesh(filename,mesh)
+
+ nodes = mesh.p';
+ elem = mesh.t(1:4,:)';
+
+ fid = fopen (filename,"w");
+ nnodes = columns(mesh.p);
+ nelem = columns(mesh.t);
+
+ fprintf(fid,"object ""pos""\nclass array type float rank 1 shape 3 items %d data follows",nnodes);
+ for ii = 1:nnodes
+ fprintf(fid,"\n");
+ fprintf(fid," %e",nodes(ii,:));
+ endfor
+
+ ## In DX format nodes are numbered starting from zero,
+ ## instead we want to number them starting from 1.
+ if (min(min(elem))==1)
+ elem = elem - 1;
+ elseif(min(min(elem))~=0)
+ error("WARNING: check tetrahedra structure");
+ end
+
+ fprintf(fid,"\n\nobject ""con""\nclass array type int rank 1 shape 4 items %d data follows",nelem);
+ for ii = 1:nelem
+ fprintf(fid,"\n");
+ fprintf(fid," %d",elem(ii,:));
+ endfor
+
+ fprintf(fid,"\nattribute ""element type"" string ""tetrahedra""\nattribute ""ref"" string ""positions""\n\n");
+
+ fprintf(fid,"object ""themesh"" class field\n");
+ fprintf(fid,"component ""positions"" value ""pos""\n");
+ fprintf(fid,"component ""connections"" value ""con""\n");
+
+ fprintf(fid,"\nend\n");
+ fclose (fid);
+
+endfunction
+
+%!test
+%! msh.p =[ 0 0 1 1 0 0 1 1
+%! 0 1 0 1 0 1 0 1
+%! 0 0 0 0 1 1 1 1];
+%! msh.e =[1 5 7 8 5 5 6 8 1 3 5 7
+%! 2 6 3 3 7 3 2 6 3 2 6 6
+%! 6 1 8 4 3 1 4 4 2 4 7 8
+%! 0 0 0 0 0 0 0 0 0 0 0 0
+%! 0 0 0 0 0 0 0 0 0 0 0 0
+%! 0 0 0 0 0 0 0 0 0 0 0 0
+%! 0 0 0 0 0 0 0 0 0 0 0 0
+%! 0 0 0 0 0 0 0 0 0 0 0 0
+%! 1 1 1 1 1 1 1 1 1 1 1 1
+%! 1 1 2 2 3 3 4 4 5 5 6 6];
+%! msh.t =[ 1 5 5 6 7 8
+%! 3 6 6 3 3 3
+%! 2 7 3 2 6 6
+%! 6 3 1 4 8 4
+%! 1 1 1 1 1 1];
+%! testfile = "object ""pos""\nclass array type float rank 1 shape 3 items 8 data follows\n 0.000000e+00 0.000000e+00 0.000000e+00\n 0.000000e+00 1.000000e+00 0.000000e+00\n 1.000000e+00 0.000000e+00 0.000000e+00\n 1.000000e+00 1.000000e+00 0.000000e+00\n 0.000000e+00 0.000000e+00 1.000000e+00\n 0.000000e+00 1.000000e+00 1.000000e+00\n 1.000000e+00 0.000000e+00 1.000000e+00\n 1.000000e+00 1.000000e+00 1.000000e+00\n\nobject ""con""\nclass array type int rank 1 shape 4 items 6 data follows\n 0 2 1 5\n 4 5 6 2\n 4 5 2 0\n 5 2 1 3\n 6 2 5 7\n 7 2 5 3\nattribute ""element type"" string ""tetrahedra""\nattribute ""ref"" string ""positions""\n\nobject ""themesh"" class field\ncomponent ""positions"" value ""pos""\ncomponent ""connections"" value ""con""\n\nend\n";
+%! FPL3dxoutputmesh ("__FPL3dxoutputmesh__test__.dx",msh);
+%! fid = fopen("__FPL3dxoutputmesh__test__.dx","r");
+%! s = fread(fid);
+%! fclose(fid);
+%! assert (char(s'), testfile);
+%! delete __FPL3dxoutputmesh__test__.dx
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/fpl_dx_write_field.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/fpl_dx_write_field.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,222 @@
+## Copyright (C) 2006,2007,2008,2009,2010 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of:
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+## author: Carlo de Falco
+## author: Massimiliano Culpo
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} fpl_dx_writefield (@var{basename}, @
+## @var{mesh}, @var{u}, @var{attr_name}, @var{attr_rank}, @
+## @var{attr_shape}, @var{endfile})
+##
+## Output data field in ASCII Open-DX format.
+##
+## @var{basename} is a string containing the base-name of the dx file where the
+## data will be saved.
+##
+## @var{mesh} is a PDE-tool like mesh, like the ones generated by the
+## "msh" package.
+##
+## @var{u} is the field to be saved. It should represent scalar, vector
+## or tensor of doubles.
+##
+## @var{attr_name} is a descriptive name for the field @var{u}, while
+## @var{attr_rank} is the rank of the field (0 for scalar, 1 for vector,
+## etc.) and @var{attr_shape} is the number of components of the field
+## (assumed 1 for scalar).
+##
+## @var{endfile} should be 0 if you want to add other variables to the
+## same file, 1 otherwise.
+##
+## Notice that when appending fields to an already existing file:
+##
+## @itemize
+## @item @var{mesh} will not be printed to @var{filename}, but it will
+## be only used to determine if the field is piece-wise constant or
+## piece-wise linear
+## @item @var{u} is not checked for consistency against the @var{mesh}
+## already printed in @var{filename}
+## @end itemize
+##
+## Example 1 (wrong usage):
+## @example
+##
+## fpl_dx_write_field("field.dx",msh1,u1,"density",1,0,0);
+## fpl_dx_write_field("field.dx",msh2,u2,"temperature",1,0,1);
+## @end example
+## generate a file that fails at OpenDX run-time.
+##
+## Example 2:
+## @example
+##
+## fpl_dx_write_field("field",msh1,u1,"density",1,0,0);
+## fpl_dx_write_field("field",msh1,u2,"temperature",1,0,1);
+## @end example
+## will generate a valid OpenDX ASCII data file.
+##
+## @seealso{fpl_dx_write_series}
+##
+## @end deftypefn
+
+function fpl_dx_write_field(basename,mesh,u,attr_name,attr_rank,attr_shape,endfile)
+
+ ## Check input
+ if nargin!=7
+ error("fpl_dx_write_field: wrong number of input");
+ endif
+
+ if !ischar(basename)
+ error("fpl_dx_write_field: basename should be a valid string");
+ elseif !( isstruct(mesh) )
+ error("fpl_dx_write_field: mesh should be a valid structure");
+ elseif !ismatrix(u)
+ error("fpl_dx_write_field: u should be a valid matrix");
+ elseif !ischar(attr_name)
+ error("fpl_dx_write_field: attr_name should be a valid string");
+ elseif !isscalar(attr_rank)
+ error("fpl_dx_write_field: attr_rank should be a valid scalar");
+ elseif !isscalar(attr_shape)
+ error("fpl_dx_write_field: attr_shape should be a valid scalar");
+ elseif !isscalar(endfile)
+ error("fpl_dx_write_field: endfile should be a valid scalar");
+ endif
+
+ filename = [basename ".dx"];
+
+ if ! exist(filename,"file")
+ ## If file does not exist, create it
+ fid = fopen (filename,"w");
+ create = 1;
+ else
+ ## FIXME: the following should be performed in a cleaner way! Does a
+ ## backward fgetl function exist?
+
+ ## If file exist, check if it was already closed
+ fid = fopen (filename,"r");
+ fseek(fid,-4,SEEK_END);
+ tst = fgetl(fid);
+ if strcmp(tst,"end")
+ error("fpl_dx_write_field: file %s exist and was already closed",filename);
+ endif
+ fclose(fid);
+ fid = fopen(filename,"a");
+ create = 0;
+ endif
+
+ p = mesh.p';
+ dim = columns(p); # 2D or 3D
+
+ if dim == 2
+ t = mesh.t(1:3,:)';
+ elseif dim == 3
+ t = mesh.t(1:4,:)';
+ else
+ error("fpl_dx_write_field: neither 2D triangle nor 3D tetrahedral mesh");
+ endif
+
+ nnodes = rows(p);
+ nelems = rows(t);
+ ndatas = rows(u);
+
+ if ndatas == nnodes
+ dep = "positions";
+ elseif ndatas == nelems
+ dep = "connections";
+ else
+ error("fpl_dx_write_field: neither position nor connection data type")
+ endif
+
+ if create
+ ## If the file has just been created, print mesh information
+ print_grid(fid,dim,p,nnodes,t,nelems);
+ endif
+ ## Otherwise assume the mesh is consistent with the one in the file
+ ## and print only field information
+ print_data(fid,u,ndatas,dep,attr_name,attr_rank,attr_shape);
+
+ if(endfile)
+ fprintf(fid,"\nend\n");
+ endif
+ fclose (fid);
+
+endfunction
+
+## fprint a 2Dtrg or 3Dtet mesh
+function print_grid(fid,dim,p,nnodes,t,nelems)
+
+ fprintf(fid,"object ""pos""\n");
+ fprintf(fid,"class array type float rank 1 shape %d items %d data follows",dim,nnodes);
+
+ for ii = 1:nnodes
+ fprintf(fid,"\n");
+ fprintf(fid," %1.7e",p(ii,:));
+ endfor
+
+ ## In DX format nodes are
+ ## numbered starting from zero,
+ ## instead we want to number
+ ## them starting from 1!
+ ## Here we restore the DX
+ ## format
+ if (min(min(t))==1)
+ t -= 1;
+ elseif(min(min(t))~=0)
+ error("fpl_dx_write_field: check triangle structure")
+ endif
+
+ fprintf(fid,"\n\nobject ""con""\n");
+ fprintf(fid,"class array type int rank 1 shape %d items %d data follows",dim+1,nelems);
+ for ii = 1:nelems
+ fprintf(fid,"\n");
+ fprintf(fid," %d",t(ii,:));
+ endfor
+
+ fprintf(fid,"\n");
+ if dim == 2
+ fprintf(fid,"attribute ""element type"" string ""triangles""\n");
+ elseif dim == 3
+ fprintf(fid,"\nattribute ""element type"" string ""tetrahedra""\n");
+ endif
+ fprintf(fid,"attribute ""ref"" string ""positions""\n\n");
+
+endfunction
+
+## fprint data on a trg grid
+function print_data(fid,u,ndatas,dep,attr_name,attr_rank,attr_shape)
+
+ if ((attr_rank == 0) && (min(size(u))==1))
+ fprintf(fid,"object ""%s.data""\n",attr_name);
+ fprintf(fid,"class array type double rank 0 items %d data follows",ndatas);
+ fprintf(fid,"\n %1.7e",u);
+ else
+ fprintf(fid,"object ""%s.data""\n",attr_name);
+ fprintf(fid,"class array type double rank %d shape %d items %d data follows",attr_rank,attr_shape,ndatas);
+ for ii=1:ndatas
+ fprintf(fid,"\n");
+ fprintf(fid," %1.7e",u(ii,:));
+ endfor
+ endif
+
+ fprintf(fid,"\n");
+ fprintf(fid,"attribute ""dep"" string ""%s"" \n\n",dep);
+ fprintf(fid,"object ""%s"" class field\n",attr_name);
+ fprintf(fid,"component ""positions"" value ""pos""\n");
+ fprintf(fid,"component ""connections"" value ""con""\n");
+ fprintf(fid,"component ""data"" value ""%s.data""\n",attr_name);
+ fprintf(fid,"\n");
+endfunction
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/fpl_dx_write_series.m
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/fpl/deprecated/fpl_dx_write_series.m Mon Aug 17 10:19:39 2015 +0000
@@ -0,0 +1,119 @@
+## Copyright (C) 2006,2007,2008,2009,2010 Carlo de Falco, Massimiliano Culpo
+##
+## This file is part of:
+## FPL - Fem PLotting package for octave
+##
+## FPL 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.
+##
+## FPL 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 FPL; If not, see .
+##
+## author: Carlo de Falco
+## author: Massimiliano Culpo
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} fpl_dx_write_series (@var{basename}, @
+## @var{mesh}, @var{u}, @var{sp}, @var{attr_name}, @var{attr_rank}, @
+## @var{attr_shape})
+##
+## Output data series in ASCII Open-DX format.
+##
+## @var{basename} is a string containing the base-name of the dx file where the
+## data will be saved.
+##
+## @var{mesh} is a PDE-tool like mesh, like the ones generated by the
+## "msh" package.
+##
+## @var{u} is the series to be saved. It should represent scalar, vector
+## or tensor of doubles. @var{sp} is the vector of the sampled points
+## (e.g. time points in the case of a time series).
+##
+## @var{attr_name} is a descriptive name for the series @var{u}, while
+## @var{attr_rank} is the rank of the field items (0 for scalar, 1 for
+## vector, etc.) and @var{attr_shape} is the number of components of the
+## field items (assumed 1 for scalar).
+##
+## @seealso{fpl_dx_write_field}
+##
+## @end deftypefn
+
+function fpl_dx_write_series(basename,mesh,u,tp,attr_name,attr_rank,attr_shape)
+
+ ## FIXME: add append capabilities as in fpl_dx_write_field??
+
+ if nargin!=7
+ error("fpl_dx_write_series: wrong number of input");
+ endif
+
+ if !ischar(basename)
+ error("fpl_dx_write_series: basename should be a valid string");
+ elseif !( isstruct(mesh) )
+ error("fpl_dx_write_series: mesh should be a valid structure");
+ elseif !ismatrix(u)
+ error("fpl_dx_write_series: u should be a valid matrix");
+ elseif !ischar(attr_name)
+ error("fpl_dx_write_series: attr_name should be a valid string");
+ elseif !isscalar(attr_rank)
+ error("fpl_dx_write_series: attr_rank should be a valid scalar");
+ elseif !isscalar(attr_shape)
+ error("fpl_dx_write_series: attr_shape should be a valid scalar");
+ ##elseif !isscalar(endfile)
+ ##error("fpl_dx_write_series: endfile should be a valid scalar");
+ endif
+
+ filename = [basename ".dx"];
+
+ npoints = length(tp);
+
+ p = mesh.p';
+ dim = columns(p); # 2D or 3D
+
+ if dim == 2
+ t = mesh.t(1:3,:)';
+ elseif dim == 3
+ t = mesh.t(1:4,:)';
+ else
+ error("fpl_dx_write_series: neither 2D triangle nor 3D tetrahedral mesh");
+ endif
+
+ nnodes = rows(p);
+ nelems = rows(t);
+ ndatas = rows(u);
+
+ if ndatas == nnodes
+ dep = "positions";
+ elseif ndatas == nelems
+ dep = "connections";
+ else
+ error("fpl_dx_write_series: neither position nor connection data type")
+ endif
+
+ ## Write field items to file
+ idx = (1:attr_shape);
+ for ii = 1:npoints
+ field = u(:,idx);
+ fname = sprintf("%s.%d",attr_name,ii);
+ fpl_dx_write_field(basename,mesh,field,fname,attr_rank,attr_shape,0);
+ idx += attr_shape;
+ endfor
+
+ ##if endfile
+ fid = fopen(filename,"a");
+ fprintf (fid, "object \"%s_series\" class series\n",attr_name);
+ for ii = 1:npoints
+ fname = sprintf("%s.%d",attr_name,ii);
+ fprintf (fid,"member %d position %g value \"%s\"\n",ii-1,tp(ii),fname);
+ endfor
+ fprintf (fid, "\nend\n");
+ fclose(fid);
+ ##endif
+
+endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2coloredgradient.net
--- a/extra/fpl/inst/deprecated/FPL2coloredgradient.net Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,635 +0,0 @@
-//
-// time: Wed Jun 13 18:54:22 2007
-//
-// version: 3.2.0 (format), 4.4.4 (DX)
-//
-//
-// MODULE main
-// workspace: width = 459, height = 507
-// layout: snap = 0, width = 50, height = 50, align = NN
-//
-macro main(
-) -> (
-) {
- //
- // node FileSelector[1]: x = 28, y = 29, inputs = 0, label = FileSelector
- // output[1]: visible = 1, type = 32, value = "__FILE__DX__"
- // output[2]: visible = 1, type = 32, value = "__FILE__DX__"
- //
- //
- // node Import[1]: x = 34, y = 109, inputs = 6, label = Import
- //
-main_Import_1_out_1 =
- Import(
- main_FileSelector_1_out_1,
- main_Import_1_in_2,
- main_Import_1_in_3,
- main_Import_1_in_4,
- main_Import_1_in_5,
- main_Import_1_in_6
- ) [instance: 1, cache: 1];
- //
- // node Post[1]: x = 124, y = 167, inputs = 2, label = Post
- // input[2]: defaulting = 0, visible = 1, type = 32, value = "positions"
- //
-main_Post_1_out_1 =
- Post(
- main_Import_1_out_1,
- main_Post_1_in_2
- ) [instance: 1, cache: 1];
- //
- // node Gradient[1]: x = 227, y = 144, inputs = 2, label = Gradient
- //
-main_Gradient_1_out_1 =
- Gradient(
- main_Post_1_out_1,
- main_Gradient_1_in_2
- ) [instance: 1, cache: 1];
- //
- // node AutoGlyph[1]: x = 241, y = 215, inputs = 7, label = AutoGlyph
- //
-main_AutoGlyph_1_out_1 =
- AutoGlyph(
- main_Gradient_1_out_1,
- main_AutoGlyph_1_in_2,
- main_AutoGlyph_1_in_3,
- main_AutoGlyph_1_in_4,
- main_AutoGlyph_1_in_5,
- main_AutoGlyph_1_in_6,
- main_AutoGlyph_1_in_7
- ) [instance: 1, cache: 1];
- //
- // node AutoColor[1]: x = 253, y = 283, inputs = 10, label = AutoColor
- //
-main_AutoColor_1_out_1,
-main_AutoColor_1_out_2 =
- AutoColor(
- main_AutoGlyph_1_out_1,
- main_AutoColor_1_in_2,
- main_AutoColor_1_in_3,
- main_AutoColor_1_in_4,
- main_AutoColor_1_in_5,
- main_AutoColor_1_in_6,
- main_AutoColor_1_in_7,
- main_AutoColor_1_in_8,
- main_AutoColor_1_in_9,
- main_AutoColor_1_in_10
- ) [instance: 1, cache: 1];
- //
- // node ShowConnections[1]: x = 39, y = 242, inputs = 1, label = ShowConnections
- //
-main_ShowConnections_1_out_1 =
- ShowConnections(
- main_Post_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Color[1]: x = 72, y = 328, inputs = 5, label = Color
- // input[2]: defaulting = 0, visible = 1, type = 32, value = "black"
- // input[3]: defaulting = 0, visible = 1, type = 5, value = .5
- //
-main_Color_1_out_1 =
- Color(
- main_ShowConnections_1_out_1,
- main_Color_1_in_2,
- main_Color_1_in_3,
- main_Color_1_in_4,
- main_Color_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node ColorBar[1]: x = 339, y = 285, inputs = 16, label = ColorBar
- // input[9]: defaulting = 0, visible = 0, type = 16777248, value = {"black"}
- //
-main_ColorBar_1_out_1 =
- ColorBar(
- main_AutoColor_1_out_2,
- main_ColorBar_1_in_2,
- main_ColorBar_1_in_3,
- main_ColorBar_1_in_4,
- main_ColorBar_1_in_5,
- main_ColorBar_1_in_6,
- main_ColorBar_1_in_7,
- main_ColorBar_1_in_8,
- main_ColorBar_1_in_9,
- main_ColorBar_1_in_10,
- main_ColorBar_1_in_11,
- main_ColorBar_1_in_12,
- main_ColorBar_1_in_13,
- main_ColorBar_1_in_14,
- main_ColorBar_1_in_15,
- main_ColorBar_1_in_16
- ) [instance: 1, cache: 1];
- //
- // node Collect[1]: x = 280, y = 393, inputs = 3, label = Collect
- //
-main_Collect_1_out_1 =
- Collect(
- main_Color_1_out_1,
- main_AutoColor_1_out_1,
- main_ColorBar_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Image[1]: x = 188, y = 445, inputs = 49, label = Image
- // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1"
- // input[4]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[5]: defaulting = 0, visible = 0, type = 8, value = [0.182894 0.102434 0]
- // input[6]: defaulting = 0, visible = 0, type = 8, value = [0.182894 0.102434 3.60504]
- // input[7]: defaulting = 0, visible = 0, type = 5, value = 0.460265
- // input[8]: defaulting = 0, visible = 0, type = 1, value = 772
- // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.791
- // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0]
- // input[11]: defaulting = 1, visible = 0, type = 5, value = 7.30519
- // input[12]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[15]: defaulting = 1, visible = 0, type = 32, value = "none"
- // input[16]: defaulting = 1, visible = 0, type = 32, value = "none"
- // input[17]: defaulting = 1, visible = 0, type = 1, value = 1
- // input[18]: defaulting = 1, visible = 0, type = 1, value = 1
- // input[19]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow"
- // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif"
- // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff"
- // input[29]: defaulting = 0, visible = 0, type = 3, value = 1
- // input[31]: defaulting = 0, visible = 0, type = 1, value = -5
- // input[33]: defaulting = 0, visible = 0, type = 3, value = 1
- // input[34]: defaulting = 0, visible = 0, type = 3, value = 0
- // input[36]: defaulting = 0, visible = 0, type = 3, value = 1
- // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "black", "blue", "blue"}
- // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"}
- // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.65
- // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_d"
- // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom"
- // depth: value = 24
- // window: position = (0.0000,0.0000), size = 0.6141x0.6396
- // internal caching: 1
- //
-main_Image_1_out_1,
-main_Image_1_out_2,
-main_Image_1_out_3 =
- Image(
- main_Image_1_in_1,
- main_Collect_1_out_1,
- main_Image_1_in_3,
- main_Image_1_in_4,
- main_Image_1_in_5,
- main_Image_1_in_6,
- main_Image_1_in_7,
- main_Image_1_in_8,
- main_Image_1_in_9,
- main_Image_1_in_10,
- main_Image_1_in_11,
- main_Image_1_in_12,
- main_Image_1_in_13,
- main_Image_1_in_14,
- main_Image_1_in_15,
- main_Image_1_in_16,
- main_Image_1_in_17,
- main_Image_1_in_18,
- main_Image_1_in_19,
- main_Image_1_in_20,
- main_Image_1_in_21,
- main_Image_1_in_22,
- main_Image_1_in_23,
- main_Image_1_in_24,
- main_Image_1_in_25,
- main_Image_1_in_26,
- main_Image_1_in_27,
- main_Image_1_in_28,
- main_Image_1_in_29,
- main_Image_1_in_30,
- main_Image_1_in_31,
- main_Image_1_in_32,
- main_Image_1_in_33,
- main_Image_1_in_34,
- main_Image_1_in_35,
- main_Image_1_in_36,
- main_Image_1_in_37,
- main_Image_1_in_38,
- main_Image_1_in_39,
- main_Image_1_in_40,
- main_Image_1_in_41,
- main_Image_1_in_42,
- main_Image_1_in_43,
- main_Image_1_in_44,
- main_Image_1_in_45,
- main_Image_1_in_46,
- main_Image_1_in_47,
- main_Image_1_in_48,
- main_Image_1_in_49
- ) [instance: 1, cache: 1];
-// network: end of macro body
-CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
-}
-main_FileSelector_1_out_1 = "/tmp/SECS2D.6003912.dx";
-main_Import_1_in_2 = NULL;
-main_Import_1_in_3 = NULL;
-main_Import_1_in_4 = NULL;
-main_Import_1_in_5 = NULL;
-main_Import_1_in_6 = NULL;
-main_Import_1_out_1 = NULL;
-main_Post_1_in_2 = "positions";
-main_Post_1_out_1 = NULL;
-main_Gradient_1_in_2 = NULL;
-main_Gradient_1_out_1 = NULL;
-main_AutoGlyph_1_in_2 = NULL;
-main_AutoGlyph_1_in_3 = NULL;
-main_AutoGlyph_1_in_4 = NULL;
-main_AutoGlyph_1_in_5 = NULL;
-main_AutoGlyph_1_in_6 = NULL;
-main_AutoGlyph_1_in_7 = NULL;
-main_AutoGlyph_1_out_1 = NULL;
-main_AutoColor_1_in_2 = NULL;
-main_AutoColor_1_in_3 = NULL;
-main_AutoColor_1_in_4 = NULL;
-main_AutoColor_1_in_5 = NULL;
-main_AutoColor_1_in_6 = NULL;
-main_AutoColor_1_in_7 = NULL;
-main_AutoColor_1_in_8 = NULL;
-main_AutoColor_1_in_9 = NULL;
-main_AutoColor_1_in_10 = NULL;
-main_AutoColor_1_out_1 = NULL;
-main_AutoColor_1_out_2 = NULL;
-main_ShowConnections_1_out_1 = NULL;
-main_Color_1_in_2 = "black";
-main_Color_1_in_3 = .5;
-main_Color_1_in_4 = NULL;
-main_Color_1_in_5 = NULL;
-main_Color_1_out_1 = NULL;
-main_ColorBar_1_in_2 = NULL;
-main_ColorBar_1_in_3 = NULL;
-main_ColorBar_1_in_4 = NULL;
-main_ColorBar_1_in_5 = NULL;
-main_ColorBar_1_in_6 = NULL;
-main_ColorBar_1_in_7 = NULL;
-main_ColorBar_1_in_8 = NULL;
-main_ColorBar_1_in_9 = {"black"};
-main_ColorBar_1_in_10 = NULL;
-main_ColorBar_1_in_11 = NULL;
-main_ColorBar_1_in_12 = NULL;
-main_ColorBar_1_in_13 = NULL;
-main_ColorBar_1_in_14 = NULL;
-main_ColorBar_1_in_15 = NULL;
-main_ColorBar_1_in_16 = NULL;
-main_ColorBar_1_out_1 = NULL;
-main_Collect_1_out_1 = NULL;
-macro Image(
- id,
- object,
- where,
- useVector,
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- viewAngle,
- perspective,
- options,
- buttonState = 1,
- buttonUpApprox = "none",
- buttonDownApprox = "none",
- buttonUpDensity = 1,
- buttonDownDensity = 1,
- renderMode = 0,
- defaultCamera,
- reset,
- backgroundColor,
- throttle,
- RECenable = 0,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable = 0,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- interactionMode,
- title,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- webOptions) -> (
- object,
- camera,
- where)
-{
- ImageMessage(
- id,
- backgroundColor,
- throttle,
- RECenable,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- interactionMode,
- title,
- renderMode,
- buttonUpApprox,
- buttonDownApprox,
- buttonUpDensity,
- buttonDownDensity) [instance: 1, cache: 1];
- autoCamera =
- AutoCamera(
- object,
- "front",
- object,
- resolution,
- aspect,
- [0,1,0],
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- realCamera =
- Camera(
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- coloredDefaultCamera =
- UpdateCamera(defaultCamera,
- background=backgroundColor) [instance: 1, cache: 1];
- nullDefaultCamera =
- Inquire(defaultCamera,
- "is null + 1") [instance: 1, cache: 1];
- resetCamera =
- Switch(
- nullDefaultCamera,
- coloredDefaultCamera,
- autoCamera) [instance: 1, cache: 1];
- resetNull =
- Inquire(
- reset,
- "is null + 1") [instance: 2, cache: 1];
- reset =
- Switch(
- resetNull,
- reset,
- 0) [instance: 2, cache: 1];
- whichCamera =
- Compute(
- "($0 != 0 || $1 == 0) ? 1 : 2",
- reset,
- useVector) [instance: 1, cache: 1];
- camera = Switch(
- whichCamera,
- resetCamera,
- realCamera) [instance: 3, cache: 1];
- AAobject =
- AutoAxes(
- object,
- camera,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels) [instance: 1, cache: 1];
- switchAAenable = Compute("$0+1",
- AAenable) [instance: 2, cache: 1];
- object = Switch(
- switchAAenable,
- object,
- AAobject) [instance:4, cache: 1];
- SWapproximation_options =
- Switch(
- buttonState,
- buttonUpApprox,
- buttonDownApprox) [instance: 5, cache: 1];
- SWdensity_options =
- Switch(
- buttonState,
- buttonUpDensity,
- buttonDownDensity) [instance: 6, cache: 1];
- HWapproximation_options =
- Format(
- "%s,%s",
- buttonDownApprox,
- buttonUpApprox) [instance: 1, cache: 1];
- HWdensity_options =
- Format(
- "%d,%d",
- buttonDownDensity,
- buttonUpDensity) [instance: 2, cache: 1];
- switchRenderMode = Compute(
- "$0+1",
- renderMode) [instance: 3, cache: 1];
- approximation_options = Switch(
- switchRenderMode,
- SWapproximation_options,
- HWapproximation_options) [instance: 7, cache: 1];
- density_options = Switch(
- switchRenderMode,
- SWdensity_options,
- HWdensity_options) [instance: 8, cache: 1];
- renderModeString = Switch(
- switchRenderMode,
- "software",
- "hardware")[instance: 9, cache: 1];
- object_tag = Inquire(
- object,
- "object tag")[instance: 3, cache: 1];
- annoted_object =
- Options(
- object,
- "send boxes",
- 0,
- "cache",
- 1,
- "object tag",
- object_tag,
- "ddcamera",
- whichCamera,
- "rendering approximation",
- approximation_options,
- "render every",
- density_options,
- "button state",
- buttonState,
- "rendering mode",
- renderModeString) [instance: 1, cache: 1];
- RECresNull =
- Inquire(
- RECresolution,
- "is null + 1") [instance: 4, cache: 1];
- ImageResolution =
- Inquire(
- camera,
- "camera resolution") [instance: 5, cache: 1];
- RECresolution =
- Switch(
- RECresNull,
- RECresolution,
- ImageResolution) [instance: 10, cache: 1];
- RECaspectNull =
- Inquire(
- RECaspect,
- "is null + 1") [instance: 6, cache: 1];
- ImageAspect =
- Inquire(
- camera,
- "camera aspect") [instance: 7, cache: 1];
- RECaspect =
- Switch(
- RECaspectNull,
- RECaspect,
- ImageAspect) [instance: 11, cache: 1];
- switchRECenable = Compute(
- "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
- RECenable,
- switchRenderMode,
- RECresolution,
- ImageResolution,
- RECaspect,
- ImageAspect) [instance: 4, cache: 1];
- NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
- Display(
- NoRECobject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- image =
- Render(
- RECNoRerenderObject,
- camera) [instance: 1, cache: 1];
- Display(
- image,
- NULL,
- where,
- throttle) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- rec_where = Display(
- RECNoRerHW,
- camera,
- where,
- throttle) [instance: 1, cache: 0];
- rec_image = ReadImageWindow(
- rec_where) [instance: 1, cache: 1];
- WriteImage(
- rec_image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- RECupdateCamera =
- UpdateCamera(
- camera,
- resolution=RECresolution,
- aspect=RECaspect) [instance: 2, cache: 1];
- Display(
- RECRerenderObject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- RECRerenderObject =
- ScaleScreen(
- RECRerenderObject,
- NULL,
- RECresolution,
- camera) [instance: 1, cache: 1];
- image =
- Render(
- RECRerenderObject,
- RECupdateCamera) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 2, cache: 1];
-}
-main_Image_1_in_1 = "Image_1";
-main_Image_1_in_3 = "X24,,";
-main_Image_1_in_4 = 1;
-main_Image_1_in_5 = [0.182894 0.102434 0];
-main_Image_1_in_6 = [0.182894 0.102434 3.60504];
-main_Image_1_in_7 = 0.460265;
-main_Image_1_in_8 = 772;
-main_Image_1_in_9 = 0.791;
-main_Image_1_in_10 = [0 1 0];
-main_Image_1_in_11 = NULL;
-main_Image_1_in_12 = 0;
-main_Image_1_in_13 = NULL;
-main_Image_1_in_14 = 1;
-main_Image_1_in_15 = NULL;
-main_Image_1_in_16 = NULL;
-main_Image_1_in_17 = NULL;
-main_Image_1_in_18 = NULL;
-main_Image_1_in_19 = 0;
-main_Image_1_in_20 = NULL;
-main_Image_1_in_21 = NULL;
-main_Image_1_in_22 = "snow";
-main_Image_1_in_23 = NULL;
-main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif";
-main_Image_1_in_26 = "tiff";
-main_Image_1_in_27 = NULL;
-main_Image_1_in_28 = NULL;
-main_Image_1_in_29 = 1;
-main_Image_1_in_30 = NULL;
-main_Image_1_in_31 = -5;
-main_Image_1_in_32 = NULL;
-main_Image_1_in_33 = 1;
-main_Image_1_in_34 = 0;
-main_Image_1_in_35 = NULL;
-main_Image_1_in_36 = 1;
-main_Image_1_in_37 = {"clear", "black", "blue", "blue"};
-main_Image_1_in_38 = {"background", "grid", "ticks", "labels"};
-main_Image_1_in_39 = 0.65;
-main_Image_1_in_40 = "roman_d";
-main_Image_1_in_41 = "panzoom";
-main_Image_1_in_42 = NULL;
-main_Image_1_in_43 = NULL;
-main_Image_1_in_44 = NULL;
-main_Image_1_in_45 = NULL;
-main_Image_1_in_46 = NULL;
-main_Image_1_in_47 = NULL;
-main_Image_1_in_48 = NULL;
-main_Image_1_in_49 = NULL;
-Executive("product version 4 4 4");
-$sync
-main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2coloredrubbersheet.net
--- a/extra/fpl/inst/deprecated/FPL2coloredrubbersheet.net Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,619 +0,0 @@
-//
-// time: Wed Jun 13 17:16:01 2007
-//
-// version: 3.2.0 (format), 4.4.4 (DX)
-//
-//
-// MODULE main
-// workspace: width = 533, height = 507
-// layout: snap = 0, width = 50, height = 50, align = NN
-//
-macro main(
-) -> (
-) {
- //
- // node FileSelector[1]: x = 51, y = 31, inputs = 0, label = FileSelector
- // output[1]: visible = 1, type = 32, value = "__FILE__DX__"
- // output[2]: visible = 1, type = 32, value = "__FILE__DX__"
- //
- //
- // node Import[1]: x = 104, y = 118, inputs = 6, label = Import
- //
-main_Import_1_out_1 =
- Import(
- main_FileSelector_1_out_1,
- main_Import_1_in_2,
- main_Import_1_in_3,
- main_Import_1_in_4,
- main_Import_1_in_5,
- main_Import_1_in_6
- ) [instance: 1, cache: 1];
- //
- // node Post[1]: x = 249, y = 57, inputs = 2, label = Post
- // input[2]: defaulting = 0, visible = 1, type = 32, value = "__DATA_DEPENDENCY__"
- //
-main_Post_1_out_1 =
- Post(
- main_Import_1_out_1,
- main_Post_1_in_2
- ) [instance: 1, cache: 1];
- //
- // node RubberSheet[1]: x = 228, y = 142, inputs = 4, label = RubberSheet
- //
-main_RubberSheet_1_out_1 =
- RubberSheet(
- main_Post_1_out_1,
- main_RubberSheet_1_in_2,
- main_RubberSheet_1_in_3,
- main_RubberSheet_1_in_4
- ) [instance: 1, cache: 1];
- //
- // node AutoColor[1]: x = 253, y = 283, inputs = 10, label = AutoColor
- //
-main_AutoColor_1_out_1,
-main_AutoColor_1_out_2 =
- AutoColor(
- main_RubberSheet_1_out_1,
- main_AutoColor_1_in_2,
- main_AutoColor_1_in_3,
- main_AutoColor_1_in_4,
- main_AutoColor_1_in_5,
- main_AutoColor_1_in_6,
- main_AutoColor_1_in_7,
- main_AutoColor_1_in_8,
- main_AutoColor_1_in_9,
- main_AutoColor_1_in_10
- ) [instance: 1, cache: 1];
- //
- // node ShowConnections[1]: x = 49, y = 232, inputs = 1, label = ShowConnections
- //
-main_ShowConnections_1_out_1 =
- ShowConnections(
- main_RubberSheet_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Color[1]: x = 72, y = 328, inputs = 5, label = Color
- // input[2]: defaulting = 0, visible = 1, type = 32, value = "black"
- // input[3]: defaulting = 0, visible = 1, type = 5, value = .5
- //
-main_Color_1_out_1 =
- Color(
- main_ShowConnections_1_out_1,
- main_Color_1_in_2,
- main_Color_1_in_3,
- main_Color_1_in_4,
- main_Color_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node ColorBar[1]: x = 413, y = 290, inputs = 16, label = ColorBar
- // input[9]: defaulting = 0, visible = 0, type = 16777248, value = {"black"}
- //
-main_ColorBar_1_out_1 =
- ColorBar(
- main_AutoColor_1_out_2,
- main_ColorBar_1_in_2,
- main_ColorBar_1_in_3,
- main_ColorBar_1_in_4,
- main_ColorBar_1_in_5,
- main_ColorBar_1_in_6,
- main_ColorBar_1_in_7,
- main_ColorBar_1_in_8,
- main_ColorBar_1_in_9,
- main_ColorBar_1_in_10,
- main_ColorBar_1_in_11,
- main_ColorBar_1_in_12,
- main_ColorBar_1_in_13,
- main_ColorBar_1_in_14,
- main_ColorBar_1_in_15,
- main_ColorBar_1_in_16
- ) [instance: 1, cache: 1];
- //
- // node Collect[1]: x = 280, y = 393, inputs = 3, label = Collect
- //
-main_Collect_1_out_1 =
- Collect(
- main_Color_1_out_1,
- main_AutoColor_1_out_1,
- main_ColorBar_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Image[1]: x = 188, y = 445, inputs = 49, label = Image
- // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1"
- // input[4]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[5]: defaulting = 0, visible = 0, type = 8, value = [0.466889 0.863877 0.166499]
- // input[6]: defaulting = 0, visible = 0, type = 8, value = [0.466889 0.863877 4.74189]
- // input[7]: defaulting = 0, visible = 0, type = 5, value = 1.01623
- // input[8]: defaulting = 0, visible = 0, type = 1, value = 1254
- // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.730064
- // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0]
- // input[11]: defaulting = 1, visible = 0, type = 5, value = 12.6739
- // input[12]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[15]: defaulting = 1, visible = 0, type = 32, value = "none"
- // input[16]: defaulting = 1, visible = 0, type = 32, value = "none"
- // input[17]: defaulting = 1, visible = 0, type = 1, value = 1
- // input[18]: defaulting = 1, visible = 0, type = 1, value = 1
- // input[19]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow"
- // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif"
- // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff"
- // input[29]: defaulting = 0, visible = 0, type = 3, value = 1
- // input[31]: defaulting = 0, visible = 0, type = 1, value = -5
- // input[33]: defaulting = 0, visible = 0, type = 3, value = 1
- // input[34]: defaulting = 0, visible = 0, type = 3, value = 0
- // input[36]: defaulting = 0, visible = 0, type = 3, value = 1
- // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "black", "blue", "blue"}
- // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"}
- // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.65
- // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_d"
- // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom"
- // depth: value = 24
- // window: position = (0.0000,0.0283), size = 0.9906x0.9375
- // internal caching: 1
- //
-main_Image_1_out_1,
-main_Image_1_out_2,
-main_Image_1_out_3 =
- Image(
- main_Image_1_in_1,
- main_Collect_1_out_1,
- main_Image_1_in_3,
- main_Image_1_in_4,
- main_Image_1_in_5,
- main_Image_1_in_6,
- main_Image_1_in_7,
- main_Image_1_in_8,
- main_Image_1_in_9,
- main_Image_1_in_10,
- main_Image_1_in_11,
- main_Image_1_in_12,
- main_Image_1_in_13,
- main_Image_1_in_14,
- main_Image_1_in_15,
- main_Image_1_in_16,
- main_Image_1_in_17,
- main_Image_1_in_18,
- main_Image_1_in_19,
- main_Image_1_in_20,
- main_Image_1_in_21,
- main_Image_1_in_22,
- main_Image_1_in_23,
- main_Image_1_in_24,
- main_Image_1_in_25,
- main_Image_1_in_26,
- main_Image_1_in_27,
- main_Image_1_in_28,
- main_Image_1_in_29,
- main_Image_1_in_30,
- main_Image_1_in_31,
- main_Image_1_in_32,
- main_Image_1_in_33,
- main_Image_1_in_34,
- main_Image_1_in_35,
- main_Image_1_in_36,
- main_Image_1_in_37,
- main_Image_1_in_38,
- main_Image_1_in_39,
- main_Image_1_in_40,
- main_Image_1_in_41,
- main_Image_1_in_42,
- main_Image_1_in_43,
- main_Image_1_in_44,
- main_Image_1_in_45,
- main_Image_1_in_46,
- main_Image_1_in_47,
- main_Image_1_in_48,
- main_Image_1_in_49
- ) [instance: 1, cache: 1];
-// network: end of macro body
-CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
-}
-main_FileSelector_1_out_1 = "__FILE__DX__";
-main_Import_1_in_2 = NULL;
-main_Import_1_in_3 = NULL;
-main_Import_1_in_4 = NULL;
-main_Import_1_in_5 = NULL;
-main_Import_1_in_6 = NULL;
-main_Import_1_out_1 = NULL;
-main_Post_1_in_2 = "positions";
-main_Post_1_out_1 = NULL;
-main_RubberSheet_1_in_2 = NULL;
-main_RubberSheet_1_in_3 = NULL;
-main_RubberSheet_1_in_4 = NULL;
-main_RubberSheet_1_out_1 = NULL;
-main_AutoColor_1_in_2 = NULL;
-main_AutoColor_1_in_3 = NULL;
-main_AutoColor_1_in_4 = NULL;
-main_AutoColor_1_in_5 = NULL;
-main_AutoColor_1_in_6 = NULL;
-main_AutoColor_1_in_7 = NULL;
-main_AutoColor_1_in_8 = NULL;
-main_AutoColor_1_in_9 = NULL;
-main_AutoColor_1_in_10 = NULL;
-main_AutoColor_1_out_1 = NULL;
-main_AutoColor_1_out_2 = NULL;
-main_ShowConnections_1_out_1 = NULL;
-main_Color_1_in_2 = "black";
-main_Color_1_in_3 = .5;
-main_Color_1_in_4 = NULL;
-main_Color_1_in_5 = NULL;
-main_Color_1_out_1 = NULL;
-main_ColorBar_1_in_2 = NULL;
-main_ColorBar_1_in_3 = NULL;
-main_ColorBar_1_in_4 = NULL;
-main_ColorBar_1_in_5 = NULL;
-main_ColorBar_1_in_6 = NULL;
-main_ColorBar_1_in_7 = NULL;
-main_ColorBar_1_in_8 = NULL;
-main_ColorBar_1_in_9 = {"black"};
-main_ColorBar_1_in_10 = NULL;
-main_ColorBar_1_in_11 = NULL;
-main_ColorBar_1_in_12 = NULL;
-main_ColorBar_1_in_13 = NULL;
-main_ColorBar_1_in_14 = NULL;
-main_ColorBar_1_in_15 = NULL;
-main_ColorBar_1_in_16 = NULL;
-main_ColorBar_1_out_1 = NULL;
-main_Collect_1_out_1 = NULL;
-macro Image(
- id,
- object,
- where,
- useVector,
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- viewAngle,
- perspective,
- options,
- buttonState = 1,
- buttonUpApprox = "none",
- buttonDownApprox = "none",
- buttonUpDensity = 1,
- buttonDownDensity = 1,
- renderMode = 0,
- defaultCamera,
- reset,
- backgroundColor,
- throttle,
- RECenable = 0,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable = 0,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- interactionMode,
- title,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- webOptions) -> (
- object,
- camera,
- where)
-{
- ImageMessage(
- id,
- backgroundColor,
- throttle,
- RECenable,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- interactionMode,
- title,
- renderMode,
- buttonUpApprox,
- buttonDownApprox,
- buttonUpDensity,
- buttonDownDensity) [instance: 1, cache: 1];
- autoCamera =
- AutoCamera(
- object,
- "front",
- object,
- resolution,
- aspect,
- [0,1,0],
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- realCamera =
- Camera(
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- coloredDefaultCamera =
- UpdateCamera(defaultCamera,
- background=backgroundColor) [instance: 1, cache: 1];
- nullDefaultCamera =
- Inquire(defaultCamera,
- "is null + 1") [instance: 1, cache: 1];
- resetCamera =
- Switch(
- nullDefaultCamera,
- coloredDefaultCamera,
- autoCamera) [instance: 1, cache: 1];
- resetNull =
- Inquire(
- reset,
- "is null + 1") [instance: 2, cache: 1];
- reset =
- Switch(
- resetNull,
- reset,
- 0) [instance: 2, cache: 1];
- whichCamera =
- Compute(
- "($0 != 0 || $1 == 0) ? 1 : 2",
- reset,
- useVector) [instance: 1, cache: 1];
- camera = Switch(
- whichCamera,
- resetCamera,
- realCamera) [instance: 3, cache: 1];
- AAobject =
- AutoAxes(
- object,
- camera,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels) [instance: 1, cache: 1];
- switchAAenable = Compute("$0+1",
- AAenable) [instance: 2, cache: 1];
- object = Switch(
- switchAAenable,
- object,
- AAobject) [instance:4, cache: 1];
- SWapproximation_options =
- Switch(
- buttonState,
- buttonUpApprox,
- buttonDownApprox) [instance: 5, cache: 1];
- SWdensity_options =
- Switch(
- buttonState,
- buttonUpDensity,
- buttonDownDensity) [instance: 6, cache: 1];
- HWapproximation_options =
- Format(
- "%s,%s",
- buttonDownApprox,
- buttonUpApprox) [instance: 1, cache: 1];
- HWdensity_options =
- Format(
- "%d,%d",
- buttonDownDensity,
- buttonUpDensity) [instance: 2, cache: 1];
- switchRenderMode = Compute(
- "$0+1",
- renderMode) [instance: 3, cache: 1];
- approximation_options = Switch(
- switchRenderMode,
- SWapproximation_options,
- HWapproximation_options) [instance: 7, cache: 1];
- density_options = Switch(
- switchRenderMode,
- SWdensity_options,
- HWdensity_options) [instance: 8, cache: 1];
- renderModeString = Switch(
- switchRenderMode,
- "software",
- "hardware")[instance: 9, cache: 1];
- object_tag = Inquire(
- object,
- "object tag")[instance: 3, cache: 1];
- annoted_object =
- Options(
- object,
- "send boxes",
- 0,
- "cache",
- 1,
- "object tag",
- object_tag,
- "ddcamera",
- whichCamera,
- "rendering approximation",
- approximation_options,
- "render every",
- density_options,
- "button state",
- buttonState,
- "rendering mode",
- renderModeString) [instance: 1, cache: 1];
- RECresNull =
- Inquire(
- RECresolution,
- "is null + 1") [instance: 4, cache: 1];
- ImageResolution =
- Inquire(
- camera,
- "camera resolution") [instance: 5, cache: 1];
- RECresolution =
- Switch(
- RECresNull,
- RECresolution,
- ImageResolution) [instance: 10, cache: 1];
- RECaspectNull =
- Inquire(
- RECaspect,
- "is null + 1") [instance: 6, cache: 1];
- ImageAspect =
- Inquire(
- camera,
- "camera aspect") [instance: 7, cache: 1];
- RECaspect =
- Switch(
- RECaspectNull,
- RECaspect,
- ImageAspect) [instance: 11, cache: 1];
- switchRECenable = Compute(
- "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
- RECenable,
- switchRenderMode,
- RECresolution,
- ImageResolution,
- RECaspect,
- ImageAspect) [instance: 4, cache: 1];
- NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
- Display(
- NoRECobject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- image =
- Render(
- RECNoRerenderObject,
- camera) [instance: 1, cache: 1];
- Display(
- image,
- NULL,
- where,
- throttle) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- rec_where = Display(
- RECNoRerHW,
- camera,
- where,
- throttle) [instance: 1, cache: 0];
- rec_image = ReadImageWindow(
- rec_where) [instance: 1, cache: 1];
- WriteImage(
- rec_image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- RECupdateCamera =
- UpdateCamera(
- camera,
- resolution=RECresolution,
- aspect=RECaspect) [instance: 2, cache: 1];
- Display(
- RECRerenderObject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- RECRerenderObject =
- ScaleScreen(
- RECRerenderObject,
- NULL,
- RECresolution,
- camera) [instance: 1, cache: 1];
- image =
- Render(
- RECRerenderObject,
- RECupdateCamera) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 2, cache: 1];
-}
-main_Image_1_in_1 = "Image_1";
-main_Image_1_in_3 = "X24,,";
-main_Image_1_in_4 = 1;
-main_Image_1_in_5 = [0.466889 0.863877 0.166499];
-main_Image_1_in_6 = [0.466889 0.863877 4.74189];
-main_Image_1_in_7 = 1.01623;
-main_Image_1_in_8 = 1254;
-main_Image_1_in_9 = 0.730064;
-main_Image_1_in_10 = [0 1 0];
-main_Image_1_in_11 = NULL;
-main_Image_1_in_12 = 0;
-main_Image_1_in_13 = NULL;
-main_Image_1_in_14 = 1;
-main_Image_1_in_15 = NULL;
-main_Image_1_in_16 = NULL;
-main_Image_1_in_17 = NULL;
-main_Image_1_in_18 = NULL;
-main_Image_1_in_19 = 0;
-main_Image_1_in_20 = NULL;
-main_Image_1_in_21 = NULL;
-main_Image_1_in_22 = "snow";
-main_Image_1_in_23 = NULL;
-main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif";
-main_Image_1_in_26 = "tiff";
-main_Image_1_in_27 = NULL;
-main_Image_1_in_28 = NULL;
-main_Image_1_in_29 = 1;
-main_Image_1_in_30 = NULL;
-main_Image_1_in_31 = -5;
-main_Image_1_in_32 = NULL;
-main_Image_1_in_33 = 1;
-main_Image_1_in_34 = 0;
-main_Image_1_in_35 = NULL;
-main_Image_1_in_36 = 1;
-main_Image_1_in_37 = {"clear", "black", "blue", "blue"};
-main_Image_1_in_38 = {"background", "grid", "ticks", "labels"};
-main_Image_1_in_39 = 0.65;
-main_Image_1_in_40 = "roman_d";
-main_Image_1_in_41 = "panzoom";
-main_Image_1_in_42 = NULL;
-main_Image_1_in_43 = NULL;
-main_Image_1_in_44 = NULL;
-main_Image_1_in_45 = NULL;
-main_Image_1_in_46 = NULL;
-main_Image_1_in_47 = NULL;
-main_Image_1_in_48 = NULL;
-main_Image_1_in_49 = NULL;
-Executive("product version 4 4 4");
-$sync
-main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2dxappenddata.m
--- a/extra/fpl/inst/deprecated/FPL2dxappenddata.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,90 +0,0 @@
-## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} FPL2dxappenddata ( @var{filename},
-## @var{p}, @var{t}, @var{u}, @var{attr_name}, @var{attr_rank},
-## @var{attr_shape}, @var{endflie} )
-##
-## Apends data to a file in DX form.
-## Only one variable can be written to the file
-## variable must be a scalar, vector or tensor of doubles
-## mesh data in the file must be consistent with this variable
-##
-## Variable must be a scalar, vector or tensor of doubles
-##
-## @itemize @minus
-## @item @var{filename}= name of file to save (type string)
-## @item @var{p}, @var{t} = mesh
-## @item @var{u} = variable to save
-## @item @var{attr_name} = name of the variable (type string)
-## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.)
-## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar)
-## @item @var{endfile} = 0 if you want to add other variables to the
-## same file, 1 otherwise
-## @end itemize
-## @end deftypefn
-
-function FPL2dxappenddata(filename,p,t,u,attr_name,attr_rank,attr_shape,endfile)
-
- p = p';
- t = t';
- t = t(:,1:3);
-
- fid=fopen (filename,'a');
- Nnodi = size(p,1);
- Ntriangoli = size(t,1);
-
- fprintf(fid,'\nattribute "element type" string "triangles"\nattribute "ref" string "positions"\n\n');
-
- if ((attr_rank==0) && (min(size(u))==1))
- fprintf(fid,'object "%s.data"\nclass array type double rank 0 items %d data follows',attr_name,Nnodi);
- fprintf(fid,'\n %1.7e',u);
- else
- fprintf(fid,'object "%s.data"\nclass array type double rank %d shape %d items %d data follows', ...
- attr_name,attr_rank,attr_shape,Nnodi);
- for i=1:Nnodi
- fprintf(fid,'\n');
- fprintf(fid,' %1.7e',u(i,:));
- endfor
- endif
- fprintf(fid,['\nattribute "dep" string "positions"\n\n' ...
- 'object "%s" class field\n'...
- 'component "positions" value "pos"\n'...
- 'component "connections" value "con"\n'...
- 'component "data" value "%s.data"\n'],...
- attr_name,attr_name);
-
- if(endfile)
- fprintf(fid,'\nend\n');
- endif
-
- fclose (fid);
-
-endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2dxoutputdata.m
--- a/extra/fpl/inst/deprecated/FPL2dxoutputdata.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,126 +0,0 @@
-## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} FPL2dxoutputdata ( @var{filename}, @
-## @var{p}, @var{t}, @var{u}, @var{attr_name}, @var{attr_rank}, @
-## @var{attr_shape}, @var{endfile} )
-##
-## Outputs data in DX form.
-##
-## Variable must be a scalar, vector or tensor of doubles
-##
-## @itemize @minus
-## @item @var{filename}= name of file to save (type string)
-## @item @var{p}, @var{t} = mesh
-## @item @var{u} = variable to save
-## @item @var{attr_name} = name of the variable (type string)
-## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.)
-## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar)
-## @item @var{endfile} = 0 if you want to add other variables to the
-## same file, 1 otherwise
-## @end itemize
-## @end deftypefn
-
-function FPL2dxoutputdata(filename,p,t,u,attr_name,attr_rank,attr_shape,endfile)
-
- p = p';
- t = t';
- t = t(:,1:3);
-
- fid=fopen (filename,'w');
- Nnodi = size(p,1);
- Ntriangoli = size(t,1);
- Ndati = size(u,1);
-
- fprintf(fid,"object ""pos""\nclass array type float rank 1 shape 2 items %d data follows",Nnodi);
-
- for i=1:Nnodi
- fprintf(fid,"\n");
- fprintf(fid," %1.7e",p(i,:));
- endfor
-
- if (min(min(t))==1)
- t=t-1;
- elseif(min(min(t))~=0)
- disp('WARNING: check triangle structure')
- endif
- ## In DX format nodes are
- ## numbered starting from zero,
- ## instead we want to number
- ## them starting from 1!
- ## Here we restore the DX
- ## format
-
- fprintf(fid,"\n\nobject ""con""\nclass array type int rank 1 shape 3 items %d data follows",Ntriangoli);
- for i=1:Ntriangoli
- fprintf(fid,"\n");
- fprintf(fid," %d",t(i,:));
- endfor
-
- fprintf(fid,"\nattribute ""element type"" string ""triangles""\nattribute ""ref"" string ""positions""\n\n");
-
- if ((attr_rank==0) && (min(size(u))==1))
- fprintf(fid,"object ""%s.data""\nclass array type double rank 0 items %d data follows",attr_name,Ndati);
- fprintf(fid,"\n %1.7e",u);
-
- else
- fprintf(fid,"object ""%s.data""\nclass array type double rank %d shape %d items %d data follows", ...
- attr_name,attr_rank,attr_shape,Ndati);
- for i=1:Ndati
- fprintf(fid,"\n");
- fprintf(fid," %1.7e",u(i,:));
- endfor
-
- endif
-
- if Ndati==Nnodi
- fprintf(fid,["\nattribute ""dep"" string ""positions""\n\n" ...
- "object ""%s"" class field\n"...
- "component ""positions"" value ""pos""\n"...
- "component ""connections"" value ""con""\n"...
- "component ""data"" value ""%s.data""\n"],...
- attr_name,attr_name);
- elseif Ndati==Ntriangoli
- fprintf(fid,["\nattribute ""dep"" string ""connections""\n\n" ...
- "object ""%s"" class field\n"...
- "component ""positions"" value ""pos""\n"...
- "component ""connections"" value ""con""\n"...
- "component ""data"" value ""%s.data""\n"],...
- attr_name,attr_name);
- endif
-
- if(endfile)
- fprintf(fid,"\nend\n");
- endif
-
- fclose (fid);
-
-
-endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2dxoutputtimeseries.m
--- a/extra/fpl/inst/deprecated/FPL2dxoutputtimeseries.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,71 +0,0 @@
-## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} FPL2dxoutputtimeseries ( @var{filename}, @var{p}, @var{t}, @var{u}, @var{attr_name}, @var{attr_rank}, @var{attr_shape}, @var{time} )
-##
-## Outputs a time series in DX form.
-## variable must be a scalar, vector or tensor of doubles
-## @itemize @minus
-## @item @var{filename}= name of file to save (type string)
-## @item @var{p}, @var{t} = mesh
-## @item @var{u} = variable to save
-## @item @var{attr_name} = name of the variable (type string)
-## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.)
-## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar)
-## @item @var{time} = time instants
-## @end itemize
-## @end deftypefn
-
-function FPL2dxoutputtimeseries(filename,p,t,u,attr_name,attr_rank,attr_shape,time)
-
- Nsteps = length(time);
- if (Nsteps<=1)
- endfile = 1;
- else
- endfile = 0;
- endif
-
- FPL2dxoutputdata(filename,p,t,u(:,1:attr_shape),[attr_name "1"],attr_rank,attr_shape,endfile);
-
- for it = 2:Nsteps
- FPL2dxappenddata(filename,p,t,u(:,[1:attr_shape]+attr_shape*(it-1)),...
- [attr_name num2str(it)],attr_rank,attr_shape,endfile);
- endfor
-
- fid=fopen(filename,"a");
-
- fprintf (fid, "object \"%s_series\" class series\n",attr_name);
- for it = 1:Nsteps
- fprintf (fid,"member %d position %g value \"%s\"\n",it-1,time(it),[attr_name num2str(it)]);
- endfor
- fprintf (fid, "\nend\n");
- fclose(fid);
-
-endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2pdequiver.m
--- a/extra/fpl/inst/deprecated/FPL2pdequiver.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,92 +0,0 @@
-## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} FPL2pdequiver (@var{mesh}, @
-## @var{vx}, @var{vy}, [ @var{property}, @var{value} ...])
-##
-## Plots the 2D vector field @var{vx}, @var{vy}
-## defined on the triangulation @var{mesh} using opendx.
-##
-## Options (default values):
-## @var{sample_density} (100)
-##
-## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2ptcquiver}
-## @end deftypefn
-
-function FPL2pdequiver(mesh,vecfieldx,vecfieldy,varargin);
-
- sample_density = "100";
-
- if( (nargin >= 3) && (rem(nargin,2)==1) )
- for ii=1:2:length(varargin)
- [ varargin{ii} " = " varargin{ii+1} ";" ]
- eval([ varargin{ii} " = """ varargin{ii+1} """;" ]);
- endfor
- else
- error(["wrong number of parameters " num2str (nargin)])
- endif
-
- JX = sum(vecfieldx,1)'/3;
- JY = sum(vecfieldy,1)'/3;
-
- dataname = mktemp("/tmp",".dx");
- scriptname = mktemp("/tmp",".net");
-
- FPL2dxoutputdata(dataname,mesh.p,mesh.t,[ JX JY],'J',1,2,1);
-
- showmesh = file_in_path(path,"FPL2pdequiver.net");
-
- system (["cp " showmesh " " scriptname]);
- system (["sed -i \'s|__FILE__DX__|" dataname "|g\' " scriptname]);
- system (["sed -i \'s|__SAMPLE__DENSITY__|" sample_density "|g\' " scriptname]);
-
- command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
-
- system(command);
-
-
-endfunction
-
-function filename = mktemp (direct,ext);
-
- if (~exist(direct,"dir"))
- error("trying to save temporary file to non existing directory")
- endif
-
- done=false;
-
- while ~done
- filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
- if ~exist(filename,"file")
- done =true;
- endif
- endwhile
-
-endfunction
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2pdequiver.net
--- a/extra/fpl/inst/deprecated/FPL2pdequiver.net Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,613 +0,0 @@
-//
-// time: Fri Jun 15 19:24:56 2007
-//
-// version: 3.2.0 (format), 4.4.4 (DX)
-//
-//
-// MODULE main
-// workspace: width = 481, height = 614
-// layout: snap = 0, width = 50, height = 50, align = NN
-//
-macro main(
-) -> (
-) {
- //
- // node FileSelector[1]: x = 173, y = 81, inputs = 0, label = FileSelector
- // output[1]: visible = 1, type = 32, value = "__FILE__DX__"
- // output[2]: visible = 1, type = 32, value = "__FILE__DX__"
- //
- //
- // node Import[1]: x = 203, y = 177, inputs = 6, label = Import
- //
-main_Import_1_out_1 =
- Import(
- main_FileSelector_1_out_1,
- main_Import_1_in_2,
- main_Import_1_in_3,
- main_Import_1_in_4,
- main_Import_1_in_5,
- main_Import_1_in_6
- ) [instance: 1, cache: 1];
- //
- // node Sample[1]: x = 89, y = 238, inputs = 2, label = Sample
- // input[2]: defaulting = 0, visible = 1, type = 1, value = __SAMPLE__DENSITY__
- //
-main_Sample_1_out_1 =
- Sample(
- main_Import_1_out_1,
- main_Sample_1_in_2
- ) [instance: 1, cache: 1];
- //
- // node AutoGlyph[1]: x = 64, y = 323, inputs = 7, label = AutoGlyph
- //
-main_AutoGlyph_1_out_1 =
- AutoGlyph(
- main_Sample_1_out_1,
- main_AutoGlyph_1_in_2,
- main_AutoGlyph_1_in_3,
- main_AutoGlyph_1_in_4,
- main_AutoGlyph_1_in_5,
- main_AutoGlyph_1_in_6,
- main_AutoGlyph_1_in_7
- ) [instance: 1, cache: 1];
- //
- // node AutoColor[1]: x = 76, y = 415, inputs = 10, label = AutoColor
- //
-main_AutoColor_1_out_1,
-main_AutoColor_1_out_2 =
- AutoColor(
- main_AutoGlyph_1_out_1,
- main_AutoColor_1_in_2,
- main_AutoColor_1_in_3,
- main_AutoColor_1_in_4,
- main_AutoColor_1_in_5,
- main_AutoColor_1_in_6,
- main_AutoColor_1_in_7,
- main_AutoColor_1_in_8,
- main_AutoColor_1_in_9,
- main_AutoColor_1_in_10
- ) [instance: 1, cache: 1];
- //
- // node ColorBar[1]: x = 238, y = 367, inputs = 16, label = ColorBar
- //
-main_ColorBar_1_out_1 =
- ColorBar(
- main_AutoColor_1_out_2,
- main_ColorBar_1_in_2,
- main_ColorBar_1_in_3,
- main_ColorBar_1_in_4,
- main_ColorBar_1_in_5,
- main_ColorBar_1_in_6,
- main_ColorBar_1_in_7,
- main_ColorBar_1_in_8,
- main_ColorBar_1_in_9,
- main_ColorBar_1_in_10,
- main_ColorBar_1_in_11,
- main_ColorBar_1_in_12,
- main_ColorBar_1_in_13,
- main_ColorBar_1_in_14,
- main_ColorBar_1_in_15,
- main_ColorBar_1_in_16
- ) [instance: 1, cache: 1];
- //
- // node ShowConnections[1]: x = 348, y = 295, inputs = 1, label = ShowConnections
- //
-main_ShowConnections_1_out_1 =
- ShowConnections(
- main_Import_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Color[1]: x = 359, y = 398, inputs = 5, label = Color
- // input[2]: defaulting = 0, visible = 1, type = 32, value = "black"
- //
-main_Color_1_out_1 =
- Color(
- main_ShowConnections_1_out_1,
- main_Color_1_in_2,
- main_Color_1_in_3,
- main_Color_1_in_4,
- main_Color_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node Collect[1]: x = 198, y = 465, inputs = 3, label = Collect
- //
-main_Collect_1_out_1 =
- Collect(
- main_AutoColor_1_out_1,
- main_ColorBar_1_out_1,
- main_Color_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Image[1]: x = 195, y = 552, inputs = 49, label = Image
- // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1"
- // input[4]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[5]: defaulting = 0, visible = 0, type = 8, value = [0.555651 0.5 0]
- // input[6]: defaulting = 0, visible = 0, type = 8, value = [0.555651 0.5 3.71222]
- // input[7]: defaulting = 0, visible = 0, type = 5, value = 1.98938
- // input[8]: defaulting = 0, visible = 0, type = 1, value = 1254
- // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.759
- // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0]
- // input[11]: defaulting = 1, visible = 0, type = 5, value = 30.0001
- // input[12]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[15]: defaulting = 1, visible = 0, type = 32, value = "none"
- // input[16]: defaulting = 1, visible = 0, type = 32, value = "none"
- // input[17]: defaulting = 1, visible = 0, type = 1, value = 1
- // input[18]: defaulting = 1, visible = 0, type = 1, value = 1
- // input[19]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[22]: defaulting = 0, visible = 0, type = 32, value = "grey70"
- // input[29]: defaulting = 1, visible = 0, type = 3, value = 0
- // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom"
- // depth: value = 24
- // window: position = (0.0000,0.0000), size = 0.9906x0.9697
- // internal caching: 1
- //
-main_Image_1_out_1,
-main_Image_1_out_2,
-main_Image_1_out_3 =
- Image(
- main_Image_1_in_1,
- main_Collect_1_out_1,
- main_Image_1_in_3,
- main_Image_1_in_4,
- main_Image_1_in_5,
- main_Image_1_in_6,
- main_Image_1_in_7,
- main_Image_1_in_8,
- main_Image_1_in_9,
- main_Image_1_in_10,
- main_Image_1_in_11,
- main_Image_1_in_12,
- main_Image_1_in_13,
- main_Image_1_in_14,
- main_Image_1_in_15,
- main_Image_1_in_16,
- main_Image_1_in_17,
- main_Image_1_in_18,
- main_Image_1_in_19,
- main_Image_1_in_20,
- main_Image_1_in_21,
- main_Image_1_in_22,
- main_Image_1_in_23,
- main_Image_1_in_24,
- main_Image_1_in_25,
- main_Image_1_in_26,
- main_Image_1_in_27,
- main_Image_1_in_28,
- main_Image_1_in_29,
- main_Image_1_in_30,
- main_Image_1_in_31,
- main_Image_1_in_32,
- main_Image_1_in_33,
- main_Image_1_in_34,
- main_Image_1_in_35,
- main_Image_1_in_36,
- main_Image_1_in_37,
- main_Image_1_in_38,
- main_Image_1_in_39,
- main_Image_1_in_40,
- main_Image_1_in_41,
- main_Image_1_in_42,
- main_Image_1_in_43,
- main_Image_1_in_44,
- main_Image_1_in_45,
- main_Image_1_in_46,
- main_Image_1_in_47,
- main_Image_1_in_48,
- main_Image_1_in_49
- ) [instance: 1, cache: 1];
-// network: end of macro body
-CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
-}
-main_FileSelector_1_out_1 = "__FILE__DX__";
-main_Import_1_in_2 = NULL;
-main_Import_1_in_3 = NULL;
-main_Import_1_in_4 = NULL;
-main_Import_1_in_5 = NULL;
-main_Import_1_in_6 = NULL;
-main_Import_1_out_1 = NULL;
-main_Sample_1_in_2 = __SAMPLE__DENSITY__;
-main_Sample_1_out_1 = NULL;
-main_AutoGlyph_1_in_2 = NULL;
-main_AutoGlyph_1_in_3 = NULL;
-main_AutoGlyph_1_in_4 = NULL;
-main_AutoGlyph_1_in_5 = NULL;
-main_AutoGlyph_1_in_6 = NULL;
-main_AutoGlyph_1_in_7 = NULL;
-main_AutoGlyph_1_out_1 = NULL;
-main_AutoColor_1_in_2 = NULL;
-main_AutoColor_1_in_3 = NULL;
-main_AutoColor_1_in_4 = NULL;
-main_AutoColor_1_in_5 = NULL;
-main_AutoColor_1_in_6 = NULL;
-main_AutoColor_1_in_7 = NULL;
-main_AutoColor_1_in_8 = NULL;
-main_AutoColor_1_in_9 = NULL;
-main_AutoColor_1_in_10 = NULL;
-main_AutoColor_1_out_1 = NULL;
-main_AutoColor_1_out_2 = NULL;
-main_ColorBar_1_in_2 = NULL;
-main_ColorBar_1_in_3 = NULL;
-main_ColorBar_1_in_4 = NULL;
-main_ColorBar_1_in_5 = NULL;
-main_ColorBar_1_in_6 = NULL;
-main_ColorBar_1_in_7 = NULL;
-main_ColorBar_1_in_8 = NULL;
-main_ColorBar_1_in_9 = NULL;
-main_ColorBar_1_in_10 = NULL;
-main_ColorBar_1_in_11 = NULL;
-main_ColorBar_1_in_12 = NULL;
-main_ColorBar_1_in_13 = NULL;
-main_ColorBar_1_in_14 = NULL;
-main_ColorBar_1_in_15 = NULL;
-main_ColorBar_1_in_16 = NULL;
-main_ColorBar_1_out_1 = NULL;
-main_ShowConnections_1_out_1 = NULL;
-main_Color_1_in_2 = "black";
-main_Color_1_in_3 = NULL;
-main_Color_1_in_4 = NULL;
-main_Color_1_in_5 = NULL;
-main_Color_1_out_1 = NULL;
-main_Collect_1_out_1 = NULL;
-macro Image(
- id,
- object,
- where,
- useVector,
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- viewAngle,
- perspective,
- options,
- buttonState = 1,
- buttonUpApprox = "none",
- buttonDownApprox = "none",
- buttonUpDensity = 1,
- buttonDownDensity = 1,
- renderMode = 0,
- defaultCamera,
- reset,
- backgroundColor,
- throttle,
- RECenable = 0,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable = 0,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- interactionMode,
- title,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- webOptions) -> (
- object,
- camera,
- where)
-{
- ImageMessage(
- id,
- backgroundColor,
- throttle,
- RECenable,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- interactionMode,
- title,
- renderMode,
- buttonUpApprox,
- buttonDownApprox,
- buttonUpDensity,
- buttonDownDensity) [instance: 1, cache: 1];
- autoCamera =
- AutoCamera(
- object,
- "front",
- object,
- resolution,
- aspect,
- [0,1,0],
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- realCamera =
- Camera(
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- coloredDefaultCamera =
- UpdateCamera(defaultCamera,
- background=backgroundColor) [instance: 1, cache: 1];
- nullDefaultCamera =
- Inquire(defaultCamera,
- "is null + 1") [instance: 1, cache: 1];
- resetCamera =
- Switch(
- nullDefaultCamera,
- coloredDefaultCamera,
- autoCamera) [instance: 1, cache: 1];
- resetNull =
- Inquire(
- reset,
- "is null + 1") [instance: 2, cache: 1];
- reset =
- Switch(
- resetNull,
- reset,
- 0) [instance: 2, cache: 1];
- whichCamera =
- Compute(
- "($0 != 0 || $1 == 0) ? 1 : 2",
- reset,
- useVector) [instance: 1, cache: 1];
- camera = Switch(
- whichCamera,
- resetCamera,
- realCamera) [instance: 3, cache: 1];
- AAobject =
- AutoAxes(
- object,
- camera,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels) [instance: 1, cache: 1];
- switchAAenable = Compute("$0+1",
- AAenable) [instance: 2, cache: 1];
- object = Switch(
- switchAAenable,
- object,
- AAobject) [instance:4, cache: 1];
- SWapproximation_options =
- Switch(
- buttonState,
- buttonUpApprox,
- buttonDownApprox) [instance: 5, cache: 1];
- SWdensity_options =
- Switch(
- buttonState,
- buttonUpDensity,
- buttonDownDensity) [instance: 6, cache: 1];
- HWapproximation_options =
- Format(
- "%s,%s",
- buttonDownApprox,
- buttonUpApprox) [instance: 1, cache: 1];
- HWdensity_options =
- Format(
- "%d,%d",
- buttonDownDensity,
- buttonUpDensity) [instance: 2, cache: 1];
- switchRenderMode = Compute(
- "$0+1",
- renderMode) [instance: 3, cache: 1];
- approximation_options = Switch(
- switchRenderMode,
- SWapproximation_options,
- HWapproximation_options) [instance: 7, cache: 1];
- density_options = Switch(
- switchRenderMode,
- SWdensity_options,
- HWdensity_options) [instance: 8, cache: 1];
- renderModeString = Switch(
- switchRenderMode,
- "software",
- "hardware")[instance: 9, cache: 1];
- object_tag = Inquire(
- object,
- "object tag")[instance: 3, cache: 1];
- annoted_object =
- Options(
- object,
- "send boxes",
- 0,
- "cache",
- 1,
- "object tag",
- object_tag,
- "ddcamera",
- whichCamera,
- "rendering approximation",
- approximation_options,
- "render every",
- density_options,
- "button state",
- buttonState,
- "rendering mode",
- renderModeString) [instance: 1, cache: 1];
- RECresNull =
- Inquire(
- RECresolution,
- "is null + 1") [instance: 4, cache: 1];
- ImageResolution =
- Inquire(
- camera,
- "camera resolution") [instance: 5, cache: 1];
- RECresolution =
- Switch(
- RECresNull,
- RECresolution,
- ImageResolution) [instance: 10, cache: 1];
- RECaspectNull =
- Inquire(
- RECaspect,
- "is null + 1") [instance: 6, cache: 1];
- ImageAspect =
- Inquire(
- camera,
- "camera aspect") [instance: 7, cache: 1];
- RECaspect =
- Switch(
- RECaspectNull,
- RECaspect,
- ImageAspect) [instance: 11, cache: 1];
- switchRECenable = Compute(
- "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
- RECenable,
- switchRenderMode,
- RECresolution,
- ImageResolution,
- RECaspect,
- ImageAspect) [instance: 4, cache: 1];
- NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
- Display(
- NoRECobject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- image =
- Render(
- RECNoRerenderObject,
- camera) [instance: 1, cache: 1];
- Display(
- image,
- NULL,
- where,
- throttle) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- rec_where = Display(
- RECNoRerHW,
- camera,
- where,
- throttle) [instance: 1, cache: 0];
- rec_image = ReadImageWindow(
- rec_where) [instance: 1, cache: 1];
- WriteImage(
- rec_image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- RECupdateCamera =
- UpdateCamera(
- camera,
- resolution=RECresolution,
- aspect=RECaspect) [instance: 2, cache: 1];
- Display(
- RECRerenderObject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- RECRerenderObject =
- ScaleScreen(
- RECRerenderObject,
- NULL,
- RECresolution,
- camera) [instance: 1, cache: 1];
- image =
- Render(
- RECRerenderObject,
- RECupdateCamera) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 2, cache: 1];
-}
-main_Image_1_in_1 = "Image_1";
-main_Image_1_in_3 = "X24,,";
-main_Image_1_in_4 = 1;
-main_Image_1_in_5 = [0.555651 0.5 0];
-main_Image_1_in_6 = [0.555651 0.5 3.71222];
-main_Image_1_in_7 = 1.98938;
-main_Image_1_in_8 = 1254;
-main_Image_1_in_9 = 0.759;
-main_Image_1_in_10 = [0 1 0];
-main_Image_1_in_11 = NULL;
-main_Image_1_in_12 = 0;
-main_Image_1_in_13 = NULL;
-main_Image_1_in_14 = 1;
-main_Image_1_in_15 = NULL;
-main_Image_1_in_16 = NULL;
-main_Image_1_in_17 = NULL;
-main_Image_1_in_18 = NULL;
-main_Image_1_in_19 = 0;
-main_Image_1_in_20 = NULL;
-main_Image_1_in_21 = NULL;
-main_Image_1_in_22 = "grey70";
-main_Image_1_in_23 = NULL;
-main_Image_1_in_25 = NULL;
-main_Image_1_in_26 = NULL;
-main_Image_1_in_27 = NULL;
-main_Image_1_in_28 = NULL;
-main_Image_1_in_29 = NULL;
-main_Image_1_in_30 = NULL;
-main_Image_1_in_31 = NULL;
-main_Image_1_in_32 = NULL;
-main_Image_1_in_33 = NULL;
-main_Image_1_in_34 = NULL;
-main_Image_1_in_35 = NULL;
-main_Image_1_in_36 = NULL;
-main_Image_1_in_37 = NULL;
-main_Image_1_in_38 = NULL;
-main_Image_1_in_39 = NULL;
-main_Image_1_in_40 = NULL;
-main_Image_1_in_41 = "panzoom";
-main_Image_1_in_42 = NULL;
-main_Image_1_in_43 = NULL;
-main_Image_1_in_44 = NULL;
-main_Image_1_in_45 = NULL;
-main_Image_1_in_46 = NULL;
-main_Image_1_in_47 = NULL;
-main_Image_1_in_48 = NULL;
-main_Image_1_in_49 = NULL;
-Executive("product version 4 4 4");
-$sync
-main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2pdeshowmesh.m
--- a/extra/fpl/inst/deprecated/FPL2pdeshowmesh.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,94 +0,0 @@
-## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-##
-## @deftypefn {Function File} {} FPL2pdeshowmesh (@var{mesh},@var{color})
-##
-## Displays one 2-D triangulations using opendx
-##
-## Examples:
-## @example
-##
-## FPL2pdeshowmesh(mesh)
-## FPL2pdeshowmesh(mesh,"blue")
-##
-## @end example
-##
-## @seealso{FPL2ptcshowmesh}
-## @end deftypefn
-
-function FPL2pdeshowmesh (varargin)
-
- if nargin == 1
- colorname = "red";
- else
- colorname = varargin{2};
- endif
-
- dataname = mktemp("/tmp",".dx");
- FPL2dxoutputdata(dataname,varargin{1}.p,varargin{1}.t,varargin{1}.p(1,:)','x',0,1,1);
-
- scriptname = mktemp("/tmp",".net");
-
- showmesh = file_in_path(path,"FPL2pdeshowmesh.net");
-
- system (["cp " showmesh " " scriptname]);
- system (["sed -i \'s|FILENAME|" dataname "|g\' " scriptname]);
- system (["sed -i \'s|COLORNAME|" colorname "|g\' " scriptname]);
-
- command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
- system(command);
-
-endfunction
-
-function filename = mktemp (direct,ext);
-
- if (~exist(direct,"dir"))
- error("trying to save temporary file to non existing directory")
- end
-
- done=false;
-
- while ~done
- filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
- if ~exist(filename,"file")
- done =true;
- endif
- endwhile
-
-endfunction
-
-%!test
-%! msh.p = [0 0; 1 0; 1 1; 0 1].';
-%! msh.t = [1 2 3 1; 1 3 4 1].';
-%! msh.e = [1 2 0 0 1 0 1; 2 3 0 0 2 0 1; 3 4 0 0 3 0 1; 4 1 0 0 4 0 1].';
-%! FPL2pdeshowmesh (msh, "red");
-%! s = input ("do you see a red outlined square divided in two triangles (if you see an empty plot try ctrl-F)? (y/n): " ,"s");
-%! assert(s, "y")
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2pdeshowmesh.net
--- a/extra/fpl/inst/deprecated/FPL2pdeshowmesh.net Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,518 +0,0 @@
-//
-// time: Sat Jan 5 12:20:20 2008
-//
-// version: 3.2.0 (format), 4.4.4 (DX)
-//
-//
-// MODULE main
-// workspace: width = 260, height = 456
-// layout: snap = 1, width = 10, height = 10, align = CC
-//
-macro main(
-) -> (
-) {
- //
- // node String[1]: x = 81, y = 24, inputs = 0, label = String
- // output[1]: visible = 1, type = 32, value = "FILENAME"
- //
- //
- // node Import[1]: x = 79, y = 104, inputs = 6, label = Import
- //
-main_Import_1_out_1 =
- Import(
- main_String_1_out_1,
- main_Import_1_in_2,
- main_Import_1_in_3,
- main_Import_1_in_4,
- main_Import_1_in_5,
- main_Import_1_in_6
- ) [instance: 1, cache: 1];
- //
- // node String[2]: x = 211, y = 24, inputs = 0, label = String
- // output[1]: visible = 1, type = 32, value = "COLORNAME"
- //
- //
- // node Color[1]: x = 149, y = 184, inputs = 5, label = Color
- // input[2]: defaulting = 1, visible = 1, type = 32, value = "indianred"
- //
-main_Color_1_out_1 =
- Color(
- main_Import_1_out_1,
- main_String_2_out_1,
- main_Color_1_in_3,
- main_Color_1_in_4,
- main_Color_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node ShowConnections[1]: x = 119, y = 294, inputs = 1, label = ShowConnections
- //
-main_ShowConnections_1_out_1 =
- ShowConnections(
- main_Color_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Image[1]: x = 149, y = 394, inputs = 49, label = Image
- // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1"
- // input[4]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[5]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 0]
- // input[6]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 39.3199]
- // input[7]: defaulting = 0, visible = 0, type = 5, value = 21.0715
- // input[8]: defaulting = 0, visible = 0, type = 1, value = 804
- // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.610075
- // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0]
- // input[11]: defaulting = 1, visible = 0, type = 5, value = 30.0
- // input[12]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[15]: defaulting = 1, visible = 0, type = 32, value = "none"
- // input[16]: defaulting = 1, visible = 0, type = 32, value = "none"
- // input[17]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[18]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[19]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow"
- // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif"
- // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff"
- // input[29]: defaulting = 0, visible = 0, type = 3, value = 1
- // input[31]: defaulting = 0, visible = 0, type = 1, value = -15
- // input[33]: defaulting = 0, visible = 0, type = 3, value = 0
- // input[34]: defaulting = 0, visible = 0, type = 3, value = 0
- // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "grey5", "saddlebrown", "saddlebrown"}
- // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"}
- // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.7
- // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_s"
- // input[41]: defaulting = 0, visible = 0, type = 32, value = "none"
- // depth: value = 24
- // window: position = (0.2479,0.1267), size = 0.6389x0.6833
- // internal caching: 1
- //
-main_Image_1_out_1,
-main_Image_1_out_2,
-main_Image_1_out_3 =
- Image(
- main_Image_1_in_1,
- main_ShowConnections_1_out_1,
- main_Image_1_in_3,
- main_Image_1_in_4,
- main_Image_1_in_5,
- main_Image_1_in_6,
- main_Image_1_in_7,
- main_Image_1_in_8,
- main_Image_1_in_9,
- main_Image_1_in_10,
- main_Image_1_in_11,
- main_Image_1_in_12,
- main_Image_1_in_13,
- main_Image_1_in_14,
- main_Image_1_in_15,
- main_Image_1_in_16,
- main_Image_1_in_17,
- main_Image_1_in_18,
- main_Image_1_in_19,
- main_Image_1_in_20,
- main_Image_1_in_21,
- main_Image_1_in_22,
- main_Image_1_in_23,
- main_Image_1_in_24,
- main_Image_1_in_25,
- main_Image_1_in_26,
- main_Image_1_in_27,
- main_Image_1_in_28,
- main_Image_1_in_29,
- main_Image_1_in_30,
- main_Image_1_in_31,
- main_Image_1_in_32,
- main_Image_1_in_33,
- main_Image_1_in_34,
- main_Image_1_in_35,
- main_Image_1_in_36,
- main_Image_1_in_37,
- main_Image_1_in_38,
- main_Image_1_in_39,
- main_Image_1_in_40,
- main_Image_1_in_41,
- main_Image_1_in_42,
- main_Image_1_in_43,
- main_Image_1_in_44,
- main_Image_1_in_45,
- main_Image_1_in_46,
- main_Image_1_in_47,
- main_Image_1_in_48,
- main_Image_1_in_49
- ) [instance: 1, cache: 1];
-// network: end of macro body
-CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
-}
-main_String_1_out_1 = "FILENAME";
-main_Import_1_in_2 = NULL;
-main_Import_1_in_3 = NULL;
-main_Import_1_in_4 = NULL;
-main_Import_1_in_5 = NULL;
-main_Import_1_in_6 = NULL;
-main_Import_1_out_1 = NULL;
-main_String_2_out_1 = "COLORNAME";
-main_Color_1_in_3 = NULL;
-main_Color_1_in_4 = NULL;
-main_Color_1_in_5 = NULL;
-main_Color_1_out_1 = NULL;
-main_ShowConnections_1_out_1 = NULL;
-macro Image(
- id,
- object,
- where,
- useVector,
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- viewAngle,
- perspective,
- options,
- buttonState = 1,
- buttonUpApprox = "none",
- buttonDownApprox = "none",
- buttonUpDensity = 1,
- buttonDownDensity = 1,
- renderMode = 0,
- defaultCamera,
- reset,
- backgroundColor,
- throttle,
- RECenable = 0,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable = 0,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- interactionMode,
- title,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- webOptions) -> (
- object,
- camera,
- where)
-{
- ImageMessage(
- id,
- backgroundColor,
- throttle,
- RECenable,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- interactionMode,
- title,
- renderMode,
- buttonUpApprox,
- buttonDownApprox,
- buttonUpDensity,
- buttonDownDensity) [instance: 1, cache: 1];
- autoCamera =
- AutoCamera(
- object,
- "front",
- object,
- resolution,
- aspect,
- [0,1,0],
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- realCamera =
- Camera(
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- coloredDefaultCamera =
- UpdateCamera(defaultCamera,
- background=backgroundColor) [instance: 1, cache: 1];
- nullDefaultCamera =
- Inquire(defaultCamera,
- "is null + 1") [instance: 1, cache: 1];
- resetCamera =
- Switch(
- nullDefaultCamera,
- coloredDefaultCamera,
- autoCamera) [instance: 1, cache: 1];
- resetNull =
- Inquire(
- reset,
- "is null + 1") [instance: 2, cache: 1];
- reset =
- Switch(
- resetNull,
- reset,
- 0) [instance: 2, cache: 1];
- whichCamera =
- Compute(
- "($0 != 0 || $1 == 0) ? 1 : 2",
- reset,
- useVector) [instance: 1, cache: 1];
- camera = Switch(
- whichCamera,
- resetCamera,
- realCamera) [instance: 3, cache: 1];
- AAobject =
- AutoAxes(
- object,
- camera,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels) [instance: 1, cache: 1];
- switchAAenable = Compute("$0+1",
- AAenable) [instance: 2, cache: 1];
- object = Switch(
- switchAAenable,
- object,
- AAobject) [instance:4, cache: 1];
- SWapproximation_options =
- Switch(
- buttonState,
- buttonUpApprox,
- buttonDownApprox) [instance: 5, cache: 1];
- SWdensity_options =
- Switch(
- buttonState,
- buttonUpDensity,
- buttonDownDensity) [instance: 6, cache: 1];
- HWapproximation_options =
- Format(
- "%s,%s",
- buttonDownApprox,
- buttonUpApprox) [instance: 1, cache: 1];
- HWdensity_options =
- Format(
- "%d,%d",
- buttonDownDensity,
- buttonUpDensity) [instance: 2, cache: 1];
- switchRenderMode = Compute(
- "$0+1",
- renderMode) [instance: 3, cache: 1];
- approximation_options = Switch(
- switchRenderMode,
- SWapproximation_options,
- HWapproximation_options) [instance: 7, cache: 1];
- density_options = Switch(
- switchRenderMode,
- SWdensity_options,
- HWdensity_options) [instance: 8, cache: 1];
- renderModeString = Switch(
- switchRenderMode,
- "software",
- "hardware")[instance: 9, cache: 1];
- object_tag = Inquire(
- object,
- "object tag")[instance: 3, cache: 1];
- annoted_object =
- Options(
- object,
- "send boxes",
- 0,
- "cache",
- 1,
- "object tag",
- object_tag,
- "ddcamera",
- whichCamera,
- "rendering approximation",
- approximation_options,
- "render every",
- density_options,
- "button state",
- buttonState,
- "rendering mode",
- renderModeString) [instance: 1, cache: 1];
- RECresNull =
- Inquire(
- RECresolution,
- "is null + 1") [instance: 4, cache: 1];
- ImageResolution =
- Inquire(
- camera,
- "camera resolution") [instance: 5, cache: 1];
- RECresolution =
- Switch(
- RECresNull,
- RECresolution,
- ImageResolution) [instance: 10, cache: 1];
- RECaspectNull =
- Inquire(
- RECaspect,
- "is null + 1") [instance: 6, cache: 1];
- ImageAspect =
- Inquire(
- camera,
- "camera aspect") [instance: 7, cache: 1];
- RECaspect =
- Switch(
- RECaspectNull,
- RECaspect,
- ImageAspect) [instance: 11, cache: 1];
- switchRECenable = Compute(
- "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
- RECenable,
- switchRenderMode,
- RECresolution,
- ImageResolution,
- RECaspect,
- ImageAspect) [instance: 4, cache: 1];
- NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
- Display(
- NoRECobject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- image =
- Render(
- RECNoRerenderObject,
- camera) [instance: 1, cache: 1];
- Display(
- image,
- NULL,
- where,
- throttle) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- rec_where = Display(
- RECNoRerHW,
- camera,
- where,
- throttle) [instance: 1, cache: 0];
- rec_image = ReadImageWindow(
- rec_where) [instance: 1, cache: 1];
- WriteImage(
- rec_image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- RECupdateCamera =
- UpdateCamera(
- camera,
- resolution=RECresolution,
- aspect=RECaspect) [instance: 2, cache: 1];
- Display(
- RECRerenderObject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- RECRerenderObject =
- ScaleScreen(
- RECRerenderObject,
- NULL,
- RECresolution,
- camera) [instance: 1, cache: 1];
- image =
- Render(
- RECRerenderObject,
- RECupdateCamera) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 2, cache: 1];
-}
-main_Image_1_in_1 = "Image_1";
-main_Image_1_in_3 = "X24,,";
-main_Image_1_in_4 = 1;
-main_Image_1_in_5 = [7.5 7.5 0];
-main_Image_1_in_6 = [7.5 7.5 39.3199];
-main_Image_1_in_7 = 21.0715;
-main_Image_1_in_8 = 804;
-main_Image_1_in_9 = 0.610075;
-main_Image_1_in_10 = [0 1 0];
-main_Image_1_in_11 = NULL;
-main_Image_1_in_12 = 0;
-main_Image_1_in_13 = NULL;
-main_Image_1_in_14 = 1;
-main_Image_1_in_15 = NULL;
-main_Image_1_in_16 = NULL;
-main_Image_1_in_17 = 1;
-main_Image_1_in_18 = 1;
-main_Image_1_in_19 = 1;
-main_Image_1_in_20 = NULL;
-main_Image_1_in_21 = NULL;
-main_Image_1_in_22 = "snow";
-main_Image_1_in_23 = NULL;
-main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif";
-main_Image_1_in_26 = "tiff";
-main_Image_1_in_27 = NULL;
-main_Image_1_in_28 = NULL;
-main_Image_1_in_29 = 1;
-main_Image_1_in_30 = NULL;
-main_Image_1_in_31 = -15;
-main_Image_1_in_32 = NULL;
-main_Image_1_in_33 = 0;
-main_Image_1_in_34 = 0;
-main_Image_1_in_35 = NULL;
-main_Image_1_in_36 = NULL;
-main_Image_1_in_37 = {"clear", "grey5", "saddlebrown", "saddlebrown"};
-main_Image_1_in_38 = {"background", "grid", "ticks", "labels"};
-main_Image_1_in_39 = 0.7;
-main_Image_1_in_40 = "roman_s";
-main_Image_1_in_41 = "none";
-main_Image_1_in_42 = NULL;
-main_Image_1_in_43 = NULL;
-main_Image_1_in_44 = NULL;
-main_Image_1_in_45 = NULL;
-main_Image_1_in_46 = NULL;
-main_Image_1_in_47 = NULL;
-main_Image_1_in_48 = NULL;
-main_Image_1_in_49 = NULL;
-Executive("product version 4 4 4");
-$sync
-main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2pdesurf.m
--- a/extra/fpl/inst/deprecated/FPL2pdesurf.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,130 +0,0 @@
-## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} FPL2pdesurf (@var{mesh}, @
-## @var{u} [ @var{property}, @var{value} ...])
-##
-## plots the scalar field @var{u}
-## defined on the triangulation @var{mesh} using opendx.
-##
-## options (default value):
-## @itemize @minus
-## @item data_dep ("positions") defines wether data depends on
-## positions or connections
-## @item plot_field ("scalar") defines wether to plot the scalar field
-## itself or its gradient
-## @end itemize
-##
-## @seealso{MSH2Mgmsh, MSH2Mstructmesh}
-## @end deftypefn
-
-function FPL2pdesurf(varargin)
-
- data_dep = "positions";
- plot_field = "scalar";
-
- if nargin == 1
- FPL2showmesh(varargin{1});
- elseif nargin == 2
- mesh = varargin{1};
- u = varargin{2};
- elseif ( (nargin > 2) && (rem(nargin,2)==0) )
- mesh = varargin{1};
- u = varargin{2};
- for ii=3:2:nargin
- eval([ varargin{ii} " = """ varargin{ii+1} """;" ]);
- endfor
- else
- keyboard ,error(["wrong number of parameters " num2str (nargin)])
- endif
-
- dataname = mktemp("/tmp",".dx");
- scriptname = mktemp("/tmp",".net");
-
- FPL2dxoutputdata(dataname,mesh.p,mesh.t,u,'u',0,1,1);
-
- switch plot_field
- case {"scalar","scal"}
- showmesh = file_in_path(path,"FPL2coloredrubbersheet.net");
- case {"gradient","grad"}
- showmesh = file_in_path(path,"FPL2coloredgradient.net");
- otherwise
- error ([ "incorrect value " plot_field " for option plot_field "])
- endswitch
-
- system (["cp " showmesh " " scriptname]);
- system (["sed -i \'s|__FILE__DX__|" dataname "|g\' " scriptname]);
-
- switch data_dep
- case {"positions","continuous","interpolate","P1"}
- system (["sed -i \'s|__DATA_DEPENDENCY__|positions|g\' " scriptname]);
- case {"connections","discontinuous","P0"}
- system (["sed -i \'s|__DATA_DEPENDENCY__|positions|g\' " scriptname]);
- otherwise
- error ([ "incorrect value " data_dep " for option data_dep "])
- endswitch
-
- ##command = ["dx -noConfirmedQuit -noImageRWNetFile -program " scriptname " -execute -image >& /dev/null & "];
- command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
-
- system(command);
-
-endfunction
-
-function filename = mktemp (direct,ext);
-
- if (~exist(direct,"dir"))
- error("trying to save temporary file to non existing directory")
- endif
-
- done=false;
-
- while ~done
- filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
- if ~exist(filename,"file")
- done =true;
- endif
- endwhile
-
-endfunction
-
-%!shared msh
-%!test
-%! msh.p = [0 0; 1 0; 1 1; 0 1].';
-%! msh.t = [1 2 3 1; 1 3 4 1].';
-%! msh.e = [1 2 0 0 1 0 1; 2 3 0 0 2 0 1; 3 4 0 0 3 0 1; 4 1 0 0 4 0 1].';
-%! u = [0 1].';
-%! FPL2pdesurf (msh, u, "data_dep", "connections");
-%! s = input ("do you see a square divided into two triangles with a diagonal red-to-blue gradient color (if you see an empty plot try ctrl-F)? (y/n): " ,"s");
-%! assert(s, "y")
-%!test
-%! v = [0 0 1 1].';
-%! FPL2pdesurf (msh, v);
-%! s = input ("do you see a square divided into two triangles with a vertical red-to-blue gradient color (if you see an empty plot try ctrl-F)? (y/n): " ,"s");
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2ptcquiver.m
--- a/extra/fpl/inst/deprecated/FPL2ptcquiver.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,83 +0,0 @@
-## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} FPL2ptcquiver (@var{mesh1}, @var{color1}
-## @var{vx1}, @var{vy1}, [ @var{mesh2}, @var{color2}, @var{vx2}, @var{vy2} ...])
-##
-## Plots the 2D vector fields @var{vx}, @var{vy}
-## defined on the triangulations @var{mesh} using opendx.
-##
-##
-## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2pdequiver}
-## @end deftypefn
-
-function FPL2ptcquiver(varargin)
-
- colorlist = "";
- datalist = "";
-
- for ii = 1:4:nargin
- dataname{ii} = mktemp("/tmp",".dx");
- JX = sum(varargin{ii+2},1)'/3;
- JY = sum(varargin{ii+3},1)'/3;
- FPL2dxoutputdata(dataname{ii},varargin{ii}.p,varargin{ii}.t,[ JX JY],'J',1,2,1);
- datalist = strcat (datalist, """", dataname{ii} , """");
- colorlist= strcat (colorlist, """", varargin{ii+1} , """");
- endfor
-
- scriptname = mktemp("/tmp",".net");
-
- view = file_in_path(path,"FPL2ptcquiver.net");
-
- system (["cp " view " " scriptname]);
- system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]);
- system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]);
-
- command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
- system(command);
-
-endfunction
-
-function filename = mktemp (direct,ext);
-
- if (~exist(direct,"dir"))
- error("trying to save temporary file to non existing directory")
- endif
-
- done=false;
-
- while ~done
- filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
- if ~exist(filename,"file")
- done =true;
- endif
- endwhile
-
-endfunction
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2ptcquiver.net
--- a/extra/fpl/inst/deprecated/FPL2ptcquiver.net Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,710 +0,0 @@
-//
-// time: Mon Jan 7 11:37:04 2008
-//
-// version: 3.2.0 (format), 4.4.4 (DX)
-//
-//
-// MODULE main
-// workspace: width = 875, height = 996
-// layout: snap = 1, width = 10, height = 10, align = CC
-//
-macro main(
-) -> (
-) {
- //
- // node CollectMultiGrid[1]: x = 125, y = 584, inputs = 4, label = CollectMultiGrid
- //
-main_CollectMultiGrid_1_out_1 =
- CollectMultiGrid(
- main_CollectMultiGrid_1_in_1,
- main_CollectMultiGrid_1_in_2,
- main_CollectMultiGrid_1_in_3,
- main_CollectMultiGrid_1_in_4
- ) [instance: 1, cache: 1];
- //
- // node StringList[1]: x = 478, y = 14, inputs = 0, label = StringList
- // output[1]: visible = 1, type = 16777248, value = { "FILELIST" }
- //
- //
- // node ForEachMember[1]: x = 455, y = 94, inputs = 1, label = ForEachMember
- //
-main_ForEachMember_1_out_1,
-main_ForEachMember_1_out_2,
-main_ForEachMember_1_out_3 =
- ForEachMember(
- main_StringList_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Import[1]: x = 479, y = 194, inputs = 6, label = Import
- //
-main_Import_1_out_1 =
- Import(
- main_ForEachMember_1_out_1,
- main_Import_1_in_2,
- main_Import_1_in_3,
- main_Import_1_in_4,
- main_Import_1_in_5,
- main_Import_1_in_6
- ) [instance: 1, cache: 1];
- //
- // node ShowConnections[1]: x = 239, y = 384, inputs = 1, label = ShowConnections
- //
-main_ShowConnections_1_out_1 =
- ShowConnections(
- main_Import_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node StringList[2]: x = 418, y = 384, inputs = 0, label = StringList
- // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" }
- //
- //
- // node ForEachMember[2]: x = 395, y = 474, inputs = 1, label = ForEachMember
- //
-main_ForEachMember_2_out_1,
-main_ForEachMember_2_out_2,
-main_ForEachMember_2_out_3 =
- ForEachMember(
- main_StringList_2_out_1
- ) [instance: 2, cache: 1];
- //
- // node Color[1]: x = 289, y = 584, inputs = 5, label = Color
- //
-main_Color_1_out_1 =
- Color(
- main_ShowConnections_1_out_1,
- main_ForEachMember_2_out_1,
- main_Color_1_in_3,
- main_Color_1_in_4,
- main_Color_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node GetLocal[1]: x = 452, y = 614, inputs = 3, label = GetLocal
- //
-main_GetLocal_1_out_1,
-main_GetLocal_1_out_2 =
- GetLocal(
- main_GetLocal_1_in_1,
- main_GetLocal_1_in_2,
- main_GetLocal_1_in_3
- ) [instance: 1, cache: 1];
- //
- // node Append[1]: x = 285, y = 724, inputs = 5, label = Append
- //
-main_Append_1_out_1 =
- Append(
- main_CollectMultiGrid_1_out_1,
- main_Color_1_out_1,
- main_Append_1_in_3,
- main_GetLocal_1_out_1,
- main_Append_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node GetLocal[2]: x = 802, y = 264, inputs = 3, label = GetLocal
- //
-main_GetLocal_2_out_1,
-main_GetLocal_2_out_2 =
- GetLocal(
- main_GetLocal_2_in_1,
- main_GetLocal_2_in_2,
- main_GetLocal_2_in_3
- ) [instance: 2, cache: 1];
- //
- // node Append[2]: x = 595, y = 384, inputs = 5, label = Append
- //
-main_Append_2_out_1 =
- Append(
- main_CollectMultiGrid_1_out_1,
- main_Import_1_out_1,
- main_Append_2_in_3,
- main_GetLocal_2_out_1,
- main_Append_2_in_5
- ) [instance: 2, cache: 1];
- //
- // node Sample[1]: x = 627, y = 474, inputs = 2, label = Sample
- //
-main_Sample_1_out_1 =
- Sample(
- main_Append_2_out_1,
- main_Sample_1_in_2
- ) [instance: 1, cache: 1];
- //
- // node AutoGlyph[1]: x = 625, y = 544, inputs = 7, label = AutoGlyph
- //
-main_AutoGlyph_1_out_1 =
- AutoGlyph(
- main_Sample_1_out_1,
- main_AutoGlyph_1_in_2,
- main_AutoGlyph_1_in_3,
- main_AutoGlyph_1_in_4,
- main_AutoGlyph_1_in_5,
- main_AutoGlyph_1_in_6,
- main_AutoGlyph_1_in_7
- ) [instance: 1, cache: 1];
- //
- // node AutoColor[1]: x = 626, y = 614, inputs = 10, label = AutoColor
- // input[8]: visible = 1
- //
-main_AutoColor_1_out_1,
-main_AutoColor_1_out_2 =
- AutoColor(
- main_AutoGlyph_1_out_1,
- main_AutoColor_1_in_2,
- main_AutoColor_1_in_3,
- main_AutoColor_1_in_4,
- main_AutoColor_1_in_5,
- main_AutoColor_1_in_6,
- main_AutoColor_1_in_7,
- main_AutoColor_1_in_8,
- main_AutoColor_1_in_9,
- main_AutoColor_1_in_10
- ) [instance: 1, cache: 1];
- //
- // node ColorBar[1]: x = 755, y = 724, inputs = 16, label = ColorBar
- //
-main_ColorBar_1_out_1 =
- ColorBar(
- main_AutoColor_1_out_2,
- main_ColorBar_1_in_2,
- main_ColorBar_1_in_3,
- main_ColorBar_1_in_4,
- main_ColorBar_1_in_5,
- main_ColorBar_1_in_6,
- main_ColorBar_1_in_7,
- main_ColorBar_1_in_8,
- main_ColorBar_1_in_9,
- main_ColorBar_1_in_10,
- main_ColorBar_1_in_11,
- main_ColorBar_1_in_12,
- main_ColorBar_1_in_13,
- main_ColorBar_1_in_14,
- main_ColorBar_1_in_15,
- main_ColorBar_1_in_16
- ) [instance: 1, cache: 1];
- //
- // node Collect[1]: x = 599, y = 844, inputs = 3, label = Collect
- //
-main_Collect_1_out_1 =
- Collect(
- main_Append_1_out_1,
- main_AutoColor_1_out_1,
- main_ColorBar_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Image[1]: x = 599, y = 934, inputs = 49, label = Image
- // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_1"
- // input[4]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[19]: defaulting = 0, visible = 0, type = 3, value = 0
- // depth: value = 24
- // internal caching: 1
- //
-main_Image_1_out_1,
-main_Image_1_out_2,
-main_Image_1_out_3 =
- Image(
- main_Image_1_in_1,
- main_Collect_1_out_1,
- main_Image_1_in_3,
- main_Image_1_in_4,
- main_Image_1_in_5,
- main_Image_1_in_6,
- main_Image_1_in_7,
- main_Image_1_in_8,
- main_Image_1_in_9,
- main_Image_1_in_10,
- main_Image_1_in_11,
- main_Image_1_in_12,
- main_Image_1_in_13,
- main_Image_1_in_14,
- main_Image_1_in_15,
- main_Image_1_in_16,
- main_Image_1_in_17,
- main_Image_1_in_18,
- main_Image_1_in_19,
- main_Image_1_in_20,
- main_Image_1_in_21,
- main_Image_1_in_22,
- main_Image_1_in_23,
- main_Image_1_in_24,
- main_Image_1_in_25,
- main_Image_1_in_26,
- main_Image_1_in_27,
- main_Image_1_in_28,
- main_Image_1_in_29,
- main_Image_1_in_30,
- main_Image_1_in_31,
- main_Image_1_in_32,
- main_Image_1_in_33,
- main_Image_1_in_34,
- main_Image_1_in_35,
- main_Image_1_in_36,
- main_Image_1_in_37,
- main_Image_1_in_38,
- main_Image_1_in_39,
- main_Image_1_in_40,
- main_Image_1_in_41,
- main_Image_1_in_42,
- main_Image_1_in_43,
- main_Image_1_in_44,
- main_Image_1_in_45,
- main_Image_1_in_46,
- main_Image_1_in_47,
- main_Image_1_in_48,
- main_Image_1_in_49
- ) [instance: 1, cache: 1];
- //
- // node SetLocal[1]: x = 462, y = 724, inputs = 3, label = SetLocal
- //
- SetLocal(
- main_Append_1_out_1,
- main_GetLocal_1_out_2,
- main_SetLocal_1_in_3
- ) [instance: 1, cache: 1];
- //
- // node SetLocal[2]: x = 792, y = 384, inputs = 3, label = SetLocal
- //
- SetLocal(
- main_Append_2_out_1,
- main_GetLocal_2_out_2,
- main_SetLocal_2_in_3
- ) [instance: 2, cache: 1];
-// network: end of macro body
-CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
-}
-main_CollectMultiGrid_1_in_1 = NULL;
-main_CollectMultiGrid_1_in_2 = NULL;
-main_CollectMultiGrid_1_in_3 = NULL;
-main_CollectMultiGrid_1_in_4 = NULL;
-main_CollectMultiGrid_1_out_1 = NULL;
-main_StringList_1_out_1 = { "FILELIST" };
-main_ForEachMember_1_out_1 = NULL;
-main_Import_1_in_2 = NULL;
-main_Import_1_in_3 = NULL;
-main_Import_1_in_4 = NULL;
-main_Import_1_in_5 = NULL;
-main_Import_1_in_6 = NULL;
-main_Import_1_out_1 = NULL;
-main_ShowConnections_1_out_1 = NULL;
-main_StringList_2_out_1 = { "COLORLIST" };
-main_ForEachMember_2_out_1 = NULL;
-main_Color_1_in_3 = NULL;
-main_Color_1_in_4 = NULL;
-main_Color_1_in_5 = NULL;
-main_Color_1_out_1 = NULL;
-main_GetLocal_1_in_1 = NULL;
-main_GetLocal_1_in_2 = NULL;
-main_GetLocal_1_in_3 = NULL;
-main_GetLocal_1_out_1 = NULL;
-main_GetLocal_1_out_2 = NULL;
-main_Append_1_in_3 = NULL;
-main_Append_1_in_5 = NULL;
-main_Append_1_out_1 = NULL;
-main_GetLocal_2_in_1 = NULL;
-main_GetLocal_2_in_2 = NULL;
-main_GetLocal_2_in_3 = NULL;
-main_GetLocal_2_out_1 = NULL;
-main_GetLocal_2_out_2 = NULL;
-main_Append_2_in_3 = NULL;
-main_Append_2_in_5 = NULL;
-main_Append_2_out_1 = NULL;
-main_Sample_1_in_2 = NULL;
-main_Sample_1_out_1 = NULL;
-main_AutoGlyph_1_in_2 = NULL;
-main_AutoGlyph_1_in_3 = NULL;
-main_AutoGlyph_1_in_4 = NULL;
-main_AutoGlyph_1_in_5 = NULL;
-main_AutoGlyph_1_in_6 = NULL;
-main_AutoGlyph_1_in_7 = NULL;
-main_AutoGlyph_1_out_1 = NULL;
-main_AutoColor_1_in_2 = NULL;
-main_AutoColor_1_in_3 = NULL;
-main_AutoColor_1_in_4 = NULL;
-main_AutoColor_1_in_5 = NULL;
-main_AutoColor_1_in_6 = NULL;
-main_AutoColor_1_in_7 = NULL;
-main_AutoColor_1_in_8 = NULL;
-main_AutoColor_1_in_9 = NULL;
-main_AutoColor_1_in_10 = NULL;
-main_AutoColor_1_out_1 = NULL;
-main_AutoColor_1_out_2 = NULL;
-main_ColorBar_1_in_2 = NULL;
-main_ColorBar_1_in_3 = NULL;
-main_ColorBar_1_in_4 = NULL;
-main_ColorBar_1_in_5 = NULL;
-main_ColorBar_1_in_6 = NULL;
-main_ColorBar_1_in_7 = NULL;
-main_ColorBar_1_in_8 = NULL;
-main_ColorBar_1_in_9 = NULL;
-main_ColorBar_1_in_10 = NULL;
-main_ColorBar_1_in_11 = NULL;
-main_ColorBar_1_in_12 = NULL;
-main_ColorBar_1_in_13 = NULL;
-main_ColorBar_1_in_14 = NULL;
-main_ColorBar_1_in_15 = NULL;
-main_ColorBar_1_in_16 = NULL;
-main_ColorBar_1_out_1 = NULL;
-main_Collect_1_out_1 = NULL;
-macro Image(
- id,
- object,
- where,
- useVector,
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- viewAngle,
- perspective,
- options,
- buttonState = 1,
- buttonUpApprox = "none",
- buttonDownApprox = "none",
- buttonUpDensity = 1,
- buttonDownDensity = 1,
- renderMode = 0,
- defaultCamera,
- reset,
- backgroundColor,
- throttle,
- RECenable = 0,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable = 0,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- interactionMode,
- title,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- webOptions) -> (
- object,
- camera,
- where)
-{
- ImageMessage(
- id,
- backgroundColor,
- throttle,
- RECenable,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- interactionMode,
- title,
- renderMode,
- buttonUpApprox,
- buttonDownApprox,
- buttonUpDensity,
- buttonDownDensity) [instance: 1, cache: 1];
- autoCamera =
- AutoCamera(
- object,
- "front",
- object,
- resolution,
- aspect,
- [0,1,0],
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- realCamera =
- Camera(
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- coloredDefaultCamera =
- UpdateCamera(defaultCamera,
- background=backgroundColor) [instance: 1, cache: 1];
- nullDefaultCamera =
- Inquire(defaultCamera,
- "is null + 1") [instance: 1, cache: 1];
- resetCamera =
- Switch(
- nullDefaultCamera,
- coloredDefaultCamera,
- autoCamera) [instance: 1, cache: 1];
- resetNull =
- Inquire(
- reset,
- "is null + 1") [instance: 2, cache: 1];
- reset =
- Switch(
- resetNull,
- reset,
- 0) [instance: 2, cache: 1];
- whichCamera =
- Compute(
- "($0 != 0 || $1 == 0) ? 1 : 2",
- reset,
- useVector) [instance: 1, cache: 1];
- camera = Switch(
- whichCamera,
- resetCamera,
- realCamera) [instance: 3, cache: 1];
- AAobject =
- AutoAxes(
- object,
- camera,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels) [instance: 1, cache: 1];
- switchAAenable = Compute("$0+1",
- AAenable) [instance: 2, cache: 1];
- object = Switch(
- switchAAenable,
- object,
- AAobject) [instance:4, cache: 1];
- SWapproximation_options =
- Switch(
- buttonState,
- buttonUpApprox,
- buttonDownApprox) [instance: 5, cache: 1];
- SWdensity_options =
- Switch(
- buttonState,
- buttonUpDensity,
- buttonDownDensity) [instance: 6, cache: 1];
- HWapproximation_options =
- Format(
- "%s,%s",
- buttonDownApprox,
- buttonUpApprox) [instance: 1, cache: 1];
- HWdensity_options =
- Format(
- "%d,%d",
- buttonDownDensity,
- buttonUpDensity) [instance: 2, cache: 1];
- switchRenderMode = Compute(
- "$0+1",
- renderMode) [instance: 3, cache: 1];
- approximation_options = Switch(
- switchRenderMode,
- SWapproximation_options,
- HWapproximation_options) [instance: 7, cache: 1];
- density_options = Switch(
- switchRenderMode,
- SWdensity_options,
- HWdensity_options) [instance: 8, cache: 1];
- renderModeString = Switch(
- switchRenderMode,
- "software",
- "hardware")[instance: 9, cache: 1];
- object_tag = Inquire(
- object,
- "object tag")[instance: 3, cache: 1];
- annoted_object =
- Options(
- object,
- "send boxes",
- 0,
- "cache",
- 1,
- "object tag",
- object_tag,
- "ddcamera",
- whichCamera,
- "rendering approximation",
- approximation_options,
- "render every",
- density_options,
- "button state",
- buttonState,
- "rendering mode",
- renderModeString) [instance: 1, cache: 1];
- RECresNull =
- Inquire(
- RECresolution,
- "is null + 1") [instance: 4, cache: 1];
- ImageResolution =
- Inquire(
- camera,
- "camera resolution") [instance: 5, cache: 1];
- RECresolution =
- Switch(
- RECresNull,
- RECresolution,
- ImageResolution) [instance: 10, cache: 1];
- RECaspectNull =
- Inquire(
- RECaspect,
- "is null + 1") [instance: 6, cache: 1];
- ImageAspect =
- Inquire(
- camera,
- "camera aspect") [instance: 7, cache: 1];
- RECaspect =
- Switch(
- RECaspectNull,
- RECaspect,
- ImageAspect) [instance: 11, cache: 1];
- switchRECenable = Compute(
- "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
- RECenable,
- switchRenderMode,
- RECresolution,
- ImageResolution,
- RECaspect,
- ImageAspect) [instance: 4, cache: 1];
- NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
- Display(
- NoRECobject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- image =
- Render(
- RECNoRerenderObject,
- camera) [instance: 1, cache: 1];
- Display(
- image,
- NULL,
- where,
- throttle) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- rec_where = Display(
- RECNoRerHW,
- camera,
- where,
- throttle) [instance: 1, cache: 0];
- rec_image = ReadImageWindow(
- rec_where) [instance: 1, cache: 1];
- WriteImage(
- rec_image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- RECupdateCamera =
- UpdateCamera(
- camera,
- resolution=RECresolution,
- aspect=RECaspect) [instance: 2, cache: 1];
- Display(
- RECRerenderObject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- RECRerenderObject =
- ScaleScreen(
- RECRerenderObject,
- NULL,
- RECresolution,
- camera) [instance: 1, cache: 1];
- image =
- Render(
- RECRerenderObject,
- RECupdateCamera) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 2, cache: 1];
-}
-main_Image_1_in_1 = "Image_1";
-main_Image_1_in_3 = "X24,,";
-main_Image_1_in_4 = 0;
-main_Image_1_in_5 = NULL;
-main_Image_1_in_6 = NULL;
-main_Image_1_in_7 = NULL;
-main_Image_1_in_8 = NULL;
-main_Image_1_in_9 = NULL;
-main_Image_1_in_10 = NULL;
-main_Image_1_in_11 = NULL;
-main_Image_1_in_12 = NULL;
-main_Image_1_in_13 = NULL;
-main_Image_1_in_14 = 1;
-main_Image_1_in_15 = NULL;
-main_Image_1_in_16 = NULL;
-main_Image_1_in_17 = NULL;
-main_Image_1_in_18 = NULL;
-main_Image_1_in_19 = 0;
-main_Image_1_in_20 = NULL;
-main_Image_1_in_21 = NULL;
-main_Image_1_in_22 = NULL;
-main_Image_1_in_23 = NULL;
-main_Image_1_in_25 = NULL;
-main_Image_1_in_26 = NULL;
-main_Image_1_in_27 = NULL;
-main_Image_1_in_28 = NULL;
-main_Image_1_in_29 = NULL;
-main_Image_1_in_30 = NULL;
-main_Image_1_in_31 = NULL;
-main_Image_1_in_32 = NULL;
-main_Image_1_in_33 = NULL;
-main_Image_1_in_34 = NULL;
-main_Image_1_in_35 = NULL;
-main_Image_1_in_36 = NULL;
-main_Image_1_in_37 = NULL;
-main_Image_1_in_38 = NULL;
-main_Image_1_in_39 = NULL;
-main_Image_1_in_40 = NULL;
-main_Image_1_in_41 = NULL;
-main_Image_1_in_42 = NULL;
-main_Image_1_in_43 = NULL;
-main_Image_1_in_44 = NULL;
-main_Image_1_in_45 = NULL;
-main_Image_1_in_46 = NULL;
-main_Image_1_in_47 = NULL;
-main_Image_1_in_48 = NULL;
-main_Image_1_in_49 = NULL;
-main_SetLocal_1_in_3 = NULL;
-main_SetLocal_2_in_3 = NULL;
-Executive("product version 4 4 4");
-$sync
-main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2ptcshowmesh.m
--- a/extra/fpl/inst/deprecated/FPL2ptcshowmesh.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,80 +0,0 @@
-## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} FPL2ptcshowmesh (@var{mesh1}, @
-## @var{color1}, @ [@var{mesh2}, @var{color2}, ...])
-##
-## Displays two or more 2-D triangulations using opendx
-##
-## @seealso{FPL2pdeshowmesh}
-## @end deftypefn
-
-function FPL2ptcshowmesh (varargin)
-
- datalist = "";
- colorlist= "";
-
- for ii=1:2:nargin
- dataname{ii} = mktemp("/tmp",".dx");
- FPL2dxoutputdata(dataname{ii},varargin{ii}.p,varargin{ii}.t,...
- varargin{ii}.p(1,:)','x',0,1,1);
- datalist = strcat (datalist, """", dataname{ii} ,"""");
- colorlist= strcat (colorlist, """", varargin{ii+1} ,"""");
- endfor
-
- scriptname = mktemp("/tmp",".net");
-
- showmesh = file_in_path(path,"FPL2ptcshowmesh.net");
-
- system (["cp " showmesh " " scriptname]);
- system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]);
- system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]);
-
- command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
- system(command);
-
-endfunction
-
-function filename = mktemp (direct,ext);
-
- if (~exist(direct,"dir"))
- error("trying to save temporary file to non existing directory")
- endif
-
- done=false;
-
- while ~done
- filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
- if ~exist(filename,"file")
- done =true;
- endif
- endwhile
-
-endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2ptcshowmesh.net
--- a/extra/fpl/inst/deprecated/FPL2ptcshowmesh.net Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,565 +0,0 @@
-//
-// time: Sun Jan 6 13:50:14 2008
-//
-// version: 3.2.0 (format), 4.4.4 (DX)
-//
-//
-// MODULE main
-// workspace: width = 489, height = 756
-// layout: snap = 1, width = 10, height = 10, align = CC
-//
-macro main(
-) -> (
-) {
- //
- // node CollectMultiGrid[1]: x = 55, y = 504, inputs = 4, label = CollectMultiGrid
- //
-main_CollectMultiGrid_1_out_1 =
- CollectMultiGrid(
- main_CollectMultiGrid_1_in_1,
- main_CollectMultiGrid_1_in_2,
- main_CollectMultiGrid_1_in_3,
- main_CollectMultiGrid_1_in_4
- ) [instance: 1, cache: 1];
- //
- // node StringList[1]: x = 128, y = 34, inputs = 0, label = StringList
- // output[1]: visible = 1, type = 16777248, value = { "FILELIST" }
- //
- //
- // node ForEachMember[1]: x = 105, y = 134, inputs = 1, label = ForEachMember
- //
-main_ForEachMember_1_out_1,
-main_ForEachMember_1_out_2,
-main_ForEachMember_1_out_3 =
- ForEachMember(
- main_StringList_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Import[1]: x = 119, y = 244, inputs = 6, label = Import
- //
-main_Import_1_out_1 =
- Import(
- main_ForEachMember_1_out_1,
- main_Import_1_in_2,
- main_Import_1_in_3,
- main_Import_1_in_4,
- main_Import_1_in_5,
- main_Import_1_in_6
- ) [instance: 1, cache: 1];
- //
- // node ShowConnections[1]: x = 89, y = 354, inputs = 1, label = ShowConnections
- //
-main_ShowConnections_1_out_1 =
- ShowConnections(
- main_Import_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node StringList[2]: x = 278, y = 34, inputs = 0, label = StringList
- // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" }
- //
- //
- // node ForEachMember[2]: x = 255, y = 134, inputs = 1, label = ForEachMember
- //
-main_ForEachMember_2_out_1,
-main_ForEachMember_2_out_2,
-main_ForEachMember_2_out_3 =
- ForEachMember(
- main_StringList_2_out_1
- ) [instance: 2, cache: 1];
- //
- // node Color[1]: x = 239, y = 454, inputs = 5, label = Color
- //
-main_Color_1_out_1 =
- Color(
- main_ShowConnections_1_out_1,
- main_ForEachMember_2_out_1,
- main_Color_1_in_3,
- main_Color_1_in_4,
- main_Color_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node GetLocal[1]: x = 422, y = 494, inputs = 3, label = GetLocal
- //
-main_GetLocal_1_out_1,
-main_GetLocal_1_out_2 =
- GetLocal(
- main_GetLocal_1_in_1,
- main_GetLocal_1_in_2,
- main_GetLocal_1_in_3
- ) [instance: 1, cache: 1];
- //
- // node Append[1]: x = 235, y = 574, inputs = 5, label = Append
- //
-main_Append_1_out_1 =
- Append(
- main_CollectMultiGrid_1_out_1,
- main_Color_1_out_1,
- main_Append_1_in_3,
- main_GetLocal_1_out_1,
- main_Append_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node Image[1]: x = 249, y = 694, inputs = 49, label = Image
- // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_1"
- // input[4]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[19]: defaulting = 0, visible = 0, type = 3, value = 0
- // depth: value = 24
- // internal caching: 1
- //
-main_Image_1_out_1,
-main_Image_1_out_2,
-main_Image_1_out_3 =
- Image(
- main_Image_1_in_1,
- main_Append_1_out_1,
- main_Image_1_in_3,
- main_Image_1_in_4,
- main_Image_1_in_5,
- main_Image_1_in_6,
- main_Image_1_in_7,
- main_Image_1_in_8,
- main_Image_1_in_9,
- main_Image_1_in_10,
- main_Image_1_in_11,
- main_Image_1_in_12,
- main_Image_1_in_13,
- main_Image_1_in_14,
- main_Image_1_in_15,
- main_Image_1_in_16,
- main_Image_1_in_17,
- main_Image_1_in_18,
- main_Image_1_in_19,
- main_Image_1_in_20,
- main_Image_1_in_21,
- main_Image_1_in_22,
- main_Image_1_in_23,
- main_Image_1_in_24,
- main_Image_1_in_25,
- main_Image_1_in_26,
- main_Image_1_in_27,
- main_Image_1_in_28,
- main_Image_1_in_29,
- main_Image_1_in_30,
- main_Image_1_in_31,
- main_Image_1_in_32,
- main_Image_1_in_33,
- main_Image_1_in_34,
- main_Image_1_in_35,
- main_Image_1_in_36,
- main_Image_1_in_37,
- main_Image_1_in_38,
- main_Image_1_in_39,
- main_Image_1_in_40,
- main_Image_1_in_41,
- main_Image_1_in_42,
- main_Image_1_in_43,
- main_Image_1_in_44,
- main_Image_1_in_45,
- main_Image_1_in_46,
- main_Image_1_in_47,
- main_Image_1_in_48,
- main_Image_1_in_49
- ) [instance: 1, cache: 1];
- //
- // node SetLocal[1]: x = 422, y = 644, inputs = 3, label = SetLocal
- //
- SetLocal(
- main_Append_1_out_1,
- main_GetLocal_1_out_2,
- main_SetLocal_1_in_3
- ) [instance: 1, cache: 1];
-// network: end of macro body
-CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
-}
-main_CollectMultiGrid_1_in_1 = NULL;
-main_CollectMultiGrid_1_in_2 = NULL;
-main_CollectMultiGrid_1_in_3 = NULL;
-main_CollectMultiGrid_1_in_4 = NULL;
-main_CollectMultiGrid_1_out_1 = NULL;
-main_StringList_1_out_1 = { "FILELIST" };
-main_ForEachMember_1_out_1 = NULL;
-main_Import_1_in_2 = NULL;
-main_Import_1_in_3 = NULL;
-main_Import_1_in_4 = NULL;
-main_Import_1_in_5 = NULL;
-main_Import_1_in_6 = NULL;
-main_Import_1_out_1 = NULL;
-main_ShowConnections_1_out_1 = NULL;
-main_StringList_2_out_1 = { "COLORLIST" };
-main_ForEachMember_2_out_1 = NULL;
-main_Color_1_in_3 = NULL;
-main_Color_1_in_4 = NULL;
-main_Color_1_in_5 = NULL;
-main_Color_1_out_1 = NULL;
-main_GetLocal_1_in_1 = NULL;
-main_GetLocal_1_in_2 = NULL;
-main_GetLocal_1_in_3 = NULL;
-main_GetLocal_1_out_1 = NULL;
-main_GetLocal_1_out_2 = NULL;
-main_Append_1_in_3 = NULL;
-main_Append_1_in_5 = NULL;
-main_Append_1_out_1 = NULL;
-macro Image(
- id,
- object,
- where,
- useVector,
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- viewAngle,
- perspective,
- options,
- buttonState = 1,
- buttonUpApprox = "none",
- buttonDownApprox = "none",
- buttonUpDensity = 1,
- buttonDownDensity = 1,
- renderMode = 0,
- defaultCamera,
- reset,
- backgroundColor,
- throttle,
- RECenable = 0,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable = 0,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- interactionMode,
- title,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- webOptions) -> (
- object,
- camera,
- where)
-{
- ImageMessage(
- id,
- backgroundColor,
- throttle,
- RECenable,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- interactionMode,
- title,
- renderMode,
- buttonUpApprox,
- buttonDownApprox,
- buttonUpDensity,
- buttonDownDensity) [instance: 1, cache: 1];
- autoCamera =
- AutoCamera(
- object,
- "front",
- object,
- resolution,
- aspect,
- [0,1,0],
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- realCamera =
- Camera(
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- coloredDefaultCamera =
- UpdateCamera(defaultCamera,
- background=backgroundColor) [instance: 1, cache: 1];
- nullDefaultCamera =
- Inquire(defaultCamera,
- "is null + 1") [instance: 1, cache: 1];
- resetCamera =
- Switch(
- nullDefaultCamera,
- coloredDefaultCamera,
- autoCamera) [instance: 1, cache: 1];
- resetNull =
- Inquire(
- reset,
- "is null + 1") [instance: 2, cache: 1];
- reset =
- Switch(
- resetNull,
- reset,
- 0) [instance: 2, cache: 1];
- whichCamera =
- Compute(
- "($0 != 0 || $1 == 0) ? 1 : 2",
- reset,
- useVector) [instance: 1, cache: 1];
- camera = Switch(
- whichCamera,
- resetCamera,
- realCamera) [instance: 3, cache: 1];
- AAobject =
- AutoAxes(
- object,
- camera,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels) [instance: 1, cache: 1];
- switchAAenable = Compute("$0+1",
- AAenable) [instance: 2, cache: 1];
- object = Switch(
- switchAAenable,
- object,
- AAobject) [instance:4, cache: 1];
- SWapproximation_options =
- Switch(
- buttonState,
- buttonUpApprox,
- buttonDownApprox) [instance: 5, cache: 1];
- SWdensity_options =
- Switch(
- buttonState,
- buttonUpDensity,
- buttonDownDensity) [instance: 6, cache: 1];
- HWapproximation_options =
- Format(
- "%s,%s",
- buttonDownApprox,
- buttonUpApprox) [instance: 1, cache: 1];
- HWdensity_options =
- Format(
- "%d,%d",
- buttonDownDensity,
- buttonUpDensity) [instance: 2, cache: 1];
- switchRenderMode = Compute(
- "$0+1",
- renderMode) [instance: 3, cache: 1];
- approximation_options = Switch(
- switchRenderMode,
- SWapproximation_options,
- HWapproximation_options) [instance: 7, cache: 1];
- density_options = Switch(
- switchRenderMode,
- SWdensity_options,
- HWdensity_options) [instance: 8, cache: 1];
- renderModeString = Switch(
- switchRenderMode,
- "software",
- "hardware")[instance: 9, cache: 1];
- object_tag = Inquire(
- object,
- "object tag")[instance: 3, cache: 1];
- annoted_object =
- Options(
- object,
- "send boxes",
- 0,
- "cache",
- 1,
- "object tag",
- object_tag,
- "ddcamera",
- whichCamera,
- "rendering approximation",
- approximation_options,
- "render every",
- density_options,
- "button state",
- buttonState,
- "rendering mode",
- renderModeString) [instance: 1, cache: 1];
- RECresNull =
- Inquire(
- RECresolution,
- "is null + 1") [instance: 4, cache: 1];
- ImageResolution =
- Inquire(
- camera,
- "camera resolution") [instance: 5, cache: 1];
- RECresolution =
- Switch(
- RECresNull,
- RECresolution,
- ImageResolution) [instance: 10, cache: 1];
- RECaspectNull =
- Inquire(
- RECaspect,
- "is null + 1") [instance: 6, cache: 1];
- ImageAspect =
- Inquire(
- camera,
- "camera aspect") [instance: 7, cache: 1];
- RECaspect =
- Switch(
- RECaspectNull,
- RECaspect,
- ImageAspect) [instance: 11, cache: 1];
- switchRECenable = Compute(
- "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
- RECenable,
- switchRenderMode,
- RECresolution,
- ImageResolution,
- RECaspect,
- ImageAspect) [instance: 4, cache: 1];
- NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
- Display(
- NoRECobject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- image =
- Render(
- RECNoRerenderObject,
- camera) [instance: 1, cache: 1];
- Display(
- image,
- NULL,
- where,
- throttle) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- rec_where = Display(
- RECNoRerHW,
- camera,
- where,
- throttle) [instance: 1, cache: 0];
- rec_image = ReadImageWindow(
- rec_where) [instance: 1, cache: 1];
- WriteImage(
- rec_image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- RECupdateCamera =
- UpdateCamera(
- camera,
- resolution=RECresolution,
- aspect=RECaspect) [instance: 2, cache: 1];
- Display(
- RECRerenderObject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- RECRerenderObject =
- ScaleScreen(
- RECRerenderObject,
- NULL,
- RECresolution,
- camera) [instance: 1, cache: 1];
- image =
- Render(
- RECRerenderObject,
- RECupdateCamera) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 2, cache: 1];
-}
-main_Image_1_in_1 = "Image_1";
-main_Image_1_in_3 = "X24,,";
-main_Image_1_in_4 = 0;
-main_Image_1_in_5 = NULL;
-main_Image_1_in_6 = NULL;
-main_Image_1_in_7 = NULL;
-main_Image_1_in_8 = NULL;
-main_Image_1_in_9 = NULL;
-main_Image_1_in_10 = NULL;
-main_Image_1_in_11 = NULL;
-main_Image_1_in_12 = NULL;
-main_Image_1_in_13 = NULL;
-main_Image_1_in_14 = 1;
-main_Image_1_in_15 = NULL;
-main_Image_1_in_16 = NULL;
-main_Image_1_in_17 = NULL;
-main_Image_1_in_18 = NULL;
-main_Image_1_in_19 = 0;
-main_Image_1_in_20 = NULL;
-main_Image_1_in_21 = NULL;
-main_Image_1_in_22 = NULL;
-main_Image_1_in_23 = NULL;
-main_Image_1_in_25 = NULL;
-main_Image_1_in_26 = NULL;
-main_Image_1_in_27 = NULL;
-main_Image_1_in_28 = NULL;
-main_Image_1_in_29 = NULL;
-main_Image_1_in_30 = NULL;
-main_Image_1_in_31 = NULL;
-main_Image_1_in_32 = NULL;
-main_Image_1_in_33 = NULL;
-main_Image_1_in_34 = NULL;
-main_Image_1_in_35 = NULL;
-main_Image_1_in_36 = NULL;
-main_Image_1_in_37 = NULL;
-main_Image_1_in_38 = NULL;
-main_Image_1_in_39 = NULL;
-main_Image_1_in_40 = NULL;
-main_Image_1_in_41 = NULL;
-main_Image_1_in_42 = NULL;
-main_Image_1_in_43 = NULL;
-main_Image_1_in_44 = NULL;
-main_Image_1_in_45 = NULL;
-main_Image_1_in_46 = NULL;
-main_Image_1_in_47 = NULL;
-main_Image_1_in_48 = NULL;
-main_Image_1_in_49 = NULL;
-main_SetLocal_1_in_3 = NULL;
-Executive("product version 4 4 4");
-$sync
-main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2ptcsurf.m
--- a/extra/fpl/inst/deprecated/FPL2ptcsurf.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,81 +0,0 @@
-## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-##
-## @deftypefn {Function File} {} FPL2ptcsurf (@var{mesh1}, @
-## @var{color1}, @var{data1} @ [@var{mesh2}, @var{color2},@var{data2}])
-##
-## Plots the scalar fields @var{data} over the triangulation
-## @var{mesh} using opendx. Connections will be displayed as defined
-## in @var{color}.
-##
-## @end deftypefn
-
-function FPL2ptcsurf(varargin)
-
- colorlist = "";
- datalist = "";
-
- for ii=1:3:nargin
- dataname{ii} = mktemp("/tmp",".dx");
- FPL2dxoutputdata(dataname{ii},varargin{ii}.p,varargin{ii}.t,varargin{ii+2},"var",0,1,1);
- datalist = strcat (datalist, """", dataname{ii} ,"""");
- colorlist= strcat (colorlist, """", varargin{ii+1} ,"""");
- endfor
-
- scriptname = mktemp("/tmp",".net");
-
- ptcview = file_in_path(path,"FPL2ptcsurf.net");
-
- system (["cp " ptcview " " scriptname]);
- system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]);
- system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]);
-
- command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
- system(command);
-
-endfunction
-
-function filename = mktemp (direct,ext);
-
- if (~exist(direct,"dir"))
- error("Trying to save temporary file to non existing directory")
- endif
-
- done = false;
-
- while ~done
- filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
- if ~exist(filename,"file")
- done = true;
- endif
- endwhile
-
-endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2ptcsurf.net
--- a/extra/fpl/inst/deprecated/FPL2ptcsurf.net Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,749 +0,0 @@
-//
-// time: Fri Jan 4 17:10:29 2008
-//
-// version: 3.2.0 (format), 4.4.4 (DX)
-//
-//
-// MODULE main
-// workspace: width = 968, height = 946
-// layout: snap = 1, width = 10, height = 10, align = CC
-//
-macro main(
-) -> (
-) {
- //
- // node CollectMultiGrid[5]: x = 45, y = 424, inputs = 4, label = CollectMultiGrid
- //
-main_CollectMultiGrid_5_out_1 =
- CollectMultiGrid(
- main_CollectMultiGrid_5_in_1,
- main_CollectMultiGrid_5_in_2,
- main_CollectMultiGrid_5_in_3,
- main_CollectMultiGrid_5_in_4
- ) [instance: 5, cache: 1];
- //
- // node StringList[1]: x = 178, y = 34, inputs = 0, label = StringList
- // output[1]: visible = 1, type = 16777248, value = { "FILELIST" }
- //
- //
- // node ForEachMember[1]: x = 155, y = 124, inputs = 1, label = ForEachMember
- //
-main_ForEachMember_1_out_1,
-main_ForEachMember_1_out_2,
-main_ForEachMember_1_out_3 =
- ForEachMember(
- main_StringList_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Import[2]: x = 169, y = 224, inputs = 6, label = Import
- //
-main_Import_2_out_1 =
- Import(
- main_ForEachMember_1_out_1,
- main_Import_2_in_2,
- main_Import_2_in_3,
- main_Import_2_in_4,
- main_Import_2_in_5,
- main_Import_2_in_6
- ) [instance: 2, cache: 1];
- //
- // node ShowConnections[4]: x = 139, y = 324, inputs = 1, label = ShowConnections
- //
-main_ShowConnections_4_out_1 =
- ShowConnections(
- main_Import_2_out_1
- ) [instance: 4, cache: 1];
- //
- // node StringList[2]: x = 368, y = 34, inputs = 0, label = StringList
- // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" }
- //
- //
- // node ForEachMember[2]: x = 345, y = 124, inputs = 1, label = ForEachMember
- //
-main_ForEachMember_2_out_1,
-main_ForEachMember_2_out_2,
-main_ForEachMember_2_out_3 =
- ForEachMember(
- main_StringList_2_out_1
- ) [instance: 2, cache: 1];
- //
- // node Color[3]: x = 179, y = 404, inputs = 5, label = Color
- // input[3]: defaulting = 0, visible = 1, type = 5, value = .3
- //
-main_Color_3_out_1 =
- Color(
- main_ShowConnections_4_out_1,
- main_ForEachMember_2_out_1,
- main_Color_3_in_3,
- main_Color_3_in_4,
- main_Color_3_in_5
- ) [instance: 3, cache: 1];
- //
- // node GetLocal[4]: x = 322, y = 404, inputs = 3, label = GetLocal
- //
-main_GetLocal_4_out_1,
-main_GetLocal_4_out_2 =
- GetLocal(
- main_GetLocal_4_in_1,
- main_GetLocal_4_in_2,
- main_GetLocal_4_in_3
- ) [instance: 4, cache: 1];
- //
- // node Append[1]: x = 185, y = 504, inputs = 5, label = Append
- //
-main_Append_1_out_1 =
- Append(
- main_CollectMultiGrid_5_out_1,
- main_Color_3_out_1,
- main_Append_1_in_3,
- main_GetLocal_4_out_1,
- main_Append_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node CollectMultiGrid[4]: x = 615, y = 454, inputs = 4, label = CollectMultiGrid
- //
-main_CollectMultiGrid_4_out_1 =
- CollectMultiGrid(
- main_CollectMultiGrid_4_in_1,
- main_CollectMultiGrid_4_in_2,
- main_CollectMultiGrid_4_in_3,
- main_CollectMultiGrid_4_in_4
- ) [instance: 4, cache: 1];
- //
- // node GetLocal[5]: x = 872, y = 394, inputs = 3, label = GetLocal
- //
-main_GetLocal_5_out_1,
-main_GetLocal_5_out_2 =
- GetLocal(
- main_GetLocal_5_in_1,
- main_GetLocal_5_in_2,
- main_GetLocal_5_in_3
- ) [instance: 5, cache: 1];
- //
- // node Append[2]: x = 765, y = 514, inputs = 5, label = Append
- //
-main_Append_2_out_1 =
- Append(
- main_CollectMultiGrid_4_out_1,
- main_Import_2_out_1,
- main_Append_2_in_3,
- main_GetLocal_5_out_1,
- main_Append_2_in_5
- ) [instance: 2, cache: 1];
- //
- // node AutoColor[2]: x = 736, y = 604, inputs = 10, label = AutoColor
- // input[8]: visible = 1
- //
-main_AutoColor_2_out_1,
-main_AutoColor_2_out_2 =
- AutoColor(
- main_Append_2_out_1,
- main_AutoColor_2_in_2,
- main_AutoColor_2_in_3,
- main_AutoColor_2_in_4,
- main_AutoColor_2_in_5,
- main_AutoColor_2_in_6,
- main_AutoColor_2_in_7,
- main_AutoColor_2_in_8,
- main_AutoColor_2_in_9,
- main_AutoColor_2_in_10
- ) [instance: 2, cache: 1];
- //
- // node RubberSheet[1]: x = 176, y = 624, inputs = 4, label = RubberSheet
- //
-main_RubberSheet_1_out_1 =
- RubberSheet(
- main_Append_1_out_1,
- main_RubberSheet_1_in_2,
- main_RubberSheet_1_in_3,
- main_RubberSheet_1_in_4
- ) [instance: 1, cache: 1];
- //
- // node Shade[1]: x = 599, y = 654, inputs = 8, label = Shade
- // input[2]: defaulting = 0, visible = 1, type = 3, value = 1
- // input[3]: defaulting = 0, visible = 1, type = 32, value = "smooth"
- //
-main_Shade_1_out_1 =
- Shade(
- main_AutoColor_2_out_1,
- main_Shade_1_in_2,
- main_Shade_1_in_3,
- main_Shade_1_in_4,
- main_Shade_1_in_5,
- main_Shade_1_in_6,
- main_Shade_1_in_7,
- main_Shade_1_in_8
- ) [instance: 1, cache: 1];
- //
- // node RubberSheet[2]: x = 526, y = 734, inputs = 4, label = RubberSheet
- //
-main_RubberSheet_2_out_1 =
- RubberSheet(
- main_Shade_1_out_1,
- main_RubberSheet_2_in_2,
- main_RubberSheet_2_in_3,
- main_RubberSheet_2_in_4
- ) [instance: 2, cache: 1];
- //
- // node ColorBar[1]: x = 755, y = 734, inputs = 16, label = ColorBar
- // input[4]: defaulting = 0, visible = 1, type = 3, value = 1
- //
-main_ColorBar_1_out_1 =
- ColorBar(
- main_AutoColor_2_out_2,
- main_ColorBar_1_in_2,
- main_ColorBar_1_in_3,
- main_ColorBar_1_in_4,
- main_ColorBar_1_in_5,
- main_ColorBar_1_in_6,
- main_ColorBar_1_in_7,
- main_ColorBar_1_in_8,
- main_ColorBar_1_in_9,
- main_ColorBar_1_in_10,
- main_ColorBar_1_in_11,
- main_ColorBar_1_in_12,
- main_ColorBar_1_in_13,
- main_ColorBar_1_in_14,
- main_ColorBar_1_in_15,
- main_ColorBar_1_in_16
- ) [instance: 1, cache: 1];
- //
- // node Collect[1]: x = 349, y = 774, inputs = 3, label = Collect
- //
-main_Collect_1_out_1 =
- Collect(
- main_RubberSheet_1_out_1,
- main_RubberSheet_2_out_1,
- main_ColorBar_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Image[5]: x = 339, y = 884, inputs = 49, label = Image
- // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_5"
- // input[4]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[19]: defaulting = 0, visible = 0, type = 3, value = 0
- // depth: value = 24
- // internal caching: 1
- //
-main_Image_5_out_1,
-main_Image_5_out_2,
-main_Image_5_out_3 =
- Image(
- main_Image_5_in_1,
- main_Collect_1_out_1,
- main_Image_5_in_3,
- main_Image_5_in_4,
- main_Image_5_in_5,
- main_Image_5_in_6,
- main_Image_5_in_7,
- main_Image_5_in_8,
- main_Image_5_in_9,
- main_Image_5_in_10,
- main_Image_5_in_11,
- main_Image_5_in_12,
- main_Image_5_in_13,
- main_Image_5_in_14,
- main_Image_5_in_15,
- main_Image_5_in_16,
- main_Image_5_in_17,
- main_Image_5_in_18,
- main_Image_5_in_19,
- main_Image_5_in_20,
- main_Image_5_in_21,
- main_Image_5_in_22,
- main_Image_5_in_23,
- main_Image_5_in_24,
- main_Image_5_in_25,
- main_Image_5_in_26,
- main_Image_5_in_27,
- main_Image_5_in_28,
- main_Image_5_in_29,
- main_Image_5_in_30,
- main_Image_5_in_31,
- main_Image_5_in_32,
- main_Image_5_in_33,
- main_Image_5_in_34,
- main_Image_5_in_35,
- main_Image_5_in_36,
- main_Image_5_in_37,
- main_Image_5_in_38,
- main_Image_5_in_39,
- main_Image_5_in_40,
- main_Image_5_in_41,
- main_Image_5_in_42,
- main_Image_5_in_43,
- main_Image_5_in_44,
- main_Image_5_in_45,
- main_Image_5_in_46,
- main_Image_5_in_47,
- main_Image_5_in_48,
- main_Image_5_in_49
- ) [instance: 5, cache: 1];
- //
- // node SetLocal[4]: x = 322, y = 514, inputs = 3, label = SetLocal
- //
- SetLocal(
- main_Append_1_out_1,
- main_GetLocal_4_out_2,
- main_SetLocal_4_in_3
- ) [instance: 4, cache: 1];
- //
- // node SetLocal[5]: x = 902, y = 514, inputs = 3, label = SetLocal
- //
- SetLocal(
- main_Append_2_out_1,
- main_GetLocal_5_out_2,
- main_SetLocal_5_in_3
- ) [instance: 5, cache: 1];
-// network: end of macro body
-CacheScene(main_Image_5_in_1, main_Image_5_out_1, main_Image_5_out_2);
-}
-main_CollectMultiGrid_5_in_1 = NULL;
-main_CollectMultiGrid_5_in_2 = NULL;
-main_CollectMultiGrid_5_in_3 = NULL;
-main_CollectMultiGrid_5_in_4 = NULL;
-main_CollectMultiGrid_5_out_1 = NULL;
-main_StringList_1_out_1 = { "FILELIST" };
-main_ForEachMember_1_out_1 = NULL;
-main_Import_2_in_2 = NULL;
-main_Import_2_in_3 = NULL;
-main_Import_2_in_4 = NULL;
-main_Import_2_in_5 = NULL;
-main_Import_2_in_6 = NULL;
-main_Import_2_out_1 = NULL;
-main_ShowConnections_4_out_1 = NULL;
-main_StringList_2_out_1 = { "COLORLIST" };
-main_ForEachMember_2_out_1 = NULL;
-main_Color_3_in_3 = .3;
-main_Color_3_in_4 = NULL;
-main_Color_3_in_5 = NULL;
-main_Color_3_out_1 = NULL;
-main_GetLocal_4_in_1 = NULL;
-main_GetLocal_4_in_2 = NULL;
-main_GetLocal_4_in_3 = NULL;
-main_GetLocal_4_out_1 = NULL;
-main_GetLocal_4_out_2 = NULL;
-main_Append_1_in_3 = NULL;
-main_Append_1_in_5 = NULL;
-main_Append_1_out_1 = NULL;
-main_CollectMultiGrid_4_in_1 = NULL;
-main_CollectMultiGrid_4_in_2 = NULL;
-main_CollectMultiGrid_4_in_3 = NULL;
-main_CollectMultiGrid_4_in_4 = NULL;
-main_CollectMultiGrid_4_out_1 = NULL;
-main_GetLocal_5_in_1 = NULL;
-main_GetLocal_5_in_2 = NULL;
-main_GetLocal_5_in_3 = NULL;
-main_GetLocal_5_out_1 = NULL;
-main_GetLocal_5_out_2 = NULL;
-main_Append_2_in_3 = NULL;
-main_Append_2_in_5 = NULL;
-main_Append_2_out_1 = NULL;
-main_AutoColor_2_in_2 = NULL;
-main_AutoColor_2_in_3 = NULL;
-main_AutoColor_2_in_4 = NULL;
-main_AutoColor_2_in_5 = NULL;
-main_AutoColor_2_in_6 = NULL;
-main_AutoColor_2_in_7 = NULL;
-main_AutoColor_2_in_8 = NULL;
-main_AutoColor_2_in_9 = NULL;
-main_AutoColor_2_in_10 = NULL;
-main_AutoColor_2_out_1 = NULL;
-main_AutoColor_2_out_2 = NULL;
-main_RubberSheet_1_in_2 = NULL;
-main_RubberSheet_1_in_3 = NULL;
-main_RubberSheet_1_in_4 = NULL;
-main_RubberSheet_1_out_1 = NULL;
-main_Shade_1_in_2 = 1;
-main_Shade_1_in_3 = "smooth";
-main_Shade_1_in_4 = NULL;
-main_Shade_1_in_5 = NULL;
-main_Shade_1_in_6 = NULL;
-main_Shade_1_in_7 = NULL;
-main_Shade_1_in_8 = NULL;
-main_Shade_1_out_1 = NULL;
-main_RubberSheet_2_in_2 = NULL;
-main_RubberSheet_2_in_3 = NULL;
-main_RubberSheet_2_in_4 = NULL;
-main_RubberSheet_2_out_1 = NULL;
-main_ColorBar_1_in_2 = NULL;
-main_ColorBar_1_in_3 = NULL;
-main_ColorBar_1_in_4 = 1;
-main_ColorBar_1_in_5 = NULL;
-main_ColorBar_1_in_6 = NULL;
-main_ColorBar_1_in_7 = NULL;
-main_ColorBar_1_in_8 = NULL;
-main_ColorBar_1_in_9 = NULL;
-main_ColorBar_1_in_10 = NULL;
-main_ColorBar_1_in_11 = NULL;
-main_ColorBar_1_in_12 = NULL;
-main_ColorBar_1_in_13 = NULL;
-main_ColorBar_1_in_14 = NULL;
-main_ColorBar_1_in_15 = NULL;
-main_ColorBar_1_in_16 = NULL;
-main_ColorBar_1_out_1 = NULL;
-main_Collect_1_out_1 = NULL;
-macro Image(
- id,
- object,
- where,
- useVector,
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- viewAngle,
- perspective,
- options,
- buttonState = 1,
- buttonUpApprox = "none",
- buttonDownApprox = "none",
- buttonUpDensity = 1,
- buttonDownDensity = 1,
- renderMode = 0,
- defaultCamera,
- reset,
- backgroundColor,
- throttle,
- RECenable = 0,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable = 0,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- interactionMode,
- title,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- webOptions) -> (
- object,
- camera,
- where)
-{
- ImageMessage(
- id,
- backgroundColor,
- throttle,
- RECenable,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- interactionMode,
- title,
- renderMode,
- buttonUpApprox,
- buttonDownApprox,
- buttonUpDensity,
- buttonDownDensity) [instance: 1, cache: 1];
- autoCamera =
- AutoCamera(
- object,
- "front",
- object,
- resolution,
- aspect,
- [0,1,0],
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- realCamera =
- Camera(
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- coloredDefaultCamera =
- UpdateCamera(defaultCamera,
- background=backgroundColor) [instance: 1, cache: 1];
- nullDefaultCamera =
- Inquire(defaultCamera,
- "is null + 1") [instance: 1, cache: 1];
- resetCamera =
- Switch(
- nullDefaultCamera,
- coloredDefaultCamera,
- autoCamera) [instance: 1, cache: 1];
- resetNull =
- Inquire(
- reset,
- "is null + 1") [instance: 2, cache: 1];
- reset =
- Switch(
- resetNull,
- reset,
- 0) [instance: 2, cache: 1];
- whichCamera =
- Compute(
- "($0 != 0 || $1 == 0) ? 1 : 2",
- reset,
- useVector) [instance: 1, cache: 1];
- camera = Switch(
- whichCamera,
- resetCamera,
- realCamera) [instance: 3, cache: 1];
- AAobject =
- AutoAxes(
- object,
- camera,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels) [instance: 1, cache: 1];
- switchAAenable = Compute("$0+1",
- AAenable) [instance: 2, cache: 1];
- object = Switch(
- switchAAenable,
- object,
- AAobject) [instance:4, cache: 1];
- SWapproximation_options =
- Switch(
- buttonState,
- buttonUpApprox,
- buttonDownApprox) [instance: 5, cache: 1];
- SWdensity_options =
- Switch(
- buttonState,
- buttonUpDensity,
- buttonDownDensity) [instance: 6, cache: 1];
- HWapproximation_options =
- Format(
- "%s,%s",
- buttonDownApprox,
- buttonUpApprox) [instance: 1, cache: 1];
- HWdensity_options =
- Format(
- "%d,%d",
- buttonDownDensity,
- buttonUpDensity) [instance: 2, cache: 1];
- switchRenderMode = Compute(
- "$0+1",
- renderMode) [instance: 3, cache: 1];
- approximation_options = Switch(
- switchRenderMode,
- SWapproximation_options,
- HWapproximation_options) [instance: 7, cache: 1];
- density_options = Switch(
- switchRenderMode,
- SWdensity_options,
- HWdensity_options) [instance: 8, cache: 1];
- renderModeString = Switch(
- switchRenderMode,
- "software",
- "hardware")[instance: 9, cache: 1];
- object_tag = Inquire(
- object,
- "object tag")[instance: 3, cache: 1];
- annoted_object =
- Options(
- object,
- "send boxes",
- 0,
- "cache",
- 1,
- "object tag",
- object_tag,
- "ddcamera",
- whichCamera,
- "rendering approximation",
- approximation_options,
- "render every",
- density_options,
- "button state",
- buttonState,
- "rendering mode",
- renderModeString) [instance: 1, cache: 1];
- RECresNull =
- Inquire(
- RECresolution,
- "is null + 1") [instance: 4, cache: 1];
- ImageResolution =
- Inquire(
- camera,
- "camera resolution") [instance: 5, cache: 1];
- RECresolution =
- Switch(
- RECresNull,
- RECresolution,
- ImageResolution) [instance: 10, cache: 1];
- RECaspectNull =
- Inquire(
- RECaspect,
- "is null + 1") [instance: 6, cache: 1];
- ImageAspect =
- Inquire(
- camera,
- "camera aspect") [instance: 7, cache: 1];
- RECaspect =
- Switch(
- RECaspectNull,
- RECaspect,
- ImageAspect) [instance: 11, cache: 1];
- switchRECenable = Compute(
- "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
- RECenable,
- switchRenderMode,
- RECresolution,
- ImageResolution,
- RECaspect,
- ImageAspect) [instance: 4, cache: 1];
- NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
- Display(
- NoRECobject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- image =
- Render(
- RECNoRerenderObject,
- camera) [instance: 1, cache: 1];
- Display(
- image,
- NULL,
- where,
- throttle) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- rec_where = Display(
- RECNoRerHW,
- camera,
- where,
- throttle) [instance: 1, cache: 0];
- rec_image = ReadImageWindow(
- rec_where) [instance: 1, cache: 1];
- WriteImage(
- rec_image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- RECupdateCamera =
- UpdateCamera(
- camera,
- resolution=RECresolution,
- aspect=RECaspect) [instance: 2, cache: 1];
- Display(
- RECRerenderObject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- RECRerenderObject =
- ScaleScreen(
- RECRerenderObject,
- NULL,
- RECresolution,
- camera) [instance: 1, cache: 1];
- image =
- Render(
- RECRerenderObject,
- RECupdateCamera) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 2, cache: 1];
-}
-main_Image_5_in_1 = "Image_5";
-main_Image_5_in_3 = "X24,,";
-main_Image_5_in_4 = 0;
-main_Image_5_in_5 = NULL;
-main_Image_5_in_6 = NULL;
-main_Image_5_in_7 = NULL;
-main_Image_5_in_8 = NULL;
-main_Image_5_in_9 = NULL;
-main_Image_5_in_10 = NULL;
-main_Image_5_in_11 = NULL;
-main_Image_5_in_12 = NULL;
-main_Image_5_in_13 = NULL;
-main_Image_5_in_14 = 1;
-main_Image_5_in_15 = NULL;
-main_Image_5_in_16 = NULL;
-main_Image_5_in_17 = NULL;
-main_Image_5_in_18 = NULL;
-main_Image_5_in_19 = 0;
-main_Image_5_in_20 = NULL;
-main_Image_5_in_21 = NULL;
-main_Image_5_in_22 = NULL;
-main_Image_5_in_23 = NULL;
-main_Image_5_in_25 = NULL;
-main_Image_5_in_26 = NULL;
-main_Image_5_in_27 = NULL;
-main_Image_5_in_28 = NULL;
-main_Image_5_in_29 = NULL;
-main_Image_5_in_30 = NULL;
-main_Image_5_in_31 = NULL;
-main_Image_5_in_32 = NULL;
-main_Image_5_in_33 = NULL;
-main_Image_5_in_34 = NULL;
-main_Image_5_in_35 = NULL;
-main_Image_5_in_36 = NULL;
-main_Image_5_in_37 = NULL;
-main_Image_5_in_38 = NULL;
-main_Image_5_in_39 = NULL;
-main_Image_5_in_40 = NULL;
-main_Image_5_in_41 = NULL;
-main_Image_5_in_42 = NULL;
-main_Image_5_in_43 = NULL;
-main_Image_5_in_44 = NULL;
-main_Image_5_in_45 = NULL;
-main_Image_5_in_46 = NULL;
-main_Image_5_in_47 = NULL;
-main_Image_5_in_48 = NULL;
-main_Image_5_in_49 = NULL;
-main_SetLocal_4_in_3 = NULL;
-main_SetLocal_5_in_3 = NULL;
-Executive("product version 4 4 4");
-$sync
-main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2showmesh.net
--- a/extra/fpl/inst/deprecated/FPL2showmesh.net Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,587 +0,0 @@
-//
-// time: Wed Jun 27 18:36:54 2007
-//
-// version: 3.2.0 (format), 4.4.4 (DX)
-//
-//
-// MODULE main
-// workspace: width = 464, height = 625
-// layout: snap = 0, width = 50, height = 50, align = NN
-//
-macro main(
-) -> (
-) {
- //
- // node Collect[1]: x = 409, y = 272, inputs = 2, label = Collect
- //
-main_Collect_1_out_1 =
- Collect(
- main_Collect_1_in_1,
- main_Collect_1_in_2
- ) [instance: 1, cache: 1];
- //
- // node GetLocal[1]: x = 308, y = 381, inputs = 3, label = GetLocal
- //
-main_GetLocal_1_out_1,
-main_GetLocal_1_out_2 =
- GetLocal(
- main_Collect_1_out_1,
- main_GetLocal_1_in_2,
- main_GetLocal_1_in_3
- ) [instance: 1, cache: 1];
- //
- // node StringList[1]: x = 42, y = 74, inputs = 0, label = StringList
- // output[1]: visible = 1, type = 16777248, value = {__FILE__DX__ }
- //
- //
- // node ForEachMember[1]: x = 28, y = 151, inputs = 1, label = ForEachMember
- //
-main_ForEachMember_1_out_1,
-main_ForEachMember_1_out_2,
-main_ForEachMember_1_out_3 =
- ForEachMember(
- main_StringList_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Import[1]: x = 40, y = 234, inputs = 6, label = Import
- //
-main_Import_1_out_1 =
- Import(
- main_ForEachMember_1_out_1,
- main_Import_1_in_2,
- main_Import_1_in_3,
- main_Import_1_in_4,
- main_Import_1_in_5,
- main_Import_1_in_6
- ) [instance: 1, cache: 1];
- //
- // node StringList[2]: x = 215, y = 61, inputs = 0, label = StringList
- // output[1]: visible = 1, type = 16777248, value = { __MESH__COLOR__ }
- //
- //
- // node ForEachMember[2]: x = 198, y = 159, inputs = 1, label = ForEachMember
- //
-main_ForEachMember_2_out_1,
-main_ForEachMember_2_out_2,
-main_ForEachMember_2_out_3 =
- ForEachMember(
- main_StringList_2_out_1
- ) [instance: 2, cache: 1];
- //
- // node Color[1]: x = 179, y = 312, inputs = 5, label = Color
- // input[2]: defaulting = 1, visible = 1, type = 32, value = "indianred"
- //
-main_Color_1_out_1 =
- Color(
- main_Import_1_out_1,
- main_ForEachMember_2_out_1,
- main_Color_1_in_3,
- main_Color_1_in_4,
- main_Color_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node ShowConnections[1]: x = 31, y = 354, inputs = 1, label = ShowConnections
- //
-main_ShowConnections_1_out_1 =
- ShowConnections(
- main_Color_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Append[1]: x = 60, y = 453, inputs = 5, label = Append
- //
-main_Append_1_out_1 =
- Append(
- main_GetLocal_1_out_1,
- main_ShowConnections_1_out_1,
- main_Append_1_in_3,
- main_Append_1_in_4,
- main_Append_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node Image[1]: x = 153, y = 563, inputs = 49, label = Image
- // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1"
- // input[4]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[5]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 0]
- // input[6]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 39.3199]
- // input[7]: defaulting = 0, visible = 0, type = 5, value = 21.0715
- // input[8]: defaulting = 0, visible = 0, type = 1, value = 804
- // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.610075
- // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0]
- // input[11]: defaulting = 1, visible = 0, type = 5, value = 30.0
- // input[12]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[15]: defaulting = 1, visible = 0, type = 32, value = "none"
- // input[16]: defaulting = 1, visible = 0, type = 32, value = "none"
- // input[17]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[18]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[19]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow"
- // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif"
- // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff"
- // input[29]: defaulting = 0, visible = 0, type = 3, value = 1
- // input[31]: defaulting = 0, visible = 0, type = 1, value = -15
- // input[33]: defaulting = 0, visible = 0, type = 3, value = 0
- // input[34]: defaulting = 0, visible = 0, type = 3, value = 0
- // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "grey5", "saddlebrown", "saddlebrown"}
- // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"}
- // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.7
- // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_s"
- // input[41]: defaulting = 0, visible = 0, type = 32, value = "none"
- // depth: value = 24
- // window: position = (0.2477,0.1272), size = 0.6391x0.6838, screen = 0
- // internal caching: 1
- //
-main_Image_1_out_1,
-main_Image_1_out_2,
-main_Image_1_out_3 =
- Image(
- main_Image_1_in_1,
- main_Append_1_out_1,
- main_Image_1_in_3,
- main_Image_1_in_4,
- main_Image_1_in_5,
- main_Image_1_in_6,
- main_Image_1_in_7,
- main_Image_1_in_8,
- main_Image_1_in_9,
- main_Image_1_in_10,
- main_Image_1_in_11,
- main_Image_1_in_12,
- main_Image_1_in_13,
- main_Image_1_in_14,
- main_Image_1_in_15,
- main_Image_1_in_16,
- main_Image_1_in_17,
- main_Image_1_in_18,
- main_Image_1_in_19,
- main_Image_1_in_20,
- main_Image_1_in_21,
- main_Image_1_in_22,
- main_Image_1_in_23,
- main_Image_1_in_24,
- main_Image_1_in_25,
- main_Image_1_in_26,
- main_Image_1_in_27,
- main_Image_1_in_28,
- main_Image_1_in_29,
- main_Image_1_in_30,
- main_Image_1_in_31,
- main_Image_1_in_32,
- main_Image_1_in_33,
- main_Image_1_in_34,
- main_Image_1_in_35,
- main_Image_1_in_36,
- main_Image_1_in_37,
- main_Image_1_in_38,
- main_Image_1_in_39,
- main_Image_1_in_40,
- main_Image_1_in_41,
- main_Image_1_in_42,
- main_Image_1_in_43,
- main_Image_1_in_44,
- main_Image_1_in_45,
- main_Image_1_in_46,
- main_Image_1_in_47,
- main_Image_1_in_48,
- main_Image_1_in_49
- ) [instance: 1, cache: 1];
- //
- // node SetLocal[1]: x = 316, y = 471, inputs = 3, label = SetLocal
- //
- SetLocal(
- main_Append_1_out_1,
- main_GetLocal_1_out_2,
- main_SetLocal_1_in_3
- ) [instance: 1, cache: 1];
-// network: end of macro body
-CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
-}
-main_Collect_1_in_1 = NULL;
-main_Collect_1_in_2 = NULL;
-main_Collect_1_out_1 = NULL;
-main_GetLocal_1_in_2 = NULL;
-main_GetLocal_1_in_3 = NULL;
-main_GetLocal_1_out_1 = NULL;
-main_GetLocal_1_out_2 = NULL;
-main_StringList_1_out_1 = {__FILE__DX__};
-main_ForEachMember_1_out_1 = NULL;
-main_Import_1_in_2 = NULL;
-main_Import_1_in_3 = NULL;
-main_Import_1_in_4 = NULL;
-main_Import_1_in_5 = NULL;
-main_Import_1_in_6 = NULL;
-main_Import_1_out_1 = NULL;
-main_StringList_2_out_1 = {__MESH__COLOR__ };
-main_ForEachMember_2_out_1 = NULL;
-main_Color_1_in_3 = NULL;
-main_Color_1_in_4 = NULL;
-main_Color_1_in_5 = NULL;
-main_Color_1_out_1 = NULL;
-main_ShowConnections_1_out_1 = NULL;
-main_Append_1_in_3 = NULL;
-main_Append_1_in_4 = NULL;
-main_Append_1_in_5 = NULL;
-main_Append_1_out_1 = NULL;
-macro Image(
- id,
- object,
- where,
- useVector,
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- viewAngle,
- perspective,
- options,
- buttonState = 1,
- buttonUpApprox = "none",
- buttonDownApprox = "none",
- buttonUpDensity = 1,
- buttonDownDensity = 1,
- renderMode = 0,
- defaultCamera,
- reset,
- backgroundColor,
- throttle,
- RECenable = 0,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable = 0,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- interactionMode,
- title,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- webOptions) -> (
- object,
- camera,
- where)
-{
- ImageMessage(
- id,
- backgroundColor,
- throttle,
- RECenable,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- interactionMode,
- title,
- renderMode,
- buttonUpApprox,
- buttonDownApprox,
- buttonUpDensity,
- buttonDownDensity) [instance: 1, cache: 1];
- autoCamera =
- AutoCamera(
- object,
- "front",
- object,
- resolution,
- aspect,
- [0,1,0],
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- realCamera =
- Camera(
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- coloredDefaultCamera =
- UpdateCamera(defaultCamera,
- background=backgroundColor) [instance: 1, cache: 1];
- nullDefaultCamera =
- Inquire(defaultCamera,
- "is null + 1") [instance: 1, cache: 1];
- resetCamera =
- Switch(
- nullDefaultCamera,
- coloredDefaultCamera,
- autoCamera) [instance: 1, cache: 1];
- resetNull =
- Inquire(
- reset,
- "is null + 1") [instance: 2, cache: 1];
- reset =
- Switch(
- resetNull,
- reset,
- 0) [instance: 2, cache: 1];
- whichCamera =
- Compute(
- "($0 != 0 || $1 == 0) ? 1 : 2",
- reset,
- useVector) [instance: 1, cache: 1];
- camera = Switch(
- whichCamera,
- resetCamera,
- realCamera) [instance: 3, cache: 1];
- AAobject =
- AutoAxes(
- object,
- camera,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels) [instance: 1, cache: 1];
- switchAAenable = Compute("$0+1",
- AAenable) [instance: 2, cache: 1];
- object = Switch(
- switchAAenable,
- object,
- AAobject) [instance:4, cache: 1];
- SWapproximation_options =
- Switch(
- buttonState,
- buttonUpApprox,
- buttonDownApprox) [instance: 5, cache: 1];
- SWdensity_options =
- Switch(
- buttonState,
- buttonUpDensity,
- buttonDownDensity) [instance: 6, cache: 1];
- HWapproximation_options =
- Format(
- "%s,%s",
- buttonDownApprox,
- buttonUpApprox) [instance: 1, cache: 1];
- HWdensity_options =
- Format(
- "%d,%d",
- buttonDownDensity,
- buttonUpDensity) [instance: 2, cache: 1];
- switchRenderMode = Compute(
- "$0+1",
- renderMode) [instance: 3, cache: 1];
- approximation_options = Switch(
- switchRenderMode,
- SWapproximation_options,
- HWapproximation_options) [instance: 7, cache: 1];
- density_options = Switch(
- switchRenderMode,
- SWdensity_options,
- HWdensity_options) [instance: 8, cache: 1];
- renderModeString = Switch(
- switchRenderMode,
- "software",
- "hardware")[instance: 9, cache: 1];
- object_tag = Inquire(
- object,
- "object tag")[instance: 3, cache: 1];
- annoted_object =
- Options(
- object,
- "send boxes",
- 0,
- "cache",
- 1,
- "object tag",
- object_tag,
- "ddcamera",
- whichCamera,
- "rendering approximation",
- approximation_options,
- "render every",
- density_options,
- "button state",
- buttonState,
- "rendering mode",
- renderModeString) [instance: 1, cache: 1];
- RECresNull =
- Inquire(
- RECresolution,
- "is null + 1") [instance: 4, cache: 1];
- ImageResolution =
- Inquire(
- camera,
- "camera resolution") [instance: 5, cache: 1];
- RECresolution =
- Switch(
- RECresNull,
- RECresolution,
- ImageResolution) [instance: 10, cache: 1];
- RECaspectNull =
- Inquire(
- RECaspect,
- "is null + 1") [instance: 6, cache: 1];
- ImageAspect =
- Inquire(
- camera,
- "camera aspect") [instance: 7, cache: 1];
- RECaspect =
- Switch(
- RECaspectNull,
- RECaspect,
- ImageAspect) [instance: 11, cache: 1];
- switchRECenable = Compute(
- "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
- RECenable,
- switchRenderMode,
- RECresolution,
- ImageResolution,
- RECaspect,
- ImageAspect) [instance: 4, cache: 1];
- NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
- Display(
- NoRECobject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- image =
- Render(
- RECNoRerenderObject,
- camera) [instance: 1, cache: 1];
- Display(
- image,
- NULL,
- where,
- throttle) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- rec_where = Display(
- RECNoRerHW,
- camera,
- where,
- throttle) [instance: 1, cache: 0];
- rec_image = ReadImageWindow(
- rec_where) [instance: 1, cache: 1];
- WriteImage(
- rec_image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- RECupdateCamera =
- UpdateCamera(
- camera,
- resolution=RECresolution,
- aspect=RECaspect) [instance: 2, cache: 1];
- Display(
- RECRerenderObject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- RECRerenderObject =
- ScaleScreen(
- RECRerenderObject,
- NULL,
- RECresolution,
- camera) [instance: 1, cache: 1];
- image =
- Render(
- RECRerenderObject,
- RECupdateCamera) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 2, cache: 1];
-}
-main_Image_1_in_1 = "Image_1";
-main_Image_1_in_3 = "X24,,";
-main_Image_1_in_4 = 1;
-main_Image_1_in_5 = [7.5 7.5 0];
-main_Image_1_in_6 = [7.5 7.5 39.3199];
-main_Image_1_in_7 = 21.0715;
-main_Image_1_in_8 = 804;
-main_Image_1_in_9 = 0.610075;
-main_Image_1_in_10 = [0 1 0];
-main_Image_1_in_11 = NULL;
-main_Image_1_in_12 = 0;
-main_Image_1_in_13 = NULL;
-main_Image_1_in_14 = 1;
-main_Image_1_in_15 = NULL;
-main_Image_1_in_16 = NULL;
-main_Image_1_in_17 = 1;
-main_Image_1_in_18 = 1;
-main_Image_1_in_19 = 1;
-main_Image_1_in_20 = NULL;
-main_Image_1_in_21 = NULL;
-main_Image_1_in_22 = "snow";
-main_Image_1_in_23 = NULL;
-main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif";
-main_Image_1_in_26 = "tiff";
-main_Image_1_in_27 = NULL;
-main_Image_1_in_28 = NULL;
-main_Image_1_in_29 = 1;
-main_Image_1_in_30 = NULL;
-main_Image_1_in_31 = -15;
-main_Image_1_in_32 = NULL;
-main_Image_1_in_33 = 0;
-main_Image_1_in_34 = 0;
-main_Image_1_in_35 = NULL;
-main_Image_1_in_36 = NULL;
-main_Image_1_in_37 = {"clear", "grey5", "saddlebrown", "saddlebrown"};
-main_Image_1_in_38 = {"background", "grid", "ticks", "labels"};
-main_Image_1_in_39 = 0.7;
-main_Image_1_in_40 = "roman_s";
-main_Image_1_in_41 = "none";
-main_Image_1_in_42 = NULL;
-main_Image_1_in_43 = NULL;
-main_Image_1_in_44 = NULL;
-main_Image_1_in_45 = NULL;
-main_Image_1_in_46 = NULL;
-main_Image_1_in_47 = NULL;
-main_Image_1_in_48 = NULL;
-main_Image_1_in_49 = NULL;
-main_SetLocal_1_in_3 = NULL;
-Executive("product version 4 4 4");
-$sync
-main();
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2trspdesurf.m
--- a/extra/fpl/inst/deprecated/FPL2trspdesurf.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,83 +0,0 @@
-## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} FPL2trspdesurf (@var{mesh}, @
-## @var{color}, @var{data})
-##
-## Plots the transient scalar field @var{u} defined on the triangulation
-## @var{mesh} using opendx. Connections are rendered as defined by
-## @var{color}
-##
-## Example:
-## @example
-##
-## FPL2trspdesurf(mesh,"blue",data)
-##
-## @end example
-## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2trsptcsurf}
-## @end deftypefn
-
-function FPL2trspdesurf(varargin)
-
- seriesend = columns(varargin{3});
- dataname = mktemp("/tmp",".dx");
- colorname = varargin{2};
- FPL2dxoutputtimeseries(dataname, varargin{1}.p, varargin{1}.t, ...
- varargin{3}, "dataseries", 0, 1, 1:seriesend);
-
- scriptname = mktemp("/tmp",".net");
-
- view = file_in_path(path,"FPL2trspdesurf.net");
-
- system (["cp " view " " scriptname]);
- system (["sed -i \'s|FILENAME|" dataname "|g\' " scriptname]);
- system (["sed -i \'s|COLORNAME|" colorname "|g\' " scriptname]);
-
- command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
- system(command);
-
-endfunction
-
-function filename = mktemp (direct,ext);
-
- if (~exist(direct,"dir"))
- error("Trying to save temporary file to non existing directory")
- endif
-
- done = false;
-
- while ~done
- filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
- if ~exist(filename,"file")
- done = true;
- endif
- endwhile
-
-endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2trspdesurf.net
--- a/extra/fpl/inst/deprecated/FPL2trspdesurf.net Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,702 +0,0 @@
-//
-// time: Sat Jan 5 19:47:19 2008
-//
-// version: 3.2.0 (format), 4.4.4 (DX)
-//
-//
-// MODULE main
-// workspace: width = 1161, height = 826
-// layout: snap = 1, width = 10, height = 10, align = CC
-//
-macro main(
-) -> (
-) {
- //
- // node String[1]: x = 281, y = 24, inputs = 0, label = String
- // output[1]: visible = 1, type = 32, value = "FILENAME"
- //
- //
- // node Import[1]: x = 269, y = 114, inputs = 6, label = Import
- //
-main_Import_1_out_1 =
- Import(
- main_String_1_out_1,
- main_Import_1_in_2,
- main_Import_1_in_3,
- main_Import_1_in_4,
- main_Import_1_in_5,
- main_Import_1_in_6
- ) [instance: 1, cache: 1];
- //
- // node Value[1]: x = 513, y = 104, inputs = 0, label = Value
- // output[1]: visible = 1, type = 29, value = 0
- //
- //
- // node Inquire[1]: x = 509, y = 24, inputs = 3, label = Inquire
- // input[2]: defaulting = 0, visible = 1, type = 32, value = "member count"
- //
-main_Inquire_1_out_1 =
- Inquire(
- main_Import_1_out_1,
- main_Inquire_1_in_2,
- main_Inquire_1_in_3
- ) [instance: 1, cache: 1];
- //
- // node Value[2]: x = 643, y = 4, inputs = 0, label = Value
- // output[1]: visible = 1, type = 29, value = 1
- //
- //
- // node Compute[1]: x = 601, y = 94, inputs = 3, label = Compute
- // input[1]: defaulting = 0, visible = 0, type = 32, value = "$0 - $1"
- // expression: value = a - b
- // name[2]: value = a
- // name[3]: value = b
- //
-main_Compute_1_out_1 =
- Compute(
- main_Compute_1_in_1,
- main_Inquire_1_out_1,
- main_Value_2_out_1
- ) [instance: 1, cache: 1];
- //
- // node Sequencer[1]: x = 585, y = 184, inputs = 7, label = Sequencer
- // input[1]: defaulting = 0, visible = 0, type = 32, value = "Sequencer_1"
- // input[4]: defaulting = 1, visible = 1, type = 1, value = 0
- // input[5]: defaulting = 1, visible = 1, type = 1, value = 95
- // input[6]: defaulting = 1, visible = 0, type = 1, value = 1
- // input[7]: defaulting = 0, visible = 0, type = 16777217, value = { 0 95 1 0 95 1 }
- // vcr[1]: min = 0, max = 95, beg = 0, end = 95, cur = 38, inc = 1, loop = off, step = off, pal = off
- // window: position = (0.0132,0.0833), size = 0.1750x0.0667
- //
- main_Sequencer_1_in_3 = @frame;
-main_Sequencer_1_out_1[cache: 2] =
- Sequencer(
- main_Sequencer_1_in_1,
- main_Sequencer_1_in_2,
- main_Sequencer_1_in_3,
- main_Value_1_out_1,
- main_Compute_1_out_1,
- main_Sequencer_1_in_6,
- main_Sequencer_1_in_7
- ) [instance: 1, cache: 1];
- //
- // node Select[1]: x = 411, y = 214, inputs = 3, label = Select
- //
-main_Select_1_out_1 =
- Select(
- main_Import_1_out_1,
- main_Sequencer_1_out_1,
- main_Select_1_in_3
- ) [instance: 1, cache: 1];
- //
- // node RubberSheet[3]: x = 406, y = 364, inputs = 4, label = RubberSheet
- //
-main_RubberSheet_3_out_1 =
- RubberSheet(
- main_Select_1_out_1,
- main_RubberSheet_3_in_2,
- main_RubberSheet_3_in_3,
- main_RubberSheet_3_in_4
- ) [instance: 3, cache: 1];
- //
- // node Statistics[4]: x = 185, y = 234, inputs = 1, label = Statistics
- //
-main_Statistics_4_out_1,
-main_Statistics_4_out_2,
-main_Statistics_4_out_3,
-main_Statistics_4_out_4,
-main_Statistics_4_out_5 =
- Statistics(
- main_Import_1_out_1
- ) [instance: 4, cache: 1];
- //
- // node AutoColor[1]: x = 336, y = 474, inputs = 10, label = AutoColor
- // input[8]: visible = 1
- //
-main_AutoColor_1_out_1,
-main_AutoColor_1_out_2 =
- AutoColor(
- main_RubberSheet_3_out_1,
- main_AutoColor_1_in_2,
- main_AutoColor_1_in_3,
- main_AutoColor_1_in_4,
- main_AutoColor_1_in_5,
- main_AutoColor_1_in_6,
- main_Statistics_4_out_4,
- main_Statistics_4_out_5,
- main_AutoColor_1_in_9,
- main_AutoColor_1_in_10
- ) [instance: 1, cache: 1];
- //
- // node Shade[2]: x = 299, y = 574, inputs = 8, label = Shade
- // input[3]: defaulting = 0, visible = 1, type = 32, value = "smooth"
- //
-main_Shade_2_out_1 =
- Shade(
- main_AutoColor_1_out_1,
- main_Shade_2_in_2,
- main_Shade_2_in_3,
- main_Shade_2_in_4,
- main_Shade_2_in_5,
- main_Shade_2_in_6,
- main_Shade_2_in_7,
- main_Shade_2_in_8
- ) [instance: 2, cache: 1];
- //
- // node ColorBar[1]: x = 775, y = 574, inputs = 16, label = ColorBar
- // input[4]: defaulting = 0, visible = 1, type = 3, value = 1
- //
-main_ColorBar_1_out_1 =
- ColorBar(
- main_AutoColor_1_out_2,
- main_ColorBar_1_in_2,
- main_ColorBar_1_in_3,
- main_ColorBar_1_in_4,
- main_ColorBar_1_in_5,
- main_ColorBar_1_in_6,
- main_ColorBar_1_in_7,
- main_ColorBar_1_in_8,
- main_ColorBar_1_in_9,
- main_ColorBar_1_in_10,
- main_ColorBar_1_in_11,
- main_ColorBar_1_in_12,
- main_ColorBar_1_in_13,
- main_ColorBar_1_in_14,
- main_ColorBar_1_in_15,
- main_ColorBar_1_in_16
- ) [instance: 1, cache: 1];
- //
- // node ShowConnections[1]: x = 869, y = 474, inputs = 1, label = ShowConnections
- //
-main_ShowConnections_1_out_1 =
- ShowConnections(
- main_RubberSheet_3_out_1
- ) [instance: 1, cache: 1];
- //
- // node String[2]: x = 1091, y = 474, inputs = 0, label = String
- // output[1]: visible = 1, type = 32, value = "COLORNAME"
- //
- //
- // node Color[1]: x = 929, y = 574, inputs = 5, label = Color
- // input[3]: defaulting = 0, visible = 1, type = 5, value = .3
- //
-main_Color_1_out_1 =
- Color(
- main_ShowConnections_1_out_1,
- main_String_2_out_1,
- main_Color_1_in_3,
- main_Color_1_in_4,
- main_Color_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node Collect[1]: x = 799, y = 684, inputs = 3, label = Collect
- //
-main_Collect_1_out_1 =
- Collect(
- main_Shade_2_out_1,
- main_ColorBar_1_out_1,
- main_Color_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Image[1]: x = 1089, y = 764, inputs = 49, label = Image
- // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_1"
- // input[4]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[19]: defaulting = 0, visible = 0, type = 3, value = 0
- // depth: value = 24
- // internal caching: 1
- //
-main_Image_1_out_1,
-main_Image_1_out_2,
-main_Image_1_out_3 =
- Image(
- main_Image_1_in_1,
- main_Collect_1_out_1,
- main_Image_1_in_3,
- main_Image_1_in_4,
- main_Image_1_in_5,
- main_Image_1_in_6,
- main_Image_1_in_7,
- main_Image_1_in_8,
- main_Image_1_in_9,
- main_Image_1_in_10,
- main_Image_1_in_11,
- main_Image_1_in_12,
- main_Image_1_in_13,
- main_Image_1_in_14,
- main_Image_1_in_15,
- main_Image_1_in_16,
- main_Image_1_in_17,
- main_Image_1_in_18,
- main_Image_1_in_19,
- main_Image_1_in_20,
- main_Image_1_in_21,
- main_Image_1_in_22,
- main_Image_1_in_23,
- main_Image_1_in_24,
- main_Image_1_in_25,
- main_Image_1_in_26,
- main_Image_1_in_27,
- main_Image_1_in_28,
- main_Image_1_in_29,
- main_Image_1_in_30,
- main_Image_1_in_31,
- main_Image_1_in_32,
- main_Image_1_in_33,
- main_Image_1_in_34,
- main_Image_1_in_35,
- main_Image_1_in_36,
- main_Image_1_in_37,
- main_Image_1_in_38,
- main_Image_1_in_39,
- main_Image_1_in_40,
- main_Image_1_in_41,
- main_Image_1_in_42,
- main_Image_1_in_43,
- main_Image_1_in_44,
- main_Image_1_in_45,
- main_Image_1_in_46,
- main_Image_1_in_47,
- main_Image_1_in_48,
- main_Image_1_in_49
- ) [instance: 1, cache: 1];
-// network: end of macro body
-CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
-}
-main_String_1_out_1 = "FILENAME";
-main_Import_1_in_2 = NULL;
-main_Import_1_in_3 = NULL;
-main_Import_1_in_4 = NULL;
-main_Import_1_in_5 = NULL;
-main_Import_1_in_6 = NULL;
-main_Import_1_out_1 = NULL;
-main_Value_1_out_1 = 0;
-main_Inquire_1_in_2 = "member count";
-main_Inquire_1_in_3 = NULL;
-main_Inquire_1_out_1 = NULL;
-main_Value_2_out_1 = 1;
-main_Compute_1_in_1 = "$0 - $1";
-main_Compute_1_out_1 = NULL;
-main_Sequencer_1_in_1 = "Sequencer_1";
-main_Sequencer_1_in_2 = NULL;
-main_Sequencer_1_in_3 = NULL;
-main_Sequencer_1_in_6 = NULL;
-main_Sequencer_1_in_7 = { 0 95 1 0 95 1 };
-main_Sequencer_1_out_1 = NULL;
-
-@startframe = 0;
-@nextframe = @startframe;
-@endframe = 95;
-@deltaframe = 1;
-main_Select_1_in_3 = NULL;
-main_Select_1_out_1 = NULL;
-main_RubberSheet_3_in_2 = NULL;
-main_RubberSheet_3_in_3 = NULL;
-main_RubberSheet_3_in_4 = NULL;
-main_RubberSheet_3_out_1 = NULL;
-main_Statistics_4_out_4 = NULL;
-main_Statistics_4_out_5 = NULL;
-main_AutoColor_1_in_2 = NULL;
-main_AutoColor_1_in_3 = NULL;
-main_AutoColor_1_in_4 = NULL;
-main_AutoColor_1_in_5 = NULL;
-main_AutoColor_1_in_6 = NULL;
-main_AutoColor_1_in_9 = NULL;
-main_AutoColor_1_in_10 = NULL;
-main_AutoColor_1_out_1 = NULL;
-main_AutoColor_1_out_2 = NULL;
-main_Shade_2_in_2 = NULL;
-main_Shade_2_in_3 = "smooth";
-main_Shade_2_in_4 = NULL;
-main_Shade_2_in_5 = NULL;
-main_Shade_2_in_6 = NULL;
-main_Shade_2_in_7 = NULL;
-main_Shade_2_in_8 = NULL;
-main_Shade_2_out_1 = NULL;
-main_ColorBar_1_in_2 = NULL;
-main_ColorBar_1_in_3 = NULL;
-main_ColorBar_1_in_4 = 1;
-main_ColorBar_1_in_5 = NULL;
-main_ColorBar_1_in_6 = NULL;
-main_ColorBar_1_in_7 = NULL;
-main_ColorBar_1_in_8 = NULL;
-main_ColorBar_1_in_9 = NULL;
-main_ColorBar_1_in_10 = NULL;
-main_ColorBar_1_in_11 = NULL;
-main_ColorBar_1_in_12 = NULL;
-main_ColorBar_1_in_13 = NULL;
-main_ColorBar_1_in_14 = NULL;
-main_ColorBar_1_in_15 = NULL;
-main_ColorBar_1_in_16 = NULL;
-main_ColorBar_1_out_1 = NULL;
-main_ShowConnections_1_out_1 = NULL;
-main_String_2_out_1 = "COLORNAME";
-main_Color_1_in_3 = .3;
-main_Color_1_in_4 = NULL;
-main_Color_1_in_5 = NULL;
-main_Color_1_out_1 = NULL;
-main_Collect_1_out_1 = NULL;
-macro Image(
- id,
- object,
- where,
- useVector,
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- viewAngle,
- perspective,
- options,
- buttonState = 1,
- buttonUpApprox = "none",
- buttonDownApprox = "none",
- buttonUpDensity = 1,
- buttonDownDensity = 1,
- renderMode = 0,
- defaultCamera,
- reset,
- backgroundColor,
- throttle,
- RECenable = 0,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable = 0,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- interactionMode,
- title,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- webOptions) -> (
- object,
- camera,
- where)
-{
- ImageMessage(
- id,
- backgroundColor,
- throttle,
- RECenable,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- interactionMode,
- title,
- renderMode,
- buttonUpApprox,
- buttonDownApprox,
- buttonUpDensity,
- buttonDownDensity) [instance: 1, cache: 1];
- autoCamera =
- AutoCamera(
- object,
- "front",
- object,
- resolution,
- aspect,
- [0,1,0],
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- realCamera =
- Camera(
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- coloredDefaultCamera =
- UpdateCamera(defaultCamera,
- background=backgroundColor) [instance: 1, cache: 1];
- nullDefaultCamera =
- Inquire(defaultCamera,
- "is null + 1") [instance: 1, cache: 1];
- resetCamera =
- Switch(
- nullDefaultCamera,
- coloredDefaultCamera,
- autoCamera) [instance: 1, cache: 1];
- resetNull =
- Inquire(
- reset,
- "is null + 1") [instance: 2, cache: 1];
- reset =
- Switch(
- resetNull,
- reset,
- 0) [instance: 2, cache: 1];
- whichCamera =
- Compute(
- "($0 != 0 || $1 == 0) ? 1 : 2",
- reset,
- useVector) [instance: 1, cache: 1];
- camera = Switch(
- whichCamera,
- resetCamera,
- realCamera) [instance: 3, cache: 1];
- AAobject =
- AutoAxes(
- object,
- camera,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels) [instance: 1, cache: 1];
- switchAAenable = Compute("$0+1",
- AAenable) [instance: 2, cache: 1];
- object = Switch(
- switchAAenable,
- object,
- AAobject) [instance:4, cache: 1];
- SWapproximation_options =
- Switch(
- buttonState,
- buttonUpApprox,
- buttonDownApprox) [instance: 5, cache: 1];
- SWdensity_options =
- Switch(
- buttonState,
- buttonUpDensity,
- buttonDownDensity) [instance: 6, cache: 1];
- HWapproximation_options =
- Format(
- "%s,%s",
- buttonDownApprox,
- buttonUpApprox) [instance: 1, cache: 1];
- HWdensity_options =
- Format(
- "%d,%d",
- buttonDownDensity,
- buttonUpDensity) [instance: 2, cache: 1];
- switchRenderMode = Compute(
- "$0+1",
- renderMode) [instance: 3, cache: 1];
- approximation_options = Switch(
- switchRenderMode,
- SWapproximation_options,
- HWapproximation_options) [instance: 7, cache: 1];
- density_options = Switch(
- switchRenderMode,
- SWdensity_options,
- HWdensity_options) [instance: 8, cache: 1];
- renderModeString = Switch(
- switchRenderMode,
- "software",
- "hardware")[instance: 9, cache: 1];
- object_tag = Inquire(
- object,
- "object tag")[instance: 3, cache: 1];
- annoted_object =
- Options(
- object,
- "send boxes",
- 0,
- "cache",
- 1,
- "object tag",
- object_tag,
- "ddcamera",
- whichCamera,
- "rendering approximation",
- approximation_options,
- "render every",
- density_options,
- "button state",
- buttonState,
- "rendering mode",
- renderModeString) [instance: 1, cache: 1];
- RECresNull =
- Inquire(
- RECresolution,
- "is null + 1") [instance: 4, cache: 1];
- ImageResolution =
- Inquire(
- camera,
- "camera resolution") [instance: 5, cache: 1];
- RECresolution =
- Switch(
- RECresNull,
- RECresolution,
- ImageResolution) [instance: 10, cache: 1];
- RECaspectNull =
- Inquire(
- RECaspect,
- "is null + 1") [instance: 6, cache: 1];
- ImageAspect =
- Inquire(
- camera,
- "camera aspect") [instance: 7, cache: 1];
- RECaspect =
- Switch(
- RECaspectNull,
- RECaspect,
- ImageAspect) [instance: 11, cache: 1];
- switchRECenable = Compute(
- "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
- RECenable,
- switchRenderMode,
- RECresolution,
- ImageResolution,
- RECaspect,
- ImageAspect) [instance: 4, cache: 1];
- NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
- Display(
- NoRECobject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- image =
- Render(
- RECNoRerenderObject,
- camera) [instance: 1, cache: 1];
- Display(
- image,
- NULL,
- where,
- throttle) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- rec_where = Display(
- RECNoRerHW,
- camera,
- where,
- throttle) [instance: 1, cache: 0];
- rec_image = ReadImageWindow(
- rec_where) [instance: 1, cache: 1];
- WriteImage(
- rec_image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- RECupdateCamera =
- UpdateCamera(
- camera,
- resolution=RECresolution,
- aspect=RECaspect) [instance: 2, cache: 1];
- Display(
- RECRerenderObject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- RECRerenderObject =
- ScaleScreen(
- RECRerenderObject,
- NULL,
- RECresolution,
- camera) [instance: 1, cache: 1];
- image =
- Render(
- RECRerenderObject,
- RECupdateCamera) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 2, cache: 1];
-}
-main_Image_1_in_1 = "Image_1";
-main_Image_1_in_3 = "X24,,";
-main_Image_1_in_4 = 0;
-main_Image_1_in_5 = NULL;
-main_Image_1_in_6 = NULL;
-main_Image_1_in_7 = NULL;
-main_Image_1_in_8 = NULL;
-main_Image_1_in_9 = NULL;
-main_Image_1_in_10 = NULL;
-main_Image_1_in_11 = NULL;
-main_Image_1_in_12 = NULL;
-main_Image_1_in_13 = NULL;
-main_Image_1_in_14 = 1;
-main_Image_1_in_15 = NULL;
-main_Image_1_in_16 = NULL;
-main_Image_1_in_17 = NULL;
-main_Image_1_in_18 = NULL;
-main_Image_1_in_19 = 0;
-main_Image_1_in_20 = NULL;
-main_Image_1_in_21 = NULL;
-main_Image_1_in_22 = NULL;
-main_Image_1_in_23 = NULL;
-main_Image_1_in_25 = NULL;
-main_Image_1_in_26 = NULL;
-main_Image_1_in_27 = NULL;
-main_Image_1_in_28 = NULL;
-main_Image_1_in_29 = NULL;
-main_Image_1_in_30 = NULL;
-main_Image_1_in_31 = NULL;
-main_Image_1_in_32 = NULL;
-main_Image_1_in_33 = NULL;
-main_Image_1_in_34 = NULL;
-main_Image_1_in_35 = NULL;
-main_Image_1_in_36 = NULL;
-main_Image_1_in_37 = NULL;
-main_Image_1_in_38 = NULL;
-main_Image_1_in_39 = NULL;
-main_Image_1_in_40 = NULL;
-main_Image_1_in_41 = NULL;
-main_Image_1_in_42 = NULL;
-main_Image_1_in_43 = NULL;
-main_Image_1_in_44 = NULL;
-main_Image_1_in_45 = NULL;
-main_Image_1_in_46 = NULL;
-main_Image_1_in_47 = NULL;
-main_Image_1_in_48 = NULL;
-main_Image_1_in_49 = NULL;
-Executive("product version 4 4 4");
-$sync
-
-sequence main();
-play;
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2trsptcsurf.m
--- a/extra/fpl/inst/deprecated/FPL2trsptcsurf.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,90 +0,0 @@
-## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} FPL2trsptcsurf (@var{mesh1}, @
-## @var{color1}, @var{data1}, [@var{mesh2}, @var{color2}, @var{data2}])
-##
-## Plots the transient scalar fields @var{data} defined on the triangulation
-## @var{mesh} using opendx. Connections are rendered as defined by
-## @var{color}
-##
-## Example:
-## @example
-##
-## FPL2trspdesurf(mesh1,"blue",data1, mesh2,"red",data2)
-##
-## @end example
-## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2trspdesurf}
-## @end deftypefn
-
-function FPL2trsptcsurf(varargin)
-
- datalist = "";
- colorlist = "";
-
- for ii = 1:3:nargin
- seriesend = columns(varargin{ii+2});
- dataname = mktemp("/tmp",".dx");
- colorname = varargin{ii+1};
- FPL2dxoutputtimeseries(dataname, varargin{ii}.p, varargin{ii}.t, ...
- varargin{ii+2}, "dataseries", 0, 1, ...
- 1:seriesend);
- datalist = strcat(datalist, """", dataname ,"""");
- colorlist = strcat(colorlist, """", colorname, """");
- endfor
-
- scriptname = mktemp("/tmp",".net");
-
- view = file_in_path(path,"FPL2trsptcsurf.net");
-
- system (["cp " view " " scriptname]);
- system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]);
- system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]);
-
- command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "];
- system(command);
-endfunction
-
-function filename = mktemp (direct,ext);
-
- if (~exist(direct,"dir"))
- error("Trying to save temporary file to non existing directory")
- endif
-
- done = false;
-
- while ~done
- filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext];
- if ~exist(filename,"file")
- done = true;
- endif
- endwhile
-
-endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2trsptcsurf.net
--- a/extra/fpl/inst/deprecated/FPL2trsptcsurf.net Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,923 +0,0 @@
-//
-// time: Sun Jan 6 17:08:01 2008
-//
-// version: 3.2.0 (format), 4.4.4 (DX)
-//
-//
-// MODULE main
-// workspace: width = 1098, height = 1006
-// layout: snap = 1, width = 10, height = 10, align = CC
-//
-macro main(
-) -> (
-) {
- //
- // node CollectMultiGrid[1]: x = 425, y = 404, inputs = 4, label = CollectMultiGrid
- // input[1]: defaulting = 0, visible = 1, type = 67108863, value = NULL
- // input[3]: defaulting = 0, visible = 1, type = 67108863, value = NULL
- //
-main_CollectMultiGrid_1_out_1 =
- CollectMultiGrid(
- main_CollectMultiGrid_1_in_1,
- main_CollectMultiGrid_1_in_2,
- main_CollectMultiGrid_1_in_3,
- main_CollectMultiGrid_1_in_4
- ) [instance: 1, cache: 1];
- //
- // node StringList[1]: x = 178, y = 24, inputs = 0, label = StringList
- // output[1]: visible = 1, type = 16777248, value = { "FILELIST" }
- //
- //
- // node ForEachMember[1]: x = 155, y = 124, inputs = 1, label = ForEachMember
- //
-main_ForEachMember_1_out_1,
-main_ForEachMember_1_out_2,
-main_ForEachMember_1_out_3 =
- ForEachMember(
- main_StringList_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Import[1]: x = 159, y = 224, inputs = 6, label = Import
- //
-main_Import_1_out_1 =
- Import(
- main_ForEachMember_1_out_1,
- main_Import_1_in_2,
- main_Import_1_in_3,
- main_Import_1_in_4,
- main_Import_1_in_5,
- main_Import_1_in_6
- ) [instance: 1, cache: 1];
- //
- // node Value[1]: x = 993, y = 294, inputs = 0, label = Value
- // output[1]: visible = 1, type = 29, value = 0
- //
- //
- // node Inquire[1]: x = 879, y = 294, inputs = 3, label = Inquire
- // input[2]: defaulting = 0, visible = 1, type = 32, value = "member count"
- //
-main_Inquire_1_out_1 =
- Inquire(
- main_Import_1_out_1,
- main_Inquire_1_in_2,
- main_Inquire_1_in_3
- ) [instance: 1, cache: 1];
- //
- // node Value[2]: x = 1053, y = 74, inputs = 0, label = Value
- // output[1]: visible = 1, type = 29, value = 1
- //
- //
- // node Compute[1]: x = 1021, y = 164, inputs = 3, label = Compute
- // input[1]: defaulting = 0, visible = 0, type = 32, value = "$0 - $1"
- // expression: value = a - b
- // name[2]: value = a
- // name[3]: value = b
- //
-main_Compute_1_out_1 =
- Compute(
- main_Compute_1_in_1,
- main_Inquire_1_out_1,
- main_Value_2_out_1
- ) [instance: 1, cache: 1];
- //
- // node Sequencer[1]: x = 995, y = 394, inputs = 7, label = Sequencer
- // input[1]: defaulting = 0, visible = 0, type = 32, value = "Sequencer_1"
- // input[4]: defaulting = 1, visible = 1, type = 1, value = 0
- // input[5]: defaulting = 1, visible = 1, type = 1, value = 95
- // input[6]: defaulting = 1, visible = 0, type = 1, value = 1
- // input[7]: defaulting = 0, visible = 0, type = 16777217, value = { 0 95 1 0 95 1 }
- // vcr[1]: min = 0, max = 95, beg = 0, end = 95, cur = 38, inc = 1, loop = off, step = off, pal = off
- // window: position = (0.0132,0.0833), size = 0.1750x0.0667
- //
- main_Sequencer_1_in_3 = @frame;
-main_Sequencer_1_out_1[cache: 2] =
- Sequencer(
- main_Sequencer_1_in_1,
- main_Sequencer_1_in_2,
- main_Sequencer_1_in_3,
- main_Value_1_out_1,
- main_Compute_1_out_1,
- main_Sequencer_1_in_6,
- main_Sequencer_1_in_7
- ) [instance: 1, cache: 1];
- //
- // node Select[1]: x = 851, y = 394, inputs = 3, label = Select
- //
-main_Select_1_out_1 =
- Select(
- main_Import_1_out_1,
- main_Sequencer_1_out_1,
- main_Select_1_in_3
- ) [instance: 1, cache: 1];
- //
- // node ShowConnections[1]: x = 449, y = 324, inputs = 1, label = ShowConnections
- //
-main_ShowConnections_1_out_1 =
- ShowConnections(
- main_Select_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node StringList[2]: x = 628, y = 224, inputs = 0, label = StringList
- // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" }
- //
- //
- // node ForEachMember[2]: x = 605, y = 324, inputs = 1, label = ForEachMember
- //
-main_ForEachMember_2_out_1,
-main_ForEachMember_2_out_2,
-main_ForEachMember_2_out_3 =
- ForEachMember(
- main_StringList_2_out_1
- ) [instance: 2, cache: 1];
- //
- // node Color[1]: x = 589, y = 404, inputs = 5, label = Color
- // input[3]: defaulting = 0, visible = 1, type = 5, value = .3
- //
-main_Color_1_out_1 =
- Color(
- main_ShowConnections_1_out_1,
- main_ForEachMember_2_out_1,
- main_Color_1_in_3,
- main_Color_1_in_4,
- main_Color_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node GetLocal[3]: x = 732, y = 394, inputs = 3, label = GetLocal
- //
-main_GetLocal_3_out_1,
-main_GetLocal_3_out_2 =
- GetLocal(
- main_GetLocal_3_in_1,
- main_GetLocal_3_in_2,
- main_GetLocal_3_in_3
- ) [instance: 3, cache: 1];
- //
- // node Append[1]: x = 555, y = 484, inputs = 5, label = Append
- //
-main_Append_1_out_1 =
- Append(
- main_CollectMultiGrid_1_out_1,
- main_Color_1_out_1,
- main_Append_1_in_3,
- main_GetLocal_3_out_1,
- main_Append_1_in_5
- ) [instance: 1, cache: 1];
- //
- // node GetLocal[4]: x = 1012, y = 484, inputs = 3, label = GetLocal
- //
-main_GetLocal_4_out_1,
-main_GetLocal_4_out_2 =
- GetLocal(
- main_GetLocal_4_in_1,
- main_GetLocal_4_in_2,
- main_GetLocal_4_in_3
- ) [instance: 4, cache: 1];
- //
- // node Append[2]: x = 835, y = 484, inputs = 5, label = Append
- //
-main_Append_2_out_1 =
- Append(
- main_CollectMultiGrid_1_out_1,
- main_Select_1_out_1,
- main_Append_2_in_3,
- main_GetLocal_4_out_1,
- main_Append_2_in_5
- ) [instance: 2, cache: 1];
- //
- // node RubberSheet[2]: x = 786, y = 644, inputs = 4, label = RubberSheet
- // input[2]: defaulting = 1, visible = 1, type = 5, value = .1
- //
-main_RubberSheet_2_out_1 =
- RubberSheet(
- main_Append_2_out_1,
- main_RubberSheet_2_in_2,
- main_RubberSheet_2_in_3,
- main_RubberSheet_2_in_4
- ) [instance: 2, cache: 1];
- //
- // node Shade[1]: x = 899, y = 684, inputs = 8, label = Shade
- // input[2]: defaulting = 0, visible = 1, type = 3, value = 1
- // input[3]: defaulting = 0, visible = 1, type = 32, value = "smooth"
- //
-main_Shade_1_out_1 =
- Shade(
- main_RubberSheet_2_out_1,
- main_Shade_1_in_2,
- main_Shade_1_in_3,
- main_Shade_1_in_4,
- main_Shade_1_in_5,
- main_Shade_1_in_6,
- main_Shade_1_in_7,
- main_Shade_1_in_8
- ) [instance: 1, cache: 1];
- //
- // node Statistics[1]: x = 135, y = 324, inputs = 1, label = Statistics
- //
-main_Statistics_1_out_1,
-main_Statistics_1_out_2,
-main_Statistics_1_out_3,
-main_Statistics_1_out_4,
-main_Statistics_1_out_5 =
- Statistics(
- main_Import_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node GetLocal[2]: x = 12, y = 324, inputs = 3, label = GetLocal
- //
-main_GetLocal_2_out_1,
-main_GetLocal_2_out_2 =
- GetLocal(
- main_GetLocal_2_in_1,
- main_GetLocal_2_in_2,
- main_GetLocal_2_in_3
- ) [instance: 2, cache: 1];
- //
- // node List[2]: x = 111, y = 464, inputs = 2, label = List
- //
-main_List_2_out_1 =
- List(
- main_Statistics_1_out_4,
- main_GetLocal_2_out_1
- ) [instance: 2, cache: 1];
- //
- // node Statistics[3]: x = 75, y = 594, inputs = 1, label = Statistics
- //
-main_Statistics_3_out_1,
-main_Statistics_3_out_2,
-main_Statistics_3_out_3,
-main_Statistics_3_out_4,
-main_Statistics_3_out_5 =
- Statistics(
- main_List_2_out_1
- ) [instance: 3, cache: 1];
- //
- // node GetLocal[1]: x = 302, y = 324, inputs = 3, label = GetLocal
- //
-main_GetLocal_1_out_1,
-main_GetLocal_1_out_2 =
- GetLocal(
- main_GetLocal_1_in_1,
- main_GetLocal_1_in_2,
- main_GetLocal_1_in_3
- ) [instance: 1, cache: 1];
- //
- // node List[1]: x = 231, y = 464, inputs = 2, label = List
- //
-main_List_1_out_1 =
- List(
- main_Statistics_1_out_5,
- main_GetLocal_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Statistics[2]: x = 235, y = 594, inputs = 1, label = Statistics
- //
-main_Statistics_2_out_1,
-main_Statistics_2_out_2,
-main_Statistics_2_out_3,
-main_Statistics_2_out_4,
-main_Statistics_2_out_5 =
- Statistics(
- main_List_1_out_1
- ) [instance: 2, cache: 1];
- //
- // node AutoColor[1]: x = 896, y = 804, inputs = 10, label = AutoColor
- // input[2]: defaulting = 0, visible = 0, type = 5, value = 1.0
- // input[8]: visible = 1
- //
-main_AutoColor_1_out_1,
-main_AutoColor_1_out_2 =
- AutoColor(
- main_Shade_1_out_1,
- main_AutoColor_1_in_2,
- main_AutoColor_1_in_3,
- main_AutoColor_1_in_4,
- main_AutoColor_1_in_5,
- main_AutoColor_1_in_6,
- main_Statistics_3_out_4,
- main_Statistics_2_out_5,
- main_AutoColor_1_in_9,
- main_AutoColor_1_in_10
- ) [instance: 1, cache: 1];
- //
- // node RubberSheet[4]: x = 606, y = 734, inputs = 4, label = RubberSheet
- // input[2]: defaulting = 1, visible = 1, type = 5, value = .1
- //
-main_RubberSheet_4_out_1 =
- RubberSheet(
- main_Append_1_out_1,
- main_RubberSheet_4_in_2,
- main_RubberSheet_4_in_3,
- main_RubberSheet_4_in_4
- ) [instance: 4, cache: 1];
- //
- // node ColorBar[1]: x = 835, y = 934, inputs = 16, label = ColorBar
- // input[4]: defaulting = 0, visible = 1, type = 3, value = 1
- //
-main_ColorBar_1_out_1 =
- ColorBar(
- main_AutoColor_1_out_2,
- main_ColorBar_1_in_2,
- main_ColorBar_1_in_3,
- main_ColorBar_1_in_4,
- main_ColorBar_1_in_5,
- main_ColorBar_1_in_6,
- main_ColorBar_1_in_7,
- main_ColorBar_1_in_8,
- main_ColorBar_1_in_9,
- main_ColorBar_1_in_10,
- main_ColorBar_1_in_11,
- main_ColorBar_1_in_12,
- main_ColorBar_1_in_13,
- main_ColorBar_1_in_14,
- main_ColorBar_1_in_15,
- main_ColorBar_1_in_16
- ) [instance: 1, cache: 1];
- //
- // node Collect[1]: x = 619, y = 844, inputs = 3, label = Collect
- //
-main_Collect_1_out_1 =
- Collect(
- main_RubberSheet_4_out_1,
- main_AutoColor_1_out_1,
- main_ColorBar_1_out_1
- ) [instance: 1, cache: 1];
- //
- // node Image[1]: x = 609, y = 944, inputs = 49, label = Image
- // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1"
- // input[4]: defaulting = 0, visible = 0, type = 1, value = 0
- // input[14]: defaulting = 0, visible = 0, type = 1, value = 1
- // input[19]: defaulting = 0, visible = 0, type = 3, value = 0
- // depth: value = 24
- // internal caching: 1
- //
-main_Image_1_out_1,
-main_Image_1_out_2,
-main_Image_1_out_3 =
- Image(
- main_Image_1_in_1,
- main_Collect_1_out_1,
- main_Image_1_in_3,
- main_Image_1_in_4,
- main_Image_1_in_5,
- main_Image_1_in_6,
- main_Image_1_in_7,
- main_Image_1_in_8,
- main_Image_1_in_9,
- main_Image_1_in_10,
- main_Image_1_in_11,
- main_Image_1_in_12,
- main_Image_1_in_13,
- main_Image_1_in_14,
- main_Image_1_in_15,
- main_Image_1_in_16,
- main_Image_1_in_17,
- main_Image_1_in_18,
- main_Image_1_in_19,
- main_Image_1_in_20,
- main_Image_1_in_21,
- main_Image_1_in_22,
- main_Image_1_in_23,
- main_Image_1_in_24,
- main_Image_1_in_25,
- main_Image_1_in_26,
- main_Image_1_in_27,
- main_Image_1_in_28,
- main_Image_1_in_29,
- main_Image_1_in_30,
- main_Image_1_in_31,
- main_Image_1_in_32,
- main_Image_1_in_33,
- main_Image_1_in_34,
- main_Image_1_in_35,
- main_Image_1_in_36,
- main_Image_1_in_37,
- main_Image_1_in_38,
- main_Image_1_in_39,
- main_Image_1_in_40,
- main_Image_1_in_41,
- main_Image_1_in_42,
- main_Image_1_in_43,
- main_Image_1_in_44,
- main_Image_1_in_45,
- main_Image_1_in_46,
- main_Image_1_in_47,
- main_Image_1_in_48,
- main_Image_1_in_49
- ) [instance: 1, cache: 1];
- //
- // node SetLocal[1]: x = 332, y = 464, inputs = 3, label = SetLocal
- //
- SetLocal(
- main_List_1_out_1,
- main_GetLocal_1_out_2,
- main_SetLocal_1_in_3
- ) [instance: 1, cache: 1];
- //
- // node SetLocal[2]: x = 12, y = 464, inputs = 3, label = SetLocal
- //
- SetLocal(
- main_List_2_out_1,
- main_GetLocal_2_out_2,
- main_SetLocal_2_in_3
- ) [instance: 2, cache: 1];
- //
- // node SetLocal[3]: x = 732, y = 484, inputs = 3, label = SetLocal
- //
- SetLocal(
- main_Append_1_out_1,
- main_GetLocal_3_out_2,
- main_SetLocal_3_in_3
- ) [instance: 3, cache: 1];
- //
- // node SetLocal[4]: x = 1012, y = 564, inputs = 3, label = SetLocal
- //
- SetLocal(
- main_Append_2_out_1,
- main_GetLocal_4_out_2,
- main_SetLocal_4_in_3
- ) [instance: 4, cache: 1];
-// network: end of macro body
-CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2);
-}
-main_CollectMultiGrid_1_in_1 = NULL;
-main_CollectMultiGrid_1_in_2 = NULL;
-main_CollectMultiGrid_1_in_3 = NULL;
-main_CollectMultiGrid_1_in_4 = NULL;
-main_CollectMultiGrid_1_out_1 = NULL;
-main_StringList_1_out_1 = { "FILELIST" };
-main_ForEachMember_1_out_1 = NULL;
-main_Import_1_in_2 = NULL;
-main_Import_1_in_3 = NULL;
-main_Import_1_in_4 = NULL;
-main_Import_1_in_5 = NULL;
-main_Import_1_in_6 = NULL;
-main_Import_1_out_1 = NULL;
-main_Value_1_out_1 = 0;
-main_Inquire_1_in_2 = "member count";
-main_Inquire_1_in_3 = NULL;
-main_Inquire_1_out_1 = NULL;
-main_Value_2_out_1 = 1;
-main_Compute_1_in_1 = "$0 - $1";
-main_Compute_1_out_1 = NULL;
-main_Sequencer_1_in_1 = "Sequencer_1";
-main_Sequencer_1_in_2 = NULL;
-main_Sequencer_1_in_3 = NULL;
-main_Sequencer_1_in_6 = NULL;
-main_Sequencer_1_in_7 = { 0 95 1 0 95 1 };
-main_Sequencer_1_out_1 = NULL;
-
-@startframe = 0;
-@nextframe = @startframe;
-@endframe = 95;
-@deltaframe = 1;
-main_Select_1_in_3 = NULL;
-main_Select_1_out_1 = NULL;
-main_ShowConnections_1_out_1 = NULL;
-main_StringList_2_out_1 = { "COLORLIST" };
-main_ForEachMember_2_out_1 = NULL;
-main_Color_1_in_3 = .3;
-main_Color_1_in_4 = NULL;
-main_Color_1_in_5 = NULL;
-main_Color_1_out_1 = NULL;
-main_GetLocal_3_in_1 = NULL;
-main_GetLocal_3_in_2 = NULL;
-main_GetLocal_3_in_3 = NULL;
-main_GetLocal_3_out_1 = NULL;
-main_GetLocal_3_out_2 = NULL;
-main_Append_1_in_3 = NULL;
-main_Append_1_in_5 = NULL;
-main_Append_1_out_1 = NULL;
-main_GetLocal_4_in_1 = NULL;
-main_GetLocal_4_in_2 = NULL;
-main_GetLocal_4_in_3 = NULL;
-main_GetLocal_4_out_1 = NULL;
-main_GetLocal_4_out_2 = NULL;
-main_Append_2_in_3 = NULL;
-main_Append_2_in_5 = NULL;
-main_Append_2_out_1 = NULL;
-main_RubberSheet_2_in_2 = NULL;
-main_RubberSheet_2_in_3 = NULL;
-main_RubberSheet_2_in_4 = NULL;
-main_RubberSheet_2_out_1 = NULL;
-main_Shade_1_in_2 = 1;
-main_Shade_1_in_3 = "smooth";
-main_Shade_1_in_4 = NULL;
-main_Shade_1_in_5 = NULL;
-main_Shade_1_in_6 = NULL;
-main_Shade_1_in_7 = NULL;
-main_Shade_1_in_8 = NULL;
-main_Shade_1_out_1 = NULL;
-main_Statistics_1_out_4 = NULL;
-main_Statistics_1_out_5 = NULL;
-main_GetLocal_2_in_1 = NULL;
-main_GetLocal_2_in_2 = NULL;
-main_GetLocal_2_in_3 = NULL;
-main_GetLocal_2_out_1 = NULL;
-main_GetLocal_2_out_2 = NULL;
-main_List_2_out_1 = NULL;
-main_Statistics_3_out_4 = NULL;
-main_GetLocal_1_in_1 = NULL;
-main_GetLocal_1_in_2 = NULL;
-main_GetLocal_1_in_3 = NULL;
-main_GetLocal_1_out_1 = NULL;
-main_GetLocal_1_out_2 = NULL;
-main_List_1_out_1 = NULL;
-main_Statistics_2_out_5 = NULL;
-main_AutoColor_1_in_2 = 1.0;
-main_AutoColor_1_in_3 = NULL;
-main_AutoColor_1_in_4 = NULL;
-main_AutoColor_1_in_5 = NULL;
-main_AutoColor_1_in_6 = NULL;
-main_AutoColor_1_in_9 = NULL;
-main_AutoColor_1_in_10 = NULL;
-main_AutoColor_1_out_1 = NULL;
-main_AutoColor_1_out_2 = NULL;
-main_RubberSheet_4_in_2 = NULL;
-main_RubberSheet_4_in_3 = NULL;
-main_RubberSheet_4_in_4 = NULL;
-main_RubberSheet_4_out_1 = NULL;
-main_ColorBar_1_in_2 = NULL;
-main_ColorBar_1_in_3 = NULL;
-main_ColorBar_1_in_4 = 1;
-main_ColorBar_1_in_5 = NULL;
-main_ColorBar_1_in_6 = NULL;
-main_ColorBar_1_in_7 = NULL;
-main_ColorBar_1_in_8 = NULL;
-main_ColorBar_1_in_9 = NULL;
-main_ColorBar_1_in_10 = NULL;
-main_ColorBar_1_in_11 = NULL;
-main_ColorBar_1_in_12 = NULL;
-main_ColorBar_1_in_13 = NULL;
-main_ColorBar_1_in_14 = NULL;
-main_ColorBar_1_in_15 = NULL;
-main_ColorBar_1_in_16 = NULL;
-main_ColorBar_1_out_1 = NULL;
-main_Collect_1_out_1 = NULL;
-macro Image(
- id,
- object,
- where,
- useVector,
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- viewAngle,
- perspective,
- options,
- buttonState = 1,
- buttonUpApprox = "none",
- buttonDownApprox = "none",
- buttonUpDensity = 1,
- buttonDownDensity = 1,
- renderMode = 0,
- defaultCamera,
- reset,
- backgroundColor,
- throttle,
- RECenable = 0,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable = 0,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- interactionMode,
- title,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- webOptions) -> (
- object,
- camera,
- where)
-{
- ImageMessage(
- id,
- backgroundColor,
- throttle,
- RECenable,
- RECfile,
- RECformat,
- RECresolution,
- RECaspect,
- AAenable,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels,
- interactionMode,
- title,
- renderMode,
- buttonUpApprox,
- buttonDownApprox,
- buttonUpDensity,
- buttonDownDensity) [instance: 1, cache: 1];
- autoCamera =
- AutoCamera(
- object,
- "front",
- object,
- resolution,
- aspect,
- [0,1,0],
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- realCamera =
- Camera(
- to,
- from,
- width,
- resolution,
- aspect,
- up,
- perspective,
- viewAngle,
- backgroundColor) [instance: 1, cache: 1];
- coloredDefaultCamera =
- UpdateCamera(defaultCamera,
- background=backgroundColor) [instance: 1, cache: 1];
- nullDefaultCamera =
- Inquire(defaultCamera,
- "is null + 1") [instance: 1, cache: 1];
- resetCamera =
- Switch(
- nullDefaultCamera,
- coloredDefaultCamera,
- autoCamera) [instance: 1, cache: 1];
- resetNull =
- Inquire(
- reset,
- "is null + 1") [instance: 2, cache: 1];
- reset =
- Switch(
- resetNull,
- reset,
- 0) [instance: 2, cache: 1];
- whichCamera =
- Compute(
- "($0 != 0 || $1 == 0) ? 1 : 2",
- reset,
- useVector) [instance: 1, cache: 1];
- camera = Switch(
- whichCamera,
- resetCamera,
- realCamera) [instance: 3, cache: 1];
- AAobject =
- AutoAxes(
- object,
- camera,
- AAlabels,
- AAticks,
- AAcorners,
- AAframe,
- AAadjust,
- AAcursor,
- AAgrid,
- AAcolors,
- AAannotation,
- AAlabelscale,
- AAfont,
- AAxTickLocs,
- AAyTickLocs,
- AAzTickLocs,
- AAxTickLabels,
- AAyTickLabels,
- AAzTickLabels) [instance: 1, cache: 1];
- switchAAenable = Compute("$0+1",
- AAenable) [instance: 2, cache: 1];
- object = Switch(
- switchAAenable,
- object,
- AAobject) [instance:4, cache: 1];
- SWapproximation_options =
- Switch(
- buttonState,
- buttonUpApprox,
- buttonDownApprox) [instance: 5, cache: 1];
- SWdensity_options =
- Switch(
- buttonState,
- buttonUpDensity,
- buttonDownDensity) [instance: 6, cache: 1];
- HWapproximation_options =
- Format(
- "%s,%s",
- buttonDownApprox,
- buttonUpApprox) [instance: 1, cache: 1];
- HWdensity_options =
- Format(
- "%d,%d",
- buttonDownDensity,
- buttonUpDensity) [instance: 2, cache: 1];
- switchRenderMode = Compute(
- "$0+1",
- renderMode) [instance: 3, cache: 1];
- approximation_options = Switch(
- switchRenderMode,
- SWapproximation_options,
- HWapproximation_options) [instance: 7, cache: 1];
- density_options = Switch(
- switchRenderMode,
- SWdensity_options,
- HWdensity_options) [instance: 8, cache: 1];
- renderModeString = Switch(
- switchRenderMode,
- "software",
- "hardware")[instance: 9, cache: 1];
- object_tag = Inquire(
- object,
- "object tag")[instance: 3, cache: 1];
- annoted_object =
- Options(
- object,
- "send boxes",
- 0,
- "cache",
- 1,
- "object tag",
- object_tag,
- "ddcamera",
- whichCamera,
- "rendering approximation",
- approximation_options,
- "render every",
- density_options,
- "button state",
- buttonState,
- "rendering mode",
- renderModeString) [instance: 1, cache: 1];
- RECresNull =
- Inquire(
- RECresolution,
- "is null + 1") [instance: 4, cache: 1];
- ImageResolution =
- Inquire(
- camera,
- "camera resolution") [instance: 5, cache: 1];
- RECresolution =
- Switch(
- RECresNull,
- RECresolution,
- ImageResolution) [instance: 10, cache: 1];
- RECaspectNull =
- Inquire(
- RECaspect,
- "is null + 1") [instance: 6, cache: 1];
- ImageAspect =
- Inquire(
- camera,
- "camera aspect") [instance: 7, cache: 1];
- RECaspect =
- Switch(
- RECaspectNull,
- RECaspect,
- ImageAspect) [instance: 11, cache: 1];
- switchRECenable = Compute(
- "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4",
- RECenable,
- switchRenderMode,
- RECresolution,
- ImageResolution,
- RECaspect,
- ImageAspect) [instance: 4, cache: 1];
- NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object);
- Display(
- NoRECobject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- image =
- Render(
- RECNoRerenderObject,
- camera) [instance: 1, cache: 1];
- Display(
- image,
- NULL,
- where,
- throttle) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- rec_where = Display(
- RECNoRerHW,
- camera,
- where,
- throttle) [instance: 1, cache: 0];
- rec_image = ReadImageWindow(
- rec_where) [instance: 1, cache: 1];
- WriteImage(
- rec_image,
- RECfile,
- RECformat) [instance: 1, cache: 1];
- RECupdateCamera =
- UpdateCamera(
- camera,
- resolution=RECresolution,
- aspect=RECaspect) [instance: 2, cache: 1];
- Display(
- RECRerenderObject,
- camera,
- where,
- throttle) [instance: 1, cache: 1];
- RECRerenderObject =
- ScaleScreen(
- RECRerenderObject,
- NULL,
- RECresolution,
- camera) [instance: 1, cache: 1];
- image =
- Render(
- RECRerenderObject,
- RECupdateCamera) [instance: 2, cache: 1];
- WriteImage(
- image,
- RECfile,
- RECformat) [instance: 2, cache: 1];
-}
-main_Image_1_in_1 = "Image_1";
-main_Image_1_in_3 = "X24,,";
-main_Image_1_in_4 = 0;
-main_Image_1_in_5 = NULL;
-main_Image_1_in_6 = NULL;
-main_Image_1_in_7 = NULL;
-main_Image_1_in_8 = NULL;
-main_Image_1_in_9 = NULL;
-main_Image_1_in_10 = NULL;
-main_Image_1_in_11 = NULL;
-main_Image_1_in_12 = NULL;
-main_Image_1_in_13 = NULL;
-main_Image_1_in_14 = 1;
-main_Image_1_in_15 = NULL;
-main_Image_1_in_16 = NULL;
-main_Image_1_in_17 = NULL;
-main_Image_1_in_18 = NULL;
-main_Image_1_in_19 = 0;
-main_Image_1_in_20 = NULL;
-main_Image_1_in_21 = NULL;
-main_Image_1_in_22 = NULL;
-main_Image_1_in_23 = NULL;
-main_Image_1_in_25 = NULL;
-main_Image_1_in_26 = NULL;
-main_Image_1_in_27 = NULL;
-main_Image_1_in_28 = NULL;
-main_Image_1_in_29 = NULL;
-main_Image_1_in_30 = NULL;
-main_Image_1_in_31 = NULL;
-main_Image_1_in_32 = NULL;
-main_Image_1_in_33 = NULL;
-main_Image_1_in_34 = NULL;
-main_Image_1_in_35 = NULL;
-main_Image_1_in_36 = NULL;
-main_Image_1_in_37 = NULL;
-main_Image_1_in_38 = NULL;
-main_Image_1_in_39 = NULL;
-main_Image_1_in_40 = NULL;
-main_Image_1_in_41 = NULL;
-main_Image_1_in_42 = NULL;
-main_Image_1_in_43 = NULL;
-main_Image_1_in_44 = NULL;
-main_Image_1_in_45 = NULL;
-main_Image_1_in_46 = NULL;
-main_Image_1_in_47 = NULL;
-main_Image_1_in_48 = NULL;
-main_Image_1_in_49 = NULL;
-main_SetLocal_1_in_3 = NULL;
-main_SetLocal_2_in_3 = NULL;
-main_SetLocal_3_in_3 = NULL;
-main_SetLocal_4_in_3 = NULL;
-Executive("product version 4 4 4");
-$sync
-
-sequence main();
-play;
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2vtkoutputdata.m
--- a/extra/fpl/inst/deprecated/FPL2vtkoutputdata.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,144 +0,0 @@
-## Copyright (C) 2008 Carlo de Falco
-##
-## 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, write to the Free Software
-## Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} FPL2vtkoutputdata ( @var{filename}, @var{p}, @var{t}, @var{nodedata}, @var{celldata}, @var{header}, @var{vtkver})
-##
-## Save data in VTK ASCII format.
-##
-## @itemize @minus
-## @item @var{filename} = name of file to save into
-## @item @var{p}, @var{t} = mesh node coordinates and connectivity
-## @item @var{name} = name of a mesh variable
-## @item @var{nodedata}/@var{celldata} = node/cell centered data
-## fields (2xNfields cell array), @var{*data}@{:,1@} = variable names;
-## @var{*data}@{:,2@} = variable data;
-## @item @var{header} comment to add in the file header
-## @item @var{vtkver} format version (default is 3.0)
-## @end itemize
-##
-## @seealso{FPL2dxoutputdata}
-## @end deftypefn
-
-function FPL2vtkoutputdata (filename, p, t, nodedata, celldata, header, vtkver)
-
- fid = fopen (filename, "w");
- if ( fid )
-
- ## version ID
- if (!exist("vtkver"))
- vtkver = [3 0];
- endif
-
- fprintf (fid, "# vtk DataFile Version %d.%d\n", vtkver(1), vtkver(2));
-
- ## header
- if (!exist("header"))
- header = "";
- elseif (length(header) > 255)
- header (255:end) = [];
- endif
-
- fprintf (fid, "%s\n", header);
-
- ## File format: only ASCII supported for the moment
- fprintf (fid, "ASCII\n");
-
- ## Mesh: only triangles suported
- fprintf (fid, "DATASET UNSTRUCTURED_GRID\n");
-
- Nnodes = columns(p);
- fprintf (fid,"POINTS %d double\n", Nnodes);
- fprintf (fid,"%g %g 0\n", p);
-
- Nelem = columns(t);
- T = zeros(4,Nelem);
- T(1,:)= 3;
- T(2:4,:) = t(1:3,:) -1;
- fprintf (fid,"CELLS %d %d\n", Nelem, Nelem*4);
- fprintf (fid,"%d %d %d %d\n", T);
- fprintf (fid,"CELL_TYPES %d \n", Nelem);
- fprintf (fid,"%d\n", 5*ones(Nelem,1));
-
- ## node data
- if (exist("nodedata"))
- nfields = rows(nodedata);
- if nfields
- fprintf (fid,"POINT_DATA %d\n", Nnodes);
- for ifield = 1:nfields
- V = nodedata {ifield, 2};
- N = nodedata {ifield, 1};
- if (isvector (V))
- fprintf (fid,"SCALARS %s double\nLOOKUP_TABLE default\n", N);
- fprintf (fid,"%g\n", V);
- else
- V(:,3) = 0;
- fprintf (fid,"VECTORS %s double\nLOOKUP_TABLE default\n", N);
- fprintf (fid,"%g %g %g\n", V);
- endif
- endfor
- endif
- endif
-
- ## cell data
- if (exist("celldata"))
- nfields = rows(celldata);
- if nfields
- fprintf (fid,"CELL_DATA %d\n", Nelem);
- for ifield = 1:nfields
- V = celldata {ifield, 2};
- N = celldata {ifield, 1};
- if (isvector (V))
- fprintf (fid,"SCALARS %s double\nLOOKUP_TABLE default\n", N);
- fprintf (fid,"%g\n", V);
- else
- V(:,3) = 0;
- fprintf (fid,"VECTORS %s double\nLOOKUP_TABLE default\n", N);
- fprintf (fid,"%g %g %g\n", V);
- endif
- endfor
- endif
- endif
-
- ## cleanup
- fclose (fid);
- else
- error(["FPL2vtkoutputdata: could not open file " filename]);
- endif
-endfunction
-
-%!test
-%! msh.p =[ 0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3
-%! 0 1 2 3 0 1 2 3 0 1 2 3 0 1 2 3];
-%! msh.e =[1 5 9 13 14 15 4 8 12 1 2 3
-%! 5 9 13 14 15 16 8 12 16 2 3 4
-%! 0 0 0 0 0 0 0 0 0 0 0 0
-%! 0 0 0 0 0 0 0 0 0 0 0 0
-%! 1 1 1 2 2 2 3 3 3 4 4 4
-%! 0 0 0 0 0 0 0 0 0 0 0 0
-%! 1 1 1 1 1 1 1 1 1 1 1 1];
-%! msh.t =[ 1 2 3 5 6 7 9 10 11 1 2 3 5 6 7 9 10 11
-%! 5 6 7 9 10 11 13 14 15 6 7 8 10 11 12 14 15 16
-%! 6 7 8 10 11 12 14 15 16 2 3 4 6 7 8 10 11 12
-%! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1];
-%! testfile = "# vtk DataFile Version 3.0\n\nASCII\nDATASET UNSTRUCTURED_GRID\nPOINTS 16 double\n0 0 0\n0 1 0\n0 2 0\n0 3 0\n1 0 0\n1 1 0\n1 2 0\n1 3 0\n2 0 0\n2 1 0\n2 2 0\n2 3 0\n3 0 0\n3 1 0\n3 2 0\n3 3 0\nCELLS 18 72\n3 0 4 5\n3 1 5 6\n3 2 6 7\n3 4 8 9\n3 5 9 10\n3 6 10 11\n3 8 12 13\n3 9 13 14\n3 10 14 15\n3 0 5 1\n3 1 6 2\n3 2 7 3\n3 4 9 5\n3 5 10 6\n3 6 11 7\n3 8 13 9\n3 9 14 10\n3 10 15 11\nCELL_TYPES 18 \n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\nPOINT_DATA 16\nSCALARS u double\nLOOKUP_TABLE default\n0\n0\n0\n0\n1\n1\n1\n1\n2\n2\n2\n2\n3\n3\n3\n3\n";
-%! FPL2vtkoutputdata ("__FPL2vtkoutputdata__test__.vtk", msh.p, msh.t, {"u", msh.p(1,:).'});
-%! fid = fopen("__FPL2vtkoutputdata__test__.vtk","r");
-%! s = fread(fid);
-%! fclose(fid);
-%! assert (char(s'), testfile);
-%! delete __FPL2vtkoutputdata__test__.vtk
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL3dxoutputfield.m
--- a/extra/fpl/inst/deprecated/FPL3dxoutputfield.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,76 +0,0 @@
-## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} FPL3dxoutputfield( @var{filename}, @
-## @var{meshfilename}, @var{dep}, @var{u}, @var{attr_name}, @var{attr_rank}, @
-## @var{attr_shape}, @var{endfile} )
-##
-## Outputs data in DX form.
-##
-## Variable must be a scalar, vector or tensor of doubles
-##
-## @itemize @minus
-## @item @var{filename} = name of file to save (type string)
-## @item @var{meshfilename} = name of mesh file (type string)
-## @item @var{dep} = "positions" for node data, "connections" for element data
-## @item @var{field} = field data to be saved
-## @item @var{attr_name} = name of the variable (type string)
-## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.)
-## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar)
-## @end itemize
-## @end deftypefn
-
-function FPL3dxoutputfield(filename,meshfilename,dep,field,attr_name,attr_rank,attr_shape)
-
- fid = fopen (filename,"w");
- nnodes = size(field,1);
-
- if ((attr_rank==0) && (min(size(field))==1))
- fprintf(fid,"object ""%s.data""\nclass array type double rank 0 items %d data follows",attr_name,nnodes);
- fprintf(fid,"\n %e",field);
- else
- fprintf(fid,"object ""%s.data""\nclass array type double rank %d shape %d items %d data follows",attr_name,attr_rank,attr_shape,nnodes);
- for ii = 1:nnodes
- fprintf(fid,"\n");
- fprintf(fid," %e",field(ii,:));
- endfor
- endif
- fprintf(fid,"\nattribute ""dep"" string ""%s""\n\n",dep);
- fprintf(fid,"object ""%s"" class field\n",attr_name);
- fprintf(fid,"component ""positions"" file %s ""pos""\n",meshfilename);
- fprintf(fid,"component ""connections"" file %s ""con""\n",meshfilename);
- fprintf(fid,"component ""data"" value ""%s.data""\n",attr_name);
-
- fprintf(fid,"\nend\n");
- fclose (fid);
-
-endfunction
-
-
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL3dxoutputmesh.m
--- a/extra/fpl/inst/deprecated/FPL3dxoutputmesh.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,110 +0,0 @@
-## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of
-##
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-##
-## AUTHORS:
-## Carlo de Falco
-##
-## Culpo Massimiliano
-## Bergische Universitaet Wuppertal
-## Fachbereich C - Mathematik und Naturwissenschaften
-## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20
-## D-42119 Wuppertal, Germany
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} FPL3dxoutputmesh ( @var{filename}, @
-## @var{mesh} )
-##
-## Outputs data in DX form.
-##
-## Variable must be a scalar, vector or tensor of doubles
-##
-## @itemize @minus
-## @item @var{filename} = name of file to save (type string)
-## @item @var{mesh} = PDE-tool like mesh
-## @end itemize
-## @end deftypefn
-
-
-function FPL3dxoutputmesh(filename,mesh)
-
- nodes = mesh.p';
- elem = mesh.t(1:4,:)';
-
- fid = fopen (filename,"w");
- nnodes = columns(mesh.p);
- nelem = columns(mesh.t);
-
- fprintf(fid,"object ""pos""\nclass array type float rank 1 shape 3 items %d data follows",nnodes);
- for ii = 1:nnodes
- fprintf(fid,"\n");
- fprintf(fid," %e",nodes(ii,:));
- endfor
-
- ## In DX format nodes are numbered starting from zero,
- ## instead we want to number them starting from 1.
- if (min(min(elem))==1)
- elem = elem - 1;
- elseif(min(min(elem))~=0)
- error("WARNING: check tetrahedra structure");
- end
-
- fprintf(fid,"\n\nobject ""con""\nclass array type int rank 1 shape 4 items %d data follows",nelem);
- for ii = 1:nelem
- fprintf(fid,"\n");
- fprintf(fid," %d",elem(ii,:));
- endfor
-
- fprintf(fid,"\nattribute ""element type"" string ""tetrahedra""\nattribute ""ref"" string ""positions""\n\n");
-
- fprintf(fid,"object ""themesh"" class field\n");
- fprintf(fid,"component ""positions"" value ""pos""\n");
- fprintf(fid,"component ""connections"" value ""con""\n");
-
- fprintf(fid,"\nend\n");
- fclose (fid);
-
-endfunction
-
-%!test
-%! msh.p =[ 0 0 1 1 0 0 1 1
-%! 0 1 0 1 0 1 0 1
-%! 0 0 0 0 1 1 1 1];
-%! msh.e =[1 5 7 8 5 5 6 8 1 3 5 7
-%! 2 6 3 3 7 3 2 6 3 2 6 6
-%! 6 1 8 4 3 1 4 4 2 4 7 8
-%! 0 0 0 0 0 0 0 0 0 0 0 0
-%! 0 0 0 0 0 0 0 0 0 0 0 0
-%! 0 0 0 0 0 0 0 0 0 0 0 0
-%! 0 0 0 0 0 0 0 0 0 0 0 0
-%! 0 0 0 0 0 0 0 0 0 0 0 0
-%! 1 1 1 1 1 1 1 1 1 1 1 1
-%! 1 1 2 2 3 3 4 4 5 5 6 6];
-%! msh.t =[ 1 5 5 6 7 8
-%! 3 6 6 3 3 3
-%! 2 7 3 2 6 6
-%! 6 3 1 4 8 4
-%! 1 1 1 1 1 1];
-%! testfile = "object ""pos""\nclass array type float rank 1 shape 3 items 8 data follows\n 0.000000e+00 0.000000e+00 0.000000e+00\n 0.000000e+00 1.000000e+00 0.000000e+00\n 1.000000e+00 0.000000e+00 0.000000e+00\n 1.000000e+00 1.000000e+00 0.000000e+00\n 0.000000e+00 0.000000e+00 1.000000e+00\n 0.000000e+00 1.000000e+00 1.000000e+00\n 1.000000e+00 0.000000e+00 1.000000e+00\n 1.000000e+00 1.000000e+00 1.000000e+00\n\nobject ""con""\nclass array type int rank 1 shape 4 items 6 data follows\n 0 2 1 5\n 4 5 6 2\n 4 5 2 0\n 5 2 1 3\n 6 2 5 7\n 7 2 5 3\nattribute ""element type"" string ""tetrahedra""\nattribute ""ref"" string ""positions""\n\nobject ""themesh"" class field\ncomponent ""positions"" value ""pos""\ncomponent ""connections"" value ""con""\n\nend\n";
-%! FPL3dxoutputmesh ("__FPL3dxoutputmesh__test__.dx",msh);
-%! fid = fopen("__FPL3dxoutputmesh__test__.dx","r");
-%! s = fread(fid);
-%! fclose(fid);
-%! assert (char(s'), testfile);
-%! delete __FPL3dxoutputmesh__test__.dx
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/fpl_dx_write_field.m
--- a/extra/fpl/inst/fpl_dx_write_field.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,222 +0,0 @@
-## Copyright (C) 2006,2007,2008,2009,2010 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of:
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-## author: Carlo de Falco
-## author: Massimiliano Culpo
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} fpl_dx_writefield (@var{basename}, @
-## @var{mesh}, @var{u}, @var{attr_name}, @var{attr_rank}, @
-## @var{attr_shape}, @var{endfile})
-##
-## Output data field in ASCII Open-DX format.
-##
-## @var{basename} is a string containing the base-name of the dx file where the
-## data will be saved.
-##
-## @var{mesh} is a PDE-tool like mesh, like the ones generated by the
-## "msh" package.
-##
-## @var{u} is the field to be saved. It should represent scalar, vector
-## or tensor of doubles.
-##
-## @var{attr_name} is a descriptive name for the field @var{u}, while
-## @var{attr_rank} is the rank of the field (0 for scalar, 1 for vector,
-## etc.) and @var{attr_shape} is the number of components of the field
-## (assumed 1 for scalar).
-##
-## @var{endfile} should be 0 if you want to add other variables to the
-## same file, 1 otherwise.
-##
-## Notice that when appending fields to an already existing file:
-##
-## @itemize
-## @item @var{mesh} will not be printed to @var{filename}, but it will
-## be only used to determine if the field is piece-wise constant or
-## piece-wise linear
-## @item @var{u} is not checked for consistency against the @var{mesh}
-## already printed in @var{filename}
-## @end itemize
-##
-## Example 1 (wrong usage):
-## @example
-##
-## fpl_dx_write_field("field.dx",msh1,u1,"density",1,0,0);
-## fpl_dx_write_field("field.dx",msh2,u2,"temperature",1,0,1);
-## @end example
-## generate a file that fails at OpenDX run-time.
-##
-## Example 2:
-## @example
-##
-## fpl_dx_write_field("field",msh1,u1,"density",1,0,0);
-## fpl_dx_write_field("field",msh1,u2,"temperature",1,0,1);
-## @end example
-## will generate a valid OpenDX ASCII data file.
-##
-## @seealso{fpl_dx_write_series}
-##
-## @end deftypefn
-
-function fpl_dx_write_field(basename,mesh,u,attr_name,attr_rank,attr_shape,endfile)
-
- ## Check input
- if nargin!=7
- error("fpl_dx_write_field: wrong number of input");
- endif
-
- if !ischar(basename)
- error("fpl_dx_write_field: basename should be a valid string");
- elseif !( isstruct(mesh) )
- error("fpl_dx_write_field: mesh should be a valid structure");
- elseif !ismatrix(u)
- error("fpl_dx_write_field: u should be a valid matrix");
- elseif !ischar(attr_name)
- error("fpl_dx_write_field: attr_name should be a valid string");
- elseif !isscalar(attr_rank)
- error("fpl_dx_write_field: attr_rank should be a valid scalar");
- elseif !isscalar(attr_shape)
- error("fpl_dx_write_field: attr_shape should be a valid scalar");
- elseif !isscalar(endfile)
- error("fpl_dx_write_field: endfile should be a valid scalar");
- endif
-
- filename = [basename ".dx"];
-
- if ! exist(filename,"file")
- ## If file does not exist, create it
- fid = fopen (filename,"w");
- create = 1;
- else
- ## FIXME: the following should be performed in a cleaner way! Does a
- ## backward fgetl function exist?
-
- ## If file exist, check if it was already closed
- fid = fopen (filename,"r");
- fseek(fid,-4,SEEK_END);
- tst = fgetl(fid);
- if strcmp(tst,"end")
- error("fpl_dx_write_field: file %s exist and was already closed",filename);
- endif
- fclose(fid);
- fid = fopen(filename,"a");
- create = 0;
- endif
-
- p = mesh.p';
- dim = columns(p); # 2D or 3D
-
- if dim == 2
- t = mesh.t(1:3,:)';
- elseif dim == 3
- t = mesh.t(1:4,:)';
- else
- error("fpl_dx_write_field: neither 2D triangle nor 3D tetrahedral mesh");
- endif
-
- nnodes = rows(p);
- nelems = rows(t);
- ndatas = rows(u);
-
- if ndatas == nnodes
- dep = "positions";
- elseif ndatas == nelems
- dep = "connections";
- else
- error("fpl_dx_write_field: neither position nor connection data type")
- endif
-
- if create
- ## If the file has just been created, print mesh information
- print_grid(fid,dim,p,nnodes,t,nelems);
- endif
- ## Otherwise assume the mesh is consistent with the one in the file
- ## and print only field information
- print_data(fid,u,ndatas,dep,attr_name,attr_rank,attr_shape);
-
- if(endfile)
- fprintf(fid,"\nend\n");
- endif
- fclose (fid);
-
-endfunction
-
-## fprint a 2Dtrg or 3Dtet mesh
-function print_grid(fid,dim,p,nnodes,t,nelems)
-
- fprintf(fid,"object ""pos""\n");
- fprintf(fid,"class array type float rank 1 shape %d items %d data follows",dim,nnodes);
-
- for ii = 1:nnodes
- fprintf(fid,"\n");
- fprintf(fid," %1.7e",p(ii,:));
- endfor
-
- ## In DX format nodes are
- ## numbered starting from zero,
- ## instead we want to number
- ## them starting from 1!
- ## Here we restore the DX
- ## format
- if (min(min(t))==1)
- t -= 1;
- elseif(min(min(t))~=0)
- error("fpl_dx_write_field: check triangle structure")
- endif
-
- fprintf(fid,"\n\nobject ""con""\n");
- fprintf(fid,"class array type int rank 1 shape %d items %d data follows",dim+1,nelems);
- for ii = 1:nelems
- fprintf(fid,"\n");
- fprintf(fid," %d",t(ii,:));
- endfor
-
- fprintf(fid,"\n");
- if dim == 2
- fprintf(fid,"attribute ""element type"" string ""triangles""\n");
- elseif dim == 3
- fprintf(fid,"\nattribute ""element type"" string ""tetrahedra""\n");
- endif
- fprintf(fid,"attribute ""ref"" string ""positions""\n\n");
-
-endfunction
-
-## fprint data on a trg grid
-function print_data(fid,u,ndatas,dep,attr_name,attr_rank,attr_shape)
-
- if ((attr_rank == 0) && (min(size(u))==1))
- fprintf(fid,"object ""%s.data""\n",attr_name);
- fprintf(fid,"class array type double rank 0 items %d data follows",ndatas);
- fprintf(fid,"\n %1.7e",u);
- else
- fprintf(fid,"object ""%s.data""\n",attr_name);
- fprintf(fid,"class array type double rank %d shape %d items %d data follows",attr_rank,attr_shape,ndatas);
- for ii=1:ndatas
- fprintf(fid,"\n");
- fprintf(fid," %1.7e",u(ii,:));
- endfor
- endif
-
- fprintf(fid,"\n");
- fprintf(fid,"attribute ""dep"" string ""%s"" \n\n",dep);
- fprintf(fid,"object ""%s"" class field\n",attr_name);
- fprintf(fid,"component ""positions"" value ""pos""\n");
- fprintf(fid,"component ""connections"" value ""con""\n");
- fprintf(fid,"component ""data"" value ""%s.data""\n",attr_name);
- fprintf(fid,"\n");
-endfunction
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/fpl_dx_write_series.m
--- a/extra/fpl/inst/fpl_dx_write_series.m Mon Aug 17 10:16:44 2015 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,119 +0,0 @@
-## Copyright (C) 2006,2007,2008,2009,2010 Carlo de Falco, Massimiliano Culpo
-##
-## This file is part of:
-## FPL - Fem PLotting package for octave
-##
-## FPL 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.
-##
-## FPL 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 FPL; If not, see .
-##
-## author: Carlo de Falco
-## author: Massimiliano Culpo
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {} fpl_dx_write_series (@var{basename}, @
-## @var{mesh}, @var{u}, @var{sp}, @var{attr_name}, @var{attr_rank}, @
-## @var{attr_shape})
-##
-## Output data series in ASCII Open-DX format.
-##
-## @var{basename} is a string containing the base-name of the dx file where the
-## data will be saved.
-##
-## @var{mesh} is a PDE-tool like mesh, like the ones generated by the
-## "msh" package.
-##
-## @var{u} is the series to be saved. It should represent scalar, vector
-## or tensor of doubles. @var{sp} is the vector of the sampled points
-## (e.g. time points in the case of a time series).
-##
-## @var{attr_name} is a descriptive name for the series @var{u}, while
-## @var{attr_rank} is the rank of the field items (0 for scalar, 1 for
-## vector, etc.) and @var{attr_shape} is the number of components of the
-## field items (assumed 1 for scalar).
-##
-## @seealso{fpl_dx_write_field}
-##
-## @end deftypefn
-
-function fpl_dx_write_series(basename,mesh,u,tp,attr_name,attr_rank,attr_shape)
-
- ## FIXME: add append capabilities as in fpl_dx_write_field??
-
- if nargin!=7
- error("fpl_dx_write_series: wrong number of input");
- endif
-
- if !ischar(basename)
- error("fpl_dx_write_series: basename should be a valid string");
- elseif !( isstruct(mesh) )
- error("fpl_dx_write_series: mesh should be a valid structure");
- elseif !ismatrix(u)
- error("fpl_dx_write_series: u should be a valid matrix");
- elseif !ischar(attr_name)
- error("fpl_dx_write_series: attr_name should be a valid string");
- elseif !isscalar(attr_rank)
- error("fpl_dx_write_series: attr_rank should be a valid scalar");
- elseif !isscalar(attr_shape)
- error("fpl_dx_write_series: attr_shape should be a valid scalar");
- ##elseif !isscalar(endfile)
- ##error("fpl_dx_write_series: endfile should be a valid scalar");
- endif
-
- filename = [basename ".dx"];
-
- npoints = length(tp);
-
- p = mesh.p';
- dim = columns(p); # 2D or 3D
-
- if dim == 2
- t = mesh.t(1:3,:)';
- elseif dim == 3
- t = mesh.t(1:4,:)';
- else
- error("fpl_dx_write_series: neither 2D triangle nor 3D tetrahedral mesh");
- endif
-
- nnodes = rows(p);
- nelems = rows(t);
- ndatas = rows(u);
-
- if ndatas == nnodes
- dep = "positions";
- elseif ndatas == nelems
- dep = "connections";
- else
- error("fpl_dx_write_series: neither position nor connection data type")
- endif
-
- ## Write field items to file
- idx = (1:attr_shape);
- for ii = 1:npoints
- field = u(:,idx);
- fname = sprintf("%s.%d",attr_name,ii);
- fpl_dx_write_field(basename,mesh,field,fname,attr_rank,attr_shape,0);
- idx += attr_shape;
- endfor
-
- ##if endfile
- fid = fopen(filename,"a");
- fprintf (fid, "object \"%s_series\" class series\n",attr_name);
- for ii = 1:npoints
- fname = sprintf("%s.%d",attr_name,ii);
- fprintf (fid,"member %d position %g value \"%s\"\n",ii-1,tp(ii),fname);
- endfor
- fprintf (fid, "\nend\n");
- fclose(fid);
- ##endif
-
-endfunction
\ No newline at end of file
diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/fpl_vtk_assemble_series.m
--- a/extra/fpl/inst/fpl_vtk_assemble_series.m Mon Aug 17 10:16:44 2015 +0000
+++ b/extra/fpl/inst/fpl_vtk_assemble_series.m Mon Aug 17 10:19:39 2015 +0000
@@ -36,8 +36,9 @@
## @end deftypefn
-function fpl_vtk_assemble_series (collection, basenanme, format, idx, time)
+function fpl_vtk_assemble_series (collection, basename, format, idx, time)
+ ntpoints = numel (time);
fid = fopen (strcat (collection, ".pvd"), "w");
## Header
@@ -57,4 +58,4 @@
fprintf (fid, "\n");
fclose (fid);
-endfunction
\ No newline at end of file
+endfunction