changeset 12671:20e8aca47b2c octave-forge

prepare for release
author cdf
date Mon, 17 Aug 2015 10:19:39 +0000
parents d68da2f2417b
children 59e8aae64812
files extra/fpl/INDEX extra/fpl/deprecated/FPL2coloredgradient.net extra/fpl/deprecated/FPL2coloredrubbersheet.net extra/fpl/deprecated/FPL2dxappenddata.m extra/fpl/deprecated/FPL2dxoutputdata.m extra/fpl/deprecated/FPL2dxoutputtimeseries.m extra/fpl/deprecated/FPL2pdequiver.m extra/fpl/deprecated/FPL2pdequiver.net extra/fpl/deprecated/FPL2pdeshowmesh.m extra/fpl/deprecated/FPL2pdeshowmesh.net extra/fpl/deprecated/FPL2pdesurf.m extra/fpl/deprecated/FPL2ptcquiver.m extra/fpl/deprecated/FPL2ptcquiver.net extra/fpl/deprecated/FPL2ptcshowmesh.m extra/fpl/deprecated/FPL2ptcshowmesh.net extra/fpl/deprecated/FPL2ptcsurf.m extra/fpl/deprecated/FPL2ptcsurf.net extra/fpl/deprecated/FPL2showmesh.net extra/fpl/deprecated/FPL2trspdesurf.m extra/fpl/deprecated/FPL2trspdesurf.net extra/fpl/deprecated/FPL2trsptcsurf.m extra/fpl/deprecated/FPL2trsptcsurf.net extra/fpl/deprecated/FPL2vtkoutputdata.m extra/fpl/deprecated/FPL3dxoutputfield.m extra/fpl/deprecated/FPL3dxoutputmesh.m extra/fpl/deprecated/fpl_dx_write_field.m extra/fpl/deprecated/fpl_dx_write_series.m extra/fpl/inst/deprecated/FPL2coloredgradient.net extra/fpl/inst/deprecated/FPL2coloredrubbersheet.net extra/fpl/inst/deprecated/FPL2dxappenddata.m extra/fpl/inst/deprecated/FPL2dxoutputdata.m extra/fpl/inst/deprecated/FPL2dxoutputtimeseries.m extra/fpl/inst/deprecated/FPL2pdequiver.m extra/fpl/inst/deprecated/FPL2pdequiver.net extra/fpl/inst/deprecated/FPL2pdeshowmesh.m extra/fpl/inst/deprecated/FPL2pdeshowmesh.net extra/fpl/inst/deprecated/FPL2pdesurf.m extra/fpl/inst/deprecated/FPL2ptcquiver.m extra/fpl/inst/deprecated/FPL2ptcquiver.net extra/fpl/inst/deprecated/FPL2ptcshowmesh.m extra/fpl/inst/deprecated/FPL2ptcshowmesh.net extra/fpl/inst/deprecated/FPL2ptcsurf.m extra/fpl/inst/deprecated/FPL2ptcsurf.net extra/fpl/inst/deprecated/FPL2showmesh.net extra/fpl/inst/deprecated/FPL2trspdesurf.m extra/fpl/inst/deprecated/FPL2trspdesurf.net extra/fpl/inst/deprecated/FPL2trsptcsurf.m extra/fpl/inst/deprecated/FPL2trsptcsurf.net extra/fpl/inst/deprecated/FPL2vtkoutputdata.m extra/fpl/inst/deprecated/FPL3dxoutputfield.m extra/fpl/inst/deprecated/FPL3dxoutputmesh.m extra/fpl/inst/fpl_dx_write_field.m extra/fpl/inst/fpl_dx_write_series.m extra/fpl/inst/fpl_vtk_assemble_series.m
diffstat 54 files changed, 8315 insertions(+), 8317 deletions(-) [+]
line wrap: on
line diff
--- 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
--- /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();
--- /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();
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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
--- /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();
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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
--- /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();
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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");
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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
--- /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();
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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
--- /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();
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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
--- /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();
--- /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();
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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
--- /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;
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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
--- /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;
--- /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
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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
+
+
--- /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 <http://www.gnu.org/licenses/>.
+##
+##
+##  AUTHORS:
+##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
+##
+##  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
--- /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 <http://www.gnu.org/licenses/>.
+##
+##  author: Carlo de Falco     <cdf _AT_ users.sourceforge.net>
+##  author: Massimiliano Culpo <culpo _AT_ users.sourceforge.net>
+
+## -*- 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
+## <generate msh1/u1 msh2/u2 in some way>
+## 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
+## <generate msh1 and two fields u1-u2 in some way>
+## 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
--- /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 <http://www.gnu.org/licenses/>.
+##
+##  author: Carlo de Falco     <cdf _AT_ users.sourceforge.net>
+##  author: Massimiliano Culpo <culpo _AT_ users.sourceforge.net>
+
+## -*- 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
--- 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();
--- 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();
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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
--- 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();
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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
--- 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();
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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");
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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
--- 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();
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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
--- 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();
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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
--- 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();
--- 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();
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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
--- 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;
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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
--- 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;
--- 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
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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
-
-
--- 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 <http://www.gnu.org/licenses/>.
-##
-##
-##  AUTHORS:
-##  Carlo de Falco <cdf _AT_ users.sourceforge.net>
-##
-##  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
--- 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 <http://www.gnu.org/licenses/>.
-##
-##  author: Carlo de Falco     <cdf _AT_ users.sourceforge.net>
-##  author: Massimiliano Culpo <culpo _AT_ users.sourceforge.net>
-
-## -*- 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
-## <generate msh1/u1 msh2/u2 in some way>
-## 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
-## <generate msh1 and two fields u1-u2 in some way>
-## 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
--- 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 <http://www.gnu.org/licenses/>.
-##
-##  author: Carlo de Falco     <cdf _AT_ users.sourceforge.net>
-##  author: Massimiliano Culpo <culpo _AT_ users.sourceforge.net>
-
-## -*- 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
--- 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, "</VTKFile>\n");
   fclose (fid);
 
-endfunction
\ No newline at end of file
+endfunction