# HG changeset patch # User cdf # Date 1439806779 0 # Node ID 20e8aca47b2ce309e3c4bcf6c31de1683f1ad0ca # Parent d68da2f2417bda6d93b6602b0e53933bbd356893 prepare for release diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/INDEX --- a/extra/fpl/INDEX Mon Aug 17 10:16:44 2015 +0000 +++ b/extra/fpl/INDEX Mon Aug 17 10:19:39 2015 +0000 @@ -6,9 +6,6 @@ fpl_vtk_assemble_series.m savevtk savevtkvector -functions to save data in OpenDX format - fpl_dx_write_field - fpl_dx_write_series pdetool compatible plotting functions pdesurf pdemesh diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2coloredgradient.net --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2coloredgradient.net Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,635 @@ +// +// time: Wed Jun 13 18:54:22 2007 +// +// version: 3.2.0 (format), 4.4.4 (DX) +// +// +// MODULE main +// workspace: width = 459, height = 507 +// layout: snap = 0, width = 50, height = 50, align = NN +// +macro main( +) -> ( +) { + // + // node FileSelector[1]: x = 28, y = 29, inputs = 0, label = FileSelector + // output[1]: visible = 1, type = 32, value = "__FILE__DX__" + // output[2]: visible = 1, type = 32, value = "__FILE__DX__" + // + // + // node Import[1]: x = 34, y = 109, inputs = 6, label = Import + // +main_Import_1_out_1 = + Import( + main_FileSelector_1_out_1, + main_Import_1_in_2, + main_Import_1_in_3, + main_Import_1_in_4, + main_Import_1_in_5, + main_Import_1_in_6 + ) [instance: 1, cache: 1]; + // + // node Post[1]: x = 124, y = 167, inputs = 2, label = Post + // input[2]: defaulting = 0, visible = 1, type = 32, value = "positions" + // +main_Post_1_out_1 = + Post( + main_Import_1_out_1, + main_Post_1_in_2 + ) [instance: 1, cache: 1]; + // + // node Gradient[1]: x = 227, y = 144, inputs = 2, label = Gradient + // +main_Gradient_1_out_1 = + Gradient( + main_Post_1_out_1, + main_Gradient_1_in_2 + ) [instance: 1, cache: 1]; + // + // node AutoGlyph[1]: x = 241, y = 215, inputs = 7, label = AutoGlyph + // +main_AutoGlyph_1_out_1 = + AutoGlyph( + main_Gradient_1_out_1, + main_AutoGlyph_1_in_2, + main_AutoGlyph_1_in_3, + main_AutoGlyph_1_in_4, + main_AutoGlyph_1_in_5, + main_AutoGlyph_1_in_6, + main_AutoGlyph_1_in_7 + ) [instance: 1, cache: 1]; + // + // node AutoColor[1]: x = 253, y = 283, inputs = 10, label = AutoColor + // +main_AutoColor_1_out_1, +main_AutoColor_1_out_2 = + AutoColor( + main_AutoGlyph_1_out_1, + main_AutoColor_1_in_2, + main_AutoColor_1_in_3, + main_AutoColor_1_in_4, + main_AutoColor_1_in_5, + main_AutoColor_1_in_6, + main_AutoColor_1_in_7, + main_AutoColor_1_in_8, + main_AutoColor_1_in_9, + main_AutoColor_1_in_10 + ) [instance: 1, cache: 1]; + // + // node ShowConnections[1]: x = 39, y = 242, inputs = 1, label = ShowConnections + // +main_ShowConnections_1_out_1 = + ShowConnections( + main_Post_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Color[1]: x = 72, y = 328, inputs = 5, label = Color + // input[2]: defaulting = 0, visible = 1, type = 32, value = "black" + // input[3]: defaulting = 0, visible = 1, type = 5, value = .5 + // +main_Color_1_out_1 = + Color( + main_ShowConnections_1_out_1, + main_Color_1_in_2, + main_Color_1_in_3, + main_Color_1_in_4, + main_Color_1_in_5 + ) [instance: 1, cache: 1]; + // + // node ColorBar[1]: x = 339, y = 285, inputs = 16, label = ColorBar + // input[9]: defaulting = 0, visible = 0, type = 16777248, value = {"black"} + // +main_ColorBar_1_out_1 = + ColorBar( + main_AutoColor_1_out_2, + main_ColorBar_1_in_2, + main_ColorBar_1_in_3, + main_ColorBar_1_in_4, + main_ColorBar_1_in_5, + main_ColorBar_1_in_6, + main_ColorBar_1_in_7, + main_ColorBar_1_in_8, + main_ColorBar_1_in_9, + main_ColorBar_1_in_10, + main_ColorBar_1_in_11, + main_ColorBar_1_in_12, + main_ColorBar_1_in_13, + main_ColorBar_1_in_14, + main_ColorBar_1_in_15, + main_ColorBar_1_in_16 + ) [instance: 1, cache: 1]; + // + // node Collect[1]: x = 280, y = 393, inputs = 3, label = Collect + // +main_Collect_1_out_1 = + Collect( + main_Color_1_out_1, + main_AutoColor_1_out_1, + main_ColorBar_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Image[1]: x = 188, y = 445, inputs = 49, label = Image + // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1" + // input[4]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[5]: defaulting = 0, visible = 0, type = 8, value = [0.182894 0.102434 0] + // input[6]: defaulting = 0, visible = 0, type = 8, value = [0.182894 0.102434 3.60504] + // input[7]: defaulting = 0, visible = 0, type = 5, value = 0.460265 + // input[8]: defaulting = 0, visible = 0, type = 1, value = 772 + // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.791 + // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0] + // input[11]: defaulting = 1, visible = 0, type = 5, value = 7.30519 + // input[12]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[15]: defaulting = 1, visible = 0, type = 32, value = "none" + // input[16]: defaulting = 1, visible = 0, type = 32, value = "none" + // input[17]: defaulting = 1, visible = 0, type = 1, value = 1 + // input[18]: defaulting = 1, visible = 0, type = 1, value = 1 + // input[19]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow" + // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif" + // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff" + // input[29]: defaulting = 0, visible = 0, type = 3, value = 1 + // input[31]: defaulting = 0, visible = 0, type = 1, value = -5 + // input[33]: defaulting = 0, visible = 0, type = 3, value = 1 + // input[34]: defaulting = 0, visible = 0, type = 3, value = 0 + // input[36]: defaulting = 0, visible = 0, type = 3, value = 1 + // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "black", "blue", "blue"} + // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"} + // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.65 + // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_d" + // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom" + // depth: value = 24 + // window: position = (0.0000,0.0000), size = 0.6141x0.6396 + // internal caching: 1 + // +main_Image_1_out_1, +main_Image_1_out_2, +main_Image_1_out_3 = + Image( + main_Image_1_in_1, + main_Collect_1_out_1, + main_Image_1_in_3, + main_Image_1_in_4, + main_Image_1_in_5, + main_Image_1_in_6, + main_Image_1_in_7, + main_Image_1_in_8, + main_Image_1_in_9, + main_Image_1_in_10, + main_Image_1_in_11, + main_Image_1_in_12, + main_Image_1_in_13, + main_Image_1_in_14, + main_Image_1_in_15, + main_Image_1_in_16, + main_Image_1_in_17, + main_Image_1_in_18, + main_Image_1_in_19, + main_Image_1_in_20, + main_Image_1_in_21, + main_Image_1_in_22, + main_Image_1_in_23, + main_Image_1_in_24, + main_Image_1_in_25, + main_Image_1_in_26, + main_Image_1_in_27, + main_Image_1_in_28, + main_Image_1_in_29, + main_Image_1_in_30, + main_Image_1_in_31, + main_Image_1_in_32, + main_Image_1_in_33, + main_Image_1_in_34, + main_Image_1_in_35, + main_Image_1_in_36, + main_Image_1_in_37, + main_Image_1_in_38, + main_Image_1_in_39, + main_Image_1_in_40, + main_Image_1_in_41, + main_Image_1_in_42, + main_Image_1_in_43, + main_Image_1_in_44, + main_Image_1_in_45, + main_Image_1_in_46, + main_Image_1_in_47, + main_Image_1_in_48, + main_Image_1_in_49 + ) [instance: 1, cache: 1]; +// network: end of macro body +CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); +} +main_FileSelector_1_out_1 = "/tmp/SECS2D.6003912.dx"; +main_Import_1_in_2 = NULL; +main_Import_1_in_3 = NULL; +main_Import_1_in_4 = NULL; +main_Import_1_in_5 = NULL; +main_Import_1_in_6 = NULL; +main_Import_1_out_1 = NULL; +main_Post_1_in_2 = "positions"; +main_Post_1_out_1 = NULL; +main_Gradient_1_in_2 = NULL; +main_Gradient_1_out_1 = NULL; +main_AutoGlyph_1_in_2 = NULL; +main_AutoGlyph_1_in_3 = NULL; +main_AutoGlyph_1_in_4 = NULL; +main_AutoGlyph_1_in_5 = NULL; +main_AutoGlyph_1_in_6 = NULL; +main_AutoGlyph_1_in_7 = NULL; +main_AutoGlyph_1_out_1 = NULL; +main_AutoColor_1_in_2 = NULL; +main_AutoColor_1_in_3 = NULL; +main_AutoColor_1_in_4 = NULL; +main_AutoColor_1_in_5 = NULL; +main_AutoColor_1_in_6 = NULL; +main_AutoColor_1_in_7 = NULL; +main_AutoColor_1_in_8 = NULL; +main_AutoColor_1_in_9 = NULL; +main_AutoColor_1_in_10 = NULL; +main_AutoColor_1_out_1 = NULL; +main_AutoColor_1_out_2 = NULL; +main_ShowConnections_1_out_1 = NULL; +main_Color_1_in_2 = "black"; +main_Color_1_in_3 = .5; +main_Color_1_in_4 = NULL; +main_Color_1_in_5 = NULL; +main_Color_1_out_1 = NULL; +main_ColorBar_1_in_2 = NULL; +main_ColorBar_1_in_3 = NULL; +main_ColorBar_1_in_4 = NULL; +main_ColorBar_1_in_5 = NULL; +main_ColorBar_1_in_6 = NULL; +main_ColorBar_1_in_7 = NULL; +main_ColorBar_1_in_8 = NULL; +main_ColorBar_1_in_9 = {"black"}; +main_ColorBar_1_in_10 = NULL; +main_ColorBar_1_in_11 = NULL; +main_ColorBar_1_in_12 = NULL; +main_ColorBar_1_in_13 = NULL; +main_ColorBar_1_in_14 = NULL; +main_ColorBar_1_in_15 = NULL; +main_ColorBar_1_in_16 = NULL; +main_ColorBar_1_out_1 = NULL; +main_Collect_1_out_1 = NULL; +macro Image( + id, + object, + where, + useVector, + to, + from, + width, + resolution, + aspect, + up, + viewAngle, + perspective, + options, + buttonState = 1, + buttonUpApprox = "none", + buttonDownApprox = "none", + buttonUpDensity = 1, + buttonDownDensity = 1, + renderMode = 0, + defaultCamera, + reset, + backgroundColor, + throttle, + RECenable = 0, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable = 0, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + interactionMode, + title, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + webOptions) -> ( + object, + camera, + where) +{ + ImageMessage( + id, + backgroundColor, + throttle, + RECenable, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + interactionMode, + title, + renderMode, + buttonUpApprox, + buttonDownApprox, + buttonUpDensity, + buttonDownDensity) [instance: 1, cache: 1]; + autoCamera = + AutoCamera( + object, + "front", + object, + resolution, + aspect, + [0,1,0], + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + realCamera = + Camera( + to, + from, + width, + resolution, + aspect, + up, + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + coloredDefaultCamera = + UpdateCamera(defaultCamera, + background=backgroundColor) [instance: 1, cache: 1]; + nullDefaultCamera = + Inquire(defaultCamera, + "is null + 1") [instance: 1, cache: 1]; + resetCamera = + Switch( + nullDefaultCamera, + coloredDefaultCamera, + autoCamera) [instance: 1, cache: 1]; + resetNull = + Inquire( + reset, + "is null + 1") [instance: 2, cache: 1]; + reset = + Switch( + resetNull, + reset, + 0) [instance: 2, cache: 1]; + whichCamera = + Compute( + "($0 != 0 || $1 == 0) ? 1 : 2", + reset, + useVector) [instance: 1, cache: 1]; + camera = Switch( + whichCamera, + resetCamera, + realCamera) [instance: 3, cache: 1]; + AAobject = + AutoAxes( + object, + camera, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels) [instance: 1, cache: 1]; + switchAAenable = Compute("$0+1", + AAenable) [instance: 2, cache: 1]; + object = Switch( + switchAAenable, + object, + AAobject) [instance:4, cache: 1]; + SWapproximation_options = + Switch( + buttonState, + buttonUpApprox, + buttonDownApprox) [instance: 5, cache: 1]; + SWdensity_options = + Switch( + buttonState, + buttonUpDensity, + buttonDownDensity) [instance: 6, cache: 1]; + HWapproximation_options = + Format( + "%s,%s", + buttonDownApprox, + buttonUpApprox) [instance: 1, cache: 1]; + HWdensity_options = + Format( + "%d,%d", + buttonDownDensity, + buttonUpDensity) [instance: 2, cache: 1]; + switchRenderMode = Compute( + "$0+1", + renderMode) [instance: 3, cache: 1]; + approximation_options = Switch( + switchRenderMode, + SWapproximation_options, + HWapproximation_options) [instance: 7, cache: 1]; + density_options = Switch( + switchRenderMode, + SWdensity_options, + HWdensity_options) [instance: 8, cache: 1]; + renderModeString = Switch( + switchRenderMode, + "software", + "hardware")[instance: 9, cache: 1]; + object_tag = Inquire( + object, + "object tag")[instance: 3, cache: 1]; + annoted_object = + Options( + object, + "send boxes", + 0, + "cache", + 1, + "object tag", + object_tag, + "ddcamera", + whichCamera, + "rendering approximation", + approximation_options, + "render every", + density_options, + "button state", + buttonState, + "rendering mode", + renderModeString) [instance: 1, cache: 1]; + RECresNull = + Inquire( + RECresolution, + "is null + 1") [instance: 4, cache: 1]; + ImageResolution = + Inquire( + camera, + "camera resolution") [instance: 5, cache: 1]; + RECresolution = + Switch( + RECresNull, + RECresolution, + ImageResolution) [instance: 10, cache: 1]; + RECaspectNull = + Inquire( + RECaspect, + "is null + 1") [instance: 6, cache: 1]; + ImageAspect = + Inquire( + camera, + "camera aspect") [instance: 7, cache: 1]; + RECaspect = + Switch( + RECaspectNull, + RECaspect, + ImageAspect) [instance: 11, cache: 1]; + switchRECenable = Compute( + "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", + RECenable, + switchRenderMode, + RECresolution, + ImageResolution, + RECaspect, + ImageAspect) [instance: 4, cache: 1]; + NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); + Display( + NoRECobject, + camera, + where, + throttle) [instance: 1, cache: 1]; + image = + Render( + RECNoRerenderObject, + camera) [instance: 1, cache: 1]; + Display( + image, + NULL, + where, + throttle) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 1, cache: 1]; + rec_where = Display( + RECNoRerHW, + camera, + where, + throttle) [instance: 1, cache: 0]; + rec_image = ReadImageWindow( + rec_where) [instance: 1, cache: 1]; + WriteImage( + rec_image, + RECfile, + RECformat) [instance: 1, cache: 1]; + RECupdateCamera = + UpdateCamera( + camera, + resolution=RECresolution, + aspect=RECaspect) [instance: 2, cache: 1]; + Display( + RECRerenderObject, + camera, + where, + throttle) [instance: 1, cache: 1]; + RECRerenderObject = + ScaleScreen( + RECRerenderObject, + NULL, + RECresolution, + camera) [instance: 1, cache: 1]; + image = + Render( + RECRerenderObject, + RECupdateCamera) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 2, cache: 1]; +} +main_Image_1_in_1 = "Image_1"; +main_Image_1_in_3 = "X24,,"; +main_Image_1_in_4 = 1; +main_Image_1_in_5 = [0.182894 0.102434 0]; +main_Image_1_in_6 = [0.182894 0.102434 3.60504]; +main_Image_1_in_7 = 0.460265; +main_Image_1_in_8 = 772; +main_Image_1_in_9 = 0.791; +main_Image_1_in_10 = [0 1 0]; +main_Image_1_in_11 = NULL; +main_Image_1_in_12 = 0; +main_Image_1_in_13 = NULL; +main_Image_1_in_14 = 1; +main_Image_1_in_15 = NULL; +main_Image_1_in_16 = NULL; +main_Image_1_in_17 = NULL; +main_Image_1_in_18 = NULL; +main_Image_1_in_19 = 0; +main_Image_1_in_20 = NULL; +main_Image_1_in_21 = NULL; +main_Image_1_in_22 = "snow"; +main_Image_1_in_23 = NULL; +main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif"; +main_Image_1_in_26 = "tiff"; +main_Image_1_in_27 = NULL; +main_Image_1_in_28 = NULL; +main_Image_1_in_29 = 1; +main_Image_1_in_30 = NULL; +main_Image_1_in_31 = -5; +main_Image_1_in_32 = NULL; +main_Image_1_in_33 = 1; +main_Image_1_in_34 = 0; +main_Image_1_in_35 = NULL; +main_Image_1_in_36 = 1; +main_Image_1_in_37 = {"clear", "black", "blue", "blue"}; +main_Image_1_in_38 = {"background", "grid", "ticks", "labels"}; +main_Image_1_in_39 = 0.65; +main_Image_1_in_40 = "roman_d"; +main_Image_1_in_41 = "panzoom"; +main_Image_1_in_42 = NULL; +main_Image_1_in_43 = NULL; +main_Image_1_in_44 = NULL; +main_Image_1_in_45 = NULL; +main_Image_1_in_46 = NULL; +main_Image_1_in_47 = NULL; +main_Image_1_in_48 = NULL; +main_Image_1_in_49 = NULL; +Executive("product version 4 4 4"); +$sync +main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2coloredrubbersheet.net --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2coloredrubbersheet.net Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,619 @@ +// +// time: Wed Jun 13 17:16:01 2007 +// +// version: 3.2.0 (format), 4.4.4 (DX) +// +// +// MODULE main +// workspace: width = 533, height = 507 +// layout: snap = 0, width = 50, height = 50, align = NN +// +macro main( +) -> ( +) { + // + // node FileSelector[1]: x = 51, y = 31, inputs = 0, label = FileSelector + // output[1]: visible = 1, type = 32, value = "__FILE__DX__" + // output[2]: visible = 1, type = 32, value = "__FILE__DX__" + // + // + // node Import[1]: x = 104, y = 118, inputs = 6, label = Import + // +main_Import_1_out_1 = + Import( + main_FileSelector_1_out_1, + main_Import_1_in_2, + main_Import_1_in_3, + main_Import_1_in_4, + main_Import_1_in_5, + main_Import_1_in_6 + ) [instance: 1, cache: 1]; + // + // node Post[1]: x = 249, y = 57, inputs = 2, label = Post + // input[2]: defaulting = 0, visible = 1, type = 32, value = "__DATA_DEPENDENCY__" + // +main_Post_1_out_1 = + Post( + main_Import_1_out_1, + main_Post_1_in_2 + ) [instance: 1, cache: 1]; + // + // node RubberSheet[1]: x = 228, y = 142, inputs = 4, label = RubberSheet + // +main_RubberSheet_1_out_1 = + RubberSheet( + main_Post_1_out_1, + main_RubberSheet_1_in_2, + main_RubberSheet_1_in_3, + main_RubberSheet_1_in_4 + ) [instance: 1, cache: 1]; + // + // node AutoColor[1]: x = 253, y = 283, inputs = 10, label = AutoColor + // +main_AutoColor_1_out_1, +main_AutoColor_1_out_2 = + AutoColor( + main_RubberSheet_1_out_1, + main_AutoColor_1_in_2, + main_AutoColor_1_in_3, + main_AutoColor_1_in_4, + main_AutoColor_1_in_5, + main_AutoColor_1_in_6, + main_AutoColor_1_in_7, + main_AutoColor_1_in_8, + main_AutoColor_1_in_9, + main_AutoColor_1_in_10 + ) [instance: 1, cache: 1]; + // + // node ShowConnections[1]: x = 49, y = 232, inputs = 1, label = ShowConnections + // +main_ShowConnections_1_out_1 = + ShowConnections( + main_RubberSheet_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Color[1]: x = 72, y = 328, inputs = 5, label = Color + // input[2]: defaulting = 0, visible = 1, type = 32, value = "black" + // input[3]: defaulting = 0, visible = 1, type = 5, value = .5 + // +main_Color_1_out_1 = + Color( + main_ShowConnections_1_out_1, + main_Color_1_in_2, + main_Color_1_in_3, + main_Color_1_in_4, + main_Color_1_in_5 + ) [instance: 1, cache: 1]; + // + // node ColorBar[1]: x = 413, y = 290, inputs = 16, label = ColorBar + // input[9]: defaulting = 0, visible = 0, type = 16777248, value = {"black"} + // +main_ColorBar_1_out_1 = + ColorBar( + main_AutoColor_1_out_2, + main_ColorBar_1_in_2, + main_ColorBar_1_in_3, + main_ColorBar_1_in_4, + main_ColorBar_1_in_5, + main_ColorBar_1_in_6, + main_ColorBar_1_in_7, + main_ColorBar_1_in_8, + main_ColorBar_1_in_9, + main_ColorBar_1_in_10, + main_ColorBar_1_in_11, + main_ColorBar_1_in_12, + main_ColorBar_1_in_13, + main_ColorBar_1_in_14, + main_ColorBar_1_in_15, + main_ColorBar_1_in_16 + ) [instance: 1, cache: 1]; + // + // node Collect[1]: x = 280, y = 393, inputs = 3, label = Collect + // +main_Collect_1_out_1 = + Collect( + main_Color_1_out_1, + main_AutoColor_1_out_1, + main_ColorBar_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Image[1]: x = 188, y = 445, inputs = 49, label = Image + // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1" + // input[4]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[5]: defaulting = 0, visible = 0, type = 8, value = [0.466889 0.863877 0.166499] + // input[6]: defaulting = 0, visible = 0, type = 8, value = [0.466889 0.863877 4.74189] + // input[7]: defaulting = 0, visible = 0, type = 5, value = 1.01623 + // input[8]: defaulting = 0, visible = 0, type = 1, value = 1254 + // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.730064 + // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0] + // input[11]: defaulting = 1, visible = 0, type = 5, value = 12.6739 + // input[12]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[15]: defaulting = 1, visible = 0, type = 32, value = "none" + // input[16]: defaulting = 1, visible = 0, type = 32, value = "none" + // input[17]: defaulting = 1, visible = 0, type = 1, value = 1 + // input[18]: defaulting = 1, visible = 0, type = 1, value = 1 + // input[19]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow" + // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif" + // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff" + // input[29]: defaulting = 0, visible = 0, type = 3, value = 1 + // input[31]: defaulting = 0, visible = 0, type = 1, value = -5 + // input[33]: defaulting = 0, visible = 0, type = 3, value = 1 + // input[34]: defaulting = 0, visible = 0, type = 3, value = 0 + // input[36]: defaulting = 0, visible = 0, type = 3, value = 1 + // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "black", "blue", "blue"} + // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"} + // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.65 + // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_d" + // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom" + // depth: value = 24 + // window: position = (0.0000,0.0283), size = 0.9906x0.9375 + // internal caching: 1 + // +main_Image_1_out_1, +main_Image_1_out_2, +main_Image_1_out_3 = + Image( + main_Image_1_in_1, + main_Collect_1_out_1, + main_Image_1_in_3, + main_Image_1_in_4, + main_Image_1_in_5, + main_Image_1_in_6, + main_Image_1_in_7, + main_Image_1_in_8, + main_Image_1_in_9, + main_Image_1_in_10, + main_Image_1_in_11, + main_Image_1_in_12, + main_Image_1_in_13, + main_Image_1_in_14, + main_Image_1_in_15, + main_Image_1_in_16, + main_Image_1_in_17, + main_Image_1_in_18, + main_Image_1_in_19, + main_Image_1_in_20, + main_Image_1_in_21, + main_Image_1_in_22, + main_Image_1_in_23, + main_Image_1_in_24, + main_Image_1_in_25, + main_Image_1_in_26, + main_Image_1_in_27, + main_Image_1_in_28, + main_Image_1_in_29, + main_Image_1_in_30, + main_Image_1_in_31, + main_Image_1_in_32, + main_Image_1_in_33, + main_Image_1_in_34, + main_Image_1_in_35, + main_Image_1_in_36, + main_Image_1_in_37, + main_Image_1_in_38, + main_Image_1_in_39, + main_Image_1_in_40, + main_Image_1_in_41, + main_Image_1_in_42, + main_Image_1_in_43, + main_Image_1_in_44, + main_Image_1_in_45, + main_Image_1_in_46, + main_Image_1_in_47, + main_Image_1_in_48, + main_Image_1_in_49 + ) [instance: 1, cache: 1]; +// network: end of macro body +CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); +} +main_FileSelector_1_out_1 = "__FILE__DX__"; +main_Import_1_in_2 = NULL; +main_Import_1_in_3 = NULL; +main_Import_1_in_4 = NULL; +main_Import_1_in_5 = NULL; +main_Import_1_in_6 = NULL; +main_Import_1_out_1 = NULL; +main_Post_1_in_2 = "positions"; +main_Post_1_out_1 = NULL; +main_RubberSheet_1_in_2 = NULL; +main_RubberSheet_1_in_3 = NULL; +main_RubberSheet_1_in_4 = NULL; +main_RubberSheet_1_out_1 = NULL; +main_AutoColor_1_in_2 = NULL; +main_AutoColor_1_in_3 = NULL; +main_AutoColor_1_in_4 = NULL; +main_AutoColor_1_in_5 = NULL; +main_AutoColor_1_in_6 = NULL; +main_AutoColor_1_in_7 = NULL; +main_AutoColor_1_in_8 = NULL; +main_AutoColor_1_in_9 = NULL; +main_AutoColor_1_in_10 = NULL; +main_AutoColor_1_out_1 = NULL; +main_AutoColor_1_out_2 = NULL; +main_ShowConnections_1_out_1 = NULL; +main_Color_1_in_2 = "black"; +main_Color_1_in_3 = .5; +main_Color_1_in_4 = NULL; +main_Color_1_in_5 = NULL; +main_Color_1_out_1 = NULL; +main_ColorBar_1_in_2 = NULL; +main_ColorBar_1_in_3 = NULL; +main_ColorBar_1_in_4 = NULL; +main_ColorBar_1_in_5 = NULL; +main_ColorBar_1_in_6 = NULL; +main_ColorBar_1_in_7 = NULL; +main_ColorBar_1_in_8 = NULL; +main_ColorBar_1_in_9 = {"black"}; +main_ColorBar_1_in_10 = NULL; +main_ColorBar_1_in_11 = NULL; +main_ColorBar_1_in_12 = NULL; +main_ColorBar_1_in_13 = NULL; +main_ColorBar_1_in_14 = NULL; +main_ColorBar_1_in_15 = NULL; +main_ColorBar_1_in_16 = NULL; +main_ColorBar_1_out_1 = NULL; +main_Collect_1_out_1 = NULL; +macro Image( + id, + object, + where, + useVector, + to, + from, + width, + resolution, + aspect, + up, + viewAngle, + perspective, + options, + buttonState = 1, + buttonUpApprox = "none", + buttonDownApprox = "none", + buttonUpDensity = 1, + buttonDownDensity = 1, + renderMode = 0, + defaultCamera, + reset, + backgroundColor, + throttle, + RECenable = 0, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable = 0, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + interactionMode, + title, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + webOptions) -> ( + object, + camera, + where) +{ + ImageMessage( + id, + backgroundColor, + throttle, + RECenable, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + interactionMode, + title, + renderMode, + buttonUpApprox, + buttonDownApprox, + buttonUpDensity, + buttonDownDensity) [instance: 1, cache: 1]; + autoCamera = + AutoCamera( + object, + "front", + object, + resolution, + aspect, + [0,1,0], + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + realCamera = + Camera( + to, + from, + width, + resolution, + aspect, + up, + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + coloredDefaultCamera = + UpdateCamera(defaultCamera, + background=backgroundColor) [instance: 1, cache: 1]; + nullDefaultCamera = + Inquire(defaultCamera, + "is null + 1") [instance: 1, cache: 1]; + resetCamera = + Switch( + nullDefaultCamera, + coloredDefaultCamera, + autoCamera) [instance: 1, cache: 1]; + resetNull = + Inquire( + reset, + "is null + 1") [instance: 2, cache: 1]; + reset = + Switch( + resetNull, + reset, + 0) [instance: 2, cache: 1]; + whichCamera = + Compute( + "($0 != 0 || $1 == 0) ? 1 : 2", + reset, + useVector) [instance: 1, cache: 1]; + camera = Switch( + whichCamera, + resetCamera, + realCamera) [instance: 3, cache: 1]; + AAobject = + AutoAxes( + object, + camera, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels) [instance: 1, cache: 1]; + switchAAenable = Compute("$0+1", + AAenable) [instance: 2, cache: 1]; + object = Switch( + switchAAenable, + object, + AAobject) [instance:4, cache: 1]; + SWapproximation_options = + Switch( + buttonState, + buttonUpApprox, + buttonDownApprox) [instance: 5, cache: 1]; + SWdensity_options = + Switch( + buttonState, + buttonUpDensity, + buttonDownDensity) [instance: 6, cache: 1]; + HWapproximation_options = + Format( + "%s,%s", + buttonDownApprox, + buttonUpApprox) [instance: 1, cache: 1]; + HWdensity_options = + Format( + "%d,%d", + buttonDownDensity, + buttonUpDensity) [instance: 2, cache: 1]; + switchRenderMode = Compute( + "$0+1", + renderMode) [instance: 3, cache: 1]; + approximation_options = Switch( + switchRenderMode, + SWapproximation_options, + HWapproximation_options) [instance: 7, cache: 1]; + density_options = Switch( + switchRenderMode, + SWdensity_options, + HWdensity_options) [instance: 8, cache: 1]; + renderModeString = Switch( + switchRenderMode, + "software", + "hardware")[instance: 9, cache: 1]; + object_tag = Inquire( + object, + "object tag")[instance: 3, cache: 1]; + annoted_object = + Options( + object, + "send boxes", + 0, + "cache", + 1, + "object tag", + object_tag, + "ddcamera", + whichCamera, + "rendering approximation", + approximation_options, + "render every", + density_options, + "button state", + buttonState, + "rendering mode", + renderModeString) [instance: 1, cache: 1]; + RECresNull = + Inquire( + RECresolution, + "is null + 1") [instance: 4, cache: 1]; + ImageResolution = + Inquire( + camera, + "camera resolution") [instance: 5, cache: 1]; + RECresolution = + Switch( + RECresNull, + RECresolution, + ImageResolution) [instance: 10, cache: 1]; + RECaspectNull = + Inquire( + RECaspect, + "is null + 1") [instance: 6, cache: 1]; + ImageAspect = + Inquire( + camera, + "camera aspect") [instance: 7, cache: 1]; + RECaspect = + Switch( + RECaspectNull, + RECaspect, + ImageAspect) [instance: 11, cache: 1]; + switchRECenable = Compute( + "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", + RECenable, + switchRenderMode, + RECresolution, + ImageResolution, + RECaspect, + ImageAspect) [instance: 4, cache: 1]; + NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); + Display( + NoRECobject, + camera, + where, + throttle) [instance: 1, cache: 1]; + image = + Render( + RECNoRerenderObject, + camera) [instance: 1, cache: 1]; + Display( + image, + NULL, + where, + throttle) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 1, cache: 1]; + rec_where = Display( + RECNoRerHW, + camera, + where, + throttle) [instance: 1, cache: 0]; + rec_image = ReadImageWindow( + rec_where) [instance: 1, cache: 1]; + WriteImage( + rec_image, + RECfile, + RECformat) [instance: 1, cache: 1]; + RECupdateCamera = + UpdateCamera( + camera, + resolution=RECresolution, + aspect=RECaspect) [instance: 2, cache: 1]; + Display( + RECRerenderObject, + camera, + where, + throttle) [instance: 1, cache: 1]; + RECRerenderObject = + ScaleScreen( + RECRerenderObject, + NULL, + RECresolution, + camera) [instance: 1, cache: 1]; + image = + Render( + RECRerenderObject, + RECupdateCamera) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 2, cache: 1]; +} +main_Image_1_in_1 = "Image_1"; +main_Image_1_in_3 = "X24,,"; +main_Image_1_in_4 = 1; +main_Image_1_in_5 = [0.466889 0.863877 0.166499]; +main_Image_1_in_6 = [0.466889 0.863877 4.74189]; +main_Image_1_in_7 = 1.01623; +main_Image_1_in_8 = 1254; +main_Image_1_in_9 = 0.730064; +main_Image_1_in_10 = [0 1 0]; +main_Image_1_in_11 = NULL; +main_Image_1_in_12 = 0; +main_Image_1_in_13 = NULL; +main_Image_1_in_14 = 1; +main_Image_1_in_15 = NULL; +main_Image_1_in_16 = NULL; +main_Image_1_in_17 = NULL; +main_Image_1_in_18 = NULL; +main_Image_1_in_19 = 0; +main_Image_1_in_20 = NULL; +main_Image_1_in_21 = NULL; +main_Image_1_in_22 = "snow"; +main_Image_1_in_23 = NULL; +main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif"; +main_Image_1_in_26 = "tiff"; +main_Image_1_in_27 = NULL; +main_Image_1_in_28 = NULL; +main_Image_1_in_29 = 1; +main_Image_1_in_30 = NULL; +main_Image_1_in_31 = -5; +main_Image_1_in_32 = NULL; +main_Image_1_in_33 = 1; +main_Image_1_in_34 = 0; +main_Image_1_in_35 = NULL; +main_Image_1_in_36 = 1; +main_Image_1_in_37 = {"clear", "black", "blue", "blue"}; +main_Image_1_in_38 = {"background", "grid", "ticks", "labels"}; +main_Image_1_in_39 = 0.65; +main_Image_1_in_40 = "roman_d"; +main_Image_1_in_41 = "panzoom"; +main_Image_1_in_42 = NULL; +main_Image_1_in_43 = NULL; +main_Image_1_in_44 = NULL; +main_Image_1_in_45 = NULL; +main_Image_1_in_46 = NULL; +main_Image_1_in_47 = NULL; +main_Image_1_in_48 = NULL; +main_Image_1_in_49 = NULL; +Executive("product version 4 4 4"); +$sync +main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2dxappenddata.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2dxappenddata.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,90 @@ +## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## @deftypefn {Function File} {} FPL2dxappenddata ( @var{filename}, +## @var{p}, @var{t}, @var{u}, @var{attr_name}, @var{attr_rank}, +## @var{attr_shape}, @var{endflie} ) +## +## Apends data to a file in DX form. +## Only one variable can be written to the file +## variable must be a scalar, vector or tensor of doubles +## mesh data in the file must be consistent with this variable +## +## Variable must be a scalar, vector or tensor of doubles +## +## @itemize @minus +## @item @var{filename}= name of file to save (type string) +## @item @var{p}, @var{t} = mesh +## @item @var{u} = variable to save +## @item @var{attr_name} = name of the variable (type string) +## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.) +## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar) +## @item @var{endfile} = 0 if you want to add other variables to the +## same file, 1 otherwise +## @end itemize +## @end deftypefn + +function FPL2dxappenddata(filename,p,t,u,attr_name,attr_rank,attr_shape,endfile) + + p = p'; + t = t'; + t = t(:,1:3); + + fid=fopen (filename,'a'); + Nnodi = size(p,1); + Ntriangoli = size(t,1); + + fprintf(fid,'\nattribute "element type" string "triangles"\nattribute "ref" string "positions"\n\n'); + + if ((attr_rank==0) && (min(size(u))==1)) + fprintf(fid,'object "%s.data"\nclass array type double rank 0 items %d data follows',attr_name,Nnodi); + fprintf(fid,'\n %1.7e',u); + else + fprintf(fid,'object "%s.data"\nclass array type double rank %d shape %d items %d data follows', ... + attr_name,attr_rank,attr_shape,Nnodi); + for i=1:Nnodi + fprintf(fid,'\n'); + fprintf(fid,' %1.7e',u(i,:)); + endfor + endif + fprintf(fid,['\nattribute "dep" string "positions"\n\n' ... + 'object "%s" class field\n'... + 'component "positions" value "pos"\n'... + 'component "connections" value "con"\n'... + 'component "data" value "%s.data"\n'],... + attr_name,attr_name); + + if(endfile) + fprintf(fid,'\nend\n'); + endif + + fclose (fid); + +endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2dxoutputdata.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2dxoutputdata.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,126 @@ +## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## @deftypefn {Function File} {} FPL2dxoutputdata ( @var{filename}, @ +## @var{p}, @var{t}, @var{u}, @var{attr_name}, @var{attr_rank}, @ +## @var{attr_shape}, @var{endfile} ) +## +## Outputs data in DX form. +## +## Variable must be a scalar, vector or tensor of doubles +## +## @itemize @minus +## @item @var{filename}= name of file to save (type string) +## @item @var{p}, @var{t} = mesh +## @item @var{u} = variable to save +## @item @var{attr_name} = name of the variable (type string) +## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.) +## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar) +## @item @var{endfile} = 0 if you want to add other variables to the +## same file, 1 otherwise +## @end itemize +## @end deftypefn + +function FPL2dxoutputdata(filename,p,t,u,attr_name,attr_rank,attr_shape,endfile) + + p = p'; + t = t'; + t = t(:,1:3); + + fid=fopen (filename,'w'); + Nnodi = size(p,1); + Ntriangoli = size(t,1); + Ndati = size(u,1); + + fprintf(fid,"object ""pos""\nclass array type float rank 1 shape 2 items %d data follows",Nnodi); + + for i=1:Nnodi + fprintf(fid,"\n"); + fprintf(fid," %1.7e",p(i,:)); + endfor + + if (min(min(t))==1) + t=t-1; + elseif(min(min(t))~=0) + disp('WARNING: check triangle structure') + endif + ## In DX format nodes are + ## numbered starting from zero, + ## instead we want to number + ## them starting from 1! + ## Here we restore the DX + ## format + + fprintf(fid,"\n\nobject ""con""\nclass array type int rank 1 shape 3 items %d data follows",Ntriangoli); + for i=1:Ntriangoli + fprintf(fid,"\n"); + fprintf(fid," %d",t(i,:)); + endfor + + fprintf(fid,"\nattribute ""element type"" string ""triangles""\nattribute ""ref"" string ""positions""\n\n"); + + if ((attr_rank==0) && (min(size(u))==1)) + fprintf(fid,"object ""%s.data""\nclass array type double rank 0 items %d data follows",attr_name,Ndati); + fprintf(fid,"\n %1.7e",u); + + else + fprintf(fid,"object ""%s.data""\nclass array type double rank %d shape %d items %d data follows", ... + attr_name,attr_rank,attr_shape,Ndati); + for i=1:Ndati + fprintf(fid,"\n"); + fprintf(fid," %1.7e",u(i,:)); + endfor + + endif + + if Ndati==Nnodi + fprintf(fid,["\nattribute ""dep"" string ""positions""\n\n" ... + "object ""%s"" class field\n"... + "component ""positions"" value ""pos""\n"... + "component ""connections"" value ""con""\n"... + "component ""data"" value ""%s.data""\n"],... + attr_name,attr_name); + elseif Ndati==Ntriangoli + fprintf(fid,["\nattribute ""dep"" string ""connections""\n\n" ... + "object ""%s"" class field\n"... + "component ""positions"" value ""pos""\n"... + "component ""connections"" value ""con""\n"... + "component ""data"" value ""%s.data""\n"],... + attr_name,attr_name); + endif + + if(endfile) + fprintf(fid,"\nend\n"); + endif + + fclose (fid); + + +endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2dxoutputtimeseries.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2dxoutputtimeseries.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,71 @@ +## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## @deftypefn {Function File} {} FPL2dxoutputtimeseries ( @var{filename}, @var{p}, @var{t}, @var{u}, @var{attr_name}, @var{attr_rank}, @var{attr_shape}, @var{time} ) +## +## Outputs a time series in DX form. +## variable must be a scalar, vector or tensor of doubles +## @itemize @minus +## @item @var{filename}= name of file to save (type string) +## @item @var{p}, @var{t} = mesh +## @item @var{u} = variable to save +## @item @var{attr_name} = name of the variable (type string) +## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.) +## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar) +## @item @var{time} = time instants +## @end itemize +## @end deftypefn + +function FPL2dxoutputtimeseries(filename,p,t,u,attr_name,attr_rank,attr_shape,time) + + Nsteps = length(time); + if (Nsteps<=1) + endfile = 1; + else + endfile = 0; + endif + + FPL2dxoutputdata(filename,p,t,u(:,1:attr_shape),[attr_name "1"],attr_rank,attr_shape,endfile); + + for it = 2:Nsteps + FPL2dxappenddata(filename,p,t,u(:,[1:attr_shape]+attr_shape*(it-1)),... + [attr_name num2str(it)],attr_rank,attr_shape,endfile); + endfor + + fid=fopen(filename,"a"); + + fprintf (fid, "object \"%s_series\" class series\n",attr_name); + for it = 1:Nsteps + fprintf (fid,"member %d position %g value \"%s\"\n",it-1,time(it),[attr_name num2str(it)]); + endfor + fprintf (fid, "\nend\n"); + fclose(fid); + +endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2pdequiver.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2pdequiver.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,92 @@ +## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## @deftypefn {Function File} {} FPL2pdequiver (@var{mesh}, @ +## @var{vx}, @var{vy}, [ @var{property}, @var{value} ...]) +## +## Plots the 2D vector field @var{vx}, @var{vy} +## defined on the triangulation @var{mesh} using opendx. +## +## Options (default values): +## @var{sample_density} (100) +## +## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2ptcquiver} +## @end deftypefn + +function FPL2pdequiver(mesh,vecfieldx,vecfieldy,varargin); + + sample_density = "100"; + + if( (nargin >= 3) && (rem(nargin,2)==1) ) + for ii=1:2:length(varargin) + [ varargin{ii} " = " varargin{ii+1} ";" ] + eval([ varargin{ii} " = """ varargin{ii+1} """;" ]); + endfor + else + error(["wrong number of parameters " num2str (nargin)]) + endif + + JX = sum(vecfieldx,1)'/3; + JY = sum(vecfieldy,1)'/3; + + dataname = mktemp("/tmp",".dx"); + scriptname = mktemp("/tmp",".net"); + + FPL2dxoutputdata(dataname,mesh.p,mesh.t,[ JX JY],'J',1,2,1); + + showmesh = file_in_path(path,"FPL2pdequiver.net"); + + system (["cp " showmesh " " scriptname]); + system (["sed -i \'s|__FILE__DX__|" dataname "|g\' " scriptname]); + system (["sed -i \'s|__SAMPLE__DENSITY__|" sample_density "|g\' " scriptname]); + + command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; + + system(command); + + +endfunction + +function filename = mktemp (direct,ext); + + if (~exist(direct,"dir")) + error("trying to save temporary file to non existing directory") + endif + + done=false; + + while ~done + filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; + if ~exist(filename,"file") + done =true; + endif + endwhile + +endfunction diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2pdequiver.net --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2pdequiver.net Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,613 @@ +// +// time: Fri Jun 15 19:24:56 2007 +// +// version: 3.2.0 (format), 4.4.4 (DX) +// +// +// MODULE main +// workspace: width = 481, height = 614 +// layout: snap = 0, width = 50, height = 50, align = NN +// +macro main( +) -> ( +) { + // + // node FileSelector[1]: x = 173, y = 81, inputs = 0, label = FileSelector + // output[1]: visible = 1, type = 32, value = "__FILE__DX__" + // output[2]: visible = 1, type = 32, value = "__FILE__DX__" + // + // + // node Import[1]: x = 203, y = 177, inputs = 6, label = Import + // +main_Import_1_out_1 = + Import( + main_FileSelector_1_out_1, + main_Import_1_in_2, + main_Import_1_in_3, + main_Import_1_in_4, + main_Import_1_in_5, + main_Import_1_in_6 + ) [instance: 1, cache: 1]; + // + // node Sample[1]: x = 89, y = 238, inputs = 2, label = Sample + // input[2]: defaulting = 0, visible = 1, type = 1, value = __SAMPLE__DENSITY__ + // +main_Sample_1_out_1 = + Sample( + main_Import_1_out_1, + main_Sample_1_in_2 + ) [instance: 1, cache: 1]; + // + // node AutoGlyph[1]: x = 64, y = 323, inputs = 7, label = AutoGlyph + // +main_AutoGlyph_1_out_1 = + AutoGlyph( + main_Sample_1_out_1, + main_AutoGlyph_1_in_2, + main_AutoGlyph_1_in_3, + main_AutoGlyph_1_in_4, + main_AutoGlyph_1_in_5, + main_AutoGlyph_1_in_6, + main_AutoGlyph_1_in_7 + ) [instance: 1, cache: 1]; + // + // node AutoColor[1]: x = 76, y = 415, inputs = 10, label = AutoColor + // +main_AutoColor_1_out_1, +main_AutoColor_1_out_2 = + AutoColor( + main_AutoGlyph_1_out_1, + main_AutoColor_1_in_2, + main_AutoColor_1_in_3, + main_AutoColor_1_in_4, + main_AutoColor_1_in_5, + main_AutoColor_1_in_6, + main_AutoColor_1_in_7, + main_AutoColor_1_in_8, + main_AutoColor_1_in_9, + main_AutoColor_1_in_10 + ) [instance: 1, cache: 1]; + // + // node ColorBar[1]: x = 238, y = 367, inputs = 16, label = ColorBar + // +main_ColorBar_1_out_1 = + ColorBar( + main_AutoColor_1_out_2, + main_ColorBar_1_in_2, + main_ColorBar_1_in_3, + main_ColorBar_1_in_4, + main_ColorBar_1_in_5, + main_ColorBar_1_in_6, + main_ColorBar_1_in_7, + main_ColorBar_1_in_8, + main_ColorBar_1_in_9, + main_ColorBar_1_in_10, + main_ColorBar_1_in_11, + main_ColorBar_1_in_12, + main_ColorBar_1_in_13, + main_ColorBar_1_in_14, + main_ColorBar_1_in_15, + main_ColorBar_1_in_16 + ) [instance: 1, cache: 1]; + // + // node ShowConnections[1]: x = 348, y = 295, inputs = 1, label = ShowConnections + // +main_ShowConnections_1_out_1 = + ShowConnections( + main_Import_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Color[1]: x = 359, y = 398, inputs = 5, label = Color + // input[2]: defaulting = 0, visible = 1, type = 32, value = "black" + // +main_Color_1_out_1 = + Color( + main_ShowConnections_1_out_1, + main_Color_1_in_2, + main_Color_1_in_3, + main_Color_1_in_4, + main_Color_1_in_5 + ) [instance: 1, cache: 1]; + // + // node Collect[1]: x = 198, y = 465, inputs = 3, label = Collect + // +main_Collect_1_out_1 = + Collect( + main_AutoColor_1_out_1, + main_ColorBar_1_out_1, + main_Color_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Image[1]: x = 195, y = 552, inputs = 49, label = Image + // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1" + // input[4]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[5]: defaulting = 0, visible = 0, type = 8, value = [0.555651 0.5 0] + // input[6]: defaulting = 0, visible = 0, type = 8, value = [0.555651 0.5 3.71222] + // input[7]: defaulting = 0, visible = 0, type = 5, value = 1.98938 + // input[8]: defaulting = 0, visible = 0, type = 1, value = 1254 + // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.759 + // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0] + // input[11]: defaulting = 1, visible = 0, type = 5, value = 30.0001 + // input[12]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[15]: defaulting = 1, visible = 0, type = 32, value = "none" + // input[16]: defaulting = 1, visible = 0, type = 32, value = "none" + // input[17]: defaulting = 1, visible = 0, type = 1, value = 1 + // input[18]: defaulting = 1, visible = 0, type = 1, value = 1 + // input[19]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[22]: defaulting = 0, visible = 0, type = 32, value = "grey70" + // input[29]: defaulting = 1, visible = 0, type = 3, value = 0 + // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom" + // depth: value = 24 + // window: position = (0.0000,0.0000), size = 0.9906x0.9697 + // internal caching: 1 + // +main_Image_1_out_1, +main_Image_1_out_2, +main_Image_1_out_3 = + Image( + main_Image_1_in_1, + main_Collect_1_out_1, + main_Image_1_in_3, + main_Image_1_in_4, + main_Image_1_in_5, + main_Image_1_in_6, + main_Image_1_in_7, + main_Image_1_in_8, + main_Image_1_in_9, + main_Image_1_in_10, + main_Image_1_in_11, + main_Image_1_in_12, + main_Image_1_in_13, + main_Image_1_in_14, + main_Image_1_in_15, + main_Image_1_in_16, + main_Image_1_in_17, + main_Image_1_in_18, + main_Image_1_in_19, + main_Image_1_in_20, + main_Image_1_in_21, + main_Image_1_in_22, + main_Image_1_in_23, + main_Image_1_in_24, + main_Image_1_in_25, + main_Image_1_in_26, + main_Image_1_in_27, + main_Image_1_in_28, + main_Image_1_in_29, + main_Image_1_in_30, + main_Image_1_in_31, + main_Image_1_in_32, + main_Image_1_in_33, + main_Image_1_in_34, + main_Image_1_in_35, + main_Image_1_in_36, + main_Image_1_in_37, + main_Image_1_in_38, + main_Image_1_in_39, + main_Image_1_in_40, + main_Image_1_in_41, + main_Image_1_in_42, + main_Image_1_in_43, + main_Image_1_in_44, + main_Image_1_in_45, + main_Image_1_in_46, + main_Image_1_in_47, + main_Image_1_in_48, + main_Image_1_in_49 + ) [instance: 1, cache: 1]; +// network: end of macro body +CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); +} +main_FileSelector_1_out_1 = "__FILE__DX__"; +main_Import_1_in_2 = NULL; +main_Import_1_in_3 = NULL; +main_Import_1_in_4 = NULL; +main_Import_1_in_5 = NULL; +main_Import_1_in_6 = NULL; +main_Import_1_out_1 = NULL; +main_Sample_1_in_2 = __SAMPLE__DENSITY__; +main_Sample_1_out_1 = NULL; +main_AutoGlyph_1_in_2 = NULL; +main_AutoGlyph_1_in_3 = NULL; +main_AutoGlyph_1_in_4 = NULL; +main_AutoGlyph_1_in_5 = NULL; +main_AutoGlyph_1_in_6 = NULL; +main_AutoGlyph_1_in_7 = NULL; +main_AutoGlyph_1_out_1 = NULL; +main_AutoColor_1_in_2 = NULL; +main_AutoColor_1_in_3 = NULL; +main_AutoColor_1_in_4 = NULL; +main_AutoColor_1_in_5 = NULL; +main_AutoColor_1_in_6 = NULL; +main_AutoColor_1_in_7 = NULL; +main_AutoColor_1_in_8 = NULL; +main_AutoColor_1_in_9 = NULL; +main_AutoColor_1_in_10 = NULL; +main_AutoColor_1_out_1 = NULL; +main_AutoColor_1_out_2 = NULL; +main_ColorBar_1_in_2 = NULL; +main_ColorBar_1_in_3 = NULL; +main_ColorBar_1_in_4 = NULL; +main_ColorBar_1_in_5 = NULL; +main_ColorBar_1_in_6 = NULL; +main_ColorBar_1_in_7 = NULL; +main_ColorBar_1_in_8 = NULL; +main_ColorBar_1_in_9 = NULL; +main_ColorBar_1_in_10 = NULL; +main_ColorBar_1_in_11 = NULL; +main_ColorBar_1_in_12 = NULL; +main_ColorBar_1_in_13 = NULL; +main_ColorBar_1_in_14 = NULL; +main_ColorBar_1_in_15 = NULL; +main_ColorBar_1_in_16 = NULL; +main_ColorBar_1_out_1 = NULL; +main_ShowConnections_1_out_1 = NULL; +main_Color_1_in_2 = "black"; +main_Color_1_in_3 = NULL; +main_Color_1_in_4 = NULL; +main_Color_1_in_5 = NULL; +main_Color_1_out_1 = NULL; +main_Collect_1_out_1 = NULL; +macro Image( + id, + object, + where, + useVector, + to, + from, + width, + resolution, + aspect, + up, + viewAngle, + perspective, + options, + buttonState = 1, + buttonUpApprox = "none", + buttonDownApprox = "none", + buttonUpDensity = 1, + buttonDownDensity = 1, + renderMode = 0, + defaultCamera, + reset, + backgroundColor, + throttle, + RECenable = 0, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable = 0, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + interactionMode, + title, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + webOptions) -> ( + object, + camera, + where) +{ + ImageMessage( + id, + backgroundColor, + throttle, + RECenable, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + interactionMode, + title, + renderMode, + buttonUpApprox, + buttonDownApprox, + buttonUpDensity, + buttonDownDensity) [instance: 1, cache: 1]; + autoCamera = + AutoCamera( + object, + "front", + object, + resolution, + aspect, + [0,1,0], + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + realCamera = + Camera( + to, + from, + width, + resolution, + aspect, + up, + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + coloredDefaultCamera = + UpdateCamera(defaultCamera, + background=backgroundColor) [instance: 1, cache: 1]; + nullDefaultCamera = + Inquire(defaultCamera, + "is null + 1") [instance: 1, cache: 1]; + resetCamera = + Switch( + nullDefaultCamera, + coloredDefaultCamera, + autoCamera) [instance: 1, cache: 1]; + resetNull = + Inquire( + reset, + "is null + 1") [instance: 2, cache: 1]; + reset = + Switch( + resetNull, + reset, + 0) [instance: 2, cache: 1]; + whichCamera = + Compute( + "($0 != 0 || $1 == 0) ? 1 : 2", + reset, + useVector) [instance: 1, cache: 1]; + camera = Switch( + whichCamera, + resetCamera, + realCamera) [instance: 3, cache: 1]; + AAobject = + AutoAxes( + object, + camera, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels) [instance: 1, cache: 1]; + switchAAenable = Compute("$0+1", + AAenable) [instance: 2, cache: 1]; + object = Switch( + switchAAenable, + object, + AAobject) [instance:4, cache: 1]; + SWapproximation_options = + Switch( + buttonState, + buttonUpApprox, + buttonDownApprox) [instance: 5, cache: 1]; + SWdensity_options = + Switch( + buttonState, + buttonUpDensity, + buttonDownDensity) [instance: 6, cache: 1]; + HWapproximation_options = + Format( + "%s,%s", + buttonDownApprox, + buttonUpApprox) [instance: 1, cache: 1]; + HWdensity_options = + Format( + "%d,%d", + buttonDownDensity, + buttonUpDensity) [instance: 2, cache: 1]; + switchRenderMode = Compute( + "$0+1", + renderMode) [instance: 3, cache: 1]; + approximation_options = Switch( + switchRenderMode, + SWapproximation_options, + HWapproximation_options) [instance: 7, cache: 1]; + density_options = Switch( + switchRenderMode, + SWdensity_options, + HWdensity_options) [instance: 8, cache: 1]; + renderModeString = Switch( + switchRenderMode, + "software", + "hardware")[instance: 9, cache: 1]; + object_tag = Inquire( + object, + "object tag")[instance: 3, cache: 1]; + annoted_object = + Options( + object, + "send boxes", + 0, + "cache", + 1, + "object tag", + object_tag, + "ddcamera", + whichCamera, + "rendering approximation", + approximation_options, + "render every", + density_options, + "button state", + buttonState, + "rendering mode", + renderModeString) [instance: 1, cache: 1]; + RECresNull = + Inquire( + RECresolution, + "is null + 1") [instance: 4, cache: 1]; + ImageResolution = + Inquire( + camera, + "camera resolution") [instance: 5, cache: 1]; + RECresolution = + Switch( + RECresNull, + RECresolution, + ImageResolution) [instance: 10, cache: 1]; + RECaspectNull = + Inquire( + RECaspect, + "is null + 1") [instance: 6, cache: 1]; + ImageAspect = + Inquire( + camera, + "camera aspect") [instance: 7, cache: 1]; + RECaspect = + Switch( + RECaspectNull, + RECaspect, + ImageAspect) [instance: 11, cache: 1]; + switchRECenable = Compute( + "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", + RECenable, + switchRenderMode, + RECresolution, + ImageResolution, + RECaspect, + ImageAspect) [instance: 4, cache: 1]; + NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); + Display( + NoRECobject, + camera, + where, + throttle) [instance: 1, cache: 1]; + image = + Render( + RECNoRerenderObject, + camera) [instance: 1, cache: 1]; + Display( + image, + NULL, + where, + throttle) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 1, cache: 1]; + rec_where = Display( + RECNoRerHW, + camera, + where, + throttle) [instance: 1, cache: 0]; + rec_image = ReadImageWindow( + rec_where) [instance: 1, cache: 1]; + WriteImage( + rec_image, + RECfile, + RECformat) [instance: 1, cache: 1]; + RECupdateCamera = + UpdateCamera( + camera, + resolution=RECresolution, + aspect=RECaspect) [instance: 2, cache: 1]; + Display( + RECRerenderObject, + camera, + where, + throttle) [instance: 1, cache: 1]; + RECRerenderObject = + ScaleScreen( + RECRerenderObject, + NULL, + RECresolution, + camera) [instance: 1, cache: 1]; + image = + Render( + RECRerenderObject, + RECupdateCamera) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 2, cache: 1]; +} +main_Image_1_in_1 = "Image_1"; +main_Image_1_in_3 = "X24,,"; +main_Image_1_in_4 = 1; +main_Image_1_in_5 = [0.555651 0.5 0]; +main_Image_1_in_6 = [0.555651 0.5 3.71222]; +main_Image_1_in_7 = 1.98938; +main_Image_1_in_8 = 1254; +main_Image_1_in_9 = 0.759; +main_Image_1_in_10 = [0 1 0]; +main_Image_1_in_11 = NULL; +main_Image_1_in_12 = 0; +main_Image_1_in_13 = NULL; +main_Image_1_in_14 = 1; +main_Image_1_in_15 = NULL; +main_Image_1_in_16 = NULL; +main_Image_1_in_17 = NULL; +main_Image_1_in_18 = NULL; +main_Image_1_in_19 = 0; +main_Image_1_in_20 = NULL; +main_Image_1_in_21 = NULL; +main_Image_1_in_22 = "grey70"; +main_Image_1_in_23 = NULL; +main_Image_1_in_25 = NULL; +main_Image_1_in_26 = NULL; +main_Image_1_in_27 = NULL; +main_Image_1_in_28 = NULL; +main_Image_1_in_29 = NULL; +main_Image_1_in_30 = NULL; +main_Image_1_in_31 = NULL; +main_Image_1_in_32 = NULL; +main_Image_1_in_33 = NULL; +main_Image_1_in_34 = NULL; +main_Image_1_in_35 = NULL; +main_Image_1_in_36 = NULL; +main_Image_1_in_37 = NULL; +main_Image_1_in_38 = NULL; +main_Image_1_in_39 = NULL; +main_Image_1_in_40 = NULL; +main_Image_1_in_41 = "panzoom"; +main_Image_1_in_42 = NULL; +main_Image_1_in_43 = NULL; +main_Image_1_in_44 = NULL; +main_Image_1_in_45 = NULL; +main_Image_1_in_46 = NULL; +main_Image_1_in_47 = NULL; +main_Image_1_in_48 = NULL; +main_Image_1_in_49 = NULL; +Executive("product version 4 4 4"); +$sync +main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2pdeshowmesh.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2pdeshowmesh.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,94 @@ +## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## +## @deftypefn {Function File} {} FPL2pdeshowmesh (@var{mesh},@var{color}) +## +## Displays one 2-D triangulations using opendx +## +## Examples: +## @example +## +## FPL2pdeshowmesh(mesh) +## FPL2pdeshowmesh(mesh,"blue") +## +## @end example +## +## @seealso{FPL2ptcshowmesh} +## @end deftypefn + +function FPL2pdeshowmesh (varargin) + + if nargin == 1 + colorname = "red"; + else + colorname = varargin{2}; + endif + + dataname = mktemp("/tmp",".dx"); + FPL2dxoutputdata(dataname,varargin{1}.p,varargin{1}.t,varargin{1}.p(1,:)','x',0,1,1); + + scriptname = mktemp("/tmp",".net"); + + showmesh = file_in_path(path,"FPL2pdeshowmesh.net"); + + system (["cp " showmesh " " scriptname]); + system (["sed -i \'s|FILENAME|" dataname "|g\' " scriptname]); + system (["sed -i \'s|COLORNAME|" colorname "|g\' " scriptname]); + + command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; + system(command); + +endfunction + +function filename = mktemp (direct,ext); + + if (~exist(direct,"dir")) + error("trying to save temporary file to non existing directory") + end + + done=false; + + while ~done + filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; + if ~exist(filename,"file") + done =true; + endif + endwhile + +endfunction + +%!test +%! msh.p = [0 0; 1 0; 1 1; 0 1].'; +%! msh.t = [1 2 3 1; 1 3 4 1].'; +%! msh.e = [1 2 0 0 1 0 1; 2 3 0 0 2 0 1; 3 4 0 0 3 0 1; 4 1 0 0 4 0 1].'; +%! FPL2pdeshowmesh (msh, "red"); +%! s = input ("do you see a red outlined square divided in two triangles (if you see an empty plot try ctrl-F)? (y/n): " ,"s"); +%! assert(s, "y") \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2pdeshowmesh.net --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2pdeshowmesh.net Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,518 @@ +// +// time: Sat Jan 5 12:20:20 2008 +// +// version: 3.2.0 (format), 4.4.4 (DX) +// +// +// MODULE main +// workspace: width = 260, height = 456 +// layout: snap = 1, width = 10, height = 10, align = CC +// +macro main( +) -> ( +) { + // + // node String[1]: x = 81, y = 24, inputs = 0, label = String + // output[1]: visible = 1, type = 32, value = "FILENAME" + // + // + // node Import[1]: x = 79, y = 104, inputs = 6, label = Import + // +main_Import_1_out_1 = + Import( + main_String_1_out_1, + main_Import_1_in_2, + main_Import_1_in_3, + main_Import_1_in_4, + main_Import_1_in_5, + main_Import_1_in_6 + ) [instance: 1, cache: 1]; + // + // node String[2]: x = 211, y = 24, inputs = 0, label = String + // output[1]: visible = 1, type = 32, value = "COLORNAME" + // + // + // node Color[1]: x = 149, y = 184, inputs = 5, label = Color + // input[2]: defaulting = 1, visible = 1, type = 32, value = "indianred" + // +main_Color_1_out_1 = + Color( + main_Import_1_out_1, + main_String_2_out_1, + main_Color_1_in_3, + main_Color_1_in_4, + main_Color_1_in_5 + ) [instance: 1, cache: 1]; + // + // node ShowConnections[1]: x = 119, y = 294, inputs = 1, label = ShowConnections + // +main_ShowConnections_1_out_1 = + ShowConnections( + main_Color_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Image[1]: x = 149, y = 394, inputs = 49, label = Image + // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1" + // input[4]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[5]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 0] + // input[6]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 39.3199] + // input[7]: defaulting = 0, visible = 0, type = 5, value = 21.0715 + // input[8]: defaulting = 0, visible = 0, type = 1, value = 804 + // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.610075 + // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0] + // input[11]: defaulting = 1, visible = 0, type = 5, value = 30.0 + // input[12]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[15]: defaulting = 1, visible = 0, type = 32, value = "none" + // input[16]: defaulting = 1, visible = 0, type = 32, value = "none" + // input[17]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[18]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[19]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow" + // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif" + // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff" + // input[29]: defaulting = 0, visible = 0, type = 3, value = 1 + // input[31]: defaulting = 0, visible = 0, type = 1, value = -15 + // input[33]: defaulting = 0, visible = 0, type = 3, value = 0 + // input[34]: defaulting = 0, visible = 0, type = 3, value = 0 + // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "grey5", "saddlebrown", "saddlebrown"} + // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"} + // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.7 + // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_s" + // input[41]: defaulting = 0, visible = 0, type = 32, value = "none" + // depth: value = 24 + // window: position = (0.2479,0.1267), size = 0.6389x0.6833 + // internal caching: 1 + // +main_Image_1_out_1, +main_Image_1_out_2, +main_Image_1_out_3 = + Image( + main_Image_1_in_1, + main_ShowConnections_1_out_1, + main_Image_1_in_3, + main_Image_1_in_4, + main_Image_1_in_5, + main_Image_1_in_6, + main_Image_1_in_7, + main_Image_1_in_8, + main_Image_1_in_9, + main_Image_1_in_10, + main_Image_1_in_11, + main_Image_1_in_12, + main_Image_1_in_13, + main_Image_1_in_14, + main_Image_1_in_15, + main_Image_1_in_16, + main_Image_1_in_17, + main_Image_1_in_18, + main_Image_1_in_19, + main_Image_1_in_20, + main_Image_1_in_21, + main_Image_1_in_22, + main_Image_1_in_23, + main_Image_1_in_24, + main_Image_1_in_25, + main_Image_1_in_26, + main_Image_1_in_27, + main_Image_1_in_28, + main_Image_1_in_29, + main_Image_1_in_30, + main_Image_1_in_31, + main_Image_1_in_32, + main_Image_1_in_33, + main_Image_1_in_34, + main_Image_1_in_35, + main_Image_1_in_36, + main_Image_1_in_37, + main_Image_1_in_38, + main_Image_1_in_39, + main_Image_1_in_40, + main_Image_1_in_41, + main_Image_1_in_42, + main_Image_1_in_43, + main_Image_1_in_44, + main_Image_1_in_45, + main_Image_1_in_46, + main_Image_1_in_47, + main_Image_1_in_48, + main_Image_1_in_49 + ) [instance: 1, cache: 1]; +// network: end of macro body +CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); +} +main_String_1_out_1 = "FILENAME"; +main_Import_1_in_2 = NULL; +main_Import_1_in_3 = NULL; +main_Import_1_in_4 = NULL; +main_Import_1_in_5 = NULL; +main_Import_1_in_6 = NULL; +main_Import_1_out_1 = NULL; +main_String_2_out_1 = "COLORNAME"; +main_Color_1_in_3 = NULL; +main_Color_1_in_4 = NULL; +main_Color_1_in_5 = NULL; +main_Color_1_out_1 = NULL; +main_ShowConnections_1_out_1 = NULL; +macro Image( + id, + object, + where, + useVector, + to, + from, + width, + resolution, + aspect, + up, + viewAngle, + perspective, + options, + buttonState = 1, + buttonUpApprox = "none", + buttonDownApprox = "none", + buttonUpDensity = 1, + buttonDownDensity = 1, + renderMode = 0, + defaultCamera, + reset, + backgroundColor, + throttle, + RECenable = 0, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable = 0, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + interactionMode, + title, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + webOptions) -> ( + object, + camera, + where) +{ + ImageMessage( + id, + backgroundColor, + throttle, + RECenable, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + interactionMode, + title, + renderMode, + buttonUpApprox, + buttonDownApprox, + buttonUpDensity, + buttonDownDensity) [instance: 1, cache: 1]; + autoCamera = + AutoCamera( + object, + "front", + object, + resolution, + aspect, + [0,1,0], + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + realCamera = + Camera( + to, + from, + width, + resolution, + aspect, + up, + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + coloredDefaultCamera = + UpdateCamera(defaultCamera, + background=backgroundColor) [instance: 1, cache: 1]; + nullDefaultCamera = + Inquire(defaultCamera, + "is null + 1") [instance: 1, cache: 1]; + resetCamera = + Switch( + nullDefaultCamera, + coloredDefaultCamera, + autoCamera) [instance: 1, cache: 1]; + resetNull = + Inquire( + reset, + "is null + 1") [instance: 2, cache: 1]; + reset = + Switch( + resetNull, + reset, + 0) [instance: 2, cache: 1]; + whichCamera = + Compute( + "($0 != 0 || $1 == 0) ? 1 : 2", + reset, + useVector) [instance: 1, cache: 1]; + camera = Switch( + whichCamera, + resetCamera, + realCamera) [instance: 3, cache: 1]; + AAobject = + AutoAxes( + object, + camera, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels) [instance: 1, cache: 1]; + switchAAenable = Compute("$0+1", + AAenable) [instance: 2, cache: 1]; + object = Switch( + switchAAenable, + object, + AAobject) [instance:4, cache: 1]; + SWapproximation_options = + Switch( + buttonState, + buttonUpApprox, + buttonDownApprox) [instance: 5, cache: 1]; + SWdensity_options = + Switch( + buttonState, + buttonUpDensity, + buttonDownDensity) [instance: 6, cache: 1]; + HWapproximation_options = + Format( + "%s,%s", + buttonDownApprox, + buttonUpApprox) [instance: 1, cache: 1]; + HWdensity_options = + Format( + "%d,%d", + buttonDownDensity, + buttonUpDensity) [instance: 2, cache: 1]; + switchRenderMode = Compute( + "$0+1", + renderMode) [instance: 3, cache: 1]; + approximation_options = Switch( + switchRenderMode, + SWapproximation_options, + HWapproximation_options) [instance: 7, cache: 1]; + density_options = Switch( + switchRenderMode, + SWdensity_options, + HWdensity_options) [instance: 8, cache: 1]; + renderModeString = Switch( + switchRenderMode, + "software", + "hardware")[instance: 9, cache: 1]; + object_tag = Inquire( + object, + "object tag")[instance: 3, cache: 1]; + annoted_object = + Options( + object, + "send boxes", + 0, + "cache", + 1, + "object tag", + object_tag, + "ddcamera", + whichCamera, + "rendering approximation", + approximation_options, + "render every", + density_options, + "button state", + buttonState, + "rendering mode", + renderModeString) [instance: 1, cache: 1]; + RECresNull = + Inquire( + RECresolution, + "is null + 1") [instance: 4, cache: 1]; + ImageResolution = + Inquire( + camera, + "camera resolution") [instance: 5, cache: 1]; + RECresolution = + Switch( + RECresNull, + RECresolution, + ImageResolution) [instance: 10, cache: 1]; + RECaspectNull = + Inquire( + RECaspect, + "is null + 1") [instance: 6, cache: 1]; + ImageAspect = + Inquire( + camera, + "camera aspect") [instance: 7, cache: 1]; + RECaspect = + Switch( + RECaspectNull, + RECaspect, + ImageAspect) [instance: 11, cache: 1]; + switchRECenable = Compute( + "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", + RECenable, + switchRenderMode, + RECresolution, + ImageResolution, + RECaspect, + ImageAspect) [instance: 4, cache: 1]; + NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); + Display( + NoRECobject, + camera, + where, + throttle) [instance: 1, cache: 1]; + image = + Render( + RECNoRerenderObject, + camera) [instance: 1, cache: 1]; + Display( + image, + NULL, + where, + throttle) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 1, cache: 1]; + rec_where = Display( + RECNoRerHW, + camera, + where, + throttle) [instance: 1, cache: 0]; + rec_image = ReadImageWindow( + rec_where) [instance: 1, cache: 1]; + WriteImage( + rec_image, + RECfile, + RECformat) [instance: 1, cache: 1]; + RECupdateCamera = + UpdateCamera( + camera, + resolution=RECresolution, + aspect=RECaspect) [instance: 2, cache: 1]; + Display( + RECRerenderObject, + camera, + where, + throttle) [instance: 1, cache: 1]; + RECRerenderObject = + ScaleScreen( + RECRerenderObject, + NULL, + RECresolution, + camera) [instance: 1, cache: 1]; + image = + Render( + RECRerenderObject, + RECupdateCamera) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 2, cache: 1]; +} +main_Image_1_in_1 = "Image_1"; +main_Image_1_in_3 = "X24,,"; +main_Image_1_in_4 = 1; +main_Image_1_in_5 = [7.5 7.5 0]; +main_Image_1_in_6 = [7.5 7.5 39.3199]; +main_Image_1_in_7 = 21.0715; +main_Image_1_in_8 = 804; +main_Image_1_in_9 = 0.610075; +main_Image_1_in_10 = [0 1 0]; +main_Image_1_in_11 = NULL; +main_Image_1_in_12 = 0; +main_Image_1_in_13 = NULL; +main_Image_1_in_14 = 1; +main_Image_1_in_15 = NULL; +main_Image_1_in_16 = NULL; +main_Image_1_in_17 = 1; +main_Image_1_in_18 = 1; +main_Image_1_in_19 = 1; +main_Image_1_in_20 = NULL; +main_Image_1_in_21 = NULL; +main_Image_1_in_22 = "snow"; +main_Image_1_in_23 = NULL; +main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif"; +main_Image_1_in_26 = "tiff"; +main_Image_1_in_27 = NULL; +main_Image_1_in_28 = NULL; +main_Image_1_in_29 = 1; +main_Image_1_in_30 = NULL; +main_Image_1_in_31 = -15; +main_Image_1_in_32 = NULL; +main_Image_1_in_33 = 0; +main_Image_1_in_34 = 0; +main_Image_1_in_35 = NULL; +main_Image_1_in_36 = NULL; +main_Image_1_in_37 = {"clear", "grey5", "saddlebrown", "saddlebrown"}; +main_Image_1_in_38 = {"background", "grid", "ticks", "labels"}; +main_Image_1_in_39 = 0.7; +main_Image_1_in_40 = "roman_s"; +main_Image_1_in_41 = "none"; +main_Image_1_in_42 = NULL; +main_Image_1_in_43 = NULL; +main_Image_1_in_44 = NULL; +main_Image_1_in_45 = NULL; +main_Image_1_in_46 = NULL; +main_Image_1_in_47 = NULL; +main_Image_1_in_48 = NULL; +main_Image_1_in_49 = NULL; +Executive("product version 4 4 4"); +$sync +main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2pdesurf.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2pdesurf.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,130 @@ +## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## @deftypefn {Function File} {} FPL2pdesurf (@var{mesh}, @ +## @var{u} [ @var{property}, @var{value} ...]) +## +## plots the scalar field @var{u} +## defined on the triangulation @var{mesh} using opendx. +## +## options (default value): +## @itemize @minus +## @item data_dep ("positions") defines wether data depends on +## positions or connections +## @item plot_field ("scalar") defines wether to plot the scalar field +## itself or its gradient +## @end itemize +## +## @seealso{MSH2Mgmsh, MSH2Mstructmesh} +## @end deftypefn + +function FPL2pdesurf(varargin) + + data_dep = "positions"; + plot_field = "scalar"; + + if nargin == 1 + FPL2showmesh(varargin{1}); + elseif nargin == 2 + mesh = varargin{1}; + u = varargin{2}; + elseif ( (nargin > 2) && (rem(nargin,2)==0) ) + mesh = varargin{1}; + u = varargin{2}; + for ii=3:2:nargin + eval([ varargin{ii} " = """ varargin{ii+1} """;" ]); + endfor + else + keyboard ,error(["wrong number of parameters " num2str (nargin)]) + endif + + dataname = mktemp("/tmp",".dx"); + scriptname = mktemp("/tmp",".net"); + + FPL2dxoutputdata(dataname,mesh.p,mesh.t,u,'u',0,1,1); + + switch plot_field + case {"scalar","scal"} + showmesh = file_in_path(path,"FPL2coloredrubbersheet.net"); + case {"gradient","grad"} + showmesh = file_in_path(path,"FPL2coloredgradient.net"); + otherwise + error ([ "incorrect value " plot_field " for option plot_field "]) + endswitch + + system (["cp " showmesh " " scriptname]); + system (["sed -i \'s|__FILE__DX__|" dataname "|g\' " scriptname]); + + switch data_dep + case {"positions","continuous","interpolate","P1"} + system (["sed -i \'s|__DATA_DEPENDENCY__|positions|g\' " scriptname]); + case {"connections","discontinuous","P0"} + system (["sed -i \'s|__DATA_DEPENDENCY__|positions|g\' " scriptname]); + otherwise + error ([ "incorrect value " data_dep " for option data_dep "]) + endswitch + + ##command = ["dx -noConfirmedQuit -noImageRWNetFile -program " scriptname " -execute -image >& /dev/null & "]; + command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; + + system(command); + +endfunction + +function filename = mktemp (direct,ext); + + if (~exist(direct,"dir")) + error("trying to save temporary file to non existing directory") + endif + + done=false; + + while ~done + filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; + if ~exist(filename,"file") + done =true; + endif + endwhile + +endfunction + +%!shared msh +%!test +%! msh.p = [0 0; 1 0; 1 1; 0 1].'; +%! msh.t = [1 2 3 1; 1 3 4 1].'; +%! msh.e = [1 2 0 0 1 0 1; 2 3 0 0 2 0 1; 3 4 0 0 3 0 1; 4 1 0 0 4 0 1].'; +%! u = [0 1].'; +%! FPL2pdesurf (msh, u, "data_dep", "connections"); +%! s = input ("do you see a square divided into two triangles with a diagonal red-to-blue gradient color (if you see an empty plot try ctrl-F)? (y/n): " ,"s"); +%! assert(s, "y") +%!test +%! v = [0 0 1 1].'; +%! FPL2pdesurf (msh, v); +%! s = input ("do you see a square divided into two triangles with a vertical red-to-blue gradient color (if you see an empty plot try ctrl-F)? (y/n): " ,"s"); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2ptcquiver.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2ptcquiver.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,83 @@ +## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## @deftypefn {Function File} {} FPL2ptcquiver (@var{mesh1}, @var{color1} +## @var{vx1}, @var{vy1}, [ @var{mesh2}, @var{color2}, @var{vx2}, @var{vy2} ...]) +## +## Plots the 2D vector fields @var{vx}, @var{vy} +## defined on the triangulations @var{mesh} using opendx. +## +## +## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2pdequiver} +## @end deftypefn + +function FPL2ptcquiver(varargin) + + colorlist = ""; + datalist = ""; + + for ii = 1:4:nargin + dataname{ii} = mktemp("/tmp",".dx"); + JX = sum(varargin{ii+2},1)'/3; + JY = sum(varargin{ii+3},1)'/3; + FPL2dxoutputdata(dataname{ii},varargin{ii}.p,varargin{ii}.t,[ JX JY],'J',1,2,1); + datalist = strcat (datalist, """", dataname{ii} , """"); + colorlist= strcat (colorlist, """", varargin{ii+1} , """"); + endfor + + scriptname = mktemp("/tmp",".net"); + + view = file_in_path(path,"FPL2ptcquiver.net"); + + system (["cp " view " " scriptname]); + system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]); + system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]); + + command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; + system(command); + +endfunction + +function filename = mktemp (direct,ext); + + if (~exist(direct,"dir")) + error("trying to save temporary file to non existing directory") + endif + + done=false; + + while ~done + filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; + if ~exist(filename,"file") + done =true; + endif + endwhile + +endfunction diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2ptcquiver.net --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2ptcquiver.net Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,710 @@ +// +// time: Mon Jan 7 11:37:04 2008 +// +// version: 3.2.0 (format), 4.4.4 (DX) +// +// +// MODULE main +// workspace: width = 875, height = 996 +// layout: snap = 1, width = 10, height = 10, align = CC +// +macro main( +) -> ( +) { + // + // node CollectMultiGrid[1]: x = 125, y = 584, inputs = 4, label = CollectMultiGrid + // +main_CollectMultiGrid_1_out_1 = + CollectMultiGrid( + main_CollectMultiGrid_1_in_1, + main_CollectMultiGrid_1_in_2, + main_CollectMultiGrid_1_in_3, + main_CollectMultiGrid_1_in_4 + ) [instance: 1, cache: 1]; + // + // node StringList[1]: x = 478, y = 14, inputs = 0, label = StringList + // output[1]: visible = 1, type = 16777248, value = { "FILELIST" } + // + // + // node ForEachMember[1]: x = 455, y = 94, inputs = 1, label = ForEachMember + // +main_ForEachMember_1_out_1, +main_ForEachMember_1_out_2, +main_ForEachMember_1_out_3 = + ForEachMember( + main_StringList_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Import[1]: x = 479, y = 194, inputs = 6, label = Import + // +main_Import_1_out_1 = + Import( + main_ForEachMember_1_out_1, + main_Import_1_in_2, + main_Import_1_in_3, + main_Import_1_in_4, + main_Import_1_in_5, + main_Import_1_in_6 + ) [instance: 1, cache: 1]; + // + // node ShowConnections[1]: x = 239, y = 384, inputs = 1, label = ShowConnections + // +main_ShowConnections_1_out_1 = + ShowConnections( + main_Import_1_out_1 + ) [instance: 1, cache: 1]; + // + // node StringList[2]: x = 418, y = 384, inputs = 0, label = StringList + // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" } + // + // + // node ForEachMember[2]: x = 395, y = 474, inputs = 1, label = ForEachMember + // +main_ForEachMember_2_out_1, +main_ForEachMember_2_out_2, +main_ForEachMember_2_out_3 = + ForEachMember( + main_StringList_2_out_1 + ) [instance: 2, cache: 1]; + // + // node Color[1]: x = 289, y = 584, inputs = 5, label = Color + // +main_Color_1_out_1 = + Color( + main_ShowConnections_1_out_1, + main_ForEachMember_2_out_1, + main_Color_1_in_3, + main_Color_1_in_4, + main_Color_1_in_5 + ) [instance: 1, cache: 1]; + // + // node GetLocal[1]: x = 452, y = 614, inputs = 3, label = GetLocal + // +main_GetLocal_1_out_1, +main_GetLocal_1_out_2 = + GetLocal( + main_GetLocal_1_in_1, + main_GetLocal_1_in_2, + main_GetLocal_1_in_3 + ) [instance: 1, cache: 1]; + // + // node Append[1]: x = 285, y = 724, inputs = 5, label = Append + // +main_Append_1_out_1 = + Append( + main_CollectMultiGrid_1_out_1, + main_Color_1_out_1, + main_Append_1_in_3, + main_GetLocal_1_out_1, + main_Append_1_in_5 + ) [instance: 1, cache: 1]; + // + // node GetLocal[2]: x = 802, y = 264, inputs = 3, label = GetLocal + // +main_GetLocal_2_out_1, +main_GetLocal_2_out_2 = + GetLocal( + main_GetLocal_2_in_1, + main_GetLocal_2_in_2, + main_GetLocal_2_in_3 + ) [instance: 2, cache: 1]; + // + // node Append[2]: x = 595, y = 384, inputs = 5, label = Append + // +main_Append_2_out_1 = + Append( + main_CollectMultiGrid_1_out_1, + main_Import_1_out_1, + main_Append_2_in_3, + main_GetLocal_2_out_1, + main_Append_2_in_5 + ) [instance: 2, cache: 1]; + // + // node Sample[1]: x = 627, y = 474, inputs = 2, label = Sample + // +main_Sample_1_out_1 = + Sample( + main_Append_2_out_1, + main_Sample_1_in_2 + ) [instance: 1, cache: 1]; + // + // node AutoGlyph[1]: x = 625, y = 544, inputs = 7, label = AutoGlyph + // +main_AutoGlyph_1_out_1 = + AutoGlyph( + main_Sample_1_out_1, + main_AutoGlyph_1_in_2, + main_AutoGlyph_1_in_3, + main_AutoGlyph_1_in_4, + main_AutoGlyph_1_in_5, + main_AutoGlyph_1_in_6, + main_AutoGlyph_1_in_7 + ) [instance: 1, cache: 1]; + // + // node AutoColor[1]: x = 626, y = 614, inputs = 10, label = AutoColor + // input[8]: visible = 1 + // +main_AutoColor_1_out_1, +main_AutoColor_1_out_2 = + AutoColor( + main_AutoGlyph_1_out_1, + main_AutoColor_1_in_2, + main_AutoColor_1_in_3, + main_AutoColor_1_in_4, + main_AutoColor_1_in_5, + main_AutoColor_1_in_6, + main_AutoColor_1_in_7, + main_AutoColor_1_in_8, + main_AutoColor_1_in_9, + main_AutoColor_1_in_10 + ) [instance: 1, cache: 1]; + // + // node ColorBar[1]: x = 755, y = 724, inputs = 16, label = ColorBar + // +main_ColorBar_1_out_1 = + ColorBar( + main_AutoColor_1_out_2, + main_ColorBar_1_in_2, + main_ColorBar_1_in_3, + main_ColorBar_1_in_4, + main_ColorBar_1_in_5, + main_ColorBar_1_in_6, + main_ColorBar_1_in_7, + main_ColorBar_1_in_8, + main_ColorBar_1_in_9, + main_ColorBar_1_in_10, + main_ColorBar_1_in_11, + main_ColorBar_1_in_12, + main_ColorBar_1_in_13, + main_ColorBar_1_in_14, + main_ColorBar_1_in_15, + main_ColorBar_1_in_16 + ) [instance: 1, cache: 1]; + // + // node Collect[1]: x = 599, y = 844, inputs = 3, label = Collect + // +main_Collect_1_out_1 = + Collect( + main_Append_1_out_1, + main_AutoColor_1_out_1, + main_ColorBar_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Image[1]: x = 599, y = 934, inputs = 49, label = Image + // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_1" + // input[4]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[19]: defaulting = 0, visible = 0, type = 3, value = 0 + // depth: value = 24 + // internal caching: 1 + // +main_Image_1_out_1, +main_Image_1_out_2, +main_Image_1_out_3 = + Image( + main_Image_1_in_1, + main_Collect_1_out_1, + main_Image_1_in_3, + main_Image_1_in_4, + main_Image_1_in_5, + main_Image_1_in_6, + main_Image_1_in_7, + main_Image_1_in_8, + main_Image_1_in_9, + main_Image_1_in_10, + main_Image_1_in_11, + main_Image_1_in_12, + main_Image_1_in_13, + main_Image_1_in_14, + main_Image_1_in_15, + main_Image_1_in_16, + main_Image_1_in_17, + main_Image_1_in_18, + main_Image_1_in_19, + main_Image_1_in_20, + main_Image_1_in_21, + main_Image_1_in_22, + main_Image_1_in_23, + main_Image_1_in_24, + main_Image_1_in_25, + main_Image_1_in_26, + main_Image_1_in_27, + main_Image_1_in_28, + main_Image_1_in_29, + main_Image_1_in_30, + main_Image_1_in_31, + main_Image_1_in_32, + main_Image_1_in_33, + main_Image_1_in_34, + main_Image_1_in_35, + main_Image_1_in_36, + main_Image_1_in_37, + main_Image_1_in_38, + main_Image_1_in_39, + main_Image_1_in_40, + main_Image_1_in_41, + main_Image_1_in_42, + main_Image_1_in_43, + main_Image_1_in_44, + main_Image_1_in_45, + main_Image_1_in_46, + main_Image_1_in_47, + main_Image_1_in_48, + main_Image_1_in_49 + ) [instance: 1, cache: 1]; + // + // node SetLocal[1]: x = 462, y = 724, inputs = 3, label = SetLocal + // + SetLocal( + main_Append_1_out_1, + main_GetLocal_1_out_2, + main_SetLocal_1_in_3 + ) [instance: 1, cache: 1]; + // + // node SetLocal[2]: x = 792, y = 384, inputs = 3, label = SetLocal + // + SetLocal( + main_Append_2_out_1, + main_GetLocal_2_out_2, + main_SetLocal_2_in_3 + ) [instance: 2, cache: 1]; +// network: end of macro body +CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); +} +main_CollectMultiGrid_1_in_1 = NULL; +main_CollectMultiGrid_1_in_2 = NULL; +main_CollectMultiGrid_1_in_3 = NULL; +main_CollectMultiGrid_1_in_4 = NULL; +main_CollectMultiGrid_1_out_1 = NULL; +main_StringList_1_out_1 = { "FILELIST" }; +main_ForEachMember_1_out_1 = NULL; +main_Import_1_in_2 = NULL; +main_Import_1_in_3 = NULL; +main_Import_1_in_4 = NULL; +main_Import_1_in_5 = NULL; +main_Import_1_in_6 = NULL; +main_Import_1_out_1 = NULL; +main_ShowConnections_1_out_1 = NULL; +main_StringList_2_out_1 = { "COLORLIST" }; +main_ForEachMember_2_out_1 = NULL; +main_Color_1_in_3 = NULL; +main_Color_1_in_4 = NULL; +main_Color_1_in_5 = NULL; +main_Color_1_out_1 = NULL; +main_GetLocal_1_in_1 = NULL; +main_GetLocal_1_in_2 = NULL; +main_GetLocal_1_in_3 = NULL; +main_GetLocal_1_out_1 = NULL; +main_GetLocal_1_out_2 = NULL; +main_Append_1_in_3 = NULL; +main_Append_1_in_5 = NULL; +main_Append_1_out_1 = NULL; +main_GetLocal_2_in_1 = NULL; +main_GetLocal_2_in_2 = NULL; +main_GetLocal_2_in_3 = NULL; +main_GetLocal_2_out_1 = NULL; +main_GetLocal_2_out_2 = NULL; +main_Append_2_in_3 = NULL; +main_Append_2_in_5 = NULL; +main_Append_2_out_1 = NULL; +main_Sample_1_in_2 = NULL; +main_Sample_1_out_1 = NULL; +main_AutoGlyph_1_in_2 = NULL; +main_AutoGlyph_1_in_3 = NULL; +main_AutoGlyph_1_in_4 = NULL; +main_AutoGlyph_1_in_5 = NULL; +main_AutoGlyph_1_in_6 = NULL; +main_AutoGlyph_1_in_7 = NULL; +main_AutoGlyph_1_out_1 = NULL; +main_AutoColor_1_in_2 = NULL; +main_AutoColor_1_in_3 = NULL; +main_AutoColor_1_in_4 = NULL; +main_AutoColor_1_in_5 = NULL; +main_AutoColor_1_in_6 = NULL; +main_AutoColor_1_in_7 = NULL; +main_AutoColor_1_in_8 = NULL; +main_AutoColor_1_in_9 = NULL; +main_AutoColor_1_in_10 = NULL; +main_AutoColor_1_out_1 = NULL; +main_AutoColor_1_out_2 = NULL; +main_ColorBar_1_in_2 = NULL; +main_ColorBar_1_in_3 = NULL; +main_ColorBar_1_in_4 = NULL; +main_ColorBar_1_in_5 = NULL; +main_ColorBar_1_in_6 = NULL; +main_ColorBar_1_in_7 = NULL; +main_ColorBar_1_in_8 = NULL; +main_ColorBar_1_in_9 = NULL; +main_ColorBar_1_in_10 = NULL; +main_ColorBar_1_in_11 = NULL; +main_ColorBar_1_in_12 = NULL; +main_ColorBar_1_in_13 = NULL; +main_ColorBar_1_in_14 = NULL; +main_ColorBar_1_in_15 = NULL; +main_ColorBar_1_in_16 = NULL; +main_ColorBar_1_out_1 = NULL; +main_Collect_1_out_1 = NULL; +macro Image( + id, + object, + where, + useVector, + to, + from, + width, + resolution, + aspect, + up, + viewAngle, + perspective, + options, + buttonState = 1, + buttonUpApprox = "none", + buttonDownApprox = "none", + buttonUpDensity = 1, + buttonDownDensity = 1, + renderMode = 0, + defaultCamera, + reset, + backgroundColor, + throttle, + RECenable = 0, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable = 0, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + interactionMode, + title, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + webOptions) -> ( + object, + camera, + where) +{ + ImageMessage( + id, + backgroundColor, + throttle, + RECenable, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + interactionMode, + title, + renderMode, + buttonUpApprox, + buttonDownApprox, + buttonUpDensity, + buttonDownDensity) [instance: 1, cache: 1]; + autoCamera = + AutoCamera( + object, + "front", + object, + resolution, + aspect, + [0,1,0], + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + realCamera = + Camera( + to, + from, + width, + resolution, + aspect, + up, + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + coloredDefaultCamera = + UpdateCamera(defaultCamera, + background=backgroundColor) [instance: 1, cache: 1]; + nullDefaultCamera = + Inquire(defaultCamera, + "is null + 1") [instance: 1, cache: 1]; + resetCamera = + Switch( + nullDefaultCamera, + coloredDefaultCamera, + autoCamera) [instance: 1, cache: 1]; + resetNull = + Inquire( + reset, + "is null + 1") [instance: 2, cache: 1]; + reset = + Switch( + resetNull, + reset, + 0) [instance: 2, cache: 1]; + whichCamera = + Compute( + "($0 != 0 || $1 == 0) ? 1 : 2", + reset, + useVector) [instance: 1, cache: 1]; + camera = Switch( + whichCamera, + resetCamera, + realCamera) [instance: 3, cache: 1]; + AAobject = + AutoAxes( + object, + camera, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels) [instance: 1, cache: 1]; + switchAAenable = Compute("$0+1", + AAenable) [instance: 2, cache: 1]; + object = Switch( + switchAAenable, + object, + AAobject) [instance:4, cache: 1]; + SWapproximation_options = + Switch( + buttonState, + buttonUpApprox, + buttonDownApprox) [instance: 5, cache: 1]; + SWdensity_options = + Switch( + buttonState, + buttonUpDensity, + buttonDownDensity) [instance: 6, cache: 1]; + HWapproximation_options = + Format( + "%s,%s", + buttonDownApprox, + buttonUpApprox) [instance: 1, cache: 1]; + HWdensity_options = + Format( + "%d,%d", + buttonDownDensity, + buttonUpDensity) [instance: 2, cache: 1]; + switchRenderMode = Compute( + "$0+1", + renderMode) [instance: 3, cache: 1]; + approximation_options = Switch( + switchRenderMode, + SWapproximation_options, + HWapproximation_options) [instance: 7, cache: 1]; + density_options = Switch( + switchRenderMode, + SWdensity_options, + HWdensity_options) [instance: 8, cache: 1]; + renderModeString = Switch( + switchRenderMode, + "software", + "hardware")[instance: 9, cache: 1]; + object_tag = Inquire( + object, + "object tag")[instance: 3, cache: 1]; + annoted_object = + Options( + object, + "send boxes", + 0, + "cache", + 1, + "object tag", + object_tag, + "ddcamera", + whichCamera, + "rendering approximation", + approximation_options, + "render every", + density_options, + "button state", + buttonState, + "rendering mode", + renderModeString) [instance: 1, cache: 1]; + RECresNull = + Inquire( + RECresolution, + "is null + 1") [instance: 4, cache: 1]; + ImageResolution = + Inquire( + camera, + "camera resolution") [instance: 5, cache: 1]; + RECresolution = + Switch( + RECresNull, + RECresolution, + ImageResolution) [instance: 10, cache: 1]; + RECaspectNull = + Inquire( + RECaspect, + "is null + 1") [instance: 6, cache: 1]; + ImageAspect = + Inquire( + camera, + "camera aspect") [instance: 7, cache: 1]; + RECaspect = + Switch( + RECaspectNull, + RECaspect, + ImageAspect) [instance: 11, cache: 1]; + switchRECenable = Compute( + "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", + RECenable, + switchRenderMode, + RECresolution, + ImageResolution, + RECaspect, + ImageAspect) [instance: 4, cache: 1]; + NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); + Display( + NoRECobject, + camera, + where, + throttle) [instance: 1, cache: 1]; + image = + Render( + RECNoRerenderObject, + camera) [instance: 1, cache: 1]; + Display( + image, + NULL, + where, + throttle) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 1, cache: 1]; + rec_where = Display( + RECNoRerHW, + camera, + where, + throttle) [instance: 1, cache: 0]; + rec_image = ReadImageWindow( + rec_where) [instance: 1, cache: 1]; + WriteImage( + rec_image, + RECfile, + RECformat) [instance: 1, cache: 1]; + RECupdateCamera = + UpdateCamera( + camera, + resolution=RECresolution, + aspect=RECaspect) [instance: 2, cache: 1]; + Display( + RECRerenderObject, + camera, + where, + throttle) [instance: 1, cache: 1]; + RECRerenderObject = + ScaleScreen( + RECRerenderObject, + NULL, + RECresolution, + camera) [instance: 1, cache: 1]; + image = + Render( + RECRerenderObject, + RECupdateCamera) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 2, cache: 1]; +} +main_Image_1_in_1 = "Image_1"; +main_Image_1_in_3 = "X24,,"; +main_Image_1_in_4 = 0; +main_Image_1_in_5 = NULL; +main_Image_1_in_6 = NULL; +main_Image_1_in_7 = NULL; +main_Image_1_in_8 = NULL; +main_Image_1_in_9 = NULL; +main_Image_1_in_10 = NULL; +main_Image_1_in_11 = NULL; +main_Image_1_in_12 = NULL; +main_Image_1_in_13 = NULL; +main_Image_1_in_14 = 1; +main_Image_1_in_15 = NULL; +main_Image_1_in_16 = NULL; +main_Image_1_in_17 = NULL; +main_Image_1_in_18 = NULL; +main_Image_1_in_19 = 0; +main_Image_1_in_20 = NULL; +main_Image_1_in_21 = NULL; +main_Image_1_in_22 = NULL; +main_Image_1_in_23 = NULL; +main_Image_1_in_25 = NULL; +main_Image_1_in_26 = NULL; +main_Image_1_in_27 = NULL; +main_Image_1_in_28 = NULL; +main_Image_1_in_29 = NULL; +main_Image_1_in_30 = NULL; +main_Image_1_in_31 = NULL; +main_Image_1_in_32 = NULL; +main_Image_1_in_33 = NULL; +main_Image_1_in_34 = NULL; +main_Image_1_in_35 = NULL; +main_Image_1_in_36 = NULL; +main_Image_1_in_37 = NULL; +main_Image_1_in_38 = NULL; +main_Image_1_in_39 = NULL; +main_Image_1_in_40 = NULL; +main_Image_1_in_41 = NULL; +main_Image_1_in_42 = NULL; +main_Image_1_in_43 = NULL; +main_Image_1_in_44 = NULL; +main_Image_1_in_45 = NULL; +main_Image_1_in_46 = NULL; +main_Image_1_in_47 = NULL; +main_Image_1_in_48 = NULL; +main_Image_1_in_49 = NULL; +main_SetLocal_1_in_3 = NULL; +main_SetLocal_2_in_3 = NULL; +Executive("product version 4 4 4"); +$sync +main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2ptcshowmesh.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2ptcshowmesh.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,80 @@ +## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## @deftypefn {Function File} {} FPL2ptcshowmesh (@var{mesh1}, @ +## @var{color1}, @ [@var{mesh2}, @var{color2}, ...]) +## +## Displays two or more 2-D triangulations using opendx +## +## @seealso{FPL2pdeshowmesh} +## @end deftypefn + +function FPL2ptcshowmesh (varargin) + + datalist = ""; + colorlist= ""; + + for ii=1:2:nargin + dataname{ii} = mktemp("/tmp",".dx"); + FPL2dxoutputdata(dataname{ii},varargin{ii}.p,varargin{ii}.t,... + varargin{ii}.p(1,:)','x',0,1,1); + datalist = strcat (datalist, """", dataname{ii} ,""""); + colorlist= strcat (colorlist, """", varargin{ii+1} ,""""); + endfor + + scriptname = mktemp("/tmp",".net"); + + showmesh = file_in_path(path,"FPL2ptcshowmesh.net"); + + system (["cp " showmesh " " scriptname]); + system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]); + system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]); + + command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; + system(command); + +endfunction + +function filename = mktemp (direct,ext); + + if (~exist(direct,"dir")) + error("trying to save temporary file to non existing directory") + endif + + done=false; + + while ~done + filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; + if ~exist(filename,"file") + done =true; + endif + endwhile + +endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2ptcshowmesh.net --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2ptcshowmesh.net Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,565 @@ +// +// time: Sun Jan 6 13:50:14 2008 +// +// version: 3.2.0 (format), 4.4.4 (DX) +// +// +// MODULE main +// workspace: width = 489, height = 756 +// layout: snap = 1, width = 10, height = 10, align = CC +// +macro main( +) -> ( +) { + // + // node CollectMultiGrid[1]: x = 55, y = 504, inputs = 4, label = CollectMultiGrid + // +main_CollectMultiGrid_1_out_1 = + CollectMultiGrid( + main_CollectMultiGrid_1_in_1, + main_CollectMultiGrid_1_in_2, + main_CollectMultiGrid_1_in_3, + main_CollectMultiGrid_1_in_4 + ) [instance: 1, cache: 1]; + // + // node StringList[1]: x = 128, y = 34, inputs = 0, label = StringList + // output[1]: visible = 1, type = 16777248, value = { "FILELIST" } + // + // + // node ForEachMember[1]: x = 105, y = 134, inputs = 1, label = ForEachMember + // +main_ForEachMember_1_out_1, +main_ForEachMember_1_out_2, +main_ForEachMember_1_out_3 = + ForEachMember( + main_StringList_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Import[1]: x = 119, y = 244, inputs = 6, label = Import + // +main_Import_1_out_1 = + Import( + main_ForEachMember_1_out_1, + main_Import_1_in_2, + main_Import_1_in_3, + main_Import_1_in_4, + main_Import_1_in_5, + main_Import_1_in_6 + ) [instance: 1, cache: 1]; + // + // node ShowConnections[1]: x = 89, y = 354, inputs = 1, label = ShowConnections + // +main_ShowConnections_1_out_1 = + ShowConnections( + main_Import_1_out_1 + ) [instance: 1, cache: 1]; + // + // node StringList[2]: x = 278, y = 34, inputs = 0, label = StringList + // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" } + // + // + // node ForEachMember[2]: x = 255, y = 134, inputs = 1, label = ForEachMember + // +main_ForEachMember_2_out_1, +main_ForEachMember_2_out_2, +main_ForEachMember_2_out_3 = + ForEachMember( + main_StringList_2_out_1 + ) [instance: 2, cache: 1]; + // + // node Color[1]: x = 239, y = 454, inputs = 5, label = Color + // +main_Color_1_out_1 = + Color( + main_ShowConnections_1_out_1, + main_ForEachMember_2_out_1, + main_Color_1_in_3, + main_Color_1_in_4, + main_Color_1_in_5 + ) [instance: 1, cache: 1]; + // + // node GetLocal[1]: x = 422, y = 494, inputs = 3, label = GetLocal + // +main_GetLocal_1_out_1, +main_GetLocal_1_out_2 = + GetLocal( + main_GetLocal_1_in_1, + main_GetLocal_1_in_2, + main_GetLocal_1_in_3 + ) [instance: 1, cache: 1]; + // + // node Append[1]: x = 235, y = 574, inputs = 5, label = Append + // +main_Append_1_out_1 = + Append( + main_CollectMultiGrid_1_out_1, + main_Color_1_out_1, + main_Append_1_in_3, + main_GetLocal_1_out_1, + main_Append_1_in_5 + ) [instance: 1, cache: 1]; + // + // node Image[1]: x = 249, y = 694, inputs = 49, label = Image + // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_1" + // input[4]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[19]: defaulting = 0, visible = 0, type = 3, value = 0 + // depth: value = 24 + // internal caching: 1 + // +main_Image_1_out_1, +main_Image_1_out_2, +main_Image_1_out_3 = + Image( + main_Image_1_in_1, + main_Append_1_out_1, + main_Image_1_in_3, + main_Image_1_in_4, + main_Image_1_in_5, + main_Image_1_in_6, + main_Image_1_in_7, + main_Image_1_in_8, + main_Image_1_in_9, + main_Image_1_in_10, + main_Image_1_in_11, + main_Image_1_in_12, + main_Image_1_in_13, + main_Image_1_in_14, + main_Image_1_in_15, + main_Image_1_in_16, + main_Image_1_in_17, + main_Image_1_in_18, + main_Image_1_in_19, + main_Image_1_in_20, + main_Image_1_in_21, + main_Image_1_in_22, + main_Image_1_in_23, + main_Image_1_in_24, + main_Image_1_in_25, + main_Image_1_in_26, + main_Image_1_in_27, + main_Image_1_in_28, + main_Image_1_in_29, + main_Image_1_in_30, + main_Image_1_in_31, + main_Image_1_in_32, + main_Image_1_in_33, + main_Image_1_in_34, + main_Image_1_in_35, + main_Image_1_in_36, + main_Image_1_in_37, + main_Image_1_in_38, + main_Image_1_in_39, + main_Image_1_in_40, + main_Image_1_in_41, + main_Image_1_in_42, + main_Image_1_in_43, + main_Image_1_in_44, + main_Image_1_in_45, + main_Image_1_in_46, + main_Image_1_in_47, + main_Image_1_in_48, + main_Image_1_in_49 + ) [instance: 1, cache: 1]; + // + // node SetLocal[1]: x = 422, y = 644, inputs = 3, label = SetLocal + // + SetLocal( + main_Append_1_out_1, + main_GetLocal_1_out_2, + main_SetLocal_1_in_3 + ) [instance: 1, cache: 1]; +// network: end of macro body +CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); +} +main_CollectMultiGrid_1_in_1 = NULL; +main_CollectMultiGrid_1_in_2 = NULL; +main_CollectMultiGrid_1_in_3 = NULL; +main_CollectMultiGrid_1_in_4 = NULL; +main_CollectMultiGrid_1_out_1 = NULL; +main_StringList_1_out_1 = { "FILELIST" }; +main_ForEachMember_1_out_1 = NULL; +main_Import_1_in_2 = NULL; +main_Import_1_in_3 = NULL; +main_Import_1_in_4 = NULL; +main_Import_1_in_5 = NULL; +main_Import_1_in_6 = NULL; +main_Import_1_out_1 = NULL; +main_ShowConnections_1_out_1 = NULL; +main_StringList_2_out_1 = { "COLORLIST" }; +main_ForEachMember_2_out_1 = NULL; +main_Color_1_in_3 = NULL; +main_Color_1_in_4 = NULL; +main_Color_1_in_5 = NULL; +main_Color_1_out_1 = NULL; +main_GetLocal_1_in_1 = NULL; +main_GetLocal_1_in_2 = NULL; +main_GetLocal_1_in_3 = NULL; +main_GetLocal_1_out_1 = NULL; +main_GetLocal_1_out_2 = NULL; +main_Append_1_in_3 = NULL; +main_Append_1_in_5 = NULL; +main_Append_1_out_1 = NULL; +macro Image( + id, + object, + where, + useVector, + to, + from, + width, + resolution, + aspect, + up, + viewAngle, + perspective, + options, + buttonState = 1, + buttonUpApprox = "none", + buttonDownApprox = "none", + buttonUpDensity = 1, + buttonDownDensity = 1, + renderMode = 0, + defaultCamera, + reset, + backgroundColor, + throttle, + RECenable = 0, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable = 0, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + interactionMode, + title, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + webOptions) -> ( + object, + camera, + where) +{ + ImageMessage( + id, + backgroundColor, + throttle, + RECenable, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + interactionMode, + title, + renderMode, + buttonUpApprox, + buttonDownApprox, + buttonUpDensity, + buttonDownDensity) [instance: 1, cache: 1]; + autoCamera = + AutoCamera( + object, + "front", + object, + resolution, + aspect, + [0,1,0], + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + realCamera = + Camera( + to, + from, + width, + resolution, + aspect, + up, + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + coloredDefaultCamera = + UpdateCamera(defaultCamera, + background=backgroundColor) [instance: 1, cache: 1]; + nullDefaultCamera = + Inquire(defaultCamera, + "is null + 1") [instance: 1, cache: 1]; + resetCamera = + Switch( + nullDefaultCamera, + coloredDefaultCamera, + autoCamera) [instance: 1, cache: 1]; + resetNull = + Inquire( + reset, + "is null + 1") [instance: 2, cache: 1]; + reset = + Switch( + resetNull, + reset, + 0) [instance: 2, cache: 1]; + whichCamera = + Compute( + "($0 != 0 || $1 == 0) ? 1 : 2", + reset, + useVector) [instance: 1, cache: 1]; + camera = Switch( + whichCamera, + resetCamera, + realCamera) [instance: 3, cache: 1]; + AAobject = + AutoAxes( + object, + camera, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels) [instance: 1, cache: 1]; + switchAAenable = Compute("$0+1", + AAenable) [instance: 2, cache: 1]; + object = Switch( + switchAAenable, + object, + AAobject) [instance:4, cache: 1]; + SWapproximation_options = + Switch( + buttonState, + buttonUpApprox, + buttonDownApprox) [instance: 5, cache: 1]; + SWdensity_options = + Switch( + buttonState, + buttonUpDensity, + buttonDownDensity) [instance: 6, cache: 1]; + HWapproximation_options = + Format( + "%s,%s", + buttonDownApprox, + buttonUpApprox) [instance: 1, cache: 1]; + HWdensity_options = + Format( + "%d,%d", + buttonDownDensity, + buttonUpDensity) [instance: 2, cache: 1]; + switchRenderMode = Compute( + "$0+1", + renderMode) [instance: 3, cache: 1]; + approximation_options = Switch( + switchRenderMode, + SWapproximation_options, + HWapproximation_options) [instance: 7, cache: 1]; + density_options = Switch( + switchRenderMode, + SWdensity_options, + HWdensity_options) [instance: 8, cache: 1]; + renderModeString = Switch( + switchRenderMode, + "software", + "hardware")[instance: 9, cache: 1]; + object_tag = Inquire( + object, + "object tag")[instance: 3, cache: 1]; + annoted_object = + Options( + object, + "send boxes", + 0, + "cache", + 1, + "object tag", + object_tag, + "ddcamera", + whichCamera, + "rendering approximation", + approximation_options, + "render every", + density_options, + "button state", + buttonState, + "rendering mode", + renderModeString) [instance: 1, cache: 1]; + RECresNull = + Inquire( + RECresolution, + "is null + 1") [instance: 4, cache: 1]; + ImageResolution = + Inquire( + camera, + "camera resolution") [instance: 5, cache: 1]; + RECresolution = + Switch( + RECresNull, + RECresolution, + ImageResolution) [instance: 10, cache: 1]; + RECaspectNull = + Inquire( + RECaspect, + "is null + 1") [instance: 6, cache: 1]; + ImageAspect = + Inquire( + camera, + "camera aspect") [instance: 7, cache: 1]; + RECaspect = + Switch( + RECaspectNull, + RECaspect, + ImageAspect) [instance: 11, cache: 1]; + switchRECenable = Compute( + "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", + RECenable, + switchRenderMode, + RECresolution, + ImageResolution, + RECaspect, + ImageAspect) [instance: 4, cache: 1]; + NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); + Display( + NoRECobject, + camera, + where, + throttle) [instance: 1, cache: 1]; + image = + Render( + RECNoRerenderObject, + camera) [instance: 1, cache: 1]; + Display( + image, + NULL, + where, + throttle) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 1, cache: 1]; + rec_where = Display( + RECNoRerHW, + camera, + where, + throttle) [instance: 1, cache: 0]; + rec_image = ReadImageWindow( + rec_where) [instance: 1, cache: 1]; + WriteImage( + rec_image, + RECfile, + RECformat) [instance: 1, cache: 1]; + RECupdateCamera = + UpdateCamera( + camera, + resolution=RECresolution, + aspect=RECaspect) [instance: 2, cache: 1]; + Display( + RECRerenderObject, + camera, + where, + throttle) [instance: 1, cache: 1]; + RECRerenderObject = + ScaleScreen( + RECRerenderObject, + NULL, + RECresolution, + camera) [instance: 1, cache: 1]; + image = + Render( + RECRerenderObject, + RECupdateCamera) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 2, cache: 1]; +} +main_Image_1_in_1 = "Image_1"; +main_Image_1_in_3 = "X24,,"; +main_Image_1_in_4 = 0; +main_Image_1_in_5 = NULL; +main_Image_1_in_6 = NULL; +main_Image_1_in_7 = NULL; +main_Image_1_in_8 = NULL; +main_Image_1_in_9 = NULL; +main_Image_1_in_10 = NULL; +main_Image_1_in_11 = NULL; +main_Image_1_in_12 = NULL; +main_Image_1_in_13 = NULL; +main_Image_1_in_14 = 1; +main_Image_1_in_15 = NULL; +main_Image_1_in_16 = NULL; +main_Image_1_in_17 = NULL; +main_Image_1_in_18 = NULL; +main_Image_1_in_19 = 0; +main_Image_1_in_20 = NULL; +main_Image_1_in_21 = NULL; +main_Image_1_in_22 = NULL; +main_Image_1_in_23 = NULL; +main_Image_1_in_25 = NULL; +main_Image_1_in_26 = NULL; +main_Image_1_in_27 = NULL; +main_Image_1_in_28 = NULL; +main_Image_1_in_29 = NULL; +main_Image_1_in_30 = NULL; +main_Image_1_in_31 = NULL; +main_Image_1_in_32 = NULL; +main_Image_1_in_33 = NULL; +main_Image_1_in_34 = NULL; +main_Image_1_in_35 = NULL; +main_Image_1_in_36 = NULL; +main_Image_1_in_37 = NULL; +main_Image_1_in_38 = NULL; +main_Image_1_in_39 = NULL; +main_Image_1_in_40 = NULL; +main_Image_1_in_41 = NULL; +main_Image_1_in_42 = NULL; +main_Image_1_in_43 = NULL; +main_Image_1_in_44 = NULL; +main_Image_1_in_45 = NULL; +main_Image_1_in_46 = NULL; +main_Image_1_in_47 = NULL; +main_Image_1_in_48 = NULL; +main_Image_1_in_49 = NULL; +main_SetLocal_1_in_3 = NULL; +Executive("product version 4 4 4"); +$sync +main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2ptcsurf.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2ptcsurf.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,81 @@ +## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## +## @deftypefn {Function File} {} FPL2ptcsurf (@var{mesh1}, @ +## @var{color1}, @var{data1} @ [@var{mesh2}, @var{color2},@var{data2}]) +## +## Plots the scalar fields @var{data} over the triangulation +## @var{mesh} using opendx. Connections will be displayed as defined +## in @var{color}. +## +## @end deftypefn + +function FPL2ptcsurf(varargin) + + colorlist = ""; + datalist = ""; + + for ii=1:3:nargin + dataname{ii} = mktemp("/tmp",".dx"); + FPL2dxoutputdata(dataname{ii},varargin{ii}.p,varargin{ii}.t,varargin{ii+2},"var",0,1,1); + datalist = strcat (datalist, """", dataname{ii} ,""""); + colorlist= strcat (colorlist, """", varargin{ii+1} ,""""); + endfor + + scriptname = mktemp("/tmp",".net"); + + ptcview = file_in_path(path,"FPL2ptcsurf.net"); + + system (["cp " ptcview " " scriptname]); + system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]); + system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]); + + command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; + system(command); + +endfunction + +function filename = mktemp (direct,ext); + + if (~exist(direct,"dir")) + error("Trying to save temporary file to non existing directory") + endif + + done = false; + + while ~done + filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; + if ~exist(filename,"file") + done = true; + endif + endwhile + +endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2ptcsurf.net --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2ptcsurf.net Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,749 @@ +// +// time: Fri Jan 4 17:10:29 2008 +// +// version: 3.2.0 (format), 4.4.4 (DX) +// +// +// MODULE main +// workspace: width = 968, height = 946 +// layout: snap = 1, width = 10, height = 10, align = CC +// +macro main( +) -> ( +) { + // + // node CollectMultiGrid[5]: x = 45, y = 424, inputs = 4, label = CollectMultiGrid + // +main_CollectMultiGrid_5_out_1 = + CollectMultiGrid( + main_CollectMultiGrid_5_in_1, + main_CollectMultiGrid_5_in_2, + main_CollectMultiGrid_5_in_3, + main_CollectMultiGrid_5_in_4 + ) [instance: 5, cache: 1]; + // + // node StringList[1]: x = 178, y = 34, inputs = 0, label = StringList + // output[1]: visible = 1, type = 16777248, value = { "FILELIST" } + // + // + // node ForEachMember[1]: x = 155, y = 124, inputs = 1, label = ForEachMember + // +main_ForEachMember_1_out_1, +main_ForEachMember_1_out_2, +main_ForEachMember_1_out_3 = + ForEachMember( + main_StringList_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Import[2]: x = 169, y = 224, inputs = 6, label = Import + // +main_Import_2_out_1 = + Import( + main_ForEachMember_1_out_1, + main_Import_2_in_2, + main_Import_2_in_3, + main_Import_2_in_4, + main_Import_2_in_5, + main_Import_2_in_6 + ) [instance: 2, cache: 1]; + // + // node ShowConnections[4]: x = 139, y = 324, inputs = 1, label = ShowConnections + // +main_ShowConnections_4_out_1 = + ShowConnections( + main_Import_2_out_1 + ) [instance: 4, cache: 1]; + // + // node StringList[2]: x = 368, y = 34, inputs = 0, label = StringList + // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" } + // + // + // node ForEachMember[2]: x = 345, y = 124, inputs = 1, label = ForEachMember + // +main_ForEachMember_2_out_1, +main_ForEachMember_2_out_2, +main_ForEachMember_2_out_3 = + ForEachMember( + main_StringList_2_out_1 + ) [instance: 2, cache: 1]; + // + // node Color[3]: x = 179, y = 404, inputs = 5, label = Color + // input[3]: defaulting = 0, visible = 1, type = 5, value = .3 + // +main_Color_3_out_1 = + Color( + main_ShowConnections_4_out_1, + main_ForEachMember_2_out_1, + main_Color_3_in_3, + main_Color_3_in_4, + main_Color_3_in_5 + ) [instance: 3, cache: 1]; + // + // node GetLocal[4]: x = 322, y = 404, inputs = 3, label = GetLocal + // +main_GetLocal_4_out_1, +main_GetLocal_4_out_2 = + GetLocal( + main_GetLocal_4_in_1, + main_GetLocal_4_in_2, + main_GetLocal_4_in_3 + ) [instance: 4, cache: 1]; + // + // node Append[1]: x = 185, y = 504, inputs = 5, label = Append + // +main_Append_1_out_1 = + Append( + main_CollectMultiGrid_5_out_1, + main_Color_3_out_1, + main_Append_1_in_3, + main_GetLocal_4_out_1, + main_Append_1_in_5 + ) [instance: 1, cache: 1]; + // + // node CollectMultiGrid[4]: x = 615, y = 454, inputs = 4, label = CollectMultiGrid + // +main_CollectMultiGrid_4_out_1 = + CollectMultiGrid( + main_CollectMultiGrid_4_in_1, + main_CollectMultiGrid_4_in_2, + main_CollectMultiGrid_4_in_3, + main_CollectMultiGrid_4_in_4 + ) [instance: 4, cache: 1]; + // + // node GetLocal[5]: x = 872, y = 394, inputs = 3, label = GetLocal + // +main_GetLocal_5_out_1, +main_GetLocal_5_out_2 = + GetLocal( + main_GetLocal_5_in_1, + main_GetLocal_5_in_2, + main_GetLocal_5_in_3 + ) [instance: 5, cache: 1]; + // + // node Append[2]: x = 765, y = 514, inputs = 5, label = Append + // +main_Append_2_out_1 = + Append( + main_CollectMultiGrid_4_out_1, + main_Import_2_out_1, + main_Append_2_in_3, + main_GetLocal_5_out_1, + main_Append_2_in_5 + ) [instance: 2, cache: 1]; + // + // node AutoColor[2]: x = 736, y = 604, inputs = 10, label = AutoColor + // input[8]: visible = 1 + // +main_AutoColor_2_out_1, +main_AutoColor_2_out_2 = + AutoColor( + main_Append_2_out_1, + main_AutoColor_2_in_2, + main_AutoColor_2_in_3, + main_AutoColor_2_in_4, + main_AutoColor_2_in_5, + main_AutoColor_2_in_6, + main_AutoColor_2_in_7, + main_AutoColor_2_in_8, + main_AutoColor_2_in_9, + main_AutoColor_2_in_10 + ) [instance: 2, cache: 1]; + // + // node RubberSheet[1]: x = 176, y = 624, inputs = 4, label = RubberSheet + // +main_RubberSheet_1_out_1 = + RubberSheet( + main_Append_1_out_1, + main_RubberSheet_1_in_2, + main_RubberSheet_1_in_3, + main_RubberSheet_1_in_4 + ) [instance: 1, cache: 1]; + // + // node Shade[1]: x = 599, y = 654, inputs = 8, label = Shade + // input[2]: defaulting = 0, visible = 1, type = 3, value = 1 + // input[3]: defaulting = 0, visible = 1, type = 32, value = "smooth" + // +main_Shade_1_out_1 = + Shade( + main_AutoColor_2_out_1, + main_Shade_1_in_2, + main_Shade_1_in_3, + main_Shade_1_in_4, + main_Shade_1_in_5, + main_Shade_1_in_6, + main_Shade_1_in_7, + main_Shade_1_in_8 + ) [instance: 1, cache: 1]; + // + // node RubberSheet[2]: x = 526, y = 734, inputs = 4, label = RubberSheet + // +main_RubberSheet_2_out_1 = + RubberSheet( + main_Shade_1_out_1, + main_RubberSheet_2_in_2, + main_RubberSheet_2_in_3, + main_RubberSheet_2_in_4 + ) [instance: 2, cache: 1]; + // + // node ColorBar[1]: x = 755, y = 734, inputs = 16, label = ColorBar + // input[4]: defaulting = 0, visible = 1, type = 3, value = 1 + // +main_ColorBar_1_out_1 = + ColorBar( + main_AutoColor_2_out_2, + main_ColorBar_1_in_2, + main_ColorBar_1_in_3, + main_ColorBar_1_in_4, + main_ColorBar_1_in_5, + main_ColorBar_1_in_6, + main_ColorBar_1_in_7, + main_ColorBar_1_in_8, + main_ColorBar_1_in_9, + main_ColorBar_1_in_10, + main_ColorBar_1_in_11, + main_ColorBar_1_in_12, + main_ColorBar_1_in_13, + main_ColorBar_1_in_14, + main_ColorBar_1_in_15, + main_ColorBar_1_in_16 + ) [instance: 1, cache: 1]; + // + // node Collect[1]: x = 349, y = 774, inputs = 3, label = Collect + // +main_Collect_1_out_1 = + Collect( + main_RubberSheet_1_out_1, + main_RubberSheet_2_out_1, + main_ColorBar_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Image[5]: x = 339, y = 884, inputs = 49, label = Image + // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_5" + // input[4]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[19]: defaulting = 0, visible = 0, type = 3, value = 0 + // depth: value = 24 + // internal caching: 1 + // +main_Image_5_out_1, +main_Image_5_out_2, +main_Image_5_out_3 = + Image( + main_Image_5_in_1, + main_Collect_1_out_1, + main_Image_5_in_3, + main_Image_5_in_4, + main_Image_5_in_5, + main_Image_5_in_6, + main_Image_5_in_7, + main_Image_5_in_8, + main_Image_5_in_9, + main_Image_5_in_10, + main_Image_5_in_11, + main_Image_5_in_12, + main_Image_5_in_13, + main_Image_5_in_14, + main_Image_5_in_15, + main_Image_5_in_16, + main_Image_5_in_17, + main_Image_5_in_18, + main_Image_5_in_19, + main_Image_5_in_20, + main_Image_5_in_21, + main_Image_5_in_22, + main_Image_5_in_23, + main_Image_5_in_24, + main_Image_5_in_25, + main_Image_5_in_26, + main_Image_5_in_27, + main_Image_5_in_28, + main_Image_5_in_29, + main_Image_5_in_30, + main_Image_5_in_31, + main_Image_5_in_32, + main_Image_5_in_33, + main_Image_5_in_34, + main_Image_5_in_35, + main_Image_5_in_36, + main_Image_5_in_37, + main_Image_5_in_38, + main_Image_5_in_39, + main_Image_5_in_40, + main_Image_5_in_41, + main_Image_5_in_42, + main_Image_5_in_43, + main_Image_5_in_44, + main_Image_5_in_45, + main_Image_5_in_46, + main_Image_5_in_47, + main_Image_5_in_48, + main_Image_5_in_49 + ) [instance: 5, cache: 1]; + // + // node SetLocal[4]: x = 322, y = 514, inputs = 3, label = SetLocal + // + SetLocal( + main_Append_1_out_1, + main_GetLocal_4_out_2, + main_SetLocal_4_in_3 + ) [instance: 4, cache: 1]; + // + // node SetLocal[5]: x = 902, y = 514, inputs = 3, label = SetLocal + // + SetLocal( + main_Append_2_out_1, + main_GetLocal_5_out_2, + main_SetLocal_5_in_3 + ) [instance: 5, cache: 1]; +// network: end of macro body +CacheScene(main_Image_5_in_1, main_Image_5_out_1, main_Image_5_out_2); +} +main_CollectMultiGrid_5_in_1 = NULL; +main_CollectMultiGrid_5_in_2 = NULL; +main_CollectMultiGrid_5_in_3 = NULL; +main_CollectMultiGrid_5_in_4 = NULL; +main_CollectMultiGrid_5_out_1 = NULL; +main_StringList_1_out_1 = { "FILELIST" }; +main_ForEachMember_1_out_1 = NULL; +main_Import_2_in_2 = NULL; +main_Import_2_in_3 = NULL; +main_Import_2_in_4 = NULL; +main_Import_2_in_5 = NULL; +main_Import_2_in_6 = NULL; +main_Import_2_out_1 = NULL; +main_ShowConnections_4_out_1 = NULL; +main_StringList_2_out_1 = { "COLORLIST" }; +main_ForEachMember_2_out_1 = NULL; +main_Color_3_in_3 = .3; +main_Color_3_in_4 = NULL; +main_Color_3_in_5 = NULL; +main_Color_3_out_1 = NULL; +main_GetLocal_4_in_1 = NULL; +main_GetLocal_4_in_2 = NULL; +main_GetLocal_4_in_3 = NULL; +main_GetLocal_4_out_1 = NULL; +main_GetLocal_4_out_2 = NULL; +main_Append_1_in_3 = NULL; +main_Append_1_in_5 = NULL; +main_Append_1_out_1 = NULL; +main_CollectMultiGrid_4_in_1 = NULL; +main_CollectMultiGrid_4_in_2 = NULL; +main_CollectMultiGrid_4_in_3 = NULL; +main_CollectMultiGrid_4_in_4 = NULL; +main_CollectMultiGrid_4_out_1 = NULL; +main_GetLocal_5_in_1 = NULL; +main_GetLocal_5_in_2 = NULL; +main_GetLocal_5_in_3 = NULL; +main_GetLocal_5_out_1 = NULL; +main_GetLocal_5_out_2 = NULL; +main_Append_2_in_3 = NULL; +main_Append_2_in_5 = NULL; +main_Append_2_out_1 = NULL; +main_AutoColor_2_in_2 = NULL; +main_AutoColor_2_in_3 = NULL; +main_AutoColor_2_in_4 = NULL; +main_AutoColor_2_in_5 = NULL; +main_AutoColor_2_in_6 = NULL; +main_AutoColor_2_in_7 = NULL; +main_AutoColor_2_in_8 = NULL; +main_AutoColor_2_in_9 = NULL; +main_AutoColor_2_in_10 = NULL; +main_AutoColor_2_out_1 = NULL; +main_AutoColor_2_out_2 = NULL; +main_RubberSheet_1_in_2 = NULL; +main_RubberSheet_1_in_3 = NULL; +main_RubberSheet_1_in_4 = NULL; +main_RubberSheet_1_out_1 = NULL; +main_Shade_1_in_2 = 1; +main_Shade_1_in_3 = "smooth"; +main_Shade_1_in_4 = NULL; +main_Shade_1_in_5 = NULL; +main_Shade_1_in_6 = NULL; +main_Shade_1_in_7 = NULL; +main_Shade_1_in_8 = NULL; +main_Shade_1_out_1 = NULL; +main_RubberSheet_2_in_2 = NULL; +main_RubberSheet_2_in_3 = NULL; +main_RubberSheet_2_in_4 = NULL; +main_RubberSheet_2_out_1 = NULL; +main_ColorBar_1_in_2 = NULL; +main_ColorBar_1_in_3 = NULL; +main_ColorBar_1_in_4 = 1; +main_ColorBar_1_in_5 = NULL; +main_ColorBar_1_in_6 = NULL; +main_ColorBar_1_in_7 = NULL; +main_ColorBar_1_in_8 = NULL; +main_ColorBar_1_in_9 = NULL; +main_ColorBar_1_in_10 = NULL; +main_ColorBar_1_in_11 = NULL; +main_ColorBar_1_in_12 = NULL; +main_ColorBar_1_in_13 = NULL; +main_ColorBar_1_in_14 = NULL; +main_ColorBar_1_in_15 = NULL; +main_ColorBar_1_in_16 = NULL; +main_ColorBar_1_out_1 = NULL; +main_Collect_1_out_1 = NULL; +macro Image( + id, + object, + where, + useVector, + to, + from, + width, + resolution, + aspect, + up, + viewAngle, + perspective, + options, + buttonState = 1, + buttonUpApprox = "none", + buttonDownApprox = "none", + buttonUpDensity = 1, + buttonDownDensity = 1, + renderMode = 0, + defaultCamera, + reset, + backgroundColor, + throttle, + RECenable = 0, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable = 0, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + interactionMode, + title, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + webOptions) -> ( + object, + camera, + where) +{ + ImageMessage( + id, + backgroundColor, + throttle, + RECenable, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + interactionMode, + title, + renderMode, + buttonUpApprox, + buttonDownApprox, + buttonUpDensity, + buttonDownDensity) [instance: 1, cache: 1]; + autoCamera = + AutoCamera( + object, + "front", + object, + resolution, + aspect, + [0,1,0], + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + realCamera = + Camera( + to, + from, + width, + resolution, + aspect, + up, + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + coloredDefaultCamera = + UpdateCamera(defaultCamera, + background=backgroundColor) [instance: 1, cache: 1]; + nullDefaultCamera = + Inquire(defaultCamera, + "is null + 1") [instance: 1, cache: 1]; + resetCamera = + Switch( + nullDefaultCamera, + coloredDefaultCamera, + autoCamera) [instance: 1, cache: 1]; + resetNull = + Inquire( + reset, + "is null + 1") [instance: 2, cache: 1]; + reset = + Switch( + resetNull, + reset, + 0) [instance: 2, cache: 1]; + whichCamera = + Compute( + "($0 != 0 || $1 == 0) ? 1 : 2", + reset, + useVector) [instance: 1, cache: 1]; + camera = Switch( + whichCamera, + resetCamera, + realCamera) [instance: 3, cache: 1]; + AAobject = + AutoAxes( + object, + camera, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels) [instance: 1, cache: 1]; + switchAAenable = Compute("$0+1", + AAenable) [instance: 2, cache: 1]; + object = Switch( + switchAAenable, + object, + AAobject) [instance:4, cache: 1]; + SWapproximation_options = + Switch( + buttonState, + buttonUpApprox, + buttonDownApprox) [instance: 5, cache: 1]; + SWdensity_options = + Switch( + buttonState, + buttonUpDensity, + buttonDownDensity) [instance: 6, cache: 1]; + HWapproximation_options = + Format( + "%s,%s", + buttonDownApprox, + buttonUpApprox) [instance: 1, cache: 1]; + HWdensity_options = + Format( + "%d,%d", + buttonDownDensity, + buttonUpDensity) [instance: 2, cache: 1]; + switchRenderMode = Compute( + "$0+1", + renderMode) [instance: 3, cache: 1]; + approximation_options = Switch( + switchRenderMode, + SWapproximation_options, + HWapproximation_options) [instance: 7, cache: 1]; + density_options = Switch( + switchRenderMode, + SWdensity_options, + HWdensity_options) [instance: 8, cache: 1]; + renderModeString = Switch( + switchRenderMode, + "software", + "hardware")[instance: 9, cache: 1]; + object_tag = Inquire( + object, + "object tag")[instance: 3, cache: 1]; + annoted_object = + Options( + object, + "send boxes", + 0, + "cache", + 1, + "object tag", + object_tag, + "ddcamera", + whichCamera, + "rendering approximation", + approximation_options, + "render every", + density_options, + "button state", + buttonState, + "rendering mode", + renderModeString) [instance: 1, cache: 1]; + RECresNull = + Inquire( + RECresolution, + "is null + 1") [instance: 4, cache: 1]; + ImageResolution = + Inquire( + camera, + "camera resolution") [instance: 5, cache: 1]; + RECresolution = + Switch( + RECresNull, + RECresolution, + ImageResolution) [instance: 10, cache: 1]; + RECaspectNull = + Inquire( + RECaspect, + "is null + 1") [instance: 6, cache: 1]; + ImageAspect = + Inquire( + camera, + "camera aspect") [instance: 7, cache: 1]; + RECaspect = + Switch( + RECaspectNull, + RECaspect, + ImageAspect) [instance: 11, cache: 1]; + switchRECenable = Compute( + "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", + RECenable, + switchRenderMode, + RECresolution, + ImageResolution, + RECaspect, + ImageAspect) [instance: 4, cache: 1]; + NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); + Display( + NoRECobject, + camera, + where, + throttle) [instance: 1, cache: 1]; + image = + Render( + RECNoRerenderObject, + camera) [instance: 1, cache: 1]; + Display( + image, + NULL, + where, + throttle) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 1, cache: 1]; + rec_where = Display( + RECNoRerHW, + camera, + where, + throttle) [instance: 1, cache: 0]; + rec_image = ReadImageWindow( + rec_where) [instance: 1, cache: 1]; + WriteImage( + rec_image, + RECfile, + RECformat) [instance: 1, cache: 1]; + RECupdateCamera = + UpdateCamera( + camera, + resolution=RECresolution, + aspect=RECaspect) [instance: 2, cache: 1]; + Display( + RECRerenderObject, + camera, + where, + throttle) [instance: 1, cache: 1]; + RECRerenderObject = + ScaleScreen( + RECRerenderObject, + NULL, + RECresolution, + camera) [instance: 1, cache: 1]; + image = + Render( + RECRerenderObject, + RECupdateCamera) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 2, cache: 1]; +} +main_Image_5_in_1 = "Image_5"; +main_Image_5_in_3 = "X24,,"; +main_Image_5_in_4 = 0; +main_Image_5_in_5 = NULL; +main_Image_5_in_6 = NULL; +main_Image_5_in_7 = NULL; +main_Image_5_in_8 = NULL; +main_Image_5_in_9 = NULL; +main_Image_5_in_10 = NULL; +main_Image_5_in_11 = NULL; +main_Image_5_in_12 = NULL; +main_Image_5_in_13 = NULL; +main_Image_5_in_14 = 1; +main_Image_5_in_15 = NULL; +main_Image_5_in_16 = NULL; +main_Image_5_in_17 = NULL; +main_Image_5_in_18 = NULL; +main_Image_5_in_19 = 0; +main_Image_5_in_20 = NULL; +main_Image_5_in_21 = NULL; +main_Image_5_in_22 = NULL; +main_Image_5_in_23 = NULL; +main_Image_5_in_25 = NULL; +main_Image_5_in_26 = NULL; +main_Image_5_in_27 = NULL; +main_Image_5_in_28 = NULL; +main_Image_5_in_29 = NULL; +main_Image_5_in_30 = NULL; +main_Image_5_in_31 = NULL; +main_Image_5_in_32 = NULL; +main_Image_5_in_33 = NULL; +main_Image_5_in_34 = NULL; +main_Image_5_in_35 = NULL; +main_Image_5_in_36 = NULL; +main_Image_5_in_37 = NULL; +main_Image_5_in_38 = NULL; +main_Image_5_in_39 = NULL; +main_Image_5_in_40 = NULL; +main_Image_5_in_41 = NULL; +main_Image_5_in_42 = NULL; +main_Image_5_in_43 = NULL; +main_Image_5_in_44 = NULL; +main_Image_5_in_45 = NULL; +main_Image_5_in_46 = NULL; +main_Image_5_in_47 = NULL; +main_Image_5_in_48 = NULL; +main_Image_5_in_49 = NULL; +main_SetLocal_4_in_3 = NULL; +main_SetLocal_5_in_3 = NULL; +Executive("product version 4 4 4"); +$sync +main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2showmesh.net --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2showmesh.net Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,587 @@ +// +// time: Wed Jun 27 18:36:54 2007 +// +// version: 3.2.0 (format), 4.4.4 (DX) +// +// +// MODULE main +// workspace: width = 464, height = 625 +// layout: snap = 0, width = 50, height = 50, align = NN +// +macro main( +) -> ( +) { + // + // node Collect[1]: x = 409, y = 272, inputs = 2, label = Collect + // +main_Collect_1_out_1 = + Collect( + main_Collect_1_in_1, + main_Collect_1_in_2 + ) [instance: 1, cache: 1]; + // + // node GetLocal[1]: x = 308, y = 381, inputs = 3, label = GetLocal + // +main_GetLocal_1_out_1, +main_GetLocal_1_out_2 = + GetLocal( + main_Collect_1_out_1, + main_GetLocal_1_in_2, + main_GetLocal_1_in_3 + ) [instance: 1, cache: 1]; + // + // node StringList[1]: x = 42, y = 74, inputs = 0, label = StringList + // output[1]: visible = 1, type = 16777248, value = {__FILE__DX__ } + // + // + // node ForEachMember[1]: x = 28, y = 151, inputs = 1, label = ForEachMember + // +main_ForEachMember_1_out_1, +main_ForEachMember_1_out_2, +main_ForEachMember_1_out_3 = + ForEachMember( + main_StringList_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Import[1]: x = 40, y = 234, inputs = 6, label = Import + // +main_Import_1_out_1 = + Import( + main_ForEachMember_1_out_1, + main_Import_1_in_2, + main_Import_1_in_3, + main_Import_1_in_4, + main_Import_1_in_5, + main_Import_1_in_6 + ) [instance: 1, cache: 1]; + // + // node StringList[2]: x = 215, y = 61, inputs = 0, label = StringList + // output[1]: visible = 1, type = 16777248, value = { __MESH__COLOR__ } + // + // + // node ForEachMember[2]: x = 198, y = 159, inputs = 1, label = ForEachMember + // +main_ForEachMember_2_out_1, +main_ForEachMember_2_out_2, +main_ForEachMember_2_out_3 = + ForEachMember( + main_StringList_2_out_1 + ) [instance: 2, cache: 1]; + // + // node Color[1]: x = 179, y = 312, inputs = 5, label = Color + // input[2]: defaulting = 1, visible = 1, type = 32, value = "indianred" + // +main_Color_1_out_1 = + Color( + main_Import_1_out_1, + main_ForEachMember_2_out_1, + main_Color_1_in_3, + main_Color_1_in_4, + main_Color_1_in_5 + ) [instance: 1, cache: 1]; + // + // node ShowConnections[1]: x = 31, y = 354, inputs = 1, label = ShowConnections + // +main_ShowConnections_1_out_1 = + ShowConnections( + main_Color_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Append[1]: x = 60, y = 453, inputs = 5, label = Append + // +main_Append_1_out_1 = + Append( + main_GetLocal_1_out_1, + main_ShowConnections_1_out_1, + main_Append_1_in_3, + main_Append_1_in_4, + main_Append_1_in_5 + ) [instance: 1, cache: 1]; + // + // node Image[1]: x = 153, y = 563, inputs = 49, label = Image + // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1" + // input[4]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[5]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 0] + // input[6]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 39.3199] + // input[7]: defaulting = 0, visible = 0, type = 5, value = 21.0715 + // input[8]: defaulting = 0, visible = 0, type = 1, value = 804 + // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.610075 + // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0] + // input[11]: defaulting = 1, visible = 0, type = 5, value = 30.0 + // input[12]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[15]: defaulting = 1, visible = 0, type = 32, value = "none" + // input[16]: defaulting = 1, visible = 0, type = 32, value = "none" + // input[17]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[18]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[19]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow" + // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif" + // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff" + // input[29]: defaulting = 0, visible = 0, type = 3, value = 1 + // input[31]: defaulting = 0, visible = 0, type = 1, value = -15 + // input[33]: defaulting = 0, visible = 0, type = 3, value = 0 + // input[34]: defaulting = 0, visible = 0, type = 3, value = 0 + // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "grey5", "saddlebrown", "saddlebrown"} + // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"} + // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.7 + // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_s" + // input[41]: defaulting = 0, visible = 0, type = 32, value = "none" + // depth: value = 24 + // window: position = (0.2477,0.1272), size = 0.6391x0.6838, screen = 0 + // internal caching: 1 + // +main_Image_1_out_1, +main_Image_1_out_2, +main_Image_1_out_3 = + Image( + main_Image_1_in_1, + main_Append_1_out_1, + main_Image_1_in_3, + main_Image_1_in_4, + main_Image_1_in_5, + main_Image_1_in_6, + main_Image_1_in_7, + main_Image_1_in_8, + main_Image_1_in_9, + main_Image_1_in_10, + main_Image_1_in_11, + main_Image_1_in_12, + main_Image_1_in_13, + main_Image_1_in_14, + main_Image_1_in_15, + main_Image_1_in_16, + main_Image_1_in_17, + main_Image_1_in_18, + main_Image_1_in_19, + main_Image_1_in_20, + main_Image_1_in_21, + main_Image_1_in_22, + main_Image_1_in_23, + main_Image_1_in_24, + main_Image_1_in_25, + main_Image_1_in_26, + main_Image_1_in_27, + main_Image_1_in_28, + main_Image_1_in_29, + main_Image_1_in_30, + main_Image_1_in_31, + main_Image_1_in_32, + main_Image_1_in_33, + main_Image_1_in_34, + main_Image_1_in_35, + main_Image_1_in_36, + main_Image_1_in_37, + main_Image_1_in_38, + main_Image_1_in_39, + main_Image_1_in_40, + main_Image_1_in_41, + main_Image_1_in_42, + main_Image_1_in_43, + main_Image_1_in_44, + main_Image_1_in_45, + main_Image_1_in_46, + main_Image_1_in_47, + main_Image_1_in_48, + main_Image_1_in_49 + ) [instance: 1, cache: 1]; + // + // node SetLocal[1]: x = 316, y = 471, inputs = 3, label = SetLocal + // + SetLocal( + main_Append_1_out_1, + main_GetLocal_1_out_2, + main_SetLocal_1_in_3 + ) [instance: 1, cache: 1]; +// network: end of macro body +CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); +} +main_Collect_1_in_1 = NULL; +main_Collect_1_in_2 = NULL; +main_Collect_1_out_1 = NULL; +main_GetLocal_1_in_2 = NULL; +main_GetLocal_1_in_3 = NULL; +main_GetLocal_1_out_1 = NULL; +main_GetLocal_1_out_2 = NULL; +main_StringList_1_out_1 = {__FILE__DX__}; +main_ForEachMember_1_out_1 = NULL; +main_Import_1_in_2 = NULL; +main_Import_1_in_3 = NULL; +main_Import_1_in_4 = NULL; +main_Import_1_in_5 = NULL; +main_Import_1_in_6 = NULL; +main_Import_1_out_1 = NULL; +main_StringList_2_out_1 = {__MESH__COLOR__ }; +main_ForEachMember_2_out_1 = NULL; +main_Color_1_in_3 = NULL; +main_Color_1_in_4 = NULL; +main_Color_1_in_5 = NULL; +main_Color_1_out_1 = NULL; +main_ShowConnections_1_out_1 = NULL; +main_Append_1_in_3 = NULL; +main_Append_1_in_4 = NULL; +main_Append_1_in_5 = NULL; +main_Append_1_out_1 = NULL; +macro Image( + id, + object, + where, + useVector, + to, + from, + width, + resolution, + aspect, + up, + viewAngle, + perspective, + options, + buttonState = 1, + buttonUpApprox = "none", + buttonDownApprox = "none", + buttonUpDensity = 1, + buttonDownDensity = 1, + renderMode = 0, + defaultCamera, + reset, + backgroundColor, + throttle, + RECenable = 0, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable = 0, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + interactionMode, + title, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + webOptions) -> ( + object, + camera, + where) +{ + ImageMessage( + id, + backgroundColor, + throttle, + RECenable, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + interactionMode, + title, + renderMode, + buttonUpApprox, + buttonDownApprox, + buttonUpDensity, + buttonDownDensity) [instance: 1, cache: 1]; + autoCamera = + AutoCamera( + object, + "front", + object, + resolution, + aspect, + [0,1,0], + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + realCamera = + Camera( + to, + from, + width, + resolution, + aspect, + up, + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + coloredDefaultCamera = + UpdateCamera(defaultCamera, + background=backgroundColor) [instance: 1, cache: 1]; + nullDefaultCamera = + Inquire(defaultCamera, + "is null + 1") [instance: 1, cache: 1]; + resetCamera = + Switch( + nullDefaultCamera, + coloredDefaultCamera, + autoCamera) [instance: 1, cache: 1]; + resetNull = + Inquire( + reset, + "is null + 1") [instance: 2, cache: 1]; + reset = + Switch( + resetNull, + reset, + 0) [instance: 2, cache: 1]; + whichCamera = + Compute( + "($0 != 0 || $1 == 0) ? 1 : 2", + reset, + useVector) [instance: 1, cache: 1]; + camera = Switch( + whichCamera, + resetCamera, + realCamera) [instance: 3, cache: 1]; + AAobject = + AutoAxes( + object, + camera, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels) [instance: 1, cache: 1]; + switchAAenable = Compute("$0+1", + AAenable) [instance: 2, cache: 1]; + object = Switch( + switchAAenable, + object, + AAobject) [instance:4, cache: 1]; + SWapproximation_options = + Switch( + buttonState, + buttonUpApprox, + buttonDownApprox) [instance: 5, cache: 1]; + SWdensity_options = + Switch( + buttonState, + buttonUpDensity, + buttonDownDensity) [instance: 6, cache: 1]; + HWapproximation_options = + Format( + "%s,%s", + buttonDownApprox, + buttonUpApprox) [instance: 1, cache: 1]; + HWdensity_options = + Format( + "%d,%d", + buttonDownDensity, + buttonUpDensity) [instance: 2, cache: 1]; + switchRenderMode = Compute( + "$0+1", + renderMode) [instance: 3, cache: 1]; + approximation_options = Switch( + switchRenderMode, + SWapproximation_options, + HWapproximation_options) [instance: 7, cache: 1]; + density_options = Switch( + switchRenderMode, + SWdensity_options, + HWdensity_options) [instance: 8, cache: 1]; + renderModeString = Switch( + switchRenderMode, + "software", + "hardware")[instance: 9, cache: 1]; + object_tag = Inquire( + object, + "object tag")[instance: 3, cache: 1]; + annoted_object = + Options( + object, + "send boxes", + 0, + "cache", + 1, + "object tag", + object_tag, + "ddcamera", + whichCamera, + "rendering approximation", + approximation_options, + "render every", + density_options, + "button state", + buttonState, + "rendering mode", + renderModeString) [instance: 1, cache: 1]; + RECresNull = + Inquire( + RECresolution, + "is null + 1") [instance: 4, cache: 1]; + ImageResolution = + Inquire( + camera, + "camera resolution") [instance: 5, cache: 1]; + RECresolution = + Switch( + RECresNull, + RECresolution, + ImageResolution) [instance: 10, cache: 1]; + RECaspectNull = + Inquire( + RECaspect, + "is null + 1") [instance: 6, cache: 1]; + ImageAspect = + Inquire( + camera, + "camera aspect") [instance: 7, cache: 1]; + RECaspect = + Switch( + RECaspectNull, + RECaspect, + ImageAspect) [instance: 11, cache: 1]; + switchRECenable = Compute( + "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", + RECenable, + switchRenderMode, + RECresolution, + ImageResolution, + RECaspect, + ImageAspect) [instance: 4, cache: 1]; + NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); + Display( + NoRECobject, + camera, + where, + throttle) [instance: 1, cache: 1]; + image = + Render( + RECNoRerenderObject, + camera) [instance: 1, cache: 1]; + Display( + image, + NULL, + where, + throttle) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 1, cache: 1]; + rec_where = Display( + RECNoRerHW, + camera, + where, + throttle) [instance: 1, cache: 0]; + rec_image = ReadImageWindow( + rec_where) [instance: 1, cache: 1]; + WriteImage( + rec_image, + RECfile, + RECformat) [instance: 1, cache: 1]; + RECupdateCamera = + UpdateCamera( + camera, + resolution=RECresolution, + aspect=RECaspect) [instance: 2, cache: 1]; + Display( + RECRerenderObject, + camera, + where, + throttle) [instance: 1, cache: 1]; + RECRerenderObject = + ScaleScreen( + RECRerenderObject, + NULL, + RECresolution, + camera) [instance: 1, cache: 1]; + image = + Render( + RECRerenderObject, + RECupdateCamera) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 2, cache: 1]; +} +main_Image_1_in_1 = "Image_1"; +main_Image_1_in_3 = "X24,,"; +main_Image_1_in_4 = 1; +main_Image_1_in_5 = [7.5 7.5 0]; +main_Image_1_in_6 = [7.5 7.5 39.3199]; +main_Image_1_in_7 = 21.0715; +main_Image_1_in_8 = 804; +main_Image_1_in_9 = 0.610075; +main_Image_1_in_10 = [0 1 0]; +main_Image_1_in_11 = NULL; +main_Image_1_in_12 = 0; +main_Image_1_in_13 = NULL; +main_Image_1_in_14 = 1; +main_Image_1_in_15 = NULL; +main_Image_1_in_16 = NULL; +main_Image_1_in_17 = 1; +main_Image_1_in_18 = 1; +main_Image_1_in_19 = 1; +main_Image_1_in_20 = NULL; +main_Image_1_in_21 = NULL; +main_Image_1_in_22 = "snow"; +main_Image_1_in_23 = NULL; +main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif"; +main_Image_1_in_26 = "tiff"; +main_Image_1_in_27 = NULL; +main_Image_1_in_28 = NULL; +main_Image_1_in_29 = 1; +main_Image_1_in_30 = NULL; +main_Image_1_in_31 = -15; +main_Image_1_in_32 = NULL; +main_Image_1_in_33 = 0; +main_Image_1_in_34 = 0; +main_Image_1_in_35 = NULL; +main_Image_1_in_36 = NULL; +main_Image_1_in_37 = {"clear", "grey5", "saddlebrown", "saddlebrown"}; +main_Image_1_in_38 = {"background", "grid", "ticks", "labels"}; +main_Image_1_in_39 = 0.7; +main_Image_1_in_40 = "roman_s"; +main_Image_1_in_41 = "none"; +main_Image_1_in_42 = NULL; +main_Image_1_in_43 = NULL; +main_Image_1_in_44 = NULL; +main_Image_1_in_45 = NULL; +main_Image_1_in_46 = NULL; +main_Image_1_in_47 = NULL; +main_Image_1_in_48 = NULL; +main_Image_1_in_49 = NULL; +main_SetLocal_1_in_3 = NULL; +Executive("product version 4 4 4"); +$sync +main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2trspdesurf.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2trspdesurf.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,83 @@ +## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## @deftypefn {Function File} {} FPL2trspdesurf (@var{mesh}, @ +## @var{color}, @var{data}) +## +## Plots the transient scalar field @var{u} defined on the triangulation +## @var{mesh} using opendx. Connections are rendered as defined by +## @var{color} +## +## Example: +## @example +## +## FPL2trspdesurf(mesh,"blue",data) +## +## @end example +## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2trsptcsurf} +## @end deftypefn + +function FPL2trspdesurf(varargin) + + seriesend = columns(varargin{3}); + dataname = mktemp("/tmp",".dx"); + colorname = varargin{2}; + FPL2dxoutputtimeseries(dataname, varargin{1}.p, varargin{1}.t, ... + varargin{3}, "dataseries", 0, 1, 1:seriesend); + + scriptname = mktemp("/tmp",".net"); + + view = file_in_path(path,"FPL2trspdesurf.net"); + + system (["cp " view " " scriptname]); + system (["sed -i \'s|FILENAME|" dataname "|g\' " scriptname]); + system (["sed -i \'s|COLORNAME|" colorname "|g\' " scriptname]); + + command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; + system(command); + +endfunction + +function filename = mktemp (direct,ext); + + if (~exist(direct,"dir")) + error("Trying to save temporary file to non existing directory") + endif + + done = false; + + while ~done + filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; + if ~exist(filename,"file") + done = true; + endif + endwhile + +endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2trspdesurf.net --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2trspdesurf.net Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,702 @@ +// +// time: Sat Jan 5 19:47:19 2008 +// +// version: 3.2.0 (format), 4.4.4 (DX) +// +// +// MODULE main +// workspace: width = 1161, height = 826 +// layout: snap = 1, width = 10, height = 10, align = CC +// +macro main( +) -> ( +) { + // + // node String[1]: x = 281, y = 24, inputs = 0, label = String + // output[1]: visible = 1, type = 32, value = "FILENAME" + // + // + // node Import[1]: x = 269, y = 114, inputs = 6, label = Import + // +main_Import_1_out_1 = + Import( + main_String_1_out_1, + main_Import_1_in_2, + main_Import_1_in_3, + main_Import_1_in_4, + main_Import_1_in_5, + main_Import_1_in_6 + ) [instance: 1, cache: 1]; + // + // node Value[1]: x = 513, y = 104, inputs = 0, label = Value + // output[1]: visible = 1, type = 29, value = 0 + // + // + // node Inquire[1]: x = 509, y = 24, inputs = 3, label = Inquire + // input[2]: defaulting = 0, visible = 1, type = 32, value = "member count" + // +main_Inquire_1_out_1 = + Inquire( + main_Import_1_out_1, + main_Inquire_1_in_2, + main_Inquire_1_in_3 + ) [instance: 1, cache: 1]; + // + // node Value[2]: x = 643, y = 4, inputs = 0, label = Value + // output[1]: visible = 1, type = 29, value = 1 + // + // + // node Compute[1]: x = 601, y = 94, inputs = 3, label = Compute + // input[1]: defaulting = 0, visible = 0, type = 32, value = "$0 - $1" + // expression: value = a - b + // name[2]: value = a + // name[3]: value = b + // +main_Compute_1_out_1 = + Compute( + main_Compute_1_in_1, + main_Inquire_1_out_1, + main_Value_2_out_1 + ) [instance: 1, cache: 1]; + // + // node Sequencer[1]: x = 585, y = 184, inputs = 7, label = Sequencer + // input[1]: defaulting = 0, visible = 0, type = 32, value = "Sequencer_1" + // input[4]: defaulting = 1, visible = 1, type = 1, value = 0 + // input[5]: defaulting = 1, visible = 1, type = 1, value = 95 + // input[6]: defaulting = 1, visible = 0, type = 1, value = 1 + // input[7]: defaulting = 0, visible = 0, type = 16777217, value = { 0 95 1 0 95 1 } + // vcr[1]: min = 0, max = 95, beg = 0, end = 95, cur = 38, inc = 1, loop = off, step = off, pal = off + // window: position = (0.0132,0.0833), size = 0.1750x0.0667 + // + main_Sequencer_1_in_3 = @frame; +main_Sequencer_1_out_1[cache: 2] = + Sequencer( + main_Sequencer_1_in_1, + main_Sequencer_1_in_2, + main_Sequencer_1_in_3, + main_Value_1_out_1, + main_Compute_1_out_1, + main_Sequencer_1_in_6, + main_Sequencer_1_in_7 + ) [instance: 1, cache: 1]; + // + // node Select[1]: x = 411, y = 214, inputs = 3, label = Select + // +main_Select_1_out_1 = + Select( + main_Import_1_out_1, + main_Sequencer_1_out_1, + main_Select_1_in_3 + ) [instance: 1, cache: 1]; + // + // node RubberSheet[3]: x = 406, y = 364, inputs = 4, label = RubberSheet + // +main_RubberSheet_3_out_1 = + RubberSheet( + main_Select_1_out_1, + main_RubberSheet_3_in_2, + main_RubberSheet_3_in_3, + main_RubberSheet_3_in_4 + ) [instance: 3, cache: 1]; + // + // node Statistics[4]: x = 185, y = 234, inputs = 1, label = Statistics + // +main_Statistics_4_out_1, +main_Statistics_4_out_2, +main_Statistics_4_out_3, +main_Statistics_4_out_4, +main_Statistics_4_out_5 = + Statistics( + main_Import_1_out_1 + ) [instance: 4, cache: 1]; + // + // node AutoColor[1]: x = 336, y = 474, inputs = 10, label = AutoColor + // input[8]: visible = 1 + // +main_AutoColor_1_out_1, +main_AutoColor_1_out_2 = + AutoColor( + main_RubberSheet_3_out_1, + main_AutoColor_1_in_2, + main_AutoColor_1_in_3, + main_AutoColor_1_in_4, + main_AutoColor_1_in_5, + main_AutoColor_1_in_6, + main_Statistics_4_out_4, + main_Statistics_4_out_5, + main_AutoColor_1_in_9, + main_AutoColor_1_in_10 + ) [instance: 1, cache: 1]; + // + // node Shade[2]: x = 299, y = 574, inputs = 8, label = Shade + // input[3]: defaulting = 0, visible = 1, type = 32, value = "smooth" + // +main_Shade_2_out_1 = + Shade( + main_AutoColor_1_out_1, + main_Shade_2_in_2, + main_Shade_2_in_3, + main_Shade_2_in_4, + main_Shade_2_in_5, + main_Shade_2_in_6, + main_Shade_2_in_7, + main_Shade_2_in_8 + ) [instance: 2, cache: 1]; + // + // node ColorBar[1]: x = 775, y = 574, inputs = 16, label = ColorBar + // input[4]: defaulting = 0, visible = 1, type = 3, value = 1 + // +main_ColorBar_1_out_1 = + ColorBar( + main_AutoColor_1_out_2, + main_ColorBar_1_in_2, + main_ColorBar_1_in_3, + main_ColorBar_1_in_4, + main_ColorBar_1_in_5, + main_ColorBar_1_in_6, + main_ColorBar_1_in_7, + main_ColorBar_1_in_8, + main_ColorBar_1_in_9, + main_ColorBar_1_in_10, + main_ColorBar_1_in_11, + main_ColorBar_1_in_12, + main_ColorBar_1_in_13, + main_ColorBar_1_in_14, + main_ColorBar_1_in_15, + main_ColorBar_1_in_16 + ) [instance: 1, cache: 1]; + // + // node ShowConnections[1]: x = 869, y = 474, inputs = 1, label = ShowConnections + // +main_ShowConnections_1_out_1 = + ShowConnections( + main_RubberSheet_3_out_1 + ) [instance: 1, cache: 1]; + // + // node String[2]: x = 1091, y = 474, inputs = 0, label = String + // output[1]: visible = 1, type = 32, value = "COLORNAME" + // + // + // node Color[1]: x = 929, y = 574, inputs = 5, label = Color + // input[3]: defaulting = 0, visible = 1, type = 5, value = .3 + // +main_Color_1_out_1 = + Color( + main_ShowConnections_1_out_1, + main_String_2_out_1, + main_Color_1_in_3, + main_Color_1_in_4, + main_Color_1_in_5 + ) [instance: 1, cache: 1]; + // + // node Collect[1]: x = 799, y = 684, inputs = 3, label = Collect + // +main_Collect_1_out_1 = + Collect( + main_Shade_2_out_1, + main_ColorBar_1_out_1, + main_Color_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Image[1]: x = 1089, y = 764, inputs = 49, label = Image + // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_1" + // input[4]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[19]: defaulting = 0, visible = 0, type = 3, value = 0 + // depth: value = 24 + // internal caching: 1 + // +main_Image_1_out_1, +main_Image_1_out_2, +main_Image_1_out_3 = + Image( + main_Image_1_in_1, + main_Collect_1_out_1, + main_Image_1_in_3, + main_Image_1_in_4, + main_Image_1_in_5, + main_Image_1_in_6, + main_Image_1_in_7, + main_Image_1_in_8, + main_Image_1_in_9, + main_Image_1_in_10, + main_Image_1_in_11, + main_Image_1_in_12, + main_Image_1_in_13, + main_Image_1_in_14, + main_Image_1_in_15, + main_Image_1_in_16, + main_Image_1_in_17, + main_Image_1_in_18, + main_Image_1_in_19, + main_Image_1_in_20, + main_Image_1_in_21, + main_Image_1_in_22, + main_Image_1_in_23, + main_Image_1_in_24, + main_Image_1_in_25, + main_Image_1_in_26, + main_Image_1_in_27, + main_Image_1_in_28, + main_Image_1_in_29, + main_Image_1_in_30, + main_Image_1_in_31, + main_Image_1_in_32, + main_Image_1_in_33, + main_Image_1_in_34, + main_Image_1_in_35, + main_Image_1_in_36, + main_Image_1_in_37, + main_Image_1_in_38, + main_Image_1_in_39, + main_Image_1_in_40, + main_Image_1_in_41, + main_Image_1_in_42, + main_Image_1_in_43, + main_Image_1_in_44, + main_Image_1_in_45, + main_Image_1_in_46, + main_Image_1_in_47, + main_Image_1_in_48, + main_Image_1_in_49 + ) [instance: 1, cache: 1]; +// network: end of macro body +CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); +} +main_String_1_out_1 = "FILENAME"; +main_Import_1_in_2 = NULL; +main_Import_1_in_3 = NULL; +main_Import_1_in_4 = NULL; +main_Import_1_in_5 = NULL; +main_Import_1_in_6 = NULL; +main_Import_1_out_1 = NULL; +main_Value_1_out_1 = 0; +main_Inquire_1_in_2 = "member count"; +main_Inquire_1_in_3 = NULL; +main_Inquire_1_out_1 = NULL; +main_Value_2_out_1 = 1; +main_Compute_1_in_1 = "$0 - $1"; +main_Compute_1_out_1 = NULL; +main_Sequencer_1_in_1 = "Sequencer_1"; +main_Sequencer_1_in_2 = NULL; +main_Sequencer_1_in_3 = NULL; +main_Sequencer_1_in_6 = NULL; +main_Sequencer_1_in_7 = { 0 95 1 0 95 1 }; +main_Sequencer_1_out_1 = NULL; + +@startframe = 0; +@nextframe = @startframe; +@endframe = 95; +@deltaframe = 1; +main_Select_1_in_3 = NULL; +main_Select_1_out_1 = NULL; +main_RubberSheet_3_in_2 = NULL; +main_RubberSheet_3_in_3 = NULL; +main_RubberSheet_3_in_4 = NULL; +main_RubberSheet_3_out_1 = NULL; +main_Statistics_4_out_4 = NULL; +main_Statistics_4_out_5 = NULL; +main_AutoColor_1_in_2 = NULL; +main_AutoColor_1_in_3 = NULL; +main_AutoColor_1_in_4 = NULL; +main_AutoColor_1_in_5 = NULL; +main_AutoColor_1_in_6 = NULL; +main_AutoColor_1_in_9 = NULL; +main_AutoColor_1_in_10 = NULL; +main_AutoColor_1_out_1 = NULL; +main_AutoColor_1_out_2 = NULL; +main_Shade_2_in_2 = NULL; +main_Shade_2_in_3 = "smooth"; +main_Shade_2_in_4 = NULL; +main_Shade_2_in_5 = NULL; +main_Shade_2_in_6 = NULL; +main_Shade_2_in_7 = NULL; +main_Shade_2_in_8 = NULL; +main_Shade_2_out_1 = NULL; +main_ColorBar_1_in_2 = NULL; +main_ColorBar_1_in_3 = NULL; +main_ColorBar_1_in_4 = 1; +main_ColorBar_1_in_5 = NULL; +main_ColorBar_1_in_6 = NULL; +main_ColorBar_1_in_7 = NULL; +main_ColorBar_1_in_8 = NULL; +main_ColorBar_1_in_9 = NULL; +main_ColorBar_1_in_10 = NULL; +main_ColorBar_1_in_11 = NULL; +main_ColorBar_1_in_12 = NULL; +main_ColorBar_1_in_13 = NULL; +main_ColorBar_1_in_14 = NULL; +main_ColorBar_1_in_15 = NULL; +main_ColorBar_1_in_16 = NULL; +main_ColorBar_1_out_1 = NULL; +main_ShowConnections_1_out_1 = NULL; +main_String_2_out_1 = "COLORNAME"; +main_Color_1_in_3 = .3; +main_Color_1_in_4 = NULL; +main_Color_1_in_5 = NULL; +main_Color_1_out_1 = NULL; +main_Collect_1_out_1 = NULL; +macro Image( + id, + object, + where, + useVector, + to, + from, + width, + resolution, + aspect, + up, + viewAngle, + perspective, + options, + buttonState = 1, + buttonUpApprox = "none", + buttonDownApprox = "none", + buttonUpDensity = 1, + buttonDownDensity = 1, + renderMode = 0, + defaultCamera, + reset, + backgroundColor, + throttle, + RECenable = 0, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable = 0, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + interactionMode, + title, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + webOptions) -> ( + object, + camera, + where) +{ + ImageMessage( + id, + backgroundColor, + throttle, + RECenable, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + interactionMode, + title, + renderMode, + buttonUpApprox, + buttonDownApprox, + buttonUpDensity, + buttonDownDensity) [instance: 1, cache: 1]; + autoCamera = + AutoCamera( + object, + "front", + object, + resolution, + aspect, + [0,1,0], + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + realCamera = + Camera( + to, + from, + width, + resolution, + aspect, + up, + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + coloredDefaultCamera = + UpdateCamera(defaultCamera, + background=backgroundColor) [instance: 1, cache: 1]; + nullDefaultCamera = + Inquire(defaultCamera, + "is null + 1") [instance: 1, cache: 1]; + resetCamera = + Switch( + nullDefaultCamera, + coloredDefaultCamera, + autoCamera) [instance: 1, cache: 1]; + resetNull = + Inquire( + reset, + "is null + 1") [instance: 2, cache: 1]; + reset = + Switch( + resetNull, + reset, + 0) [instance: 2, cache: 1]; + whichCamera = + Compute( + "($0 != 0 || $1 == 0) ? 1 : 2", + reset, + useVector) [instance: 1, cache: 1]; + camera = Switch( + whichCamera, + resetCamera, + realCamera) [instance: 3, cache: 1]; + AAobject = + AutoAxes( + object, + camera, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels) [instance: 1, cache: 1]; + switchAAenable = Compute("$0+1", + AAenable) [instance: 2, cache: 1]; + object = Switch( + switchAAenable, + object, + AAobject) [instance:4, cache: 1]; + SWapproximation_options = + Switch( + buttonState, + buttonUpApprox, + buttonDownApprox) [instance: 5, cache: 1]; + SWdensity_options = + Switch( + buttonState, + buttonUpDensity, + buttonDownDensity) [instance: 6, cache: 1]; + HWapproximation_options = + Format( + "%s,%s", + buttonDownApprox, + buttonUpApprox) [instance: 1, cache: 1]; + HWdensity_options = + Format( + "%d,%d", + buttonDownDensity, + buttonUpDensity) [instance: 2, cache: 1]; + switchRenderMode = Compute( + "$0+1", + renderMode) [instance: 3, cache: 1]; + approximation_options = Switch( + switchRenderMode, + SWapproximation_options, + HWapproximation_options) [instance: 7, cache: 1]; + density_options = Switch( + switchRenderMode, + SWdensity_options, + HWdensity_options) [instance: 8, cache: 1]; + renderModeString = Switch( + switchRenderMode, + "software", + "hardware")[instance: 9, cache: 1]; + object_tag = Inquire( + object, + "object tag")[instance: 3, cache: 1]; + annoted_object = + Options( + object, + "send boxes", + 0, + "cache", + 1, + "object tag", + object_tag, + "ddcamera", + whichCamera, + "rendering approximation", + approximation_options, + "render every", + density_options, + "button state", + buttonState, + "rendering mode", + renderModeString) [instance: 1, cache: 1]; + RECresNull = + Inquire( + RECresolution, + "is null + 1") [instance: 4, cache: 1]; + ImageResolution = + Inquire( + camera, + "camera resolution") [instance: 5, cache: 1]; + RECresolution = + Switch( + RECresNull, + RECresolution, + ImageResolution) [instance: 10, cache: 1]; + RECaspectNull = + Inquire( + RECaspect, + "is null + 1") [instance: 6, cache: 1]; + ImageAspect = + Inquire( + camera, + "camera aspect") [instance: 7, cache: 1]; + RECaspect = + Switch( + RECaspectNull, + RECaspect, + ImageAspect) [instance: 11, cache: 1]; + switchRECenable = Compute( + "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", + RECenable, + switchRenderMode, + RECresolution, + ImageResolution, + RECaspect, + ImageAspect) [instance: 4, cache: 1]; + NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); + Display( + NoRECobject, + camera, + where, + throttle) [instance: 1, cache: 1]; + image = + Render( + RECNoRerenderObject, + camera) [instance: 1, cache: 1]; + Display( + image, + NULL, + where, + throttle) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 1, cache: 1]; + rec_where = Display( + RECNoRerHW, + camera, + where, + throttle) [instance: 1, cache: 0]; + rec_image = ReadImageWindow( + rec_where) [instance: 1, cache: 1]; + WriteImage( + rec_image, + RECfile, + RECformat) [instance: 1, cache: 1]; + RECupdateCamera = + UpdateCamera( + camera, + resolution=RECresolution, + aspect=RECaspect) [instance: 2, cache: 1]; + Display( + RECRerenderObject, + camera, + where, + throttle) [instance: 1, cache: 1]; + RECRerenderObject = + ScaleScreen( + RECRerenderObject, + NULL, + RECresolution, + camera) [instance: 1, cache: 1]; + image = + Render( + RECRerenderObject, + RECupdateCamera) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 2, cache: 1]; +} +main_Image_1_in_1 = "Image_1"; +main_Image_1_in_3 = "X24,,"; +main_Image_1_in_4 = 0; +main_Image_1_in_5 = NULL; +main_Image_1_in_6 = NULL; +main_Image_1_in_7 = NULL; +main_Image_1_in_8 = NULL; +main_Image_1_in_9 = NULL; +main_Image_1_in_10 = NULL; +main_Image_1_in_11 = NULL; +main_Image_1_in_12 = NULL; +main_Image_1_in_13 = NULL; +main_Image_1_in_14 = 1; +main_Image_1_in_15 = NULL; +main_Image_1_in_16 = NULL; +main_Image_1_in_17 = NULL; +main_Image_1_in_18 = NULL; +main_Image_1_in_19 = 0; +main_Image_1_in_20 = NULL; +main_Image_1_in_21 = NULL; +main_Image_1_in_22 = NULL; +main_Image_1_in_23 = NULL; +main_Image_1_in_25 = NULL; +main_Image_1_in_26 = NULL; +main_Image_1_in_27 = NULL; +main_Image_1_in_28 = NULL; +main_Image_1_in_29 = NULL; +main_Image_1_in_30 = NULL; +main_Image_1_in_31 = NULL; +main_Image_1_in_32 = NULL; +main_Image_1_in_33 = NULL; +main_Image_1_in_34 = NULL; +main_Image_1_in_35 = NULL; +main_Image_1_in_36 = NULL; +main_Image_1_in_37 = NULL; +main_Image_1_in_38 = NULL; +main_Image_1_in_39 = NULL; +main_Image_1_in_40 = NULL; +main_Image_1_in_41 = NULL; +main_Image_1_in_42 = NULL; +main_Image_1_in_43 = NULL; +main_Image_1_in_44 = NULL; +main_Image_1_in_45 = NULL; +main_Image_1_in_46 = NULL; +main_Image_1_in_47 = NULL; +main_Image_1_in_48 = NULL; +main_Image_1_in_49 = NULL; +Executive("product version 4 4 4"); +$sync + +sequence main(); +play; diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2trsptcsurf.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2trsptcsurf.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,90 @@ +## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## @deftypefn {Function File} {} FPL2trsptcsurf (@var{mesh1}, @ +## @var{color1}, @var{data1}, [@var{mesh2}, @var{color2}, @var{data2}]) +## +## Plots the transient scalar fields @var{data} defined on the triangulation +## @var{mesh} using opendx. Connections are rendered as defined by +## @var{color} +## +## Example: +## @example +## +## FPL2trspdesurf(mesh1,"blue",data1, mesh2,"red",data2) +## +## @end example +## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2trspdesurf} +## @end deftypefn + +function FPL2trsptcsurf(varargin) + + datalist = ""; + colorlist = ""; + + for ii = 1:3:nargin + seriesend = columns(varargin{ii+2}); + dataname = mktemp("/tmp",".dx"); + colorname = varargin{ii+1}; + FPL2dxoutputtimeseries(dataname, varargin{ii}.p, varargin{ii}.t, ... + varargin{ii+2}, "dataseries", 0, 1, ... + 1:seriesend); + datalist = strcat(datalist, """", dataname ,""""); + colorlist = strcat(colorlist, """", colorname, """"); + endfor + + scriptname = mktemp("/tmp",".net"); + + view = file_in_path(path,"FPL2trsptcsurf.net"); + + system (["cp " view " " scriptname]); + system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]); + system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]); + + command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; + system(command); +endfunction + +function filename = mktemp (direct,ext); + + if (~exist(direct,"dir")) + error("Trying to save temporary file to non existing directory") + endif + + done = false; + + while ~done + filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; + if ~exist(filename,"file") + done = true; + endif + endwhile + +endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2trsptcsurf.net --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2trsptcsurf.net Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,923 @@ +// +// time: Sun Jan 6 17:08:01 2008 +// +// version: 3.2.0 (format), 4.4.4 (DX) +// +// +// MODULE main +// workspace: width = 1098, height = 1006 +// layout: snap = 1, width = 10, height = 10, align = CC +// +macro main( +) -> ( +) { + // + // node CollectMultiGrid[1]: x = 425, y = 404, inputs = 4, label = CollectMultiGrid + // input[1]: defaulting = 0, visible = 1, type = 67108863, value = NULL + // input[3]: defaulting = 0, visible = 1, type = 67108863, value = NULL + // +main_CollectMultiGrid_1_out_1 = + CollectMultiGrid( + main_CollectMultiGrid_1_in_1, + main_CollectMultiGrid_1_in_2, + main_CollectMultiGrid_1_in_3, + main_CollectMultiGrid_1_in_4 + ) [instance: 1, cache: 1]; + // + // node StringList[1]: x = 178, y = 24, inputs = 0, label = StringList + // output[1]: visible = 1, type = 16777248, value = { "FILELIST" } + // + // + // node ForEachMember[1]: x = 155, y = 124, inputs = 1, label = ForEachMember + // +main_ForEachMember_1_out_1, +main_ForEachMember_1_out_2, +main_ForEachMember_1_out_3 = + ForEachMember( + main_StringList_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Import[1]: x = 159, y = 224, inputs = 6, label = Import + // +main_Import_1_out_1 = + Import( + main_ForEachMember_1_out_1, + main_Import_1_in_2, + main_Import_1_in_3, + main_Import_1_in_4, + main_Import_1_in_5, + main_Import_1_in_6 + ) [instance: 1, cache: 1]; + // + // node Value[1]: x = 993, y = 294, inputs = 0, label = Value + // output[1]: visible = 1, type = 29, value = 0 + // + // + // node Inquire[1]: x = 879, y = 294, inputs = 3, label = Inquire + // input[2]: defaulting = 0, visible = 1, type = 32, value = "member count" + // +main_Inquire_1_out_1 = + Inquire( + main_Import_1_out_1, + main_Inquire_1_in_2, + main_Inquire_1_in_3 + ) [instance: 1, cache: 1]; + // + // node Value[2]: x = 1053, y = 74, inputs = 0, label = Value + // output[1]: visible = 1, type = 29, value = 1 + // + // + // node Compute[1]: x = 1021, y = 164, inputs = 3, label = Compute + // input[1]: defaulting = 0, visible = 0, type = 32, value = "$0 - $1" + // expression: value = a - b + // name[2]: value = a + // name[3]: value = b + // +main_Compute_1_out_1 = + Compute( + main_Compute_1_in_1, + main_Inquire_1_out_1, + main_Value_2_out_1 + ) [instance: 1, cache: 1]; + // + // node Sequencer[1]: x = 995, y = 394, inputs = 7, label = Sequencer + // input[1]: defaulting = 0, visible = 0, type = 32, value = "Sequencer_1" + // input[4]: defaulting = 1, visible = 1, type = 1, value = 0 + // input[5]: defaulting = 1, visible = 1, type = 1, value = 95 + // input[6]: defaulting = 1, visible = 0, type = 1, value = 1 + // input[7]: defaulting = 0, visible = 0, type = 16777217, value = { 0 95 1 0 95 1 } + // vcr[1]: min = 0, max = 95, beg = 0, end = 95, cur = 38, inc = 1, loop = off, step = off, pal = off + // window: position = (0.0132,0.0833), size = 0.1750x0.0667 + // + main_Sequencer_1_in_3 = @frame; +main_Sequencer_1_out_1[cache: 2] = + Sequencer( + main_Sequencer_1_in_1, + main_Sequencer_1_in_2, + main_Sequencer_1_in_3, + main_Value_1_out_1, + main_Compute_1_out_1, + main_Sequencer_1_in_6, + main_Sequencer_1_in_7 + ) [instance: 1, cache: 1]; + // + // node Select[1]: x = 851, y = 394, inputs = 3, label = Select + // +main_Select_1_out_1 = + Select( + main_Import_1_out_1, + main_Sequencer_1_out_1, + main_Select_1_in_3 + ) [instance: 1, cache: 1]; + // + // node ShowConnections[1]: x = 449, y = 324, inputs = 1, label = ShowConnections + // +main_ShowConnections_1_out_1 = + ShowConnections( + main_Select_1_out_1 + ) [instance: 1, cache: 1]; + // + // node StringList[2]: x = 628, y = 224, inputs = 0, label = StringList + // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" } + // + // + // node ForEachMember[2]: x = 605, y = 324, inputs = 1, label = ForEachMember + // +main_ForEachMember_2_out_1, +main_ForEachMember_2_out_2, +main_ForEachMember_2_out_3 = + ForEachMember( + main_StringList_2_out_1 + ) [instance: 2, cache: 1]; + // + // node Color[1]: x = 589, y = 404, inputs = 5, label = Color + // input[3]: defaulting = 0, visible = 1, type = 5, value = .3 + // +main_Color_1_out_1 = + Color( + main_ShowConnections_1_out_1, + main_ForEachMember_2_out_1, + main_Color_1_in_3, + main_Color_1_in_4, + main_Color_1_in_5 + ) [instance: 1, cache: 1]; + // + // node GetLocal[3]: x = 732, y = 394, inputs = 3, label = GetLocal + // +main_GetLocal_3_out_1, +main_GetLocal_3_out_2 = + GetLocal( + main_GetLocal_3_in_1, + main_GetLocal_3_in_2, + main_GetLocal_3_in_3 + ) [instance: 3, cache: 1]; + // + // node Append[1]: x = 555, y = 484, inputs = 5, label = Append + // +main_Append_1_out_1 = + Append( + main_CollectMultiGrid_1_out_1, + main_Color_1_out_1, + main_Append_1_in_3, + main_GetLocal_3_out_1, + main_Append_1_in_5 + ) [instance: 1, cache: 1]; + // + // node GetLocal[4]: x = 1012, y = 484, inputs = 3, label = GetLocal + // +main_GetLocal_4_out_1, +main_GetLocal_4_out_2 = + GetLocal( + main_GetLocal_4_in_1, + main_GetLocal_4_in_2, + main_GetLocal_4_in_3 + ) [instance: 4, cache: 1]; + // + // node Append[2]: x = 835, y = 484, inputs = 5, label = Append + // +main_Append_2_out_1 = + Append( + main_CollectMultiGrid_1_out_1, + main_Select_1_out_1, + main_Append_2_in_3, + main_GetLocal_4_out_1, + main_Append_2_in_5 + ) [instance: 2, cache: 1]; + // + // node RubberSheet[2]: x = 786, y = 644, inputs = 4, label = RubberSheet + // input[2]: defaulting = 1, visible = 1, type = 5, value = .1 + // +main_RubberSheet_2_out_1 = + RubberSheet( + main_Append_2_out_1, + main_RubberSheet_2_in_2, + main_RubberSheet_2_in_3, + main_RubberSheet_2_in_4 + ) [instance: 2, cache: 1]; + // + // node Shade[1]: x = 899, y = 684, inputs = 8, label = Shade + // input[2]: defaulting = 0, visible = 1, type = 3, value = 1 + // input[3]: defaulting = 0, visible = 1, type = 32, value = "smooth" + // +main_Shade_1_out_1 = + Shade( + main_RubberSheet_2_out_1, + main_Shade_1_in_2, + main_Shade_1_in_3, + main_Shade_1_in_4, + main_Shade_1_in_5, + main_Shade_1_in_6, + main_Shade_1_in_7, + main_Shade_1_in_8 + ) [instance: 1, cache: 1]; + // + // node Statistics[1]: x = 135, y = 324, inputs = 1, label = Statistics + // +main_Statistics_1_out_1, +main_Statistics_1_out_2, +main_Statistics_1_out_3, +main_Statistics_1_out_4, +main_Statistics_1_out_5 = + Statistics( + main_Import_1_out_1 + ) [instance: 1, cache: 1]; + // + // node GetLocal[2]: x = 12, y = 324, inputs = 3, label = GetLocal + // +main_GetLocal_2_out_1, +main_GetLocal_2_out_2 = + GetLocal( + main_GetLocal_2_in_1, + main_GetLocal_2_in_2, + main_GetLocal_2_in_3 + ) [instance: 2, cache: 1]; + // + // node List[2]: x = 111, y = 464, inputs = 2, label = List + // +main_List_2_out_1 = + List( + main_Statistics_1_out_4, + main_GetLocal_2_out_1 + ) [instance: 2, cache: 1]; + // + // node Statistics[3]: x = 75, y = 594, inputs = 1, label = Statistics + // +main_Statistics_3_out_1, +main_Statistics_3_out_2, +main_Statistics_3_out_3, +main_Statistics_3_out_4, +main_Statistics_3_out_5 = + Statistics( + main_List_2_out_1 + ) [instance: 3, cache: 1]; + // + // node GetLocal[1]: x = 302, y = 324, inputs = 3, label = GetLocal + // +main_GetLocal_1_out_1, +main_GetLocal_1_out_2 = + GetLocal( + main_GetLocal_1_in_1, + main_GetLocal_1_in_2, + main_GetLocal_1_in_3 + ) [instance: 1, cache: 1]; + // + // node List[1]: x = 231, y = 464, inputs = 2, label = List + // +main_List_1_out_1 = + List( + main_Statistics_1_out_5, + main_GetLocal_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Statistics[2]: x = 235, y = 594, inputs = 1, label = Statistics + // +main_Statistics_2_out_1, +main_Statistics_2_out_2, +main_Statistics_2_out_3, +main_Statistics_2_out_4, +main_Statistics_2_out_5 = + Statistics( + main_List_1_out_1 + ) [instance: 2, cache: 1]; + // + // node AutoColor[1]: x = 896, y = 804, inputs = 10, label = AutoColor + // input[2]: defaulting = 0, visible = 0, type = 5, value = 1.0 + // input[8]: visible = 1 + // +main_AutoColor_1_out_1, +main_AutoColor_1_out_2 = + AutoColor( + main_Shade_1_out_1, + main_AutoColor_1_in_2, + main_AutoColor_1_in_3, + main_AutoColor_1_in_4, + main_AutoColor_1_in_5, + main_AutoColor_1_in_6, + main_Statistics_3_out_4, + main_Statistics_2_out_5, + main_AutoColor_1_in_9, + main_AutoColor_1_in_10 + ) [instance: 1, cache: 1]; + // + // node RubberSheet[4]: x = 606, y = 734, inputs = 4, label = RubberSheet + // input[2]: defaulting = 1, visible = 1, type = 5, value = .1 + // +main_RubberSheet_4_out_1 = + RubberSheet( + main_Append_1_out_1, + main_RubberSheet_4_in_2, + main_RubberSheet_4_in_3, + main_RubberSheet_4_in_4 + ) [instance: 4, cache: 1]; + // + // node ColorBar[1]: x = 835, y = 934, inputs = 16, label = ColorBar + // input[4]: defaulting = 0, visible = 1, type = 3, value = 1 + // +main_ColorBar_1_out_1 = + ColorBar( + main_AutoColor_1_out_2, + main_ColorBar_1_in_2, + main_ColorBar_1_in_3, + main_ColorBar_1_in_4, + main_ColorBar_1_in_5, + main_ColorBar_1_in_6, + main_ColorBar_1_in_7, + main_ColorBar_1_in_8, + main_ColorBar_1_in_9, + main_ColorBar_1_in_10, + main_ColorBar_1_in_11, + main_ColorBar_1_in_12, + main_ColorBar_1_in_13, + main_ColorBar_1_in_14, + main_ColorBar_1_in_15, + main_ColorBar_1_in_16 + ) [instance: 1, cache: 1]; + // + // node Collect[1]: x = 619, y = 844, inputs = 3, label = Collect + // +main_Collect_1_out_1 = + Collect( + main_RubberSheet_4_out_1, + main_AutoColor_1_out_1, + main_ColorBar_1_out_1 + ) [instance: 1, cache: 1]; + // + // node Image[1]: x = 609, y = 944, inputs = 49, label = Image + // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1" + // input[4]: defaulting = 0, visible = 0, type = 1, value = 0 + // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 + // input[19]: defaulting = 0, visible = 0, type = 3, value = 0 + // depth: value = 24 + // internal caching: 1 + // +main_Image_1_out_1, +main_Image_1_out_2, +main_Image_1_out_3 = + Image( + main_Image_1_in_1, + main_Collect_1_out_1, + main_Image_1_in_3, + main_Image_1_in_4, + main_Image_1_in_5, + main_Image_1_in_6, + main_Image_1_in_7, + main_Image_1_in_8, + main_Image_1_in_9, + main_Image_1_in_10, + main_Image_1_in_11, + main_Image_1_in_12, + main_Image_1_in_13, + main_Image_1_in_14, + main_Image_1_in_15, + main_Image_1_in_16, + main_Image_1_in_17, + main_Image_1_in_18, + main_Image_1_in_19, + main_Image_1_in_20, + main_Image_1_in_21, + main_Image_1_in_22, + main_Image_1_in_23, + main_Image_1_in_24, + main_Image_1_in_25, + main_Image_1_in_26, + main_Image_1_in_27, + main_Image_1_in_28, + main_Image_1_in_29, + main_Image_1_in_30, + main_Image_1_in_31, + main_Image_1_in_32, + main_Image_1_in_33, + main_Image_1_in_34, + main_Image_1_in_35, + main_Image_1_in_36, + main_Image_1_in_37, + main_Image_1_in_38, + main_Image_1_in_39, + main_Image_1_in_40, + main_Image_1_in_41, + main_Image_1_in_42, + main_Image_1_in_43, + main_Image_1_in_44, + main_Image_1_in_45, + main_Image_1_in_46, + main_Image_1_in_47, + main_Image_1_in_48, + main_Image_1_in_49 + ) [instance: 1, cache: 1]; + // + // node SetLocal[1]: x = 332, y = 464, inputs = 3, label = SetLocal + // + SetLocal( + main_List_1_out_1, + main_GetLocal_1_out_2, + main_SetLocal_1_in_3 + ) [instance: 1, cache: 1]; + // + // node SetLocal[2]: x = 12, y = 464, inputs = 3, label = SetLocal + // + SetLocal( + main_List_2_out_1, + main_GetLocal_2_out_2, + main_SetLocal_2_in_3 + ) [instance: 2, cache: 1]; + // + // node SetLocal[3]: x = 732, y = 484, inputs = 3, label = SetLocal + // + SetLocal( + main_Append_1_out_1, + main_GetLocal_3_out_2, + main_SetLocal_3_in_3 + ) [instance: 3, cache: 1]; + // + // node SetLocal[4]: x = 1012, y = 564, inputs = 3, label = SetLocal + // + SetLocal( + main_Append_2_out_1, + main_GetLocal_4_out_2, + main_SetLocal_4_in_3 + ) [instance: 4, cache: 1]; +// network: end of macro body +CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); +} +main_CollectMultiGrid_1_in_1 = NULL; +main_CollectMultiGrid_1_in_2 = NULL; +main_CollectMultiGrid_1_in_3 = NULL; +main_CollectMultiGrid_1_in_4 = NULL; +main_CollectMultiGrid_1_out_1 = NULL; +main_StringList_1_out_1 = { "FILELIST" }; +main_ForEachMember_1_out_1 = NULL; +main_Import_1_in_2 = NULL; +main_Import_1_in_3 = NULL; +main_Import_1_in_4 = NULL; +main_Import_1_in_5 = NULL; +main_Import_1_in_6 = NULL; +main_Import_1_out_1 = NULL; +main_Value_1_out_1 = 0; +main_Inquire_1_in_2 = "member count"; +main_Inquire_1_in_3 = NULL; +main_Inquire_1_out_1 = NULL; +main_Value_2_out_1 = 1; +main_Compute_1_in_1 = "$0 - $1"; +main_Compute_1_out_1 = NULL; +main_Sequencer_1_in_1 = "Sequencer_1"; +main_Sequencer_1_in_2 = NULL; +main_Sequencer_1_in_3 = NULL; +main_Sequencer_1_in_6 = NULL; +main_Sequencer_1_in_7 = { 0 95 1 0 95 1 }; +main_Sequencer_1_out_1 = NULL; + +@startframe = 0; +@nextframe = @startframe; +@endframe = 95; +@deltaframe = 1; +main_Select_1_in_3 = NULL; +main_Select_1_out_1 = NULL; +main_ShowConnections_1_out_1 = NULL; +main_StringList_2_out_1 = { "COLORLIST" }; +main_ForEachMember_2_out_1 = NULL; +main_Color_1_in_3 = .3; +main_Color_1_in_4 = NULL; +main_Color_1_in_5 = NULL; +main_Color_1_out_1 = NULL; +main_GetLocal_3_in_1 = NULL; +main_GetLocal_3_in_2 = NULL; +main_GetLocal_3_in_3 = NULL; +main_GetLocal_3_out_1 = NULL; +main_GetLocal_3_out_2 = NULL; +main_Append_1_in_3 = NULL; +main_Append_1_in_5 = NULL; +main_Append_1_out_1 = NULL; +main_GetLocal_4_in_1 = NULL; +main_GetLocal_4_in_2 = NULL; +main_GetLocal_4_in_3 = NULL; +main_GetLocal_4_out_1 = NULL; +main_GetLocal_4_out_2 = NULL; +main_Append_2_in_3 = NULL; +main_Append_2_in_5 = NULL; +main_Append_2_out_1 = NULL; +main_RubberSheet_2_in_2 = NULL; +main_RubberSheet_2_in_3 = NULL; +main_RubberSheet_2_in_4 = NULL; +main_RubberSheet_2_out_1 = NULL; +main_Shade_1_in_2 = 1; +main_Shade_1_in_3 = "smooth"; +main_Shade_1_in_4 = NULL; +main_Shade_1_in_5 = NULL; +main_Shade_1_in_6 = NULL; +main_Shade_1_in_7 = NULL; +main_Shade_1_in_8 = NULL; +main_Shade_1_out_1 = NULL; +main_Statistics_1_out_4 = NULL; +main_Statistics_1_out_5 = NULL; +main_GetLocal_2_in_1 = NULL; +main_GetLocal_2_in_2 = NULL; +main_GetLocal_2_in_3 = NULL; +main_GetLocal_2_out_1 = NULL; +main_GetLocal_2_out_2 = NULL; +main_List_2_out_1 = NULL; +main_Statistics_3_out_4 = NULL; +main_GetLocal_1_in_1 = NULL; +main_GetLocal_1_in_2 = NULL; +main_GetLocal_1_in_3 = NULL; +main_GetLocal_1_out_1 = NULL; +main_GetLocal_1_out_2 = NULL; +main_List_1_out_1 = NULL; +main_Statistics_2_out_5 = NULL; +main_AutoColor_1_in_2 = 1.0; +main_AutoColor_1_in_3 = NULL; +main_AutoColor_1_in_4 = NULL; +main_AutoColor_1_in_5 = NULL; +main_AutoColor_1_in_6 = NULL; +main_AutoColor_1_in_9 = NULL; +main_AutoColor_1_in_10 = NULL; +main_AutoColor_1_out_1 = NULL; +main_AutoColor_1_out_2 = NULL; +main_RubberSheet_4_in_2 = NULL; +main_RubberSheet_4_in_3 = NULL; +main_RubberSheet_4_in_4 = NULL; +main_RubberSheet_4_out_1 = NULL; +main_ColorBar_1_in_2 = NULL; +main_ColorBar_1_in_3 = NULL; +main_ColorBar_1_in_4 = 1; +main_ColorBar_1_in_5 = NULL; +main_ColorBar_1_in_6 = NULL; +main_ColorBar_1_in_7 = NULL; +main_ColorBar_1_in_8 = NULL; +main_ColorBar_1_in_9 = NULL; +main_ColorBar_1_in_10 = NULL; +main_ColorBar_1_in_11 = NULL; +main_ColorBar_1_in_12 = NULL; +main_ColorBar_1_in_13 = NULL; +main_ColorBar_1_in_14 = NULL; +main_ColorBar_1_in_15 = NULL; +main_ColorBar_1_in_16 = NULL; +main_ColorBar_1_out_1 = NULL; +main_Collect_1_out_1 = NULL; +macro Image( + id, + object, + where, + useVector, + to, + from, + width, + resolution, + aspect, + up, + viewAngle, + perspective, + options, + buttonState = 1, + buttonUpApprox = "none", + buttonDownApprox = "none", + buttonUpDensity = 1, + buttonDownDensity = 1, + renderMode = 0, + defaultCamera, + reset, + backgroundColor, + throttle, + RECenable = 0, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable = 0, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + interactionMode, + title, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + webOptions) -> ( + object, + camera, + where) +{ + ImageMessage( + id, + backgroundColor, + throttle, + RECenable, + RECfile, + RECformat, + RECresolution, + RECaspect, + AAenable, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels, + interactionMode, + title, + renderMode, + buttonUpApprox, + buttonDownApprox, + buttonUpDensity, + buttonDownDensity) [instance: 1, cache: 1]; + autoCamera = + AutoCamera( + object, + "front", + object, + resolution, + aspect, + [0,1,0], + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + realCamera = + Camera( + to, + from, + width, + resolution, + aspect, + up, + perspective, + viewAngle, + backgroundColor) [instance: 1, cache: 1]; + coloredDefaultCamera = + UpdateCamera(defaultCamera, + background=backgroundColor) [instance: 1, cache: 1]; + nullDefaultCamera = + Inquire(defaultCamera, + "is null + 1") [instance: 1, cache: 1]; + resetCamera = + Switch( + nullDefaultCamera, + coloredDefaultCamera, + autoCamera) [instance: 1, cache: 1]; + resetNull = + Inquire( + reset, + "is null + 1") [instance: 2, cache: 1]; + reset = + Switch( + resetNull, + reset, + 0) [instance: 2, cache: 1]; + whichCamera = + Compute( + "($0 != 0 || $1 == 0) ? 1 : 2", + reset, + useVector) [instance: 1, cache: 1]; + camera = Switch( + whichCamera, + resetCamera, + realCamera) [instance: 3, cache: 1]; + AAobject = + AutoAxes( + object, + camera, + AAlabels, + AAticks, + AAcorners, + AAframe, + AAadjust, + AAcursor, + AAgrid, + AAcolors, + AAannotation, + AAlabelscale, + AAfont, + AAxTickLocs, + AAyTickLocs, + AAzTickLocs, + AAxTickLabels, + AAyTickLabels, + AAzTickLabels) [instance: 1, cache: 1]; + switchAAenable = Compute("$0+1", + AAenable) [instance: 2, cache: 1]; + object = Switch( + switchAAenable, + object, + AAobject) [instance:4, cache: 1]; + SWapproximation_options = + Switch( + buttonState, + buttonUpApprox, + buttonDownApprox) [instance: 5, cache: 1]; + SWdensity_options = + Switch( + buttonState, + buttonUpDensity, + buttonDownDensity) [instance: 6, cache: 1]; + HWapproximation_options = + Format( + "%s,%s", + buttonDownApprox, + buttonUpApprox) [instance: 1, cache: 1]; + HWdensity_options = + Format( + "%d,%d", + buttonDownDensity, + buttonUpDensity) [instance: 2, cache: 1]; + switchRenderMode = Compute( + "$0+1", + renderMode) [instance: 3, cache: 1]; + approximation_options = Switch( + switchRenderMode, + SWapproximation_options, + HWapproximation_options) [instance: 7, cache: 1]; + density_options = Switch( + switchRenderMode, + SWdensity_options, + HWdensity_options) [instance: 8, cache: 1]; + renderModeString = Switch( + switchRenderMode, + "software", + "hardware")[instance: 9, cache: 1]; + object_tag = Inquire( + object, + "object tag")[instance: 3, cache: 1]; + annoted_object = + Options( + object, + "send boxes", + 0, + "cache", + 1, + "object tag", + object_tag, + "ddcamera", + whichCamera, + "rendering approximation", + approximation_options, + "render every", + density_options, + "button state", + buttonState, + "rendering mode", + renderModeString) [instance: 1, cache: 1]; + RECresNull = + Inquire( + RECresolution, + "is null + 1") [instance: 4, cache: 1]; + ImageResolution = + Inquire( + camera, + "camera resolution") [instance: 5, cache: 1]; + RECresolution = + Switch( + RECresNull, + RECresolution, + ImageResolution) [instance: 10, cache: 1]; + RECaspectNull = + Inquire( + RECaspect, + "is null + 1") [instance: 6, cache: 1]; + ImageAspect = + Inquire( + camera, + "camera aspect") [instance: 7, cache: 1]; + RECaspect = + Switch( + RECaspectNull, + RECaspect, + ImageAspect) [instance: 11, cache: 1]; + switchRECenable = Compute( + "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", + RECenable, + switchRenderMode, + RECresolution, + ImageResolution, + RECaspect, + ImageAspect) [instance: 4, cache: 1]; + NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); + Display( + NoRECobject, + camera, + where, + throttle) [instance: 1, cache: 1]; + image = + Render( + RECNoRerenderObject, + camera) [instance: 1, cache: 1]; + Display( + image, + NULL, + where, + throttle) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 1, cache: 1]; + rec_where = Display( + RECNoRerHW, + camera, + where, + throttle) [instance: 1, cache: 0]; + rec_image = ReadImageWindow( + rec_where) [instance: 1, cache: 1]; + WriteImage( + rec_image, + RECfile, + RECformat) [instance: 1, cache: 1]; + RECupdateCamera = + UpdateCamera( + camera, + resolution=RECresolution, + aspect=RECaspect) [instance: 2, cache: 1]; + Display( + RECRerenderObject, + camera, + where, + throttle) [instance: 1, cache: 1]; + RECRerenderObject = + ScaleScreen( + RECRerenderObject, + NULL, + RECresolution, + camera) [instance: 1, cache: 1]; + image = + Render( + RECRerenderObject, + RECupdateCamera) [instance: 2, cache: 1]; + WriteImage( + image, + RECfile, + RECformat) [instance: 2, cache: 1]; +} +main_Image_1_in_1 = "Image_1"; +main_Image_1_in_3 = "X24,,"; +main_Image_1_in_4 = 0; +main_Image_1_in_5 = NULL; +main_Image_1_in_6 = NULL; +main_Image_1_in_7 = NULL; +main_Image_1_in_8 = NULL; +main_Image_1_in_9 = NULL; +main_Image_1_in_10 = NULL; +main_Image_1_in_11 = NULL; +main_Image_1_in_12 = NULL; +main_Image_1_in_13 = NULL; +main_Image_1_in_14 = 1; +main_Image_1_in_15 = NULL; +main_Image_1_in_16 = NULL; +main_Image_1_in_17 = NULL; +main_Image_1_in_18 = NULL; +main_Image_1_in_19 = 0; +main_Image_1_in_20 = NULL; +main_Image_1_in_21 = NULL; +main_Image_1_in_22 = NULL; +main_Image_1_in_23 = NULL; +main_Image_1_in_25 = NULL; +main_Image_1_in_26 = NULL; +main_Image_1_in_27 = NULL; +main_Image_1_in_28 = NULL; +main_Image_1_in_29 = NULL; +main_Image_1_in_30 = NULL; +main_Image_1_in_31 = NULL; +main_Image_1_in_32 = NULL; +main_Image_1_in_33 = NULL; +main_Image_1_in_34 = NULL; +main_Image_1_in_35 = NULL; +main_Image_1_in_36 = NULL; +main_Image_1_in_37 = NULL; +main_Image_1_in_38 = NULL; +main_Image_1_in_39 = NULL; +main_Image_1_in_40 = NULL; +main_Image_1_in_41 = NULL; +main_Image_1_in_42 = NULL; +main_Image_1_in_43 = NULL; +main_Image_1_in_44 = NULL; +main_Image_1_in_45 = NULL; +main_Image_1_in_46 = NULL; +main_Image_1_in_47 = NULL; +main_Image_1_in_48 = NULL; +main_Image_1_in_49 = NULL; +main_SetLocal_1_in_3 = NULL; +main_SetLocal_2_in_3 = NULL; +main_SetLocal_3_in_3 = NULL; +main_SetLocal_4_in_3 = NULL; +Executive("product version 4 4 4"); +$sync + +sequence main(); +play; diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL2vtkoutputdata.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL2vtkoutputdata.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,144 @@ +## Copyright (C) 2008 Carlo de Falco +## +## This program is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## This program is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with this program; if not, write to the Free Software +## Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + + +## -*- texinfo -*- +## @deftypefn {Function File} {} FPL2vtkoutputdata ( @var{filename}, @var{p}, @var{t}, @var{nodedata}, @var{celldata}, @var{header}, @var{vtkver}) +## +## Save data in VTK ASCII format. +## +## @itemize @minus +## @item @var{filename} = name of file to save into +## @item @var{p}, @var{t} = mesh node coordinates and connectivity +## @item @var{name} = name of a mesh variable +## @item @var{nodedata}/@var{celldata} = node/cell centered data +## fields (2xNfields cell array), @var{*data}@{:,1@} = variable names; +## @var{*data}@{:,2@} = variable data; +## @item @var{header} comment to add in the file header +## @item @var{vtkver} format version (default is 3.0) +## @end itemize +## +## @seealso{FPL2dxoutputdata} +## @end deftypefn + +function FPL2vtkoutputdata (filename, p, t, nodedata, celldata, header, vtkver) + + fid = fopen (filename, "w"); + if ( fid ) + + ## version ID + if (!exist("vtkver")) + vtkver = [3 0]; + endif + + fprintf (fid, "# vtk DataFile Version %d.%d\n", vtkver(1), vtkver(2)); + + ## header + if (!exist("header")) + header = ""; + elseif (length(header) > 255) + header (255:end) = []; + endif + + fprintf (fid, "%s\n", header); + + ## File format: only ASCII supported for the moment + fprintf (fid, "ASCII\n"); + + ## Mesh: only triangles suported + fprintf (fid, "DATASET UNSTRUCTURED_GRID\n"); + + Nnodes = columns(p); + fprintf (fid,"POINTS %d double\n", Nnodes); + fprintf (fid,"%g %g 0\n", p); + + Nelem = columns(t); + T = zeros(4,Nelem); + T(1,:)= 3; + T(2:4,:) = t(1:3,:) -1; + fprintf (fid,"CELLS %d %d\n", Nelem, Nelem*4); + fprintf (fid,"%d %d %d %d\n", T); + fprintf (fid,"CELL_TYPES %d \n", Nelem); + fprintf (fid,"%d\n", 5*ones(Nelem,1)); + + ## node data + if (exist("nodedata")) + nfields = rows(nodedata); + if nfields + fprintf (fid,"POINT_DATA %d\n", Nnodes); + for ifield = 1:nfields + V = nodedata {ifield, 2}; + N = nodedata {ifield, 1}; + if (isvector (V)) + fprintf (fid,"SCALARS %s double\nLOOKUP_TABLE default\n", N); + fprintf (fid,"%g\n", V); + else + V(:,3) = 0; + fprintf (fid,"VECTORS %s double\nLOOKUP_TABLE default\n", N); + fprintf (fid,"%g %g %g\n", V); + endif + endfor + endif + endif + + ## cell data + if (exist("celldata")) + nfields = rows(celldata); + if nfields + fprintf (fid,"CELL_DATA %d\n", Nelem); + for ifield = 1:nfields + V = celldata {ifield, 2}; + N = celldata {ifield, 1}; + if (isvector (V)) + fprintf (fid,"SCALARS %s double\nLOOKUP_TABLE default\n", N); + fprintf (fid,"%g\n", V); + else + V(:,3) = 0; + fprintf (fid,"VECTORS %s double\nLOOKUP_TABLE default\n", N); + fprintf (fid,"%g %g %g\n", V); + endif + endfor + endif + endif + + ## cleanup + fclose (fid); + else + error(["FPL2vtkoutputdata: could not open file " filename]); + endif +endfunction + +%!test +%! msh.p =[ 0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3 +%! 0 1 2 3 0 1 2 3 0 1 2 3 0 1 2 3]; +%! msh.e =[1 5 9 13 14 15 4 8 12 1 2 3 +%! 5 9 13 14 15 16 8 12 16 2 3 4 +%! 0 0 0 0 0 0 0 0 0 0 0 0 +%! 0 0 0 0 0 0 0 0 0 0 0 0 +%! 1 1 1 2 2 2 3 3 3 4 4 4 +%! 0 0 0 0 0 0 0 0 0 0 0 0 +%! 1 1 1 1 1 1 1 1 1 1 1 1]; +%! msh.t =[ 1 2 3 5 6 7 9 10 11 1 2 3 5 6 7 9 10 11 +%! 5 6 7 9 10 11 13 14 15 6 7 8 10 11 12 14 15 16 +%! 6 7 8 10 11 12 14 15 16 2 3 4 6 7 8 10 11 12 +%! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]; +%! testfile = "# vtk DataFile Version 3.0\n\nASCII\nDATASET UNSTRUCTURED_GRID\nPOINTS 16 double\n0 0 0\n0 1 0\n0 2 0\n0 3 0\n1 0 0\n1 1 0\n1 2 0\n1 3 0\n2 0 0\n2 1 0\n2 2 0\n2 3 0\n3 0 0\n3 1 0\n3 2 0\n3 3 0\nCELLS 18 72\n3 0 4 5\n3 1 5 6\n3 2 6 7\n3 4 8 9\n3 5 9 10\n3 6 10 11\n3 8 12 13\n3 9 13 14\n3 10 14 15\n3 0 5 1\n3 1 6 2\n3 2 7 3\n3 4 9 5\n3 5 10 6\n3 6 11 7\n3 8 13 9\n3 9 14 10\n3 10 15 11\nCELL_TYPES 18 \n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\nPOINT_DATA 16\nSCALARS u double\nLOOKUP_TABLE default\n0\n0\n0\n0\n1\n1\n1\n1\n2\n2\n2\n2\n3\n3\n3\n3\n"; +%! FPL2vtkoutputdata ("__FPL2vtkoutputdata__test__.vtk", msh.p, msh.t, {"u", msh.p(1,:).'}); +%! fid = fopen("__FPL2vtkoutputdata__test__.vtk","r"); +%! s = fread(fid); +%! fclose(fid); +%! assert (char(s'), testfile); +%! delete __FPL2vtkoutputdata__test__.vtk diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL3dxoutputfield.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL3dxoutputfield.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,76 @@ +## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## @deftypefn {Function File} {} FPL3dxoutputfield( @var{filename}, @ +## @var{meshfilename}, @var{dep}, @var{u}, @var{attr_name}, @var{attr_rank}, @ +## @var{attr_shape}, @var{endfile} ) +## +## Outputs data in DX form. +## +## Variable must be a scalar, vector or tensor of doubles +## +## @itemize @minus +## @item @var{filename} = name of file to save (type string) +## @item @var{meshfilename} = name of mesh file (type string) +## @item @var{dep} = "positions" for node data, "connections" for element data +## @item @var{field} = field data to be saved +## @item @var{attr_name} = name of the variable (type string) +## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.) +## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar) +## @end itemize +## @end deftypefn + +function FPL3dxoutputfield(filename,meshfilename,dep,field,attr_name,attr_rank,attr_shape) + + fid = fopen (filename,"w"); + nnodes = size(field,1); + + if ((attr_rank==0) && (min(size(field))==1)) + fprintf(fid,"object ""%s.data""\nclass array type double rank 0 items %d data follows",attr_name,nnodes); + fprintf(fid,"\n %e",field); + else + fprintf(fid,"object ""%s.data""\nclass array type double rank %d shape %d items %d data follows",attr_name,attr_rank,attr_shape,nnodes); + for ii = 1:nnodes + fprintf(fid,"\n"); + fprintf(fid," %e",field(ii,:)); + endfor + endif + fprintf(fid,"\nattribute ""dep"" string ""%s""\n\n",dep); + fprintf(fid,"object ""%s"" class field\n",attr_name); + fprintf(fid,"component ""positions"" file %s ""pos""\n",meshfilename); + fprintf(fid,"component ""connections"" file %s ""con""\n",meshfilename); + fprintf(fid,"component ""data"" value ""%s.data""\n",attr_name); + + fprintf(fid,"\nend\n"); + fclose (fid); + +endfunction + + diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/FPL3dxoutputmesh.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/FPL3dxoutputmesh.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,110 @@ +## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo +## +## This file is part of +## +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## +## AUTHORS: +## Carlo de Falco +## +## Culpo Massimiliano +## Bergische Universitaet Wuppertal +## Fachbereich C - Mathematik und Naturwissenschaften +## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 +## D-42119 Wuppertal, Germany + +## -*- texinfo -*- +## @deftypefn {Function File} {} FPL3dxoutputmesh ( @var{filename}, @ +## @var{mesh} ) +## +## Outputs data in DX form. +## +## Variable must be a scalar, vector or tensor of doubles +## +## @itemize @minus +## @item @var{filename} = name of file to save (type string) +## @item @var{mesh} = PDE-tool like mesh +## @end itemize +## @end deftypefn + + +function FPL3dxoutputmesh(filename,mesh) + + nodes = mesh.p'; + elem = mesh.t(1:4,:)'; + + fid = fopen (filename,"w"); + nnodes = columns(mesh.p); + nelem = columns(mesh.t); + + fprintf(fid,"object ""pos""\nclass array type float rank 1 shape 3 items %d data follows",nnodes); + for ii = 1:nnodes + fprintf(fid,"\n"); + fprintf(fid," %e",nodes(ii,:)); + endfor + + ## In DX format nodes are numbered starting from zero, + ## instead we want to number them starting from 1. + if (min(min(elem))==1) + elem = elem - 1; + elseif(min(min(elem))~=0) + error("WARNING: check tetrahedra structure"); + end + + fprintf(fid,"\n\nobject ""con""\nclass array type int rank 1 shape 4 items %d data follows",nelem); + for ii = 1:nelem + fprintf(fid,"\n"); + fprintf(fid," %d",elem(ii,:)); + endfor + + fprintf(fid,"\nattribute ""element type"" string ""tetrahedra""\nattribute ""ref"" string ""positions""\n\n"); + + fprintf(fid,"object ""themesh"" class field\n"); + fprintf(fid,"component ""positions"" value ""pos""\n"); + fprintf(fid,"component ""connections"" value ""con""\n"); + + fprintf(fid,"\nend\n"); + fclose (fid); + +endfunction + +%!test +%! msh.p =[ 0 0 1 1 0 0 1 1 +%! 0 1 0 1 0 1 0 1 +%! 0 0 0 0 1 1 1 1]; +%! msh.e =[1 5 7 8 5 5 6 8 1 3 5 7 +%! 2 6 3 3 7 3 2 6 3 2 6 6 +%! 6 1 8 4 3 1 4 4 2 4 7 8 +%! 0 0 0 0 0 0 0 0 0 0 0 0 +%! 0 0 0 0 0 0 0 0 0 0 0 0 +%! 0 0 0 0 0 0 0 0 0 0 0 0 +%! 0 0 0 0 0 0 0 0 0 0 0 0 +%! 0 0 0 0 0 0 0 0 0 0 0 0 +%! 1 1 1 1 1 1 1 1 1 1 1 1 +%! 1 1 2 2 3 3 4 4 5 5 6 6]; +%! msh.t =[ 1 5 5 6 7 8 +%! 3 6 6 3 3 3 +%! 2 7 3 2 6 6 +%! 6 3 1 4 8 4 +%! 1 1 1 1 1 1]; +%! testfile = "object ""pos""\nclass array type float rank 1 shape 3 items 8 data follows\n 0.000000e+00 0.000000e+00 0.000000e+00\n 0.000000e+00 1.000000e+00 0.000000e+00\n 1.000000e+00 0.000000e+00 0.000000e+00\n 1.000000e+00 1.000000e+00 0.000000e+00\n 0.000000e+00 0.000000e+00 1.000000e+00\n 0.000000e+00 1.000000e+00 1.000000e+00\n 1.000000e+00 0.000000e+00 1.000000e+00\n 1.000000e+00 1.000000e+00 1.000000e+00\n\nobject ""con""\nclass array type int rank 1 shape 4 items 6 data follows\n 0 2 1 5\n 4 5 6 2\n 4 5 2 0\n 5 2 1 3\n 6 2 5 7\n 7 2 5 3\nattribute ""element type"" string ""tetrahedra""\nattribute ""ref"" string ""positions""\n\nobject ""themesh"" class field\ncomponent ""positions"" value ""pos""\ncomponent ""connections"" value ""con""\n\nend\n"; +%! FPL3dxoutputmesh ("__FPL3dxoutputmesh__test__.dx",msh); +%! fid = fopen("__FPL3dxoutputmesh__test__.dx","r"); +%! s = fread(fid); +%! fclose(fid); +%! assert (char(s'), testfile); +%! delete __FPL3dxoutputmesh__test__.dx diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/fpl_dx_write_field.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/fpl_dx_write_field.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,222 @@ +## Copyright (C) 2006,2007,2008,2009,2010 Carlo de Falco, Massimiliano Culpo +## +## This file is part of: +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## author: Carlo de Falco +## author: Massimiliano Culpo + +## -*- texinfo -*- +## @deftypefn {Function File} {} fpl_dx_writefield (@var{basename}, @ +## @var{mesh}, @var{u}, @var{attr_name}, @var{attr_rank}, @ +## @var{attr_shape}, @var{endfile}) +## +## Output data field in ASCII Open-DX format. +## +## @var{basename} is a string containing the base-name of the dx file where the +## data will be saved. +## +## @var{mesh} is a PDE-tool like mesh, like the ones generated by the +## "msh" package. +## +## @var{u} is the field to be saved. It should represent scalar, vector +## or tensor of doubles. +## +## @var{attr_name} is a descriptive name for the field @var{u}, while +## @var{attr_rank} is the rank of the field (0 for scalar, 1 for vector, +## etc.) and @var{attr_shape} is the number of components of the field +## (assumed 1 for scalar). +## +## @var{endfile} should be 0 if you want to add other variables to the +## same file, 1 otherwise. +## +## Notice that when appending fields to an already existing file: +## +## @itemize +## @item @var{mesh} will not be printed to @var{filename}, but it will +## be only used to determine if the field is piece-wise constant or +## piece-wise linear +## @item @var{u} is not checked for consistency against the @var{mesh} +## already printed in @var{filename} +## @end itemize +## +## Example 1 (wrong usage): +## @example +## +## fpl_dx_write_field("field.dx",msh1,u1,"density",1,0,0); +## fpl_dx_write_field("field.dx",msh2,u2,"temperature",1,0,1); +## @end example +## generate a file that fails at OpenDX run-time. +## +## Example 2: +## @example +## +## fpl_dx_write_field("field",msh1,u1,"density",1,0,0); +## fpl_dx_write_field("field",msh1,u2,"temperature",1,0,1); +## @end example +## will generate a valid OpenDX ASCII data file. +## +## @seealso{fpl_dx_write_series} +## +## @end deftypefn + +function fpl_dx_write_field(basename,mesh,u,attr_name,attr_rank,attr_shape,endfile) + + ## Check input + if nargin!=7 + error("fpl_dx_write_field: wrong number of input"); + endif + + if !ischar(basename) + error("fpl_dx_write_field: basename should be a valid string"); + elseif !( isstruct(mesh) ) + error("fpl_dx_write_field: mesh should be a valid structure"); + elseif !ismatrix(u) + error("fpl_dx_write_field: u should be a valid matrix"); + elseif !ischar(attr_name) + error("fpl_dx_write_field: attr_name should be a valid string"); + elseif !isscalar(attr_rank) + error("fpl_dx_write_field: attr_rank should be a valid scalar"); + elseif !isscalar(attr_shape) + error("fpl_dx_write_field: attr_shape should be a valid scalar"); + elseif !isscalar(endfile) + error("fpl_dx_write_field: endfile should be a valid scalar"); + endif + + filename = [basename ".dx"]; + + if ! exist(filename,"file") + ## If file does not exist, create it + fid = fopen (filename,"w"); + create = 1; + else + ## FIXME: the following should be performed in a cleaner way! Does a + ## backward fgetl function exist? + + ## If file exist, check if it was already closed + fid = fopen (filename,"r"); + fseek(fid,-4,SEEK_END); + tst = fgetl(fid); + if strcmp(tst,"end") + error("fpl_dx_write_field: file %s exist and was already closed",filename); + endif + fclose(fid); + fid = fopen(filename,"a"); + create = 0; + endif + + p = mesh.p'; + dim = columns(p); # 2D or 3D + + if dim == 2 + t = mesh.t(1:3,:)'; + elseif dim == 3 + t = mesh.t(1:4,:)'; + else + error("fpl_dx_write_field: neither 2D triangle nor 3D tetrahedral mesh"); + endif + + nnodes = rows(p); + nelems = rows(t); + ndatas = rows(u); + + if ndatas == nnodes + dep = "positions"; + elseif ndatas == nelems + dep = "connections"; + else + error("fpl_dx_write_field: neither position nor connection data type") + endif + + if create + ## If the file has just been created, print mesh information + print_grid(fid,dim,p,nnodes,t,nelems); + endif + ## Otherwise assume the mesh is consistent with the one in the file + ## and print only field information + print_data(fid,u,ndatas,dep,attr_name,attr_rank,attr_shape); + + if(endfile) + fprintf(fid,"\nend\n"); + endif + fclose (fid); + +endfunction + +## fprint a 2Dtrg or 3Dtet mesh +function print_grid(fid,dim,p,nnodes,t,nelems) + + fprintf(fid,"object ""pos""\n"); + fprintf(fid,"class array type float rank 1 shape %d items %d data follows",dim,nnodes); + + for ii = 1:nnodes + fprintf(fid,"\n"); + fprintf(fid," %1.7e",p(ii,:)); + endfor + + ## In DX format nodes are + ## numbered starting from zero, + ## instead we want to number + ## them starting from 1! + ## Here we restore the DX + ## format + if (min(min(t))==1) + t -= 1; + elseif(min(min(t))~=0) + error("fpl_dx_write_field: check triangle structure") + endif + + fprintf(fid,"\n\nobject ""con""\n"); + fprintf(fid,"class array type int rank 1 shape %d items %d data follows",dim+1,nelems); + for ii = 1:nelems + fprintf(fid,"\n"); + fprintf(fid," %d",t(ii,:)); + endfor + + fprintf(fid,"\n"); + if dim == 2 + fprintf(fid,"attribute ""element type"" string ""triangles""\n"); + elseif dim == 3 + fprintf(fid,"\nattribute ""element type"" string ""tetrahedra""\n"); + endif + fprintf(fid,"attribute ""ref"" string ""positions""\n\n"); + +endfunction + +## fprint data on a trg grid +function print_data(fid,u,ndatas,dep,attr_name,attr_rank,attr_shape) + + if ((attr_rank == 0) && (min(size(u))==1)) + fprintf(fid,"object ""%s.data""\n",attr_name); + fprintf(fid,"class array type double rank 0 items %d data follows",ndatas); + fprintf(fid,"\n %1.7e",u); + else + fprintf(fid,"object ""%s.data""\n",attr_name); + fprintf(fid,"class array type double rank %d shape %d items %d data follows",attr_rank,attr_shape,ndatas); + for ii=1:ndatas + fprintf(fid,"\n"); + fprintf(fid," %1.7e",u(ii,:)); + endfor + endif + + fprintf(fid,"\n"); + fprintf(fid,"attribute ""dep"" string ""%s"" \n\n",dep); + fprintf(fid,"object ""%s"" class field\n",attr_name); + fprintf(fid,"component ""positions"" value ""pos""\n"); + fprintf(fid,"component ""connections"" value ""con""\n"); + fprintf(fid,"component ""data"" value ""%s.data""\n",attr_name); + fprintf(fid,"\n"); +endfunction diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/deprecated/fpl_dx_write_series.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/fpl/deprecated/fpl_dx_write_series.m Mon Aug 17 10:19:39 2015 +0000 @@ -0,0 +1,119 @@ +## Copyright (C) 2006,2007,2008,2009,2010 Carlo de Falco, Massimiliano Culpo +## +## This file is part of: +## FPL - Fem PLotting package for octave +## +## FPL is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## FPL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with FPL; If not, see . +## +## author: Carlo de Falco +## author: Massimiliano Culpo + +## -*- texinfo -*- +## @deftypefn {Function File} {} fpl_dx_write_series (@var{basename}, @ +## @var{mesh}, @var{u}, @var{sp}, @var{attr_name}, @var{attr_rank}, @ +## @var{attr_shape}) +## +## Output data series in ASCII Open-DX format. +## +## @var{basename} is a string containing the base-name of the dx file where the +## data will be saved. +## +## @var{mesh} is a PDE-tool like mesh, like the ones generated by the +## "msh" package. +## +## @var{u} is the series to be saved. It should represent scalar, vector +## or tensor of doubles. @var{sp} is the vector of the sampled points +## (e.g. time points in the case of a time series). +## +## @var{attr_name} is a descriptive name for the series @var{u}, while +## @var{attr_rank} is the rank of the field items (0 for scalar, 1 for +## vector, etc.) and @var{attr_shape} is the number of components of the +## field items (assumed 1 for scalar). +## +## @seealso{fpl_dx_write_field} +## +## @end deftypefn + +function fpl_dx_write_series(basename,mesh,u,tp,attr_name,attr_rank,attr_shape) + + ## FIXME: add append capabilities as in fpl_dx_write_field?? + + if nargin!=7 + error("fpl_dx_write_series: wrong number of input"); + endif + + if !ischar(basename) + error("fpl_dx_write_series: basename should be a valid string"); + elseif !( isstruct(mesh) ) + error("fpl_dx_write_series: mesh should be a valid structure"); + elseif !ismatrix(u) + error("fpl_dx_write_series: u should be a valid matrix"); + elseif !ischar(attr_name) + error("fpl_dx_write_series: attr_name should be a valid string"); + elseif !isscalar(attr_rank) + error("fpl_dx_write_series: attr_rank should be a valid scalar"); + elseif !isscalar(attr_shape) + error("fpl_dx_write_series: attr_shape should be a valid scalar"); + ##elseif !isscalar(endfile) + ##error("fpl_dx_write_series: endfile should be a valid scalar"); + endif + + filename = [basename ".dx"]; + + npoints = length(tp); + + p = mesh.p'; + dim = columns(p); # 2D or 3D + + if dim == 2 + t = mesh.t(1:3,:)'; + elseif dim == 3 + t = mesh.t(1:4,:)'; + else + error("fpl_dx_write_series: neither 2D triangle nor 3D tetrahedral mesh"); + endif + + nnodes = rows(p); + nelems = rows(t); + ndatas = rows(u); + + if ndatas == nnodes + dep = "positions"; + elseif ndatas == nelems + dep = "connections"; + else + error("fpl_dx_write_series: neither position nor connection data type") + endif + + ## Write field items to file + idx = (1:attr_shape); + for ii = 1:npoints + field = u(:,idx); + fname = sprintf("%s.%d",attr_name,ii); + fpl_dx_write_field(basename,mesh,field,fname,attr_rank,attr_shape,0); + idx += attr_shape; + endfor + + ##if endfile + fid = fopen(filename,"a"); + fprintf (fid, "object \"%s_series\" class series\n",attr_name); + for ii = 1:npoints + fname = sprintf("%s.%d",attr_name,ii); + fprintf (fid,"member %d position %g value \"%s\"\n",ii-1,tp(ii),fname); + endfor + fprintf (fid, "\nend\n"); + fclose(fid); + ##endif + +endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2coloredgradient.net --- a/extra/fpl/inst/deprecated/FPL2coloredgradient.net Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,635 +0,0 @@ -// -// time: Wed Jun 13 18:54:22 2007 -// -// version: 3.2.0 (format), 4.4.4 (DX) -// -// -// MODULE main -// workspace: width = 459, height = 507 -// layout: snap = 0, width = 50, height = 50, align = NN -// -macro main( -) -> ( -) { - // - // node FileSelector[1]: x = 28, y = 29, inputs = 0, label = FileSelector - // output[1]: visible = 1, type = 32, value = "__FILE__DX__" - // output[2]: visible = 1, type = 32, value = "__FILE__DX__" - // - // - // node Import[1]: x = 34, y = 109, inputs = 6, label = Import - // -main_Import_1_out_1 = - Import( - main_FileSelector_1_out_1, - main_Import_1_in_2, - main_Import_1_in_3, - main_Import_1_in_4, - main_Import_1_in_5, - main_Import_1_in_6 - ) [instance: 1, cache: 1]; - // - // node Post[1]: x = 124, y = 167, inputs = 2, label = Post - // input[2]: defaulting = 0, visible = 1, type = 32, value = "positions" - // -main_Post_1_out_1 = - Post( - main_Import_1_out_1, - main_Post_1_in_2 - ) [instance: 1, cache: 1]; - // - // node Gradient[1]: x = 227, y = 144, inputs = 2, label = Gradient - // -main_Gradient_1_out_1 = - Gradient( - main_Post_1_out_1, - main_Gradient_1_in_2 - ) [instance: 1, cache: 1]; - // - // node AutoGlyph[1]: x = 241, y = 215, inputs = 7, label = AutoGlyph - // -main_AutoGlyph_1_out_1 = - AutoGlyph( - main_Gradient_1_out_1, - main_AutoGlyph_1_in_2, - main_AutoGlyph_1_in_3, - main_AutoGlyph_1_in_4, - main_AutoGlyph_1_in_5, - main_AutoGlyph_1_in_6, - main_AutoGlyph_1_in_7 - ) [instance: 1, cache: 1]; - // - // node AutoColor[1]: x = 253, y = 283, inputs = 10, label = AutoColor - // -main_AutoColor_1_out_1, -main_AutoColor_1_out_2 = - AutoColor( - main_AutoGlyph_1_out_1, - main_AutoColor_1_in_2, - main_AutoColor_1_in_3, - main_AutoColor_1_in_4, - main_AutoColor_1_in_5, - main_AutoColor_1_in_6, - main_AutoColor_1_in_7, - main_AutoColor_1_in_8, - main_AutoColor_1_in_9, - main_AutoColor_1_in_10 - ) [instance: 1, cache: 1]; - // - // node ShowConnections[1]: x = 39, y = 242, inputs = 1, label = ShowConnections - // -main_ShowConnections_1_out_1 = - ShowConnections( - main_Post_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Color[1]: x = 72, y = 328, inputs = 5, label = Color - // input[2]: defaulting = 0, visible = 1, type = 32, value = "black" - // input[3]: defaulting = 0, visible = 1, type = 5, value = .5 - // -main_Color_1_out_1 = - Color( - main_ShowConnections_1_out_1, - main_Color_1_in_2, - main_Color_1_in_3, - main_Color_1_in_4, - main_Color_1_in_5 - ) [instance: 1, cache: 1]; - // - // node ColorBar[1]: x = 339, y = 285, inputs = 16, label = ColorBar - // input[9]: defaulting = 0, visible = 0, type = 16777248, value = {"black"} - // -main_ColorBar_1_out_1 = - ColorBar( - main_AutoColor_1_out_2, - main_ColorBar_1_in_2, - main_ColorBar_1_in_3, - main_ColorBar_1_in_4, - main_ColorBar_1_in_5, - main_ColorBar_1_in_6, - main_ColorBar_1_in_7, - main_ColorBar_1_in_8, - main_ColorBar_1_in_9, - main_ColorBar_1_in_10, - main_ColorBar_1_in_11, - main_ColorBar_1_in_12, - main_ColorBar_1_in_13, - main_ColorBar_1_in_14, - main_ColorBar_1_in_15, - main_ColorBar_1_in_16 - ) [instance: 1, cache: 1]; - // - // node Collect[1]: x = 280, y = 393, inputs = 3, label = Collect - // -main_Collect_1_out_1 = - Collect( - main_Color_1_out_1, - main_AutoColor_1_out_1, - main_ColorBar_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Image[1]: x = 188, y = 445, inputs = 49, label = Image - // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1" - // input[4]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[5]: defaulting = 0, visible = 0, type = 8, value = [0.182894 0.102434 0] - // input[6]: defaulting = 0, visible = 0, type = 8, value = [0.182894 0.102434 3.60504] - // input[7]: defaulting = 0, visible = 0, type = 5, value = 0.460265 - // input[8]: defaulting = 0, visible = 0, type = 1, value = 772 - // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.791 - // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0] - // input[11]: defaulting = 1, visible = 0, type = 5, value = 7.30519 - // input[12]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[15]: defaulting = 1, visible = 0, type = 32, value = "none" - // input[16]: defaulting = 1, visible = 0, type = 32, value = "none" - // input[17]: defaulting = 1, visible = 0, type = 1, value = 1 - // input[18]: defaulting = 1, visible = 0, type = 1, value = 1 - // input[19]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow" - // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif" - // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff" - // input[29]: defaulting = 0, visible = 0, type = 3, value = 1 - // input[31]: defaulting = 0, visible = 0, type = 1, value = -5 - // input[33]: defaulting = 0, visible = 0, type = 3, value = 1 - // input[34]: defaulting = 0, visible = 0, type = 3, value = 0 - // input[36]: defaulting = 0, visible = 0, type = 3, value = 1 - // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "black", "blue", "blue"} - // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"} - // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.65 - // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_d" - // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom" - // depth: value = 24 - // window: position = (0.0000,0.0000), size = 0.6141x0.6396 - // internal caching: 1 - // -main_Image_1_out_1, -main_Image_1_out_2, -main_Image_1_out_3 = - Image( - main_Image_1_in_1, - main_Collect_1_out_1, - main_Image_1_in_3, - main_Image_1_in_4, - main_Image_1_in_5, - main_Image_1_in_6, - main_Image_1_in_7, - main_Image_1_in_8, - main_Image_1_in_9, - main_Image_1_in_10, - main_Image_1_in_11, - main_Image_1_in_12, - main_Image_1_in_13, - main_Image_1_in_14, - main_Image_1_in_15, - main_Image_1_in_16, - main_Image_1_in_17, - main_Image_1_in_18, - main_Image_1_in_19, - main_Image_1_in_20, - main_Image_1_in_21, - main_Image_1_in_22, - main_Image_1_in_23, - main_Image_1_in_24, - main_Image_1_in_25, - main_Image_1_in_26, - main_Image_1_in_27, - main_Image_1_in_28, - main_Image_1_in_29, - main_Image_1_in_30, - main_Image_1_in_31, - main_Image_1_in_32, - main_Image_1_in_33, - main_Image_1_in_34, - main_Image_1_in_35, - main_Image_1_in_36, - main_Image_1_in_37, - main_Image_1_in_38, - main_Image_1_in_39, - main_Image_1_in_40, - main_Image_1_in_41, - main_Image_1_in_42, - main_Image_1_in_43, - main_Image_1_in_44, - main_Image_1_in_45, - main_Image_1_in_46, - main_Image_1_in_47, - main_Image_1_in_48, - main_Image_1_in_49 - ) [instance: 1, cache: 1]; -// network: end of macro body -CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); -} -main_FileSelector_1_out_1 = "/tmp/SECS2D.6003912.dx"; -main_Import_1_in_2 = NULL; -main_Import_1_in_3 = NULL; -main_Import_1_in_4 = NULL; -main_Import_1_in_5 = NULL; -main_Import_1_in_6 = NULL; -main_Import_1_out_1 = NULL; -main_Post_1_in_2 = "positions"; -main_Post_1_out_1 = NULL; -main_Gradient_1_in_2 = NULL; -main_Gradient_1_out_1 = NULL; -main_AutoGlyph_1_in_2 = NULL; -main_AutoGlyph_1_in_3 = NULL; -main_AutoGlyph_1_in_4 = NULL; -main_AutoGlyph_1_in_5 = NULL; -main_AutoGlyph_1_in_6 = NULL; -main_AutoGlyph_1_in_7 = NULL; -main_AutoGlyph_1_out_1 = NULL; -main_AutoColor_1_in_2 = NULL; -main_AutoColor_1_in_3 = NULL; -main_AutoColor_1_in_4 = NULL; -main_AutoColor_1_in_5 = NULL; -main_AutoColor_1_in_6 = NULL; -main_AutoColor_1_in_7 = NULL; -main_AutoColor_1_in_8 = NULL; -main_AutoColor_1_in_9 = NULL; -main_AutoColor_1_in_10 = NULL; -main_AutoColor_1_out_1 = NULL; -main_AutoColor_1_out_2 = NULL; -main_ShowConnections_1_out_1 = NULL; -main_Color_1_in_2 = "black"; -main_Color_1_in_3 = .5; -main_Color_1_in_4 = NULL; -main_Color_1_in_5 = NULL; -main_Color_1_out_1 = NULL; -main_ColorBar_1_in_2 = NULL; -main_ColorBar_1_in_3 = NULL; -main_ColorBar_1_in_4 = NULL; -main_ColorBar_1_in_5 = NULL; -main_ColorBar_1_in_6 = NULL; -main_ColorBar_1_in_7 = NULL; -main_ColorBar_1_in_8 = NULL; -main_ColorBar_1_in_9 = {"black"}; -main_ColorBar_1_in_10 = NULL; -main_ColorBar_1_in_11 = NULL; -main_ColorBar_1_in_12 = NULL; -main_ColorBar_1_in_13 = NULL; -main_ColorBar_1_in_14 = NULL; -main_ColorBar_1_in_15 = NULL; -main_ColorBar_1_in_16 = NULL; -main_ColorBar_1_out_1 = NULL; -main_Collect_1_out_1 = NULL; -macro Image( - id, - object, - where, - useVector, - to, - from, - width, - resolution, - aspect, - up, - viewAngle, - perspective, - options, - buttonState = 1, - buttonUpApprox = "none", - buttonDownApprox = "none", - buttonUpDensity = 1, - buttonDownDensity = 1, - renderMode = 0, - defaultCamera, - reset, - backgroundColor, - throttle, - RECenable = 0, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable = 0, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - interactionMode, - title, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - webOptions) -> ( - object, - camera, - where) -{ - ImageMessage( - id, - backgroundColor, - throttle, - RECenable, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - interactionMode, - title, - renderMode, - buttonUpApprox, - buttonDownApprox, - buttonUpDensity, - buttonDownDensity) [instance: 1, cache: 1]; - autoCamera = - AutoCamera( - object, - "front", - object, - resolution, - aspect, - [0,1,0], - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - realCamera = - Camera( - to, - from, - width, - resolution, - aspect, - up, - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - coloredDefaultCamera = - UpdateCamera(defaultCamera, - background=backgroundColor) [instance: 1, cache: 1]; - nullDefaultCamera = - Inquire(defaultCamera, - "is null + 1") [instance: 1, cache: 1]; - resetCamera = - Switch( - nullDefaultCamera, - coloredDefaultCamera, - autoCamera) [instance: 1, cache: 1]; - resetNull = - Inquire( - reset, - "is null + 1") [instance: 2, cache: 1]; - reset = - Switch( - resetNull, - reset, - 0) [instance: 2, cache: 1]; - whichCamera = - Compute( - "($0 != 0 || $1 == 0) ? 1 : 2", - reset, - useVector) [instance: 1, cache: 1]; - camera = Switch( - whichCamera, - resetCamera, - realCamera) [instance: 3, cache: 1]; - AAobject = - AutoAxes( - object, - camera, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels) [instance: 1, cache: 1]; - switchAAenable = Compute("$0+1", - AAenable) [instance: 2, cache: 1]; - object = Switch( - switchAAenable, - object, - AAobject) [instance:4, cache: 1]; - SWapproximation_options = - Switch( - buttonState, - buttonUpApprox, - buttonDownApprox) [instance: 5, cache: 1]; - SWdensity_options = - Switch( - buttonState, - buttonUpDensity, - buttonDownDensity) [instance: 6, cache: 1]; - HWapproximation_options = - Format( - "%s,%s", - buttonDownApprox, - buttonUpApprox) [instance: 1, cache: 1]; - HWdensity_options = - Format( - "%d,%d", - buttonDownDensity, - buttonUpDensity) [instance: 2, cache: 1]; - switchRenderMode = Compute( - "$0+1", - renderMode) [instance: 3, cache: 1]; - approximation_options = Switch( - switchRenderMode, - SWapproximation_options, - HWapproximation_options) [instance: 7, cache: 1]; - density_options = Switch( - switchRenderMode, - SWdensity_options, - HWdensity_options) [instance: 8, cache: 1]; - renderModeString = Switch( - switchRenderMode, - "software", - "hardware")[instance: 9, cache: 1]; - object_tag = Inquire( - object, - "object tag")[instance: 3, cache: 1]; - annoted_object = - Options( - object, - "send boxes", - 0, - "cache", - 1, - "object tag", - object_tag, - "ddcamera", - whichCamera, - "rendering approximation", - approximation_options, - "render every", - density_options, - "button state", - buttonState, - "rendering mode", - renderModeString) [instance: 1, cache: 1]; - RECresNull = - Inquire( - RECresolution, - "is null + 1") [instance: 4, cache: 1]; - ImageResolution = - Inquire( - camera, - "camera resolution") [instance: 5, cache: 1]; - RECresolution = - Switch( - RECresNull, - RECresolution, - ImageResolution) [instance: 10, cache: 1]; - RECaspectNull = - Inquire( - RECaspect, - "is null + 1") [instance: 6, cache: 1]; - ImageAspect = - Inquire( - camera, - "camera aspect") [instance: 7, cache: 1]; - RECaspect = - Switch( - RECaspectNull, - RECaspect, - ImageAspect) [instance: 11, cache: 1]; - switchRECenable = Compute( - "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", - RECenable, - switchRenderMode, - RECresolution, - ImageResolution, - RECaspect, - ImageAspect) [instance: 4, cache: 1]; - NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); - Display( - NoRECobject, - camera, - where, - throttle) [instance: 1, cache: 1]; - image = - Render( - RECNoRerenderObject, - camera) [instance: 1, cache: 1]; - Display( - image, - NULL, - where, - throttle) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 1, cache: 1]; - rec_where = Display( - RECNoRerHW, - camera, - where, - throttle) [instance: 1, cache: 0]; - rec_image = ReadImageWindow( - rec_where) [instance: 1, cache: 1]; - WriteImage( - rec_image, - RECfile, - RECformat) [instance: 1, cache: 1]; - RECupdateCamera = - UpdateCamera( - camera, - resolution=RECresolution, - aspect=RECaspect) [instance: 2, cache: 1]; - Display( - RECRerenderObject, - camera, - where, - throttle) [instance: 1, cache: 1]; - RECRerenderObject = - ScaleScreen( - RECRerenderObject, - NULL, - RECresolution, - camera) [instance: 1, cache: 1]; - image = - Render( - RECRerenderObject, - RECupdateCamera) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 2, cache: 1]; -} -main_Image_1_in_1 = "Image_1"; -main_Image_1_in_3 = "X24,,"; -main_Image_1_in_4 = 1; -main_Image_1_in_5 = [0.182894 0.102434 0]; -main_Image_1_in_6 = [0.182894 0.102434 3.60504]; -main_Image_1_in_7 = 0.460265; -main_Image_1_in_8 = 772; -main_Image_1_in_9 = 0.791; -main_Image_1_in_10 = [0 1 0]; -main_Image_1_in_11 = NULL; -main_Image_1_in_12 = 0; -main_Image_1_in_13 = NULL; -main_Image_1_in_14 = 1; -main_Image_1_in_15 = NULL; -main_Image_1_in_16 = NULL; -main_Image_1_in_17 = NULL; -main_Image_1_in_18 = NULL; -main_Image_1_in_19 = 0; -main_Image_1_in_20 = NULL; -main_Image_1_in_21 = NULL; -main_Image_1_in_22 = "snow"; -main_Image_1_in_23 = NULL; -main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif"; -main_Image_1_in_26 = "tiff"; -main_Image_1_in_27 = NULL; -main_Image_1_in_28 = NULL; -main_Image_1_in_29 = 1; -main_Image_1_in_30 = NULL; -main_Image_1_in_31 = -5; -main_Image_1_in_32 = NULL; -main_Image_1_in_33 = 1; -main_Image_1_in_34 = 0; -main_Image_1_in_35 = NULL; -main_Image_1_in_36 = 1; -main_Image_1_in_37 = {"clear", "black", "blue", "blue"}; -main_Image_1_in_38 = {"background", "grid", "ticks", "labels"}; -main_Image_1_in_39 = 0.65; -main_Image_1_in_40 = "roman_d"; -main_Image_1_in_41 = "panzoom"; -main_Image_1_in_42 = NULL; -main_Image_1_in_43 = NULL; -main_Image_1_in_44 = NULL; -main_Image_1_in_45 = NULL; -main_Image_1_in_46 = NULL; -main_Image_1_in_47 = NULL; -main_Image_1_in_48 = NULL; -main_Image_1_in_49 = NULL; -Executive("product version 4 4 4"); -$sync -main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2coloredrubbersheet.net --- a/extra/fpl/inst/deprecated/FPL2coloredrubbersheet.net Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,619 +0,0 @@ -// -// time: Wed Jun 13 17:16:01 2007 -// -// version: 3.2.0 (format), 4.4.4 (DX) -// -// -// MODULE main -// workspace: width = 533, height = 507 -// layout: snap = 0, width = 50, height = 50, align = NN -// -macro main( -) -> ( -) { - // - // node FileSelector[1]: x = 51, y = 31, inputs = 0, label = FileSelector - // output[1]: visible = 1, type = 32, value = "__FILE__DX__" - // output[2]: visible = 1, type = 32, value = "__FILE__DX__" - // - // - // node Import[1]: x = 104, y = 118, inputs = 6, label = Import - // -main_Import_1_out_1 = - Import( - main_FileSelector_1_out_1, - main_Import_1_in_2, - main_Import_1_in_3, - main_Import_1_in_4, - main_Import_1_in_5, - main_Import_1_in_6 - ) [instance: 1, cache: 1]; - // - // node Post[1]: x = 249, y = 57, inputs = 2, label = Post - // input[2]: defaulting = 0, visible = 1, type = 32, value = "__DATA_DEPENDENCY__" - // -main_Post_1_out_1 = - Post( - main_Import_1_out_1, - main_Post_1_in_2 - ) [instance: 1, cache: 1]; - // - // node RubberSheet[1]: x = 228, y = 142, inputs = 4, label = RubberSheet - // -main_RubberSheet_1_out_1 = - RubberSheet( - main_Post_1_out_1, - main_RubberSheet_1_in_2, - main_RubberSheet_1_in_3, - main_RubberSheet_1_in_4 - ) [instance: 1, cache: 1]; - // - // node AutoColor[1]: x = 253, y = 283, inputs = 10, label = AutoColor - // -main_AutoColor_1_out_1, -main_AutoColor_1_out_2 = - AutoColor( - main_RubberSheet_1_out_1, - main_AutoColor_1_in_2, - main_AutoColor_1_in_3, - main_AutoColor_1_in_4, - main_AutoColor_1_in_5, - main_AutoColor_1_in_6, - main_AutoColor_1_in_7, - main_AutoColor_1_in_8, - main_AutoColor_1_in_9, - main_AutoColor_1_in_10 - ) [instance: 1, cache: 1]; - // - // node ShowConnections[1]: x = 49, y = 232, inputs = 1, label = ShowConnections - // -main_ShowConnections_1_out_1 = - ShowConnections( - main_RubberSheet_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Color[1]: x = 72, y = 328, inputs = 5, label = Color - // input[2]: defaulting = 0, visible = 1, type = 32, value = "black" - // input[3]: defaulting = 0, visible = 1, type = 5, value = .5 - // -main_Color_1_out_1 = - Color( - main_ShowConnections_1_out_1, - main_Color_1_in_2, - main_Color_1_in_3, - main_Color_1_in_4, - main_Color_1_in_5 - ) [instance: 1, cache: 1]; - // - // node ColorBar[1]: x = 413, y = 290, inputs = 16, label = ColorBar - // input[9]: defaulting = 0, visible = 0, type = 16777248, value = {"black"} - // -main_ColorBar_1_out_1 = - ColorBar( - main_AutoColor_1_out_2, - main_ColorBar_1_in_2, - main_ColorBar_1_in_3, - main_ColorBar_1_in_4, - main_ColorBar_1_in_5, - main_ColorBar_1_in_6, - main_ColorBar_1_in_7, - main_ColorBar_1_in_8, - main_ColorBar_1_in_9, - main_ColorBar_1_in_10, - main_ColorBar_1_in_11, - main_ColorBar_1_in_12, - main_ColorBar_1_in_13, - main_ColorBar_1_in_14, - main_ColorBar_1_in_15, - main_ColorBar_1_in_16 - ) [instance: 1, cache: 1]; - // - // node Collect[1]: x = 280, y = 393, inputs = 3, label = Collect - // -main_Collect_1_out_1 = - Collect( - main_Color_1_out_1, - main_AutoColor_1_out_1, - main_ColorBar_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Image[1]: x = 188, y = 445, inputs = 49, label = Image - // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1" - // input[4]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[5]: defaulting = 0, visible = 0, type = 8, value = [0.466889 0.863877 0.166499] - // input[6]: defaulting = 0, visible = 0, type = 8, value = [0.466889 0.863877 4.74189] - // input[7]: defaulting = 0, visible = 0, type = 5, value = 1.01623 - // input[8]: defaulting = 0, visible = 0, type = 1, value = 1254 - // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.730064 - // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0] - // input[11]: defaulting = 1, visible = 0, type = 5, value = 12.6739 - // input[12]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[15]: defaulting = 1, visible = 0, type = 32, value = "none" - // input[16]: defaulting = 1, visible = 0, type = 32, value = "none" - // input[17]: defaulting = 1, visible = 0, type = 1, value = 1 - // input[18]: defaulting = 1, visible = 0, type = 1, value = 1 - // input[19]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow" - // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif" - // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff" - // input[29]: defaulting = 0, visible = 0, type = 3, value = 1 - // input[31]: defaulting = 0, visible = 0, type = 1, value = -5 - // input[33]: defaulting = 0, visible = 0, type = 3, value = 1 - // input[34]: defaulting = 0, visible = 0, type = 3, value = 0 - // input[36]: defaulting = 0, visible = 0, type = 3, value = 1 - // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "black", "blue", "blue"} - // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"} - // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.65 - // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_d" - // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom" - // depth: value = 24 - // window: position = (0.0000,0.0283), size = 0.9906x0.9375 - // internal caching: 1 - // -main_Image_1_out_1, -main_Image_1_out_2, -main_Image_1_out_3 = - Image( - main_Image_1_in_1, - main_Collect_1_out_1, - main_Image_1_in_3, - main_Image_1_in_4, - main_Image_1_in_5, - main_Image_1_in_6, - main_Image_1_in_7, - main_Image_1_in_8, - main_Image_1_in_9, - main_Image_1_in_10, - main_Image_1_in_11, - main_Image_1_in_12, - main_Image_1_in_13, - main_Image_1_in_14, - main_Image_1_in_15, - main_Image_1_in_16, - main_Image_1_in_17, - main_Image_1_in_18, - main_Image_1_in_19, - main_Image_1_in_20, - main_Image_1_in_21, - main_Image_1_in_22, - main_Image_1_in_23, - main_Image_1_in_24, - main_Image_1_in_25, - main_Image_1_in_26, - main_Image_1_in_27, - main_Image_1_in_28, - main_Image_1_in_29, - main_Image_1_in_30, - main_Image_1_in_31, - main_Image_1_in_32, - main_Image_1_in_33, - main_Image_1_in_34, - main_Image_1_in_35, - main_Image_1_in_36, - main_Image_1_in_37, - main_Image_1_in_38, - main_Image_1_in_39, - main_Image_1_in_40, - main_Image_1_in_41, - main_Image_1_in_42, - main_Image_1_in_43, - main_Image_1_in_44, - main_Image_1_in_45, - main_Image_1_in_46, - main_Image_1_in_47, - main_Image_1_in_48, - main_Image_1_in_49 - ) [instance: 1, cache: 1]; -// network: end of macro body -CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); -} -main_FileSelector_1_out_1 = "__FILE__DX__"; -main_Import_1_in_2 = NULL; -main_Import_1_in_3 = NULL; -main_Import_1_in_4 = NULL; -main_Import_1_in_5 = NULL; -main_Import_1_in_6 = NULL; -main_Import_1_out_1 = NULL; -main_Post_1_in_2 = "positions"; -main_Post_1_out_1 = NULL; -main_RubberSheet_1_in_2 = NULL; -main_RubberSheet_1_in_3 = NULL; -main_RubberSheet_1_in_4 = NULL; -main_RubberSheet_1_out_1 = NULL; -main_AutoColor_1_in_2 = NULL; -main_AutoColor_1_in_3 = NULL; -main_AutoColor_1_in_4 = NULL; -main_AutoColor_1_in_5 = NULL; -main_AutoColor_1_in_6 = NULL; -main_AutoColor_1_in_7 = NULL; -main_AutoColor_1_in_8 = NULL; -main_AutoColor_1_in_9 = NULL; -main_AutoColor_1_in_10 = NULL; -main_AutoColor_1_out_1 = NULL; -main_AutoColor_1_out_2 = NULL; -main_ShowConnections_1_out_1 = NULL; -main_Color_1_in_2 = "black"; -main_Color_1_in_3 = .5; -main_Color_1_in_4 = NULL; -main_Color_1_in_5 = NULL; -main_Color_1_out_1 = NULL; -main_ColorBar_1_in_2 = NULL; -main_ColorBar_1_in_3 = NULL; -main_ColorBar_1_in_4 = NULL; -main_ColorBar_1_in_5 = NULL; -main_ColorBar_1_in_6 = NULL; -main_ColorBar_1_in_7 = NULL; -main_ColorBar_1_in_8 = NULL; -main_ColorBar_1_in_9 = {"black"}; -main_ColorBar_1_in_10 = NULL; -main_ColorBar_1_in_11 = NULL; -main_ColorBar_1_in_12 = NULL; -main_ColorBar_1_in_13 = NULL; -main_ColorBar_1_in_14 = NULL; -main_ColorBar_1_in_15 = NULL; -main_ColorBar_1_in_16 = NULL; -main_ColorBar_1_out_1 = NULL; -main_Collect_1_out_1 = NULL; -macro Image( - id, - object, - where, - useVector, - to, - from, - width, - resolution, - aspect, - up, - viewAngle, - perspective, - options, - buttonState = 1, - buttonUpApprox = "none", - buttonDownApprox = "none", - buttonUpDensity = 1, - buttonDownDensity = 1, - renderMode = 0, - defaultCamera, - reset, - backgroundColor, - throttle, - RECenable = 0, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable = 0, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - interactionMode, - title, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - webOptions) -> ( - object, - camera, - where) -{ - ImageMessage( - id, - backgroundColor, - throttle, - RECenable, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - interactionMode, - title, - renderMode, - buttonUpApprox, - buttonDownApprox, - buttonUpDensity, - buttonDownDensity) [instance: 1, cache: 1]; - autoCamera = - AutoCamera( - object, - "front", - object, - resolution, - aspect, - [0,1,0], - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - realCamera = - Camera( - to, - from, - width, - resolution, - aspect, - up, - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - coloredDefaultCamera = - UpdateCamera(defaultCamera, - background=backgroundColor) [instance: 1, cache: 1]; - nullDefaultCamera = - Inquire(defaultCamera, - "is null + 1") [instance: 1, cache: 1]; - resetCamera = - Switch( - nullDefaultCamera, - coloredDefaultCamera, - autoCamera) [instance: 1, cache: 1]; - resetNull = - Inquire( - reset, - "is null + 1") [instance: 2, cache: 1]; - reset = - Switch( - resetNull, - reset, - 0) [instance: 2, cache: 1]; - whichCamera = - Compute( - "($0 != 0 || $1 == 0) ? 1 : 2", - reset, - useVector) [instance: 1, cache: 1]; - camera = Switch( - whichCamera, - resetCamera, - realCamera) [instance: 3, cache: 1]; - AAobject = - AutoAxes( - object, - camera, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels) [instance: 1, cache: 1]; - switchAAenable = Compute("$0+1", - AAenable) [instance: 2, cache: 1]; - object = Switch( - switchAAenable, - object, - AAobject) [instance:4, cache: 1]; - SWapproximation_options = - Switch( - buttonState, - buttonUpApprox, - buttonDownApprox) [instance: 5, cache: 1]; - SWdensity_options = - Switch( - buttonState, - buttonUpDensity, - buttonDownDensity) [instance: 6, cache: 1]; - HWapproximation_options = - Format( - "%s,%s", - buttonDownApprox, - buttonUpApprox) [instance: 1, cache: 1]; - HWdensity_options = - Format( - "%d,%d", - buttonDownDensity, - buttonUpDensity) [instance: 2, cache: 1]; - switchRenderMode = Compute( - "$0+1", - renderMode) [instance: 3, cache: 1]; - approximation_options = Switch( - switchRenderMode, - SWapproximation_options, - HWapproximation_options) [instance: 7, cache: 1]; - density_options = Switch( - switchRenderMode, - SWdensity_options, - HWdensity_options) [instance: 8, cache: 1]; - renderModeString = Switch( - switchRenderMode, - "software", - "hardware")[instance: 9, cache: 1]; - object_tag = Inquire( - object, - "object tag")[instance: 3, cache: 1]; - annoted_object = - Options( - object, - "send boxes", - 0, - "cache", - 1, - "object tag", - object_tag, - "ddcamera", - whichCamera, - "rendering approximation", - approximation_options, - "render every", - density_options, - "button state", - buttonState, - "rendering mode", - renderModeString) [instance: 1, cache: 1]; - RECresNull = - Inquire( - RECresolution, - "is null + 1") [instance: 4, cache: 1]; - ImageResolution = - Inquire( - camera, - "camera resolution") [instance: 5, cache: 1]; - RECresolution = - Switch( - RECresNull, - RECresolution, - ImageResolution) [instance: 10, cache: 1]; - RECaspectNull = - Inquire( - RECaspect, - "is null + 1") [instance: 6, cache: 1]; - ImageAspect = - Inquire( - camera, - "camera aspect") [instance: 7, cache: 1]; - RECaspect = - Switch( - RECaspectNull, - RECaspect, - ImageAspect) [instance: 11, cache: 1]; - switchRECenable = Compute( - "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", - RECenable, - switchRenderMode, - RECresolution, - ImageResolution, - RECaspect, - ImageAspect) [instance: 4, cache: 1]; - NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); - Display( - NoRECobject, - camera, - where, - throttle) [instance: 1, cache: 1]; - image = - Render( - RECNoRerenderObject, - camera) [instance: 1, cache: 1]; - Display( - image, - NULL, - where, - throttle) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 1, cache: 1]; - rec_where = Display( - RECNoRerHW, - camera, - where, - throttle) [instance: 1, cache: 0]; - rec_image = ReadImageWindow( - rec_where) [instance: 1, cache: 1]; - WriteImage( - rec_image, - RECfile, - RECformat) [instance: 1, cache: 1]; - RECupdateCamera = - UpdateCamera( - camera, - resolution=RECresolution, - aspect=RECaspect) [instance: 2, cache: 1]; - Display( - RECRerenderObject, - camera, - where, - throttle) [instance: 1, cache: 1]; - RECRerenderObject = - ScaleScreen( - RECRerenderObject, - NULL, - RECresolution, - camera) [instance: 1, cache: 1]; - image = - Render( - RECRerenderObject, - RECupdateCamera) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 2, cache: 1]; -} -main_Image_1_in_1 = "Image_1"; -main_Image_1_in_3 = "X24,,"; -main_Image_1_in_4 = 1; -main_Image_1_in_5 = [0.466889 0.863877 0.166499]; -main_Image_1_in_6 = [0.466889 0.863877 4.74189]; -main_Image_1_in_7 = 1.01623; -main_Image_1_in_8 = 1254; -main_Image_1_in_9 = 0.730064; -main_Image_1_in_10 = [0 1 0]; -main_Image_1_in_11 = NULL; -main_Image_1_in_12 = 0; -main_Image_1_in_13 = NULL; -main_Image_1_in_14 = 1; -main_Image_1_in_15 = NULL; -main_Image_1_in_16 = NULL; -main_Image_1_in_17 = NULL; -main_Image_1_in_18 = NULL; -main_Image_1_in_19 = 0; -main_Image_1_in_20 = NULL; -main_Image_1_in_21 = NULL; -main_Image_1_in_22 = "snow"; -main_Image_1_in_23 = NULL; -main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/doping.tif"; -main_Image_1_in_26 = "tiff"; -main_Image_1_in_27 = NULL; -main_Image_1_in_28 = NULL; -main_Image_1_in_29 = 1; -main_Image_1_in_30 = NULL; -main_Image_1_in_31 = -5; -main_Image_1_in_32 = NULL; -main_Image_1_in_33 = 1; -main_Image_1_in_34 = 0; -main_Image_1_in_35 = NULL; -main_Image_1_in_36 = 1; -main_Image_1_in_37 = {"clear", "black", "blue", "blue"}; -main_Image_1_in_38 = {"background", "grid", "ticks", "labels"}; -main_Image_1_in_39 = 0.65; -main_Image_1_in_40 = "roman_d"; -main_Image_1_in_41 = "panzoom"; -main_Image_1_in_42 = NULL; -main_Image_1_in_43 = NULL; -main_Image_1_in_44 = NULL; -main_Image_1_in_45 = NULL; -main_Image_1_in_46 = NULL; -main_Image_1_in_47 = NULL; -main_Image_1_in_48 = NULL; -main_Image_1_in_49 = NULL; -Executive("product version 4 4 4"); -$sync -main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2dxappenddata.m --- a/extra/fpl/inst/deprecated/FPL2dxappenddata.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,90 +0,0 @@ -## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## @deftypefn {Function File} {} FPL2dxappenddata ( @var{filename}, -## @var{p}, @var{t}, @var{u}, @var{attr_name}, @var{attr_rank}, -## @var{attr_shape}, @var{endflie} ) -## -## Apends data to a file in DX form. -## Only one variable can be written to the file -## variable must be a scalar, vector or tensor of doubles -## mesh data in the file must be consistent with this variable -## -## Variable must be a scalar, vector or tensor of doubles -## -## @itemize @minus -## @item @var{filename}= name of file to save (type string) -## @item @var{p}, @var{t} = mesh -## @item @var{u} = variable to save -## @item @var{attr_name} = name of the variable (type string) -## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.) -## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar) -## @item @var{endfile} = 0 if you want to add other variables to the -## same file, 1 otherwise -## @end itemize -## @end deftypefn - -function FPL2dxappenddata(filename,p,t,u,attr_name,attr_rank,attr_shape,endfile) - - p = p'; - t = t'; - t = t(:,1:3); - - fid=fopen (filename,'a'); - Nnodi = size(p,1); - Ntriangoli = size(t,1); - - fprintf(fid,'\nattribute "element type" string "triangles"\nattribute "ref" string "positions"\n\n'); - - if ((attr_rank==0) && (min(size(u))==1)) - fprintf(fid,'object "%s.data"\nclass array type double rank 0 items %d data follows',attr_name,Nnodi); - fprintf(fid,'\n %1.7e',u); - else - fprintf(fid,'object "%s.data"\nclass array type double rank %d shape %d items %d data follows', ... - attr_name,attr_rank,attr_shape,Nnodi); - for i=1:Nnodi - fprintf(fid,'\n'); - fprintf(fid,' %1.7e',u(i,:)); - endfor - endif - fprintf(fid,['\nattribute "dep" string "positions"\n\n' ... - 'object "%s" class field\n'... - 'component "positions" value "pos"\n'... - 'component "connections" value "con"\n'... - 'component "data" value "%s.data"\n'],... - attr_name,attr_name); - - if(endfile) - fprintf(fid,'\nend\n'); - endif - - fclose (fid); - -endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2dxoutputdata.m --- a/extra/fpl/inst/deprecated/FPL2dxoutputdata.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,126 +0,0 @@ -## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## @deftypefn {Function File} {} FPL2dxoutputdata ( @var{filename}, @ -## @var{p}, @var{t}, @var{u}, @var{attr_name}, @var{attr_rank}, @ -## @var{attr_shape}, @var{endfile} ) -## -## Outputs data in DX form. -## -## Variable must be a scalar, vector or tensor of doubles -## -## @itemize @minus -## @item @var{filename}= name of file to save (type string) -## @item @var{p}, @var{t} = mesh -## @item @var{u} = variable to save -## @item @var{attr_name} = name of the variable (type string) -## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.) -## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar) -## @item @var{endfile} = 0 if you want to add other variables to the -## same file, 1 otherwise -## @end itemize -## @end deftypefn - -function FPL2dxoutputdata(filename,p,t,u,attr_name,attr_rank,attr_shape,endfile) - - p = p'; - t = t'; - t = t(:,1:3); - - fid=fopen (filename,'w'); - Nnodi = size(p,1); - Ntriangoli = size(t,1); - Ndati = size(u,1); - - fprintf(fid,"object ""pos""\nclass array type float rank 1 shape 2 items %d data follows",Nnodi); - - for i=1:Nnodi - fprintf(fid,"\n"); - fprintf(fid," %1.7e",p(i,:)); - endfor - - if (min(min(t))==1) - t=t-1; - elseif(min(min(t))~=0) - disp('WARNING: check triangle structure') - endif - ## In DX format nodes are - ## numbered starting from zero, - ## instead we want to number - ## them starting from 1! - ## Here we restore the DX - ## format - - fprintf(fid,"\n\nobject ""con""\nclass array type int rank 1 shape 3 items %d data follows",Ntriangoli); - for i=1:Ntriangoli - fprintf(fid,"\n"); - fprintf(fid," %d",t(i,:)); - endfor - - fprintf(fid,"\nattribute ""element type"" string ""triangles""\nattribute ""ref"" string ""positions""\n\n"); - - if ((attr_rank==0) && (min(size(u))==1)) - fprintf(fid,"object ""%s.data""\nclass array type double rank 0 items %d data follows",attr_name,Ndati); - fprintf(fid,"\n %1.7e",u); - - else - fprintf(fid,"object ""%s.data""\nclass array type double rank %d shape %d items %d data follows", ... - attr_name,attr_rank,attr_shape,Ndati); - for i=1:Ndati - fprintf(fid,"\n"); - fprintf(fid," %1.7e",u(i,:)); - endfor - - endif - - if Ndati==Nnodi - fprintf(fid,["\nattribute ""dep"" string ""positions""\n\n" ... - "object ""%s"" class field\n"... - "component ""positions"" value ""pos""\n"... - "component ""connections"" value ""con""\n"... - "component ""data"" value ""%s.data""\n"],... - attr_name,attr_name); - elseif Ndati==Ntriangoli - fprintf(fid,["\nattribute ""dep"" string ""connections""\n\n" ... - "object ""%s"" class field\n"... - "component ""positions"" value ""pos""\n"... - "component ""connections"" value ""con""\n"... - "component ""data"" value ""%s.data""\n"],... - attr_name,attr_name); - endif - - if(endfile) - fprintf(fid,"\nend\n"); - endif - - fclose (fid); - - -endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2dxoutputtimeseries.m --- a/extra/fpl/inst/deprecated/FPL2dxoutputtimeseries.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,71 +0,0 @@ -## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## @deftypefn {Function File} {} FPL2dxoutputtimeseries ( @var{filename}, @var{p}, @var{t}, @var{u}, @var{attr_name}, @var{attr_rank}, @var{attr_shape}, @var{time} ) -## -## Outputs a time series in DX form. -## variable must be a scalar, vector or tensor of doubles -## @itemize @minus -## @item @var{filename}= name of file to save (type string) -## @item @var{p}, @var{t} = mesh -## @item @var{u} = variable to save -## @item @var{attr_name} = name of the variable (type string) -## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.) -## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar) -## @item @var{time} = time instants -## @end itemize -## @end deftypefn - -function FPL2dxoutputtimeseries(filename,p,t,u,attr_name,attr_rank,attr_shape,time) - - Nsteps = length(time); - if (Nsteps<=1) - endfile = 1; - else - endfile = 0; - endif - - FPL2dxoutputdata(filename,p,t,u(:,1:attr_shape),[attr_name "1"],attr_rank,attr_shape,endfile); - - for it = 2:Nsteps - FPL2dxappenddata(filename,p,t,u(:,[1:attr_shape]+attr_shape*(it-1)),... - [attr_name num2str(it)],attr_rank,attr_shape,endfile); - endfor - - fid=fopen(filename,"a"); - - fprintf (fid, "object \"%s_series\" class series\n",attr_name); - for it = 1:Nsteps - fprintf (fid,"member %d position %g value \"%s\"\n",it-1,time(it),[attr_name num2str(it)]); - endfor - fprintf (fid, "\nend\n"); - fclose(fid); - -endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2pdequiver.m --- a/extra/fpl/inst/deprecated/FPL2pdequiver.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,92 +0,0 @@ -## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## @deftypefn {Function File} {} FPL2pdequiver (@var{mesh}, @ -## @var{vx}, @var{vy}, [ @var{property}, @var{value} ...]) -## -## Plots the 2D vector field @var{vx}, @var{vy} -## defined on the triangulation @var{mesh} using opendx. -## -## Options (default values): -## @var{sample_density} (100) -## -## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2ptcquiver} -## @end deftypefn - -function FPL2pdequiver(mesh,vecfieldx,vecfieldy,varargin); - - sample_density = "100"; - - if( (nargin >= 3) && (rem(nargin,2)==1) ) - for ii=1:2:length(varargin) - [ varargin{ii} " = " varargin{ii+1} ";" ] - eval([ varargin{ii} " = """ varargin{ii+1} """;" ]); - endfor - else - error(["wrong number of parameters " num2str (nargin)]) - endif - - JX = sum(vecfieldx,1)'/3; - JY = sum(vecfieldy,1)'/3; - - dataname = mktemp("/tmp",".dx"); - scriptname = mktemp("/tmp",".net"); - - FPL2dxoutputdata(dataname,mesh.p,mesh.t,[ JX JY],'J',1,2,1); - - showmesh = file_in_path(path,"FPL2pdequiver.net"); - - system (["cp " showmesh " " scriptname]); - system (["sed -i \'s|__FILE__DX__|" dataname "|g\' " scriptname]); - system (["sed -i \'s|__SAMPLE__DENSITY__|" sample_density "|g\' " scriptname]); - - command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; - - system(command); - - -endfunction - -function filename = mktemp (direct,ext); - - if (~exist(direct,"dir")) - error("trying to save temporary file to non existing directory") - endif - - done=false; - - while ~done - filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; - if ~exist(filename,"file") - done =true; - endif - endwhile - -endfunction diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2pdequiver.net --- a/extra/fpl/inst/deprecated/FPL2pdequiver.net Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,613 +0,0 @@ -// -// time: Fri Jun 15 19:24:56 2007 -// -// version: 3.2.0 (format), 4.4.4 (DX) -// -// -// MODULE main -// workspace: width = 481, height = 614 -// layout: snap = 0, width = 50, height = 50, align = NN -// -macro main( -) -> ( -) { - // - // node FileSelector[1]: x = 173, y = 81, inputs = 0, label = FileSelector - // output[1]: visible = 1, type = 32, value = "__FILE__DX__" - // output[2]: visible = 1, type = 32, value = "__FILE__DX__" - // - // - // node Import[1]: x = 203, y = 177, inputs = 6, label = Import - // -main_Import_1_out_1 = - Import( - main_FileSelector_1_out_1, - main_Import_1_in_2, - main_Import_1_in_3, - main_Import_1_in_4, - main_Import_1_in_5, - main_Import_1_in_6 - ) [instance: 1, cache: 1]; - // - // node Sample[1]: x = 89, y = 238, inputs = 2, label = Sample - // input[2]: defaulting = 0, visible = 1, type = 1, value = __SAMPLE__DENSITY__ - // -main_Sample_1_out_1 = - Sample( - main_Import_1_out_1, - main_Sample_1_in_2 - ) [instance: 1, cache: 1]; - // - // node AutoGlyph[1]: x = 64, y = 323, inputs = 7, label = AutoGlyph - // -main_AutoGlyph_1_out_1 = - AutoGlyph( - main_Sample_1_out_1, - main_AutoGlyph_1_in_2, - main_AutoGlyph_1_in_3, - main_AutoGlyph_1_in_4, - main_AutoGlyph_1_in_5, - main_AutoGlyph_1_in_6, - main_AutoGlyph_1_in_7 - ) [instance: 1, cache: 1]; - // - // node AutoColor[1]: x = 76, y = 415, inputs = 10, label = AutoColor - // -main_AutoColor_1_out_1, -main_AutoColor_1_out_2 = - AutoColor( - main_AutoGlyph_1_out_1, - main_AutoColor_1_in_2, - main_AutoColor_1_in_3, - main_AutoColor_1_in_4, - main_AutoColor_1_in_5, - main_AutoColor_1_in_6, - main_AutoColor_1_in_7, - main_AutoColor_1_in_8, - main_AutoColor_1_in_9, - main_AutoColor_1_in_10 - ) [instance: 1, cache: 1]; - // - // node ColorBar[1]: x = 238, y = 367, inputs = 16, label = ColorBar - // -main_ColorBar_1_out_1 = - ColorBar( - main_AutoColor_1_out_2, - main_ColorBar_1_in_2, - main_ColorBar_1_in_3, - main_ColorBar_1_in_4, - main_ColorBar_1_in_5, - main_ColorBar_1_in_6, - main_ColorBar_1_in_7, - main_ColorBar_1_in_8, - main_ColorBar_1_in_9, - main_ColorBar_1_in_10, - main_ColorBar_1_in_11, - main_ColorBar_1_in_12, - main_ColorBar_1_in_13, - main_ColorBar_1_in_14, - main_ColorBar_1_in_15, - main_ColorBar_1_in_16 - ) [instance: 1, cache: 1]; - // - // node ShowConnections[1]: x = 348, y = 295, inputs = 1, label = ShowConnections - // -main_ShowConnections_1_out_1 = - ShowConnections( - main_Import_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Color[1]: x = 359, y = 398, inputs = 5, label = Color - // input[2]: defaulting = 0, visible = 1, type = 32, value = "black" - // -main_Color_1_out_1 = - Color( - main_ShowConnections_1_out_1, - main_Color_1_in_2, - main_Color_1_in_3, - main_Color_1_in_4, - main_Color_1_in_5 - ) [instance: 1, cache: 1]; - // - // node Collect[1]: x = 198, y = 465, inputs = 3, label = Collect - // -main_Collect_1_out_1 = - Collect( - main_AutoColor_1_out_1, - main_ColorBar_1_out_1, - main_Color_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Image[1]: x = 195, y = 552, inputs = 49, label = Image - // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1" - // input[4]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[5]: defaulting = 0, visible = 0, type = 8, value = [0.555651 0.5 0] - // input[6]: defaulting = 0, visible = 0, type = 8, value = [0.555651 0.5 3.71222] - // input[7]: defaulting = 0, visible = 0, type = 5, value = 1.98938 - // input[8]: defaulting = 0, visible = 0, type = 1, value = 1254 - // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.759 - // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0] - // input[11]: defaulting = 1, visible = 0, type = 5, value = 30.0001 - // input[12]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[15]: defaulting = 1, visible = 0, type = 32, value = "none" - // input[16]: defaulting = 1, visible = 0, type = 32, value = "none" - // input[17]: defaulting = 1, visible = 0, type = 1, value = 1 - // input[18]: defaulting = 1, visible = 0, type = 1, value = 1 - // input[19]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[22]: defaulting = 0, visible = 0, type = 32, value = "grey70" - // input[29]: defaulting = 1, visible = 0, type = 3, value = 0 - // input[41]: defaulting = 0, visible = 0, type = 32, value = "panzoom" - // depth: value = 24 - // window: position = (0.0000,0.0000), size = 0.9906x0.9697 - // internal caching: 1 - // -main_Image_1_out_1, -main_Image_1_out_2, -main_Image_1_out_3 = - Image( - main_Image_1_in_1, - main_Collect_1_out_1, - main_Image_1_in_3, - main_Image_1_in_4, - main_Image_1_in_5, - main_Image_1_in_6, - main_Image_1_in_7, - main_Image_1_in_8, - main_Image_1_in_9, - main_Image_1_in_10, - main_Image_1_in_11, - main_Image_1_in_12, - main_Image_1_in_13, - main_Image_1_in_14, - main_Image_1_in_15, - main_Image_1_in_16, - main_Image_1_in_17, - main_Image_1_in_18, - main_Image_1_in_19, - main_Image_1_in_20, - main_Image_1_in_21, - main_Image_1_in_22, - main_Image_1_in_23, - main_Image_1_in_24, - main_Image_1_in_25, - main_Image_1_in_26, - main_Image_1_in_27, - main_Image_1_in_28, - main_Image_1_in_29, - main_Image_1_in_30, - main_Image_1_in_31, - main_Image_1_in_32, - main_Image_1_in_33, - main_Image_1_in_34, - main_Image_1_in_35, - main_Image_1_in_36, - main_Image_1_in_37, - main_Image_1_in_38, - main_Image_1_in_39, - main_Image_1_in_40, - main_Image_1_in_41, - main_Image_1_in_42, - main_Image_1_in_43, - main_Image_1_in_44, - main_Image_1_in_45, - main_Image_1_in_46, - main_Image_1_in_47, - main_Image_1_in_48, - main_Image_1_in_49 - ) [instance: 1, cache: 1]; -// network: end of macro body -CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); -} -main_FileSelector_1_out_1 = "__FILE__DX__"; -main_Import_1_in_2 = NULL; -main_Import_1_in_3 = NULL; -main_Import_1_in_4 = NULL; -main_Import_1_in_5 = NULL; -main_Import_1_in_6 = NULL; -main_Import_1_out_1 = NULL; -main_Sample_1_in_2 = __SAMPLE__DENSITY__; -main_Sample_1_out_1 = NULL; -main_AutoGlyph_1_in_2 = NULL; -main_AutoGlyph_1_in_3 = NULL; -main_AutoGlyph_1_in_4 = NULL; -main_AutoGlyph_1_in_5 = NULL; -main_AutoGlyph_1_in_6 = NULL; -main_AutoGlyph_1_in_7 = NULL; -main_AutoGlyph_1_out_1 = NULL; -main_AutoColor_1_in_2 = NULL; -main_AutoColor_1_in_3 = NULL; -main_AutoColor_1_in_4 = NULL; -main_AutoColor_1_in_5 = NULL; -main_AutoColor_1_in_6 = NULL; -main_AutoColor_1_in_7 = NULL; -main_AutoColor_1_in_8 = NULL; -main_AutoColor_1_in_9 = NULL; -main_AutoColor_1_in_10 = NULL; -main_AutoColor_1_out_1 = NULL; -main_AutoColor_1_out_2 = NULL; -main_ColorBar_1_in_2 = NULL; -main_ColorBar_1_in_3 = NULL; -main_ColorBar_1_in_4 = NULL; -main_ColorBar_1_in_5 = NULL; -main_ColorBar_1_in_6 = NULL; -main_ColorBar_1_in_7 = NULL; -main_ColorBar_1_in_8 = NULL; -main_ColorBar_1_in_9 = NULL; -main_ColorBar_1_in_10 = NULL; -main_ColorBar_1_in_11 = NULL; -main_ColorBar_1_in_12 = NULL; -main_ColorBar_1_in_13 = NULL; -main_ColorBar_1_in_14 = NULL; -main_ColorBar_1_in_15 = NULL; -main_ColorBar_1_in_16 = NULL; -main_ColorBar_1_out_1 = NULL; -main_ShowConnections_1_out_1 = NULL; -main_Color_1_in_2 = "black"; -main_Color_1_in_3 = NULL; -main_Color_1_in_4 = NULL; -main_Color_1_in_5 = NULL; -main_Color_1_out_1 = NULL; -main_Collect_1_out_1 = NULL; -macro Image( - id, - object, - where, - useVector, - to, - from, - width, - resolution, - aspect, - up, - viewAngle, - perspective, - options, - buttonState = 1, - buttonUpApprox = "none", - buttonDownApprox = "none", - buttonUpDensity = 1, - buttonDownDensity = 1, - renderMode = 0, - defaultCamera, - reset, - backgroundColor, - throttle, - RECenable = 0, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable = 0, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - interactionMode, - title, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - webOptions) -> ( - object, - camera, - where) -{ - ImageMessage( - id, - backgroundColor, - throttle, - RECenable, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - interactionMode, - title, - renderMode, - buttonUpApprox, - buttonDownApprox, - buttonUpDensity, - buttonDownDensity) [instance: 1, cache: 1]; - autoCamera = - AutoCamera( - object, - "front", - object, - resolution, - aspect, - [0,1,0], - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - realCamera = - Camera( - to, - from, - width, - resolution, - aspect, - up, - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - coloredDefaultCamera = - UpdateCamera(defaultCamera, - background=backgroundColor) [instance: 1, cache: 1]; - nullDefaultCamera = - Inquire(defaultCamera, - "is null + 1") [instance: 1, cache: 1]; - resetCamera = - Switch( - nullDefaultCamera, - coloredDefaultCamera, - autoCamera) [instance: 1, cache: 1]; - resetNull = - Inquire( - reset, - "is null + 1") [instance: 2, cache: 1]; - reset = - Switch( - resetNull, - reset, - 0) [instance: 2, cache: 1]; - whichCamera = - Compute( - "($0 != 0 || $1 == 0) ? 1 : 2", - reset, - useVector) [instance: 1, cache: 1]; - camera = Switch( - whichCamera, - resetCamera, - realCamera) [instance: 3, cache: 1]; - AAobject = - AutoAxes( - object, - camera, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels) [instance: 1, cache: 1]; - switchAAenable = Compute("$0+1", - AAenable) [instance: 2, cache: 1]; - object = Switch( - switchAAenable, - object, - AAobject) [instance:4, cache: 1]; - SWapproximation_options = - Switch( - buttonState, - buttonUpApprox, - buttonDownApprox) [instance: 5, cache: 1]; - SWdensity_options = - Switch( - buttonState, - buttonUpDensity, - buttonDownDensity) [instance: 6, cache: 1]; - HWapproximation_options = - Format( - "%s,%s", - buttonDownApprox, - buttonUpApprox) [instance: 1, cache: 1]; - HWdensity_options = - Format( - "%d,%d", - buttonDownDensity, - buttonUpDensity) [instance: 2, cache: 1]; - switchRenderMode = Compute( - "$0+1", - renderMode) [instance: 3, cache: 1]; - approximation_options = Switch( - switchRenderMode, - SWapproximation_options, - HWapproximation_options) [instance: 7, cache: 1]; - density_options = Switch( - switchRenderMode, - SWdensity_options, - HWdensity_options) [instance: 8, cache: 1]; - renderModeString = Switch( - switchRenderMode, - "software", - "hardware")[instance: 9, cache: 1]; - object_tag = Inquire( - object, - "object tag")[instance: 3, cache: 1]; - annoted_object = - Options( - object, - "send boxes", - 0, - "cache", - 1, - "object tag", - object_tag, - "ddcamera", - whichCamera, - "rendering approximation", - approximation_options, - "render every", - density_options, - "button state", - buttonState, - "rendering mode", - renderModeString) [instance: 1, cache: 1]; - RECresNull = - Inquire( - RECresolution, - "is null + 1") [instance: 4, cache: 1]; - ImageResolution = - Inquire( - camera, - "camera resolution") [instance: 5, cache: 1]; - RECresolution = - Switch( - RECresNull, - RECresolution, - ImageResolution) [instance: 10, cache: 1]; - RECaspectNull = - Inquire( - RECaspect, - "is null + 1") [instance: 6, cache: 1]; - ImageAspect = - Inquire( - camera, - "camera aspect") [instance: 7, cache: 1]; - RECaspect = - Switch( - RECaspectNull, - RECaspect, - ImageAspect) [instance: 11, cache: 1]; - switchRECenable = Compute( - "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", - RECenable, - switchRenderMode, - RECresolution, - ImageResolution, - RECaspect, - ImageAspect) [instance: 4, cache: 1]; - NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); - Display( - NoRECobject, - camera, - where, - throttle) [instance: 1, cache: 1]; - image = - Render( - RECNoRerenderObject, - camera) [instance: 1, cache: 1]; - Display( - image, - NULL, - where, - throttle) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 1, cache: 1]; - rec_where = Display( - RECNoRerHW, - camera, - where, - throttle) [instance: 1, cache: 0]; - rec_image = ReadImageWindow( - rec_where) [instance: 1, cache: 1]; - WriteImage( - rec_image, - RECfile, - RECformat) [instance: 1, cache: 1]; - RECupdateCamera = - UpdateCamera( - camera, - resolution=RECresolution, - aspect=RECaspect) [instance: 2, cache: 1]; - Display( - RECRerenderObject, - camera, - where, - throttle) [instance: 1, cache: 1]; - RECRerenderObject = - ScaleScreen( - RECRerenderObject, - NULL, - RECresolution, - camera) [instance: 1, cache: 1]; - image = - Render( - RECRerenderObject, - RECupdateCamera) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 2, cache: 1]; -} -main_Image_1_in_1 = "Image_1"; -main_Image_1_in_3 = "X24,,"; -main_Image_1_in_4 = 1; -main_Image_1_in_5 = [0.555651 0.5 0]; -main_Image_1_in_6 = [0.555651 0.5 3.71222]; -main_Image_1_in_7 = 1.98938; -main_Image_1_in_8 = 1254; -main_Image_1_in_9 = 0.759; -main_Image_1_in_10 = [0 1 0]; -main_Image_1_in_11 = NULL; -main_Image_1_in_12 = 0; -main_Image_1_in_13 = NULL; -main_Image_1_in_14 = 1; -main_Image_1_in_15 = NULL; -main_Image_1_in_16 = NULL; -main_Image_1_in_17 = NULL; -main_Image_1_in_18 = NULL; -main_Image_1_in_19 = 0; -main_Image_1_in_20 = NULL; -main_Image_1_in_21 = NULL; -main_Image_1_in_22 = "grey70"; -main_Image_1_in_23 = NULL; -main_Image_1_in_25 = NULL; -main_Image_1_in_26 = NULL; -main_Image_1_in_27 = NULL; -main_Image_1_in_28 = NULL; -main_Image_1_in_29 = NULL; -main_Image_1_in_30 = NULL; -main_Image_1_in_31 = NULL; -main_Image_1_in_32 = NULL; -main_Image_1_in_33 = NULL; -main_Image_1_in_34 = NULL; -main_Image_1_in_35 = NULL; -main_Image_1_in_36 = NULL; -main_Image_1_in_37 = NULL; -main_Image_1_in_38 = NULL; -main_Image_1_in_39 = NULL; -main_Image_1_in_40 = NULL; -main_Image_1_in_41 = "panzoom"; -main_Image_1_in_42 = NULL; -main_Image_1_in_43 = NULL; -main_Image_1_in_44 = NULL; -main_Image_1_in_45 = NULL; -main_Image_1_in_46 = NULL; -main_Image_1_in_47 = NULL; -main_Image_1_in_48 = NULL; -main_Image_1_in_49 = NULL; -Executive("product version 4 4 4"); -$sync -main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2pdeshowmesh.m --- a/extra/fpl/inst/deprecated/FPL2pdeshowmesh.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,94 +0,0 @@ -## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## -## @deftypefn {Function File} {} FPL2pdeshowmesh (@var{mesh},@var{color}) -## -## Displays one 2-D triangulations using opendx -## -## Examples: -## @example -## -## FPL2pdeshowmesh(mesh) -## FPL2pdeshowmesh(mesh,"blue") -## -## @end example -## -## @seealso{FPL2ptcshowmesh} -## @end deftypefn - -function FPL2pdeshowmesh (varargin) - - if nargin == 1 - colorname = "red"; - else - colorname = varargin{2}; - endif - - dataname = mktemp("/tmp",".dx"); - FPL2dxoutputdata(dataname,varargin{1}.p,varargin{1}.t,varargin{1}.p(1,:)','x',0,1,1); - - scriptname = mktemp("/tmp",".net"); - - showmesh = file_in_path(path,"FPL2pdeshowmesh.net"); - - system (["cp " showmesh " " scriptname]); - system (["sed -i \'s|FILENAME|" dataname "|g\' " scriptname]); - system (["sed -i \'s|COLORNAME|" colorname "|g\' " scriptname]); - - command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; - system(command); - -endfunction - -function filename = mktemp (direct,ext); - - if (~exist(direct,"dir")) - error("trying to save temporary file to non existing directory") - end - - done=false; - - while ~done - filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; - if ~exist(filename,"file") - done =true; - endif - endwhile - -endfunction - -%!test -%! msh.p = [0 0; 1 0; 1 1; 0 1].'; -%! msh.t = [1 2 3 1; 1 3 4 1].'; -%! msh.e = [1 2 0 0 1 0 1; 2 3 0 0 2 0 1; 3 4 0 0 3 0 1; 4 1 0 0 4 0 1].'; -%! FPL2pdeshowmesh (msh, "red"); -%! s = input ("do you see a red outlined square divided in two triangles (if you see an empty plot try ctrl-F)? (y/n): " ,"s"); -%! assert(s, "y") \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2pdeshowmesh.net --- a/extra/fpl/inst/deprecated/FPL2pdeshowmesh.net Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,518 +0,0 @@ -// -// time: Sat Jan 5 12:20:20 2008 -// -// version: 3.2.0 (format), 4.4.4 (DX) -// -// -// MODULE main -// workspace: width = 260, height = 456 -// layout: snap = 1, width = 10, height = 10, align = CC -// -macro main( -) -> ( -) { - // - // node String[1]: x = 81, y = 24, inputs = 0, label = String - // output[1]: visible = 1, type = 32, value = "FILENAME" - // - // - // node Import[1]: x = 79, y = 104, inputs = 6, label = Import - // -main_Import_1_out_1 = - Import( - main_String_1_out_1, - main_Import_1_in_2, - main_Import_1_in_3, - main_Import_1_in_4, - main_Import_1_in_5, - main_Import_1_in_6 - ) [instance: 1, cache: 1]; - // - // node String[2]: x = 211, y = 24, inputs = 0, label = String - // output[1]: visible = 1, type = 32, value = "COLORNAME" - // - // - // node Color[1]: x = 149, y = 184, inputs = 5, label = Color - // input[2]: defaulting = 1, visible = 1, type = 32, value = "indianred" - // -main_Color_1_out_1 = - Color( - main_Import_1_out_1, - main_String_2_out_1, - main_Color_1_in_3, - main_Color_1_in_4, - main_Color_1_in_5 - ) [instance: 1, cache: 1]; - // - // node ShowConnections[1]: x = 119, y = 294, inputs = 1, label = ShowConnections - // -main_ShowConnections_1_out_1 = - ShowConnections( - main_Color_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Image[1]: x = 149, y = 394, inputs = 49, label = Image - // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1" - // input[4]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[5]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 0] - // input[6]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 39.3199] - // input[7]: defaulting = 0, visible = 0, type = 5, value = 21.0715 - // input[8]: defaulting = 0, visible = 0, type = 1, value = 804 - // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.610075 - // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0] - // input[11]: defaulting = 1, visible = 0, type = 5, value = 30.0 - // input[12]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[15]: defaulting = 1, visible = 0, type = 32, value = "none" - // input[16]: defaulting = 1, visible = 0, type = 32, value = "none" - // input[17]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[18]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[19]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow" - // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif" - // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff" - // input[29]: defaulting = 0, visible = 0, type = 3, value = 1 - // input[31]: defaulting = 0, visible = 0, type = 1, value = -15 - // input[33]: defaulting = 0, visible = 0, type = 3, value = 0 - // input[34]: defaulting = 0, visible = 0, type = 3, value = 0 - // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "grey5", "saddlebrown", "saddlebrown"} - // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"} - // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.7 - // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_s" - // input[41]: defaulting = 0, visible = 0, type = 32, value = "none" - // depth: value = 24 - // window: position = (0.2479,0.1267), size = 0.6389x0.6833 - // internal caching: 1 - // -main_Image_1_out_1, -main_Image_1_out_2, -main_Image_1_out_3 = - Image( - main_Image_1_in_1, - main_ShowConnections_1_out_1, - main_Image_1_in_3, - main_Image_1_in_4, - main_Image_1_in_5, - main_Image_1_in_6, - main_Image_1_in_7, - main_Image_1_in_8, - main_Image_1_in_9, - main_Image_1_in_10, - main_Image_1_in_11, - main_Image_1_in_12, - main_Image_1_in_13, - main_Image_1_in_14, - main_Image_1_in_15, - main_Image_1_in_16, - main_Image_1_in_17, - main_Image_1_in_18, - main_Image_1_in_19, - main_Image_1_in_20, - main_Image_1_in_21, - main_Image_1_in_22, - main_Image_1_in_23, - main_Image_1_in_24, - main_Image_1_in_25, - main_Image_1_in_26, - main_Image_1_in_27, - main_Image_1_in_28, - main_Image_1_in_29, - main_Image_1_in_30, - main_Image_1_in_31, - main_Image_1_in_32, - main_Image_1_in_33, - main_Image_1_in_34, - main_Image_1_in_35, - main_Image_1_in_36, - main_Image_1_in_37, - main_Image_1_in_38, - main_Image_1_in_39, - main_Image_1_in_40, - main_Image_1_in_41, - main_Image_1_in_42, - main_Image_1_in_43, - main_Image_1_in_44, - main_Image_1_in_45, - main_Image_1_in_46, - main_Image_1_in_47, - main_Image_1_in_48, - main_Image_1_in_49 - ) [instance: 1, cache: 1]; -// network: end of macro body -CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); -} -main_String_1_out_1 = "FILENAME"; -main_Import_1_in_2 = NULL; -main_Import_1_in_3 = NULL; -main_Import_1_in_4 = NULL; -main_Import_1_in_5 = NULL; -main_Import_1_in_6 = NULL; -main_Import_1_out_1 = NULL; -main_String_2_out_1 = "COLORNAME"; -main_Color_1_in_3 = NULL; -main_Color_1_in_4 = NULL; -main_Color_1_in_5 = NULL; -main_Color_1_out_1 = NULL; -main_ShowConnections_1_out_1 = NULL; -macro Image( - id, - object, - where, - useVector, - to, - from, - width, - resolution, - aspect, - up, - viewAngle, - perspective, - options, - buttonState = 1, - buttonUpApprox = "none", - buttonDownApprox = "none", - buttonUpDensity = 1, - buttonDownDensity = 1, - renderMode = 0, - defaultCamera, - reset, - backgroundColor, - throttle, - RECenable = 0, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable = 0, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - interactionMode, - title, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - webOptions) -> ( - object, - camera, - where) -{ - ImageMessage( - id, - backgroundColor, - throttle, - RECenable, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - interactionMode, - title, - renderMode, - buttonUpApprox, - buttonDownApprox, - buttonUpDensity, - buttonDownDensity) [instance: 1, cache: 1]; - autoCamera = - AutoCamera( - object, - "front", - object, - resolution, - aspect, - [0,1,0], - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - realCamera = - Camera( - to, - from, - width, - resolution, - aspect, - up, - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - coloredDefaultCamera = - UpdateCamera(defaultCamera, - background=backgroundColor) [instance: 1, cache: 1]; - nullDefaultCamera = - Inquire(defaultCamera, - "is null + 1") [instance: 1, cache: 1]; - resetCamera = - Switch( - nullDefaultCamera, - coloredDefaultCamera, - autoCamera) [instance: 1, cache: 1]; - resetNull = - Inquire( - reset, - "is null + 1") [instance: 2, cache: 1]; - reset = - Switch( - resetNull, - reset, - 0) [instance: 2, cache: 1]; - whichCamera = - Compute( - "($0 != 0 || $1 == 0) ? 1 : 2", - reset, - useVector) [instance: 1, cache: 1]; - camera = Switch( - whichCamera, - resetCamera, - realCamera) [instance: 3, cache: 1]; - AAobject = - AutoAxes( - object, - camera, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels) [instance: 1, cache: 1]; - switchAAenable = Compute("$0+1", - AAenable) [instance: 2, cache: 1]; - object = Switch( - switchAAenable, - object, - AAobject) [instance:4, cache: 1]; - SWapproximation_options = - Switch( - buttonState, - buttonUpApprox, - buttonDownApprox) [instance: 5, cache: 1]; - SWdensity_options = - Switch( - buttonState, - buttonUpDensity, - buttonDownDensity) [instance: 6, cache: 1]; - HWapproximation_options = - Format( - "%s,%s", - buttonDownApprox, - buttonUpApprox) [instance: 1, cache: 1]; - HWdensity_options = - Format( - "%d,%d", - buttonDownDensity, - buttonUpDensity) [instance: 2, cache: 1]; - switchRenderMode = Compute( - "$0+1", - renderMode) [instance: 3, cache: 1]; - approximation_options = Switch( - switchRenderMode, - SWapproximation_options, - HWapproximation_options) [instance: 7, cache: 1]; - density_options = Switch( - switchRenderMode, - SWdensity_options, - HWdensity_options) [instance: 8, cache: 1]; - renderModeString = Switch( - switchRenderMode, - "software", - "hardware")[instance: 9, cache: 1]; - object_tag = Inquire( - object, - "object tag")[instance: 3, cache: 1]; - annoted_object = - Options( - object, - "send boxes", - 0, - "cache", - 1, - "object tag", - object_tag, - "ddcamera", - whichCamera, - "rendering approximation", - approximation_options, - "render every", - density_options, - "button state", - buttonState, - "rendering mode", - renderModeString) [instance: 1, cache: 1]; - RECresNull = - Inquire( - RECresolution, - "is null + 1") [instance: 4, cache: 1]; - ImageResolution = - Inquire( - camera, - "camera resolution") [instance: 5, cache: 1]; - RECresolution = - Switch( - RECresNull, - RECresolution, - ImageResolution) [instance: 10, cache: 1]; - RECaspectNull = - Inquire( - RECaspect, - "is null + 1") [instance: 6, cache: 1]; - ImageAspect = - Inquire( - camera, - "camera aspect") [instance: 7, cache: 1]; - RECaspect = - Switch( - RECaspectNull, - RECaspect, - ImageAspect) [instance: 11, cache: 1]; - switchRECenable = Compute( - "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", - RECenable, - switchRenderMode, - RECresolution, - ImageResolution, - RECaspect, - ImageAspect) [instance: 4, cache: 1]; - NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); - Display( - NoRECobject, - camera, - where, - throttle) [instance: 1, cache: 1]; - image = - Render( - RECNoRerenderObject, - camera) [instance: 1, cache: 1]; - Display( - image, - NULL, - where, - throttle) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 1, cache: 1]; - rec_where = Display( - RECNoRerHW, - camera, - where, - throttle) [instance: 1, cache: 0]; - rec_image = ReadImageWindow( - rec_where) [instance: 1, cache: 1]; - WriteImage( - rec_image, - RECfile, - RECformat) [instance: 1, cache: 1]; - RECupdateCamera = - UpdateCamera( - camera, - resolution=RECresolution, - aspect=RECaspect) [instance: 2, cache: 1]; - Display( - RECRerenderObject, - camera, - where, - throttle) [instance: 1, cache: 1]; - RECRerenderObject = - ScaleScreen( - RECRerenderObject, - NULL, - RECresolution, - camera) [instance: 1, cache: 1]; - image = - Render( - RECRerenderObject, - RECupdateCamera) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 2, cache: 1]; -} -main_Image_1_in_1 = "Image_1"; -main_Image_1_in_3 = "X24,,"; -main_Image_1_in_4 = 1; -main_Image_1_in_5 = [7.5 7.5 0]; -main_Image_1_in_6 = [7.5 7.5 39.3199]; -main_Image_1_in_7 = 21.0715; -main_Image_1_in_8 = 804; -main_Image_1_in_9 = 0.610075; -main_Image_1_in_10 = [0 1 0]; -main_Image_1_in_11 = NULL; -main_Image_1_in_12 = 0; -main_Image_1_in_13 = NULL; -main_Image_1_in_14 = 1; -main_Image_1_in_15 = NULL; -main_Image_1_in_16 = NULL; -main_Image_1_in_17 = 1; -main_Image_1_in_18 = 1; -main_Image_1_in_19 = 1; -main_Image_1_in_20 = NULL; -main_Image_1_in_21 = NULL; -main_Image_1_in_22 = "snow"; -main_Image_1_in_23 = NULL; -main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif"; -main_Image_1_in_26 = "tiff"; -main_Image_1_in_27 = NULL; -main_Image_1_in_28 = NULL; -main_Image_1_in_29 = 1; -main_Image_1_in_30 = NULL; -main_Image_1_in_31 = -15; -main_Image_1_in_32 = NULL; -main_Image_1_in_33 = 0; -main_Image_1_in_34 = 0; -main_Image_1_in_35 = NULL; -main_Image_1_in_36 = NULL; -main_Image_1_in_37 = {"clear", "grey5", "saddlebrown", "saddlebrown"}; -main_Image_1_in_38 = {"background", "grid", "ticks", "labels"}; -main_Image_1_in_39 = 0.7; -main_Image_1_in_40 = "roman_s"; -main_Image_1_in_41 = "none"; -main_Image_1_in_42 = NULL; -main_Image_1_in_43 = NULL; -main_Image_1_in_44 = NULL; -main_Image_1_in_45 = NULL; -main_Image_1_in_46 = NULL; -main_Image_1_in_47 = NULL; -main_Image_1_in_48 = NULL; -main_Image_1_in_49 = NULL; -Executive("product version 4 4 4"); -$sync -main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2pdesurf.m --- a/extra/fpl/inst/deprecated/FPL2pdesurf.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,130 +0,0 @@ -## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## @deftypefn {Function File} {} FPL2pdesurf (@var{mesh}, @ -## @var{u} [ @var{property}, @var{value} ...]) -## -## plots the scalar field @var{u} -## defined on the triangulation @var{mesh} using opendx. -## -## options (default value): -## @itemize @minus -## @item data_dep ("positions") defines wether data depends on -## positions or connections -## @item plot_field ("scalar") defines wether to plot the scalar field -## itself or its gradient -## @end itemize -## -## @seealso{MSH2Mgmsh, MSH2Mstructmesh} -## @end deftypefn - -function FPL2pdesurf(varargin) - - data_dep = "positions"; - plot_field = "scalar"; - - if nargin == 1 - FPL2showmesh(varargin{1}); - elseif nargin == 2 - mesh = varargin{1}; - u = varargin{2}; - elseif ( (nargin > 2) && (rem(nargin,2)==0) ) - mesh = varargin{1}; - u = varargin{2}; - for ii=3:2:nargin - eval([ varargin{ii} " = """ varargin{ii+1} """;" ]); - endfor - else - keyboard ,error(["wrong number of parameters " num2str (nargin)]) - endif - - dataname = mktemp("/tmp",".dx"); - scriptname = mktemp("/tmp",".net"); - - FPL2dxoutputdata(dataname,mesh.p,mesh.t,u,'u',0,1,1); - - switch plot_field - case {"scalar","scal"} - showmesh = file_in_path(path,"FPL2coloredrubbersheet.net"); - case {"gradient","grad"} - showmesh = file_in_path(path,"FPL2coloredgradient.net"); - otherwise - error ([ "incorrect value " plot_field " for option plot_field "]) - endswitch - - system (["cp " showmesh " " scriptname]); - system (["sed -i \'s|__FILE__DX__|" dataname "|g\' " scriptname]); - - switch data_dep - case {"positions","continuous","interpolate","P1"} - system (["sed -i \'s|__DATA_DEPENDENCY__|positions|g\' " scriptname]); - case {"connections","discontinuous","P0"} - system (["sed -i \'s|__DATA_DEPENDENCY__|positions|g\' " scriptname]); - otherwise - error ([ "incorrect value " data_dep " for option data_dep "]) - endswitch - - ##command = ["dx -noConfirmedQuit -noImageRWNetFile -program " scriptname " -execute -image >& /dev/null & "]; - command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; - - system(command); - -endfunction - -function filename = mktemp (direct,ext); - - if (~exist(direct,"dir")) - error("trying to save temporary file to non existing directory") - endif - - done=false; - - while ~done - filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; - if ~exist(filename,"file") - done =true; - endif - endwhile - -endfunction - -%!shared msh -%!test -%! msh.p = [0 0; 1 0; 1 1; 0 1].'; -%! msh.t = [1 2 3 1; 1 3 4 1].'; -%! msh.e = [1 2 0 0 1 0 1; 2 3 0 0 2 0 1; 3 4 0 0 3 0 1; 4 1 0 0 4 0 1].'; -%! u = [0 1].'; -%! FPL2pdesurf (msh, u, "data_dep", "connections"); -%! s = input ("do you see a square divided into two triangles with a diagonal red-to-blue gradient color (if you see an empty plot try ctrl-F)? (y/n): " ,"s"); -%! assert(s, "y") -%!test -%! v = [0 0 1 1].'; -%! FPL2pdesurf (msh, v); -%! s = input ("do you see a square divided into two triangles with a vertical red-to-blue gradient color (if you see an empty plot try ctrl-F)? (y/n): " ,"s"); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2ptcquiver.m --- a/extra/fpl/inst/deprecated/FPL2ptcquiver.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,83 +0,0 @@ -## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## @deftypefn {Function File} {} FPL2ptcquiver (@var{mesh1}, @var{color1} -## @var{vx1}, @var{vy1}, [ @var{mesh2}, @var{color2}, @var{vx2}, @var{vy2} ...]) -## -## Plots the 2D vector fields @var{vx}, @var{vy} -## defined on the triangulations @var{mesh} using opendx. -## -## -## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2pdequiver} -## @end deftypefn - -function FPL2ptcquiver(varargin) - - colorlist = ""; - datalist = ""; - - for ii = 1:4:nargin - dataname{ii} = mktemp("/tmp",".dx"); - JX = sum(varargin{ii+2},1)'/3; - JY = sum(varargin{ii+3},1)'/3; - FPL2dxoutputdata(dataname{ii},varargin{ii}.p,varargin{ii}.t,[ JX JY],'J',1,2,1); - datalist = strcat (datalist, """", dataname{ii} , """"); - colorlist= strcat (colorlist, """", varargin{ii+1} , """"); - endfor - - scriptname = mktemp("/tmp",".net"); - - view = file_in_path(path,"FPL2ptcquiver.net"); - - system (["cp " view " " scriptname]); - system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]); - system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]); - - command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; - system(command); - -endfunction - -function filename = mktemp (direct,ext); - - if (~exist(direct,"dir")) - error("trying to save temporary file to non existing directory") - endif - - done=false; - - while ~done - filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; - if ~exist(filename,"file") - done =true; - endif - endwhile - -endfunction diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2ptcquiver.net --- a/extra/fpl/inst/deprecated/FPL2ptcquiver.net Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,710 +0,0 @@ -// -// time: Mon Jan 7 11:37:04 2008 -// -// version: 3.2.0 (format), 4.4.4 (DX) -// -// -// MODULE main -// workspace: width = 875, height = 996 -// layout: snap = 1, width = 10, height = 10, align = CC -// -macro main( -) -> ( -) { - // - // node CollectMultiGrid[1]: x = 125, y = 584, inputs = 4, label = CollectMultiGrid - // -main_CollectMultiGrid_1_out_1 = - CollectMultiGrid( - main_CollectMultiGrid_1_in_1, - main_CollectMultiGrid_1_in_2, - main_CollectMultiGrid_1_in_3, - main_CollectMultiGrid_1_in_4 - ) [instance: 1, cache: 1]; - // - // node StringList[1]: x = 478, y = 14, inputs = 0, label = StringList - // output[1]: visible = 1, type = 16777248, value = { "FILELIST" } - // - // - // node ForEachMember[1]: x = 455, y = 94, inputs = 1, label = ForEachMember - // -main_ForEachMember_1_out_1, -main_ForEachMember_1_out_2, -main_ForEachMember_1_out_3 = - ForEachMember( - main_StringList_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Import[1]: x = 479, y = 194, inputs = 6, label = Import - // -main_Import_1_out_1 = - Import( - main_ForEachMember_1_out_1, - main_Import_1_in_2, - main_Import_1_in_3, - main_Import_1_in_4, - main_Import_1_in_5, - main_Import_1_in_6 - ) [instance: 1, cache: 1]; - // - // node ShowConnections[1]: x = 239, y = 384, inputs = 1, label = ShowConnections - // -main_ShowConnections_1_out_1 = - ShowConnections( - main_Import_1_out_1 - ) [instance: 1, cache: 1]; - // - // node StringList[2]: x = 418, y = 384, inputs = 0, label = StringList - // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" } - // - // - // node ForEachMember[2]: x = 395, y = 474, inputs = 1, label = ForEachMember - // -main_ForEachMember_2_out_1, -main_ForEachMember_2_out_2, -main_ForEachMember_2_out_3 = - ForEachMember( - main_StringList_2_out_1 - ) [instance: 2, cache: 1]; - // - // node Color[1]: x = 289, y = 584, inputs = 5, label = Color - // -main_Color_1_out_1 = - Color( - main_ShowConnections_1_out_1, - main_ForEachMember_2_out_1, - main_Color_1_in_3, - main_Color_1_in_4, - main_Color_1_in_5 - ) [instance: 1, cache: 1]; - // - // node GetLocal[1]: x = 452, y = 614, inputs = 3, label = GetLocal - // -main_GetLocal_1_out_1, -main_GetLocal_1_out_2 = - GetLocal( - main_GetLocal_1_in_1, - main_GetLocal_1_in_2, - main_GetLocal_1_in_3 - ) [instance: 1, cache: 1]; - // - // node Append[1]: x = 285, y = 724, inputs = 5, label = Append - // -main_Append_1_out_1 = - Append( - main_CollectMultiGrid_1_out_1, - main_Color_1_out_1, - main_Append_1_in_3, - main_GetLocal_1_out_1, - main_Append_1_in_5 - ) [instance: 1, cache: 1]; - // - // node GetLocal[2]: x = 802, y = 264, inputs = 3, label = GetLocal - // -main_GetLocal_2_out_1, -main_GetLocal_2_out_2 = - GetLocal( - main_GetLocal_2_in_1, - main_GetLocal_2_in_2, - main_GetLocal_2_in_3 - ) [instance: 2, cache: 1]; - // - // node Append[2]: x = 595, y = 384, inputs = 5, label = Append - // -main_Append_2_out_1 = - Append( - main_CollectMultiGrid_1_out_1, - main_Import_1_out_1, - main_Append_2_in_3, - main_GetLocal_2_out_1, - main_Append_2_in_5 - ) [instance: 2, cache: 1]; - // - // node Sample[1]: x = 627, y = 474, inputs = 2, label = Sample - // -main_Sample_1_out_1 = - Sample( - main_Append_2_out_1, - main_Sample_1_in_2 - ) [instance: 1, cache: 1]; - // - // node AutoGlyph[1]: x = 625, y = 544, inputs = 7, label = AutoGlyph - // -main_AutoGlyph_1_out_1 = - AutoGlyph( - main_Sample_1_out_1, - main_AutoGlyph_1_in_2, - main_AutoGlyph_1_in_3, - main_AutoGlyph_1_in_4, - main_AutoGlyph_1_in_5, - main_AutoGlyph_1_in_6, - main_AutoGlyph_1_in_7 - ) [instance: 1, cache: 1]; - // - // node AutoColor[1]: x = 626, y = 614, inputs = 10, label = AutoColor - // input[8]: visible = 1 - // -main_AutoColor_1_out_1, -main_AutoColor_1_out_2 = - AutoColor( - main_AutoGlyph_1_out_1, - main_AutoColor_1_in_2, - main_AutoColor_1_in_3, - main_AutoColor_1_in_4, - main_AutoColor_1_in_5, - main_AutoColor_1_in_6, - main_AutoColor_1_in_7, - main_AutoColor_1_in_8, - main_AutoColor_1_in_9, - main_AutoColor_1_in_10 - ) [instance: 1, cache: 1]; - // - // node ColorBar[1]: x = 755, y = 724, inputs = 16, label = ColorBar - // -main_ColorBar_1_out_1 = - ColorBar( - main_AutoColor_1_out_2, - main_ColorBar_1_in_2, - main_ColorBar_1_in_3, - main_ColorBar_1_in_4, - main_ColorBar_1_in_5, - main_ColorBar_1_in_6, - main_ColorBar_1_in_7, - main_ColorBar_1_in_8, - main_ColorBar_1_in_9, - main_ColorBar_1_in_10, - main_ColorBar_1_in_11, - main_ColorBar_1_in_12, - main_ColorBar_1_in_13, - main_ColorBar_1_in_14, - main_ColorBar_1_in_15, - main_ColorBar_1_in_16 - ) [instance: 1, cache: 1]; - // - // node Collect[1]: x = 599, y = 844, inputs = 3, label = Collect - // -main_Collect_1_out_1 = - Collect( - main_Append_1_out_1, - main_AutoColor_1_out_1, - main_ColorBar_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Image[1]: x = 599, y = 934, inputs = 49, label = Image - // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_1" - // input[4]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[19]: defaulting = 0, visible = 0, type = 3, value = 0 - // depth: value = 24 - // internal caching: 1 - // -main_Image_1_out_1, -main_Image_1_out_2, -main_Image_1_out_3 = - Image( - main_Image_1_in_1, - main_Collect_1_out_1, - main_Image_1_in_3, - main_Image_1_in_4, - main_Image_1_in_5, - main_Image_1_in_6, - main_Image_1_in_7, - main_Image_1_in_8, - main_Image_1_in_9, - main_Image_1_in_10, - main_Image_1_in_11, - main_Image_1_in_12, - main_Image_1_in_13, - main_Image_1_in_14, - main_Image_1_in_15, - main_Image_1_in_16, - main_Image_1_in_17, - main_Image_1_in_18, - main_Image_1_in_19, - main_Image_1_in_20, - main_Image_1_in_21, - main_Image_1_in_22, - main_Image_1_in_23, - main_Image_1_in_24, - main_Image_1_in_25, - main_Image_1_in_26, - main_Image_1_in_27, - main_Image_1_in_28, - main_Image_1_in_29, - main_Image_1_in_30, - main_Image_1_in_31, - main_Image_1_in_32, - main_Image_1_in_33, - main_Image_1_in_34, - main_Image_1_in_35, - main_Image_1_in_36, - main_Image_1_in_37, - main_Image_1_in_38, - main_Image_1_in_39, - main_Image_1_in_40, - main_Image_1_in_41, - main_Image_1_in_42, - main_Image_1_in_43, - main_Image_1_in_44, - main_Image_1_in_45, - main_Image_1_in_46, - main_Image_1_in_47, - main_Image_1_in_48, - main_Image_1_in_49 - ) [instance: 1, cache: 1]; - // - // node SetLocal[1]: x = 462, y = 724, inputs = 3, label = SetLocal - // - SetLocal( - main_Append_1_out_1, - main_GetLocal_1_out_2, - main_SetLocal_1_in_3 - ) [instance: 1, cache: 1]; - // - // node SetLocal[2]: x = 792, y = 384, inputs = 3, label = SetLocal - // - SetLocal( - main_Append_2_out_1, - main_GetLocal_2_out_2, - main_SetLocal_2_in_3 - ) [instance: 2, cache: 1]; -// network: end of macro body -CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); -} -main_CollectMultiGrid_1_in_1 = NULL; -main_CollectMultiGrid_1_in_2 = NULL; -main_CollectMultiGrid_1_in_3 = NULL; -main_CollectMultiGrid_1_in_4 = NULL; -main_CollectMultiGrid_1_out_1 = NULL; -main_StringList_1_out_1 = { "FILELIST" }; -main_ForEachMember_1_out_1 = NULL; -main_Import_1_in_2 = NULL; -main_Import_1_in_3 = NULL; -main_Import_1_in_4 = NULL; -main_Import_1_in_5 = NULL; -main_Import_1_in_6 = NULL; -main_Import_1_out_1 = NULL; -main_ShowConnections_1_out_1 = NULL; -main_StringList_2_out_1 = { "COLORLIST" }; -main_ForEachMember_2_out_1 = NULL; -main_Color_1_in_3 = NULL; -main_Color_1_in_4 = NULL; -main_Color_1_in_5 = NULL; -main_Color_1_out_1 = NULL; -main_GetLocal_1_in_1 = NULL; -main_GetLocal_1_in_2 = NULL; -main_GetLocal_1_in_3 = NULL; -main_GetLocal_1_out_1 = NULL; -main_GetLocal_1_out_2 = NULL; -main_Append_1_in_3 = NULL; -main_Append_1_in_5 = NULL; -main_Append_1_out_1 = NULL; -main_GetLocal_2_in_1 = NULL; -main_GetLocal_2_in_2 = NULL; -main_GetLocal_2_in_3 = NULL; -main_GetLocal_2_out_1 = NULL; -main_GetLocal_2_out_2 = NULL; -main_Append_2_in_3 = NULL; -main_Append_2_in_5 = NULL; -main_Append_2_out_1 = NULL; -main_Sample_1_in_2 = NULL; -main_Sample_1_out_1 = NULL; -main_AutoGlyph_1_in_2 = NULL; -main_AutoGlyph_1_in_3 = NULL; -main_AutoGlyph_1_in_4 = NULL; -main_AutoGlyph_1_in_5 = NULL; -main_AutoGlyph_1_in_6 = NULL; -main_AutoGlyph_1_in_7 = NULL; -main_AutoGlyph_1_out_1 = NULL; -main_AutoColor_1_in_2 = NULL; -main_AutoColor_1_in_3 = NULL; -main_AutoColor_1_in_4 = NULL; -main_AutoColor_1_in_5 = NULL; -main_AutoColor_1_in_6 = NULL; -main_AutoColor_1_in_7 = NULL; -main_AutoColor_1_in_8 = NULL; -main_AutoColor_1_in_9 = NULL; -main_AutoColor_1_in_10 = NULL; -main_AutoColor_1_out_1 = NULL; -main_AutoColor_1_out_2 = NULL; -main_ColorBar_1_in_2 = NULL; -main_ColorBar_1_in_3 = NULL; -main_ColorBar_1_in_4 = NULL; -main_ColorBar_1_in_5 = NULL; -main_ColorBar_1_in_6 = NULL; -main_ColorBar_1_in_7 = NULL; -main_ColorBar_1_in_8 = NULL; -main_ColorBar_1_in_9 = NULL; -main_ColorBar_1_in_10 = NULL; -main_ColorBar_1_in_11 = NULL; -main_ColorBar_1_in_12 = NULL; -main_ColorBar_1_in_13 = NULL; -main_ColorBar_1_in_14 = NULL; -main_ColorBar_1_in_15 = NULL; -main_ColorBar_1_in_16 = NULL; -main_ColorBar_1_out_1 = NULL; -main_Collect_1_out_1 = NULL; -macro Image( - id, - object, - where, - useVector, - to, - from, - width, - resolution, - aspect, - up, - viewAngle, - perspective, - options, - buttonState = 1, - buttonUpApprox = "none", - buttonDownApprox = "none", - buttonUpDensity = 1, - buttonDownDensity = 1, - renderMode = 0, - defaultCamera, - reset, - backgroundColor, - throttle, - RECenable = 0, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable = 0, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - interactionMode, - title, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - webOptions) -> ( - object, - camera, - where) -{ - ImageMessage( - id, - backgroundColor, - throttle, - RECenable, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - interactionMode, - title, - renderMode, - buttonUpApprox, - buttonDownApprox, - buttonUpDensity, - buttonDownDensity) [instance: 1, cache: 1]; - autoCamera = - AutoCamera( - object, - "front", - object, - resolution, - aspect, - [0,1,0], - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - realCamera = - Camera( - to, - from, - width, - resolution, - aspect, - up, - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - coloredDefaultCamera = - UpdateCamera(defaultCamera, - background=backgroundColor) [instance: 1, cache: 1]; - nullDefaultCamera = - Inquire(defaultCamera, - "is null + 1") [instance: 1, cache: 1]; - resetCamera = - Switch( - nullDefaultCamera, - coloredDefaultCamera, - autoCamera) [instance: 1, cache: 1]; - resetNull = - Inquire( - reset, - "is null + 1") [instance: 2, cache: 1]; - reset = - Switch( - resetNull, - reset, - 0) [instance: 2, cache: 1]; - whichCamera = - Compute( - "($0 != 0 || $1 == 0) ? 1 : 2", - reset, - useVector) [instance: 1, cache: 1]; - camera = Switch( - whichCamera, - resetCamera, - realCamera) [instance: 3, cache: 1]; - AAobject = - AutoAxes( - object, - camera, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels) [instance: 1, cache: 1]; - switchAAenable = Compute("$0+1", - AAenable) [instance: 2, cache: 1]; - object = Switch( - switchAAenable, - object, - AAobject) [instance:4, cache: 1]; - SWapproximation_options = - Switch( - buttonState, - buttonUpApprox, - buttonDownApprox) [instance: 5, cache: 1]; - SWdensity_options = - Switch( - buttonState, - buttonUpDensity, - buttonDownDensity) [instance: 6, cache: 1]; - HWapproximation_options = - Format( - "%s,%s", - buttonDownApprox, - buttonUpApprox) [instance: 1, cache: 1]; - HWdensity_options = - Format( - "%d,%d", - buttonDownDensity, - buttonUpDensity) [instance: 2, cache: 1]; - switchRenderMode = Compute( - "$0+1", - renderMode) [instance: 3, cache: 1]; - approximation_options = Switch( - switchRenderMode, - SWapproximation_options, - HWapproximation_options) [instance: 7, cache: 1]; - density_options = Switch( - switchRenderMode, - SWdensity_options, - HWdensity_options) [instance: 8, cache: 1]; - renderModeString = Switch( - switchRenderMode, - "software", - "hardware")[instance: 9, cache: 1]; - object_tag = Inquire( - object, - "object tag")[instance: 3, cache: 1]; - annoted_object = - Options( - object, - "send boxes", - 0, - "cache", - 1, - "object tag", - object_tag, - "ddcamera", - whichCamera, - "rendering approximation", - approximation_options, - "render every", - density_options, - "button state", - buttonState, - "rendering mode", - renderModeString) [instance: 1, cache: 1]; - RECresNull = - Inquire( - RECresolution, - "is null + 1") [instance: 4, cache: 1]; - ImageResolution = - Inquire( - camera, - "camera resolution") [instance: 5, cache: 1]; - RECresolution = - Switch( - RECresNull, - RECresolution, - ImageResolution) [instance: 10, cache: 1]; - RECaspectNull = - Inquire( - RECaspect, - "is null + 1") [instance: 6, cache: 1]; - ImageAspect = - Inquire( - camera, - "camera aspect") [instance: 7, cache: 1]; - RECaspect = - Switch( - RECaspectNull, - RECaspect, - ImageAspect) [instance: 11, cache: 1]; - switchRECenable = Compute( - "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", - RECenable, - switchRenderMode, - RECresolution, - ImageResolution, - RECaspect, - ImageAspect) [instance: 4, cache: 1]; - NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); - Display( - NoRECobject, - camera, - where, - throttle) [instance: 1, cache: 1]; - image = - Render( - RECNoRerenderObject, - camera) [instance: 1, cache: 1]; - Display( - image, - NULL, - where, - throttle) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 1, cache: 1]; - rec_where = Display( - RECNoRerHW, - camera, - where, - throttle) [instance: 1, cache: 0]; - rec_image = ReadImageWindow( - rec_where) [instance: 1, cache: 1]; - WriteImage( - rec_image, - RECfile, - RECformat) [instance: 1, cache: 1]; - RECupdateCamera = - UpdateCamera( - camera, - resolution=RECresolution, - aspect=RECaspect) [instance: 2, cache: 1]; - Display( - RECRerenderObject, - camera, - where, - throttle) [instance: 1, cache: 1]; - RECRerenderObject = - ScaleScreen( - RECRerenderObject, - NULL, - RECresolution, - camera) [instance: 1, cache: 1]; - image = - Render( - RECRerenderObject, - RECupdateCamera) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 2, cache: 1]; -} -main_Image_1_in_1 = "Image_1"; -main_Image_1_in_3 = "X24,,"; -main_Image_1_in_4 = 0; -main_Image_1_in_5 = NULL; -main_Image_1_in_6 = NULL; -main_Image_1_in_7 = NULL; -main_Image_1_in_8 = NULL; -main_Image_1_in_9 = NULL; -main_Image_1_in_10 = NULL; -main_Image_1_in_11 = NULL; -main_Image_1_in_12 = NULL; -main_Image_1_in_13 = NULL; -main_Image_1_in_14 = 1; -main_Image_1_in_15 = NULL; -main_Image_1_in_16 = NULL; -main_Image_1_in_17 = NULL; -main_Image_1_in_18 = NULL; -main_Image_1_in_19 = 0; -main_Image_1_in_20 = NULL; -main_Image_1_in_21 = NULL; -main_Image_1_in_22 = NULL; -main_Image_1_in_23 = NULL; -main_Image_1_in_25 = NULL; -main_Image_1_in_26 = NULL; -main_Image_1_in_27 = NULL; -main_Image_1_in_28 = NULL; -main_Image_1_in_29 = NULL; -main_Image_1_in_30 = NULL; -main_Image_1_in_31 = NULL; -main_Image_1_in_32 = NULL; -main_Image_1_in_33 = NULL; -main_Image_1_in_34 = NULL; -main_Image_1_in_35 = NULL; -main_Image_1_in_36 = NULL; -main_Image_1_in_37 = NULL; -main_Image_1_in_38 = NULL; -main_Image_1_in_39 = NULL; -main_Image_1_in_40 = NULL; -main_Image_1_in_41 = NULL; -main_Image_1_in_42 = NULL; -main_Image_1_in_43 = NULL; -main_Image_1_in_44 = NULL; -main_Image_1_in_45 = NULL; -main_Image_1_in_46 = NULL; -main_Image_1_in_47 = NULL; -main_Image_1_in_48 = NULL; -main_Image_1_in_49 = NULL; -main_SetLocal_1_in_3 = NULL; -main_SetLocal_2_in_3 = NULL; -Executive("product version 4 4 4"); -$sync -main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2ptcshowmesh.m --- a/extra/fpl/inst/deprecated/FPL2ptcshowmesh.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,80 +0,0 @@ -## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## @deftypefn {Function File} {} FPL2ptcshowmesh (@var{mesh1}, @ -## @var{color1}, @ [@var{mesh2}, @var{color2}, ...]) -## -## Displays two or more 2-D triangulations using opendx -## -## @seealso{FPL2pdeshowmesh} -## @end deftypefn - -function FPL2ptcshowmesh (varargin) - - datalist = ""; - colorlist= ""; - - for ii=1:2:nargin - dataname{ii} = mktemp("/tmp",".dx"); - FPL2dxoutputdata(dataname{ii},varargin{ii}.p,varargin{ii}.t,... - varargin{ii}.p(1,:)','x',0,1,1); - datalist = strcat (datalist, """", dataname{ii} ,""""); - colorlist= strcat (colorlist, """", varargin{ii+1} ,""""); - endfor - - scriptname = mktemp("/tmp",".net"); - - showmesh = file_in_path(path,"FPL2ptcshowmesh.net"); - - system (["cp " showmesh " " scriptname]); - system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]); - system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]); - - command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; - system(command); - -endfunction - -function filename = mktemp (direct,ext); - - if (~exist(direct,"dir")) - error("trying to save temporary file to non existing directory") - endif - - done=false; - - while ~done - filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; - if ~exist(filename,"file") - done =true; - endif - endwhile - -endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2ptcshowmesh.net --- a/extra/fpl/inst/deprecated/FPL2ptcshowmesh.net Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,565 +0,0 @@ -// -// time: Sun Jan 6 13:50:14 2008 -// -// version: 3.2.0 (format), 4.4.4 (DX) -// -// -// MODULE main -// workspace: width = 489, height = 756 -// layout: snap = 1, width = 10, height = 10, align = CC -// -macro main( -) -> ( -) { - // - // node CollectMultiGrid[1]: x = 55, y = 504, inputs = 4, label = CollectMultiGrid - // -main_CollectMultiGrid_1_out_1 = - CollectMultiGrid( - main_CollectMultiGrid_1_in_1, - main_CollectMultiGrid_1_in_2, - main_CollectMultiGrid_1_in_3, - main_CollectMultiGrid_1_in_4 - ) [instance: 1, cache: 1]; - // - // node StringList[1]: x = 128, y = 34, inputs = 0, label = StringList - // output[1]: visible = 1, type = 16777248, value = { "FILELIST" } - // - // - // node ForEachMember[1]: x = 105, y = 134, inputs = 1, label = ForEachMember - // -main_ForEachMember_1_out_1, -main_ForEachMember_1_out_2, -main_ForEachMember_1_out_3 = - ForEachMember( - main_StringList_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Import[1]: x = 119, y = 244, inputs = 6, label = Import - // -main_Import_1_out_1 = - Import( - main_ForEachMember_1_out_1, - main_Import_1_in_2, - main_Import_1_in_3, - main_Import_1_in_4, - main_Import_1_in_5, - main_Import_1_in_6 - ) [instance: 1, cache: 1]; - // - // node ShowConnections[1]: x = 89, y = 354, inputs = 1, label = ShowConnections - // -main_ShowConnections_1_out_1 = - ShowConnections( - main_Import_1_out_1 - ) [instance: 1, cache: 1]; - // - // node StringList[2]: x = 278, y = 34, inputs = 0, label = StringList - // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" } - // - // - // node ForEachMember[2]: x = 255, y = 134, inputs = 1, label = ForEachMember - // -main_ForEachMember_2_out_1, -main_ForEachMember_2_out_2, -main_ForEachMember_2_out_3 = - ForEachMember( - main_StringList_2_out_1 - ) [instance: 2, cache: 1]; - // - // node Color[1]: x = 239, y = 454, inputs = 5, label = Color - // -main_Color_1_out_1 = - Color( - main_ShowConnections_1_out_1, - main_ForEachMember_2_out_1, - main_Color_1_in_3, - main_Color_1_in_4, - main_Color_1_in_5 - ) [instance: 1, cache: 1]; - // - // node GetLocal[1]: x = 422, y = 494, inputs = 3, label = GetLocal - // -main_GetLocal_1_out_1, -main_GetLocal_1_out_2 = - GetLocal( - main_GetLocal_1_in_1, - main_GetLocal_1_in_2, - main_GetLocal_1_in_3 - ) [instance: 1, cache: 1]; - // - // node Append[1]: x = 235, y = 574, inputs = 5, label = Append - // -main_Append_1_out_1 = - Append( - main_CollectMultiGrid_1_out_1, - main_Color_1_out_1, - main_Append_1_in_3, - main_GetLocal_1_out_1, - main_Append_1_in_5 - ) [instance: 1, cache: 1]; - // - // node Image[1]: x = 249, y = 694, inputs = 49, label = Image - // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_1" - // input[4]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[19]: defaulting = 0, visible = 0, type = 3, value = 0 - // depth: value = 24 - // internal caching: 1 - // -main_Image_1_out_1, -main_Image_1_out_2, -main_Image_1_out_3 = - Image( - main_Image_1_in_1, - main_Append_1_out_1, - main_Image_1_in_3, - main_Image_1_in_4, - main_Image_1_in_5, - main_Image_1_in_6, - main_Image_1_in_7, - main_Image_1_in_8, - main_Image_1_in_9, - main_Image_1_in_10, - main_Image_1_in_11, - main_Image_1_in_12, - main_Image_1_in_13, - main_Image_1_in_14, - main_Image_1_in_15, - main_Image_1_in_16, - main_Image_1_in_17, - main_Image_1_in_18, - main_Image_1_in_19, - main_Image_1_in_20, - main_Image_1_in_21, - main_Image_1_in_22, - main_Image_1_in_23, - main_Image_1_in_24, - main_Image_1_in_25, - main_Image_1_in_26, - main_Image_1_in_27, - main_Image_1_in_28, - main_Image_1_in_29, - main_Image_1_in_30, - main_Image_1_in_31, - main_Image_1_in_32, - main_Image_1_in_33, - main_Image_1_in_34, - main_Image_1_in_35, - main_Image_1_in_36, - main_Image_1_in_37, - main_Image_1_in_38, - main_Image_1_in_39, - main_Image_1_in_40, - main_Image_1_in_41, - main_Image_1_in_42, - main_Image_1_in_43, - main_Image_1_in_44, - main_Image_1_in_45, - main_Image_1_in_46, - main_Image_1_in_47, - main_Image_1_in_48, - main_Image_1_in_49 - ) [instance: 1, cache: 1]; - // - // node SetLocal[1]: x = 422, y = 644, inputs = 3, label = SetLocal - // - SetLocal( - main_Append_1_out_1, - main_GetLocal_1_out_2, - main_SetLocal_1_in_3 - ) [instance: 1, cache: 1]; -// network: end of macro body -CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); -} -main_CollectMultiGrid_1_in_1 = NULL; -main_CollectMultiGrid_1_in_2 = NULL; -main_CollectMultiGrid_1_in_3 = NULL; -main_CollectMultiGrid_1_in_4 = NULL; -main_CollectMultiGrid_1_out_1 = NULL; -main_StringList_1_out_1 = { "FILELIST" }; -main_ForEachMember_1_out_1 = NULL; -main_Import_1_in_2 = NULL; -main_Import_1_in_3 = NULL; -main_Import_1_in_4 = NULL; -main_Import_1_in_5 = NULL; -main_Import_1_in_6 = NULL; -main_Import_1_out_1 = NULL; -main_ShowConnections_1_out_1 = NULL; -main_StringList_2_out_1 = { "COLORLIST" }; -main_ForEachMember_2_out_1 = NULL; -main_Color_1_in_3 = NULL; -main_Color_1_in_4 = NULL; -main_Color_1_in_5 = NULL; -main_Color_1_out_1 = NULL; -main_GetLocal_1_in_1 = NULL; -main_GetLocal_1_in_2 = NULL; -main_GetLocal_1_in_3 = NULL; -main_GetLocal_1_out_1 = NULL; -main_GetLocal_1_out_2 = NULL; -main_Append_1_in_3 = NULL; -main_Append_1_in_5 = NULL; -main_Append_1_out_1 = NULL; -macro Image( - id, - object, - where, - useVector, - to, - from, - width, - resolution, - aspect, - up, - viewAngle, - perspective, - options, - buttonState = 1, - buttonUpApprox = "none", - buttonDownApprox = "none", - buttonUpDensity = 1, - buttonDownDensity = 1, - renderMode = 0, - defaultCamera, - reset, - backgroundColor, - throttle, - RECenable = 0, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable = 0, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - interactionMode, - title, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - webOptions) -> ( - object, - camera, - where) -{ - ImageMessage( - id, - backgroundColor, - throttle, - RECenable, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - interactionMode, - title, - renderMode, - buttonUpApprox, - buttonDownApprox, - buttonUpDensity, - buttonDownDensity) [instance: 1, cache: 1]; - autoCamera = - AutoCamera( - object, - "front", - object, - resolution, - aspect, - [0,1,0], - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - realCamera = - Camera( - to, - from, - width, - resolution, - aspect, - up, - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - coloredDefaultCamera = - UpdateCamera(defaultCamera, - background=backgroundColor) [instance: 1, cache: 1]; - nullDefaultCamera = - Inquire(defaultCamera, - "is null + 1") [instance: 1, cache: 1]; - resetCamera = - Switch( - nullDefaultCamera, - coloredDefaultCamera, - autoCamera) [instance: 1, cache: 1]; - resetNull = - Inquire( - reset, - "is null + 1") [instance: 2, cache: 1]; - reset = - Switch( - resetNull, - reset, - 0) [instance: 2, cache: 1]; - whichCamera = - Compute( - "($0 != 0 || $1 == 0) ? 1 : 2", - reset, - useVector) [instance: 1, cache: 1]; - camera = Switch( - whichCamera, - resetCamera, - realCamera) [instance: 3, cache: 1]; - AAobject = - AutoAxes( - object, - camera, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels) [instance: 1, cache: 1]; - switchAAenable = Compute("$0+1", - AAenable) [instance: 2, cache: 1]; - object = Switch( - switchAAenable, - object, - AAobject) [instance:4, cache: 1]; - SWapproximation_options = - Switch( - buttonState, - buttonUpApprox, - buttonDownApprox) [instance: 5, cache: 1]; - SWdensity_options = - Switch( - buttonState, - buttonUpDensity, - buttonDownDensity) [instance: 6, cache: 1]; - HWapproximation_options = - Format( - "%s,%s", - buttonDownApprox, - buttonUpApprox) [instance: 1, cache: 1]; - HWdensity_options = - Format( - "%d,%d", - buttonDownDensity, - buttonUpDensity) [instance: 2, cache: 1]; - switchRenderMode = Compute( - "$0+1", - renderMode) [instance: 3, cache: 1]; - approximation_options = Switch( - switchRenderMode, - SWapproximation_options, - HWapproximation_options) [instance: 7, cache: 1]; - density_options = Switch( - switchRenderMode, - SWdensity_options, - HWdensity_options) [instance: 8, cache: 1]; - renderModeString = Switch( - switchRenderMode, - "software", - "hardware")[instance: 9, cache: 1]; - object_tag = Inquire( - object, - "object tag")[instance: 3, cache: 1]; - annoted_object = - Options( - object, - "send boxes", - 0, - "cache", - 1, - "object tag", - object_tag, - "ddcamera", - whichCamera, - "rendering approximation", - approximation_options, - "render every", - density_options, - "button state", - buttonState, - "rendering mode", - renderModeString) [instance: 1, cache: 1]; - RECresNull = - Inquire( - RECresolution, - "is null + 1") [instance: 4, cache: 1]; - ImageResolution = - Inquire( - camera, - "camera resolution") [instance: 5, cache: 1]; - RECresolution = - Switch( - RECresNull, - RECresolution, - ImageResolution) [instance: 10, cache: 1]; - RECaspectNull = - Inquire( - RECaspect, - "is null + 1") [instance: 6, cache: 1]; - ImageAspect = - Inquire( - camera, - "camera aspect") [instance: 7, cache: 1]; - RECaspect = - Switch( - RECaspectNull, - RECaspect, - ImageAspect) [instance: 11, cache: 1]; - switchRECenable = Compute( - "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", - RECenable, - switchRenderMode, - RECresolution, - ImageResolution, - RECaspect, - ImageAspect) [instance: 4, cache: 1]; - NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); - Display( - NoRECobject, - camera, - where, - throttle) [instance: 1, cache: 1]; - image = - Render( - RECNoRerenderObject, - camera) [instance: 1, cache: 1]; - Display( - image, - NULL, - where, - throttle) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 1, cache: 1]; - rec_where = Display( - RECNoRerHW, - camera, - where, - throttle) [instance: 1, cache: 0]; - rec_image = ReadImageWindow( - rec_where) [instance: 1, cache: 1]; - WriteImage( - rec_image, - RECfile, - RECformat) [instance: 1, cache: 1]; - RECupdateCamera = - UpdateCamera( - camera, - resolution=RECresolution, - aspect=RECaspect) [instance: 2, cache: 1]; - Display( - RECRerenderObject, - camera, - where, - throttle) [instance: 1, cache: 1]; - RECRerenderObject = - ScaleScreen( - RECRerenderObject, - NULL, - RECresolution, - camera) [instance: 1, cache: 1]; - image = - Render( - RECRerenderObject, - RECupdateCamera) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 2, cache: 1]; -} -main_Image_1_in_1 = "Image_1"; -main_Image_1_in_3 = "X24,,"; -main_Image_1_in_4 = 0; -main_Image_1_in_5 = NULL; -main_Image_1_in_6 = NULL; -main_Image_1_in_7 = NULL; -main_Image_1_in_8 = NULL; -main_Image_1_in_9 = NULL; -main_Image_1_in_10 = NULL; -main_Image_1_in_11 = NULL; -main_Image_1_in_12 = NULL; -main_Image_1_in_13 = NULL; -main_Image_1_in_14 = 1; -main_Image_1_in_15 = NULL; -main_Image_1_in_16 = NULL; -main_Image_1_in_17 = NULL; -main_Image_1_in_18 = NULL; -main_Image_1_in_19 = 0; -main_Image_1_in_20 = NULL; -main_Image_1_in_21 = NULL; -main_Image_1_in_22 = NULL; -main_Image_1_in_23 = NULL; -main_Image_1_in_25 = NULL; -main_Image_1_in_26 = NULL; -main_Image_1_in_27 = NULL; -main_Image_1_in_28 = NULL; -main_Image_1_in_29 = NULL; -main_Image_1_in_30 = NULL; -main_Image_1_in_31 = NULL; -main_Image_1_in_32 = NULL; -main_Image_1_in_33 = NULL; -main_Image_1_in_34 = NULL; -main_Image_1_in_35 = NULL; -main_Image_1_in_36 = NULL; -main_Image_1_in_37 = NULL; -main_Image_1_in_38 = NULL; -main_Image_1_in_39 = NULL; -main_Image_1_in_40 = NULL; -main_Image_1_in_41 = NULL; -main_Image_1_in_42 = NULL; -main_Image_1_in_43 = NULL; -main_Image_1_in_44 = NULL; -main_Image_1_in_45 = NULL; -main_Image_1_in_46 = NULL; -main_Image_1_in_47 = NULL; -main_Image_1_in_48 = NULL; -main_Image_1_in_49 = NULL; -main_SetLocal_1_in_3 = NULL; -Executive("product version 4 4 4"); -$sync -main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2ptcsurf.m --- a/extra/fpl/inst/deprecated/FPL2ptcsurf.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,81 +0,0 @@ -## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## -## @deftypefn {Function File} {} FPL2ptcsurf (@var{mesh1}, @ -## @var{color1}, @var{data1} @ [@var{mesh2}, @var{color2},@var{data2}]) -## -## Plots the scalar fields @var{data} over the triangulation -## @var{mesh} using opendx. Connections will be displayed as defined -## in @var{color}. -## -## @end deftypefn - -function FPL2ptcsurf(varargin) - - colorlist = ""; - datalist = ""; - - for ii=1:3:nargin - dataname{ii} = mktemp("/tmp",".dx"); - FPL2dxoutputdata(dataname{ii},varargin{ii}.p,varargin{ii}.t,varargin{ii+2},"var",0,1,1); - datalist = strcat (datalist, """", dataname{ii} ,""""); - colorlist= strcat (colorlist, """", varargin{ii+1} ,""""); - endfor - - scriptname = mktemp("/tmp",".net"); - - ptcview = file_in_path(path,"FPL2ptcsurf.net"); - - system (["cp " ptcview " " scriptname]); - system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]); - system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]); - - command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; - system(command); - -endfunction - -function filename = mktemp (direct,ext); - - if (~exist(direct,"dir")) - error("Trying to save temporary file to non existing directory") - endif - - done = false; - - while ~done - filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; - if ~exist(filename,"file") - done = true; - endif - endwhile - -endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2ptcsurf.net --- a/extra/fpl/inst/deprecated/FPL2ptcsurf.net Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,749 +0,0 @@ -// -// time: Fri Jan 4 17:10:29 2008 -// -// version: 3.2.0 (format), 4.4.4 (DX) -// -// -// MODULE main -// workspace: width = 968, height = 946 -// layout: snap = 1, width = 10, height = 10, align = CC -// -macro main( -) -> ( -) { - // - // node CollectMultiGrid[5]: x = 45, y = 424, inputs = 4, label = CollectMultiGrid - // -main_CollectMultiGrid_5_out_1 = - CollectMultiGrid( - main_CollectMultiGrid_5_in_1, - main_CollectMultiGrid_5_in_2, - main_CollectMultiGrid_5_in_3, - main_CollectMultiGrid_5_in_4 - ) [instance: 5, cache: 1]; - // - // node StringList[1]: x = 178, y = 34, inputs = 0, label = StringList - // output[1]: visible = 1, type = 16777248, value = { "FILELIST" } - // - // - // node ForEachMember[1]: x = 155, y = 124, inputs = 1, label = ForEachMember - // -main_ForEachMember_1_out_1, -main_ForEachMember_1_out_2, -main_ForEachMember_1_out_3 = - ForEachMember( - main_StringList_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Import[2]: x = 169, y = 224, inputs = 6, label = Import - // -main_Import_2_out_1 = - Import( - main_ForEachMember_1_out_1, - main_Import_2_in_2, - main_Import_2_in_3, - main_Import_2_in_4, - main_Import_2_in_5, - main_Import_2_in_6 - ) [instance: 2, cache: 1]; - // - // node ShowConnections[4]: x = 139, y = 324, inputs = 1, label = ShowConnections - // -main_ShowConnections_4_out_1 = - ShowConnections( - main_Import_2_out_1 - ) [instance: 4, cache: 1]; - // - // node StringList[2]: x = 368, y = 34, inputs = 0, label = StringList - // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" } - // - // - // node ForEachMember[2]: x = 345, y = 124, inputs = 1, label = ForEachMember - // -main_ForEachMember_2_out_1, -main_ForEachMember_2_out_2, -main_ForEachMember_2_out_3 = - ForEachMember( - main_StringList_2_out_1 - ) [instance: 2, cache: 1]; - // - // node Color[3]: x = 179, y = 404, inputs = 5, label = Color - // input[3]: defaulting = 0, visible = 1, type = 5, value = .3 - // -main_Color_3_out_1 = - Color( - main_ShowConnections_4_out_1, - main_ForEachMember_2_out_1, - main_Color_3_in_3, - main_Color_3_in_4, - main_Color_3_in_5 - ) [instance: 3, cache: 1]; - // - // node GetLocal[4]: x = 322, y = 404, inputs = 3, label = GetLocal - // -main_GetLocal_4_out_1, -main_GetLocal_4_out_2 = - GetLocal( - main_GetLocal_4_in_1, - main_GetLocal_4_in_2, - main_GetLocal_4_in_3 - ) [instance: 4, cache: 1]; - // - // node Append[1]: x = 185, y = 504, inputs = 5, label = Append - // -main_Append_1_out_1 = - Append( - main_CollectMultiGrid_5_out_1, - main_Color_3_out_1, - main_Append_1_in_3, - main_GetLocal_4_out_1, - main_Append_1_in_5 - ) [instance: 1, cache: 1]; - // - // node CollectMultiGrid[4]: x = 615, y = 454, inputs = 4, label = CollectMultiGrid - // -main_CollectMultiGrid_4_out_1 = - CollectMultiGrid( - main_CollectMultiGrid_4_in_1, - main_CollectMultiGrid_4_in_2, - main_CollectMultiGrid_4_in_3, - main_CollectMultiGrid_4_in_4 - ) [instance: 4, cache: 1]; - // - // node GetLocal[5]: x = 872, y = 394, inputs = 3, label = GetLocal - // -main_GetLocal_5_out_1, -main_GetLocal_5_out_2 = - GetLocal( - main_GetLocal_5_in_1, - main_GetLocal_5_in_2, - main_GetLocal_5_in_3 - ) [instance: 5, cache: 1]; - // - // node Append[2]: x = 765, y = 514, inputs = 5, label = Append - // -main_Append_2_out_1 = - Append( - main_CollectMultiGrid_4_out_1, - main_Import_2_out_1, - main_Append_2_in_3, - main_GetLocal_5_out_1, - main_Append_2_in_5 - ) [instance: 2, cache: 1]; - // - // node AutoColor[2]: x = 736, y = 604, inputs = 10, label = AutoColor - // input[8]: visible = 1 - // -main_AutoColor_2_out_1, -main_AutoColor_2_out_2 = - AutoColor( - main_Append_2_out_1, - main_AutoColor_2_in_2, - main_AutoColor_2_in_3, - main_AutoColor_2_in_4, - main_AutoColor_2_in_5, - main_AutoColor_2_in_6, - main_AutoColor_2_in_7, - main_AutoColor_2_in_8, - main_AutoColor_2_in_9, - main_AutoColor_2_in_10 - ) [instance: 2, cache: 1]; - // - // node RubberSheet[1]: x = 176, y = 624, inputs = 4, label = RubberSheet - // -main_RubberSheet_1_out_1 = - RubberSheet( - main_Append_1_out_1, - main_RubberSheet_1_in_2, - main_RubberSheet_1_in_3, - main_RubberSheet_1_in_4 - ) [instance: 1, cache: 1]; - // - // node Shade[1]: x = 599, y = 654, inputs = 8, label = Shade - // input[2]: defaulting = 0, visible = 1, type = 3, value = 1 - // input[3]: defaulting = 0, visible = 1, type = 32, value = "smooth" - // -main_Shade_1_out_1 = - Shade( - main_AutoColor_2_out_1, - main_Shade_1_in_2, - main_Shade_1_in_3, - main_Shade_1_in_4, - main_Shade_1_in_5, - main_Shade_1_in_6, - main_Shade_1_in_7, - main_Shade_1_in_8 - ) [instance: 1, cache: 1]; - // - // node RubberSheet[2]: x = 526, y = 734, inputs = 4, label = RubberSheet - // -main_RubberSheet_2_out_1 = - RubberSheet( - main_Shade_1_out_1, - main_RubberSheet_2_in_2, - main_RubberSheet_2_in_3, - main_RubberSheet_2_in_4 - ) [instance: 2, cache: 1]; - // - // node ColorBar[1]: x = 755, y = 734, inputs = 16, label = ColorBar - // input[4]: defaulting = 0, visible = 1, type = 3, value = 1 - // -main_ColorBar_1_out_1 = - ColorBar( - main_AutoColor_2_out_2, - main_ColorBar_1_in_2, - main_ColorBar_1_in_3, - main_ColorBar_1_in_4, - main_ColorBar_1_in_5, - main_ColorBar_1_in_6, - main_ColorBar_1_in_7, - main_ColorBar_1_in_8, - main_ColorBar_1_in_9, - main_ColorBar_1_in_10, - main_ColorBar_1_in_11, - main_ColorBar_1_in_12, - main_ColorBar_1_in_13, - main_ColorBar_1_in_14, - main_ColorBar_1_in_15, - main_ColorBar_1_in_16 - ) [instance: 1, cache: 1]; - // - // node Collect[1]: x = 349, y = 774, inputs = 3, label = Collect - // -main_Collect_1_out_1 = - Collect( - main_RubberSheet_1_out_1, - main_RubberSheet_2_out_1, - main_ColorBar_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Image[5]: x = 339, y = 884, inputs = 49, label = Image - // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_5" - // input[4]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[19]: defaulting = 0, visible = 0, type = 3, value = 0 - // depth: value = 24 - // internal caching: 1 - // -main_Image_5_out_1, -main_Image_5_out_2, -main_Image_5_out_3 = - Image( - main_Image_5_in_1, - main_Collect_1_out_1, - main_Image_5_in_3, - main_Image_5_in_4, - main_Image_5_in_5, - main_Image_5_in_6, - main_Image_5_in_7, - main_Image_5_in_8, - main_Image_5_in_9, - main_Image_5_in_10, - main_Image_5_in_11, - main_Image_5_in_12, - main_Image_5_in_13, - main_Image_5_in_14, - main_Image_5_in_15, - main_Image_5_in_16, - main_Image_5_in_17, - main_Image_5_in_18, - main_Image_5_in_19, - main_Image_5_in_20, - main_Image_5_in_21, - main_Image_5_in_22, - main_Image_5_in_23, - main_Image_5_in_24, - main_Image_5_in_25, - main_Image_5_in_26, - main_Image_5_in_27, - main_Image_5_in_28, - main_Image_5_in_29, - main_Image_5_in_30, - main_Image_5_in_31, - main_Image_5_in_32, - main_Image_5_in_33, - main_Image_5_in_34, - main_Image_5_in_35, - main_Image_5_in_36, - main_Image_5_in_37, - main_Image_5_in_38, - main_Image_5_in_39, - main_Image_5_in_40, - main_Image_5_in_41, - main_Image_5_in_42, - main_Image_5_in_43, - main_Image_5_in_44, - main_Image_5_in_45, - main_Image_5_in_46, - main_Image_5_in_47, - main_Image_5_in_48, - main_Image_5_in_49 - ) [instance: 5, cache: 1]; - // - // node SetLocal[4]: x = 322, y = 514, inputs = 3, label = SetLocal - // - SetLocal( - main_Append_1_out_1, - main_GetLocal_4_out_2, - main_SetLocal_4_in_3 - ) [instance: 4, cache: 1]; - // - // node SetLocal[5]: x = 902, y = 514, inputs = 3, label = SetLocal - // - SetLocal( - main_Append_2_out_1, - main_GetLocal_5_out_2, - main_SetLocal_5_in_3 - ) [instance: 5, cache: 1]; -// network: end of macro body -CacheScene(main_Image_5_in_1, main_Image_5_out_1, main_Image_5_out_2); -} -main_CollectMultiGrid_5_in_1 = NULL; -main_CollectMultiGrid_5_in_2 = NULL; -main_CollectMultiGrid_5_in_3 = NULL; -main_CollectMultiGrid_5_in_4 = NULL; -main_CollectMultiGrid_5_out_1 = NULL; -main_StringList_1_out_1 = { "FILELIST" }; -main_ForEachMember_1_out_1 = NULL; -main_Import_2_in_2 = NULL; -main_Import_2_in_3 = NULL; -main_Import_2_in_4 = NULL; -main_Import_2_in_5 = NULL; -main_Import_2_in_6 = NULL; -main_Import_2_out_1 = NULL; -main_ShowConnections_4_out_1 = NULL; -main_StringList_2_out_1 = { "COLORLIST" }; -main_ForEachMember_2_out_1 = NULL; -main_Color_3_in_3 = .3; -main_Color_3_in_4 = NULL; -main_Color_3_in_5 = NULL; -main_Color_3_out_1 = NULL; -main_GetLocal_4_in_1 = NULL; -main_GetLocal_4_in_2 = NULL; -main_GetLocal_4_in_3 = NULL; -main_GetLocal_4_out_1 = NULL; -main_GetLocal_4_out_2 = NULL; -main_Append_1_in_3 = NULL; -main_Append_1_in_5 = NULL; -main_Append_1_out_1 = NULL; -main_CollectMultiGrid_4_in_1 = NULL; -main_CollectMultiGrid_4_in_2 = NULL; -main_CollectMultiGrid_4_in_3 = NULL; -main_CollectMultiGrid_4_in_4 = NULL; -main_CollectMultiGrid_4_out_1 = NULL; -main_GetLocal_5_in_1 = NULL; -main_GetLocal_5_in_2 = NULL; -main_GetLocal_5_in_3 = NULL; -main_GetLocal_5_out_1 = NULL; -main_GetLocal_5_out_2 = NULL; -main_Append_2_in_3 = NULL; -main_Append_2_in_5 = NULL; -main_Append_2_out_1 = NULL; -main_AutoColor_2_in_2 = NULL; -main_AutoColor_2_in_3 = NULL; -main_AutoColor_2_in_4 = NULL; -main_AutoColor_2_in_5 = NULL; -main_AutoColor_2_in_6 = NULL; -main_AutoColor_2_in_7 = NULL; -main_AutoColor_2_in_8 = NULL; -main_AutoColor_2_in_9 = NULL; -main_AutoColor_2_in_10 = NULL; -main_AutoColor_2_out_1 = NULL; -main_AutoColor_2_out_2 = NULL; -main_RubberSheet_1_in_2 = NULL; -main_RubberSheet_1_in_3 = NULL; -main_RubberSheet_1_in_4 = NULL; -main_RubberSheet_1_out_1 = NULL; -main_Shade_1_in_2 = 1; -main_Shade_1_in_3 = "smooth"; -main_Shade_1_in_4 = NULL; -main_Shade_1_in_5 = NULL; -main_Shade_1_in_6 = NULL; -main_Shade_1_in_7 = NULL; -main_Shade_1_in_8 = NULL; -main_Shade_1_out_1 = NULL; -main_RubberSheet_2_in_2 = NULL; -main_RubberSheet_2_in_3 = NULL; -main_RubberSheet_2_in_4 = NULL; -main_RubberSheet_2_out_1 = NULL; -main_ColorBar_1_in_2 = NULL; -main_ColorBar_1_in_3 = NULL; -main_ColorBar_1_in_4 = 1; -main_ColorBar_1_in_5 = NULL; -main_ColorBar_1_in_6 = NULL; -main_ColorBar_1_in_7 = NULL; -main_ColorBar_1_in_8 = NULL; -main_ColorBar_1_in_9 = NULL; -main_ColorBar_1_in_10 = NULL; -main_ColorBar_1_in_11 = NULL; -main_ColorBar_1_in_12 = NULL; -main_ColorBar_1_in_13 = NULL; -main_ColorBar_1_in_14 = NULL; -main_ColorBar_1_in_15 = NULL; -main_ColorBar_1_in_16 = NULL; -main_ColorBar_1_out_1 = NULL; -main_Collect_1_out_1 = NULL; -macro Image( - id, - object, - where, - useVector, - to, - from, - width, - resolution, - aspect, - up, - viewAngle, - perspective, - options, - buttonState = 1, - buttonUpApprox = "none", - buttonDownApprox = "none", - buttonUpDensity = 1, - buttonDownDensity = 1, - renderMode = 0, - defaultCamera, - reset, - backgroundColor, - throttle, - RECenable = 0, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable = 0, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - interactionMode, - title, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - webOptions) -> ( - object, - camera, - where) -{ - ImageMessage( - id, - backgroundColor, - throttle, - RECenable, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - interactionMode, - title, - renderMode, - buttonUpApprox, - buttonDownApprox, - buttonUpDensity, - buttonDownDensity) [instance: 1, cache: 1]; - autoCamera = - AutoCamera( - object, - "front", - object, - resolution, - aspect, - [0,1,0], - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - realCamera = - Camera( - to, - from, - width, - resolution, - aspect, - up, - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - coloredDefaultCamera = - UpdateCamera(defaultCamera, - background=backgroundColor) [instance: 1, cache: 1]; - nullDefaultCamera = - Inquire(defaultCamera, - "is null + 1") [instance: 1, cache: 1]; - resetCamera = - Switch( - nullDefaultCamera, - coloredDefaultCamera, - autoCamera) [instance: 1, cache: 1]; - resetNull = - Inquire( - reset, - "is null + 1") [instance: 2, cache: 1]; - reset = - Switch( - resetNull, - reset, - 0) [instance: 2, cache: 1]; - whichCamera = - Compute( - "($0 != 0 || $1 == 0) ? 1 : 2", - reset, - useVector) [instance: 1, cache: 1]; - camera = Switch( - whichCamera, - resetCamera, - realCamera) [instance: 3, cache: 1]; - AAobject = - AutoAxes( - object, - camera, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels) [instance: 1, cache: 1]; - switchAAenable = Compute("$0+1", - AAenable) [instance: 2, cache: 1]; - object = Switch( - switchAAenable, - object, - AAobject) [instance:4, cache: 1]; - SWapproximation_options = - Switch( - buttonState, - buttonUpApprox, - buttonDownApprox) [instance: 5, cache: 1]; - SWdensity_options = - Switch( - buttonState, - buttonUpDensity, - buttonDownDensity) [instance: 6, cache: 1]; - HWapproximation_options = - Format( - "%s,%s", - buttonDownApprox, - buttonUpApprox) [instance: 1, cache: 1]; - HWdensity_options = - Format( - "%d,%d", - buttonDownDensity, - buttonUpDensity) [instance: 2, cache: 1]; - switchRenderMode = Compute( - "$0+1", - renderMode) [instance: 3, cache: 1]; - approximation_options = Switch( - switchRenderMode, - SWapproximation_options, - HWapproximation_options) [instance: 7, cache: 1]; - density_options = Switch( - switchRenderMode, - SWdensity_options, - HWdensity_options) [instance: 8, cache: 1]; - renderModeString = Switch( - switchRenderMode, - "software", - "hardware")[instance: 9, cache: 1]; - object_tag = Inquire( - object, - "object tag")[instance: 3, cache: 1]; - annoted_object = - Options( - object, - "send boxes", - 0, - "cache", - 1, - "object tag", - object_tag, - "ddcamera", - whichCamera, - "rendering approximation", - approximation_options, - "render every", - density_options, - "button state", - buttonState, - "rendering mode", - renderModeString) [instance: 1, cache: 1]; - RECresNull = - Inquire( - RECresolution, - "is null + 1") [instance: 4, cache: 1]; - ImageResolution = - Inquire( - camera, - "camera resolution") [instance: 5, cache: 1]; - RECresolution = - Switch( - RECresNull, - RECresolution, - ImageResolution) [instance: 10, cache: 1]; - RECaspectNull = - Inquire( - RECaspect, - "is null + 1") [instance: 6, cache: 1]; - ImageAspect = - Inquire( - camera, - "camera aspect") [instance: 7, cache: 1]; - RECaspect = - Switch( - RECaspectNull, - RECaspect, - ImageAspect) [instance: 11, cache: 1]; - switchRECenable = Compute( - "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", - RECenable, - switchRenderMode, - RECresolution, - ImageResolution, - RECaspect, - ImageAspect) [instance: 4, cache: 1]; - NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); - Display( - NoRECobject, - camera, - where, - throttle) [instance: 1, cache: 1]; - image = - Render( - RECNoRerenderObject, - camera) [instance: 1, cache: 1]; - Display( - image, - NULL, - where, - throttle) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 1, cache: 1]; - rec_where = Display( - RECNoRerHW, - camera, - where, - throttle) [instance: 1, cache: 0]; - rec_image = ReadImageWindow( - rec_where) [instance: 1, cache: 1]; - WriteImage( - rec_image, - RECfile, - RECformat) [instance: 1, cache: 1]; - RECupdateCamera = - UpdateCamera( - camera, - resolution=RECresolution, - aspect=RECaspect) [instance: 2, cache: 1]; - Display( - RECRerenderObject, - camera, - where, - throttle) [instance: 1, cache: 1]; - RECRerenderObject = - ScaleScreen( - RECRerenderObject, - NULL, - RECresolution, - camera) [instance: 1, cache: 1]; - image = - Render( - RECRerenderObject, - RECupdateCamera) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 2, cache: 1]; -} -main_Image_5_in_1 = "Image_5"; -main_Image_5_in_3 = "X24,,"; -main_Image_5_in_4 = 0; -main_Image_5_in_5 = NULL; -main_Image_5_in_6 = NULL; -main_Image_5_in_7 = NULL; -main_Image_5_in_8 = NULL; -main_Image_5_in_9 = NULL; -main_Image_5_in_10 = NULL; -main_Image_5_in_11 = NULL; -main_Image_5_in_12 = NULL; -main_Image_5_in_13 = NULL; -main_Image_5_in_14 = 1; -main_Image_5_in_15 = NULL; -main_Image_5_in_16 = NULL; -main_Image_5_in_17 = NULL; -main_Image_5_in_18 = NULL; -main_Image_5_in_19 = 0; -main_Image_5_in_20 = NULL; -main_Image_5_in_21 = NULL; -main_Image_5_in_22 = NULL; -main_Image_5_in_23 = NULL; -main_Image_5_in_25 = NULL; -main_Image_5_in_26 = NULL; -main_Image_5_in_27 = NULL; -main_Image_5_in_28 = NULL; -main_Image_5_in_29 = NULL; -main_Image_5_in_30 = NULL; -main_Image_5_in_31 = NULL; -main_Image_5_in_32 = NULL; -main_Image_5_in_33 = NULL; -main_Image_5_in_34 = NULL; -main_Image_5_in_35 = NULL; -main_Image_5_in_36 = NULL; -main_Image_5_in_37 = NULL; -main_Image_5_in_38 = NULL; -main_Image_5_in_39 = NULL; -main_Image_5_in_40 = NULL; -main_Image_5_in_41 = NULL; -main_Image_5_in_42 = NULL; -main_Image_5_in_43 = NULL; -main_Image_5_in_44 = NULL; -main_Image_5_in_45 = NULL; -main_Image_5_in_46 = NULL; -main_Image_5_in_47 = NULL; -main_Image_5_in_48 = NULL; -main_Image_5_in_49 = NULL; -main_SetLocal_4_in_3 = NULL; -main_SetLocal_5_in_3 = NULL; -Executive("product version 4 4 4"); -$sync -main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2showmesh.net --- a/extra/fpl/inst/deprecated/FPL2showmesh.net Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,587 +0,0 @@ -// -// time: Wed Jun 27 18:36:54 2007 -// -// version: 3.2.0 (format), 4.4.4 (DX) -// -// -// MODULE main -// workspace: width = 464, height = 625 -// layout: snap = 0, width = 50, height = 50, align = NN -// -macro main( -) -> ( -) { - // - // node Collect[1]: x = 409, y = 272, inputs = 2, label = Collect - // -main_Collect_1_out_1 = - Collect( - main_Collect_1_in_1, - main_Collect_1_in_2 - ) [instance: 1, cache: 1]; - // - // node GetLocal[1]: x = 308, y = 381, inputs = 3, label = GetLocal - // -main_GetLocal_1_out_1, -main_GetLocal_1_out_2 = - GetLocal( - main_Collect_1_out_1, - main_GetLocal_1_in_2, - main_GetLocal_1_in_3 - ) [instance: 1, cache: 1]; - // - // node StringList[1]: x = 42, y = 74, inputs = 0, label = StringList - // output[1]: visible = 1, type = 16777248, value = {__FILE__DX__ } - // - // - // node ForEachMember[1]: x = 28, y = 151, inputs = 1, label = ForEachMember - // -main_ForEachMember_1_out_1, -main_ForEachMember_1_out_2, -main_ForEachMember_1_out_3 = - ForEachMember( - main_StringList_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Import[1]: x = 40, y = 234, inputs = 6, label = Import - // -main_Import_1_out_1 = - Import( - main_ForEachMember_1_out_1, - main_Import_1_in_2, - main_Import_1_in_3, - main_Import_1_in_4, - main_Import_1_in_5, - main_Import_1_in_6 - ) [instance: 1, cache: 1]; - // - // node StringList[2]: x = 215, y = 61, inputs = 0, label = StringList - // output[1]: visible = 1, type = 16777248, value = { __MESH__COLOR__ } - // - // - // node ForEachMember[2]: x = 198, y = 159, inputs = 1, label = ForEachMember - // -main_ForEachMember_2_out_1, -main_ForEachMember_2_out_2, -main_ForEachMember_2_out_3 = - ForEachMember( - main_StringList_2_out_1 - ) [instance: 2, cache: 1]; - // - // node Color[1]: x = 179, y = 312, inputs = 5, label = Color - // input[2]: defaulting = 1, visible = 1, type = 32, value = "indianred" - // -main_Color_1_out_1 = - Color( - main_Import_1_out_1, - main_ForEachMember_2_out_1, - main_Color_1_in_3, - main_Color_1_in_4, - main_Color_1_in_5 - ) [instance: 1, cache: 1]; - // - // node ShowConnections[1]: x = 31, y = 354, inputs = 1, label = ShowConnections - // -main_ShowConnections_1_out_1 = - ShowConnections( - main_Color_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Append[1]: x = 60, y = 453, inputs = 5, label = Append - // -main_Append_1_out_1 = - Append( - main_GetLocal_1_out_1, - main_ShowConnections_1_out_1, - main_Append_1_in_3, - main_Append_1_in_4, - main_Append_1_in_5 - ) [instance: 1, cache: 1]; - // - // node Image[1]: x = 153, y = 563, inputs = 49, label = Image - // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1" - // input[4]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[5]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 0] - // input[6]: defaulting = 0, visible = 0, type = 8, value = [7.5 7.5 39.3199] - // input[7]: defaulting = 0, visible = 0, type = 5, value = 21.0715 - // input[8]: defaulting = 0, visible = 0, type = 1, value = 804 - // input[9]: defaulting = 0, visible = 0, type = 5, value = 0.610075 - // input[10]: defaulting = 0, visible = 0, type = 8, value = [0 1 0] - // input[11]: defaulting = 1, visible = 0, type = 5, value = 30.0 - // input[12]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[15]: defaulting = 1, visible = 0, type = 32, value = "none" - // input[16]: defaulting = 1, visible = 0, type = 32, value = "none" - // input[17]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[18]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[19]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[22]: defaulting = 0, visible = 0, type = 32, value = "snow" - // input[25]: defaulting = 0, visible = 0, type = 32, value = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif" - // input[26]: defaulting = 0, visible = 0, type = 32, value = "tiff" - // input[29]: defaulting = 0, visible = 0, type = 3, value = 1 - // input[31]: defaulting = 0, visible = 0, type = 1, value = -15 - // input[33]: defaulting = 0, visible = 0, type = 3, value = 0 - // input[34]: defaulting = 0, visible = 0, type = 3, value = 0 - // input[37]: defaulting = 0, visible = 0, type = 16777248, value = {"clear", "grey5", "saddlebrown", "saddlebrown"} - // input[38]: defaulting = 0, visible = 0, type = 16777248, value = {"background", "grid", "ticks", "labels"} - // input[39]: defaulting = 0, visible = 0, type = 5, value = 0.7 - // input[40]: defaulting = 0, visible = 0, type = 32, value = "roman_s" - // input[41]: defaulting = 0, visible = 0, type = 32, value = "none" - // depth: value = 24 - // window: position = (0.2477,0.1272), size = 0.6391x0.6838, screen = 0 - // internal caching: 1 - // -main_Image_1_out_1, -main_Image_1_out_2, -main_Image_1_out_3 = - Image( - main_Image_1_in_1, - main_Append_1_out_1, - main_Image_1_in_3, - main_Image_1_in_4, - main_Image_1_in_5, - main_Image_1_in_6, - main_Image_1_in_7, - main_Image_1_in_8, - main_Image_1_in_9, - main_Image_1_in_10, - main_Image_1_in_11, - main_Image_1_in_12, - main_Image_1_in_13, - main_Image_1_in_14, - main_Image_1_in_15, - main_Image_1_in_16, - main_Image_1_in_17, - main_Image_1_in_18, - main_Image_1_in_19, - main_Image_1_in_20, - main_Image_1_in_21, - main_Image_1_in_22, - main_Image_1_in_23, - main_Image_1_in_24, - main_Image_1_in_25, - main_Image_1_in_26, - main_Image_1_in_27, - main_Image_1_in_28, - main_Image_1_in_29, - main_Image_1_in_30, - main_Image_1_in_31, - main_Image_1_in_32, - main_Image_1_in_33, - main_Image_1_in_34, - main_Image_1_in_35, - main_Image_1_in_36, - main_Image_1_in_37, - main_Image_1_in_38, - main_Image_1_in_39, - main_Image_1_in_40, - main_Image_1_in_41, - main_Image_1_in_42, - main_Image_1_in_43, - main_Image_1_in_44, - main_Image_1_in_45, - main_Image_1_in_46, - main_Image_1_in_47, - main_Image_1_in_48, - main_Image_1_in_49 - ) [instance: 1, cache: 1]; - // - // node SetLocal[1]: x = 316, y = 471, inputs = 3, label = SetLocal - // - SetLocal( - main_Append_1_out_1, - main_GetLocal_1_out_2, - main_SetLocal_1_in_3 - ) [instance: 1, cache: 1]; -// network: end of macro body -CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); -} -main_Collect_1_in_1 = NULL; -main_Collect_1_in_2 = NULL; -main_Collect_1_out_1 = NULL; -main_GetLocal_1_in_2 = NULL; -main_GetLocal_1_in_3 = NULL; -main_GetLocal_1_out_1 = NULL; -main_GetLocal_1_out_2 = NULL; -main_StringList_1_out_1 = {__FILE__DX__}; -main_ForEachMember_1_out_1 = NULL; -main_Import_1_in_2 = NULL; -main_Import_1_in_3 = NULL; -main_Import_1_in_4 = NULL; -main_Import_1_in_5 = NULL; -main_Import_1_in_6 = NULL; -main_Import_1_out_1 = NULL; -main_StringList_2_out_1 = {__MESH__COLOR__ }; -main_ForEachMember_2_out_1 = NULL; -main_Color_1_in_3 = NULL; -main_Color_1_in_4 = NULL; -main_Color_1_in_5 = NULL; -main_Color_1_out_1 = NULL; -main_ShowConnections_1_out_1 = NULL; -main_Append_1_in_3 = NULL; -main_Append_1_in_4 = NULL; -main_Append_1_in_5 = NULL; -main_Append_1_out_1 = NULL; -macro Image( - id, - object, - where, - useVector, - to, - from, - width, - resolution, - aspect, - up, - viewAngle, - perspective, - options, - buttonState = 1, - buttonUpApprox = "none", - buttonDownApprox = "none", - buttonUpDensity = 1, - buttonDownDensity = 1, - renderMode = 0, - defaultCamera, - reset, - backgroundColor, - throttle, - RECenable = 0, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable = 0, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - interactionMode, - title, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - webOptions) -> ( - object, - camera, - where) -{ - ImageMessage( - id, - backgroundColor, - throttle, - RECenable, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - interactionMode, - title, - renderMode, - buttonUpApprox, - buttonDownApprox, - buttonUpDensity, - buttonDownDensity) [instance: 1, cache: 1]; - autoCamera = - AutoCamera( - object, - "front", - object, - resolution, - aspect, - [0,1,0], - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - realCamera = - Camera( - to, - from, - width, - resolution, - aspect, - up, - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - coloredDefaultCamera = - UpdateCamera(defaultCamera, - background=backgroundColor) [instance: 1, cache: 1]; - nullDefaultCamera = - Inquire(defaultCamera, - "is null + 1") [instance: 1, cache: 1]; - resetCamera = - Switch( - nullDefaultCamera, - coloredDefaultCamera, - autoCamera) [instance: 1, cache: 1]; - resetNull = - Inquire( - reset, - "is null + 1") [instance: 2, cache: 1]; - reset = - Switch( - resetNull, - reset, - 0) [instance: 2, cache: 1]; - whichCamera = - Compute( - "($0 != 0 || $1 == 0) ? 1 : 2", - reset, - useVector) [instance: 1, cache: 1]; - camera = Switch( - whichCamera, - resetCamera, - realCamera) [instance: 3, cache: 1]; - AAobject = - AutoAxes( - object, - camera, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels) [instance: 1, cache: 1]; - switchAAenable = Compute("$0+1", - AAenable) [instance: 2, cache: 1]; - object = Switch( - switchAAenable, - object, - AAobject) [instance:4, cache: 1]; - SWapproximation_options = - Switch( - buttonState, - buttonUpApprox, - buttonDownApprox) [instance: 5, cache: 1]; - SWdensity_options = - Switch( - buttonState, - buttonUpDensity, - buttonDownDensity) [instance: 6, cache: 1]; - HWapproximation_options = - Format( - "%s,%s", - buttonDownApprox, - buttonUpApprox) [instance: 1, cache: 1]; - HWdensity_options = - Format( - "%d,%d", - buttonDownDensity, - buttonUpDensity) [instance: 2, cache: 1]; - switchRenderMode = Compute( - "$0+1", - renderMode) [instance: 3, cache: 1]; - approximation_options = Switch( - switchRenderMode, - SWapproximation_options, - HWapproximation_options) [instance: 7, cache: 1]; - density_options = Switch( - switchRenderMode, - SWdensity_options, - HWdensity_options) [instance: 8, cache: 1]; - renderModeString = Switch( - switchRenderMode, - "software", - "hardware")[instance: 9, cache: 1]; - object_tag = Inquire( - object, - "object tag")[instance: 3, cache: 1]; - annoted_object = - Options( - object, - "send boxes", - 0, - "cache", - 1, - "object tag", - object_tag, - "ddcamera", - whichCamera, - "rendering approximation", - approximation_options, - "render every", - density_options, - "button state", - buttonState, - "rendering mode", - renderModeString) [instance: 1, cache: 1]; - RECresNull = - Inquire( - RECresolution, - "is null + 1") [instance: 4, cache: 1]; - ImageResolution = - Inquire( - camera, - "camera resolution") [instance: 5, cache: 1]; - RECresolution = - Switch( - RECresNull, - RECresolution, - ImageResolution) [instance: 10, cache: 1]; - RECaspectNull = - Inquire( - RECaspect, - "is null + 1") [instance: 6, cache: 1]; - ImageAspect = - Inquire( - camera, - "camera aspect") [instance: 7, cache: 1]; - RECaspect = - Switch( - RECaspectNull, - RECaspect, - ImageAspect) [instance: 11, cache: 1]; - switchRECenable = Compute( - "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", - RECenable, - switchRenderMode, - RECresolution, - ImageResolution, - RECaspect, - ImageAspect) [instance: 4, cache: 1]; - NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); - Display( - NoRECobject, - camera, - where, - throttle) [instance: 1, cache: 1]; - image = - Render( - RECNoRerenderObject, - camera) [instance: 1, cache: 1]; - Display( - image, - NULL, - where, - throttle) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 1, cache: 1]; - rec_where = Display( - RECNoRerHW, - camera, - where, - throttle) [instance: 1, cache: 0]; - rec_image = ReadImageWindow( - rec_where) [instance: 1, cache: 1]; - WriteImage( - rec_image, - RECfile, - RECformat) [instance: 1, cache: 1]; - RECupdateCamera = - UpdateCamera( - camera, - resolution=RECresolution, - aspect=RECaspect) [instance: 2, cache: 1]; - Display( - RECRerenderObject, - camera, - where, - throttle) [instance: 1, cache: 1]; - RECRerenderObject = - ScaleScreen( - RECRerenderObject, - NULL, - RECresolution, - camera) [instance: 1, cache: 1]; - image = - Render( - RECRerenderObject, - RECupdateCamera) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 2, cache: 1]; -} -main_Image_1_in_1 = "Image_1"; -main_Image_1_in_3 = "X24,,"; -main_Image_1_in_4 = 1; -main_Image_1_in_5 = [7.5 7.5 0]; -main_Image_1_in_6 = [7.5 7.5 39.3199]; -main_Image_1_in_7 = 21.0715; -main_Image_1_in_8 = 804; -main_Image_1_in_9 = 0.610075; -main_Image_1_in_10 = [0 1 0]; -main_Image_1_in_11 = NULL; -main_Image_1_in_12 = 0; -main_Image_1_in_13 = NULL; -main_Image_1_in_14 = 1; -main_Image_1_in_15 = NULL; -main_Image_1_in_16 = NULL; -main_Image_1_in_17 = 1; -main_Image_1_in_18 = 1; -main_Image_1_in_19 = 1; -main_Image_1_in_20 = NULL; -main_Image_1_in_21 = NULL; -main_Image_1_in_22 = "snow"; -main_Image_1_in_23 = NULL; -main_Image_1_in_25 = "/Users/carlo/Desktop/COMSONDEMO/CoMSON DP/grid.tif"; -main_Image_1_in_26 = "tiff"; -main_Image_1_in_27 = NULL; -main_Image_1_in_28 = NULL; -main_Image_1_in_29 = 1; -main_Image_1_in_30 = NULL; -main_Image_1_in_31 = -15; -main_Image_1_in_32 = NULL; -main_Image_1_in_33 = 0; -main_Image_1_in_34 = 0; -main_Image_1_in_35 = NULL; -main_Image_1_in_36 = NULL; -main_Image_1_in_37 = {"clear", "grey5", "saddlebrown", "saddlebrown"}; -main_Image_1_in_38 = {"background", "grid", "ticks", "labels"}; -main_Image_1_in_39 = 0.7; -main_Image_1_in_40 = "roman_s"; -main_Image_1_in_41 = "none"; -main_Image_1_in_42 = NULL; -main_Image_1_in_43 = NULL; -main_Image_1_in_44 = NULL; -main_Image_1_in_45 = NULL; -main_Image_1_in_46 = NULL; -main_Image_1_in_47 = NULL; -main_Image_1_in_48 = NULL; -main_Image_1_in_49 = NULL; -main_SetLocal_1_in_3 = NULL; -Executive("product version 4 4 4"); -$sync -main(); diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2trspdesurf.m --- a/extra/fpl/inst/deprecated/FPL2trspdesurf.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,83 +0,0 @@ -## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## @deftypefn {Function File} {} FPL2trspdesurf (@var{mesh}, @ -## @var{color}, @var{data}) -## -## Plots the transient scalar field @var{u} defined on the triangulation -## @var{mesh} using opendx. Connections are rendered as defined by -## @var{color} -## -## Example: -## @example -## -## FPL2trspdesurf(mesh,"blue",data) -## -## @end example -## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2trsptcsurf} -## @end deftypefn - -function FPL2trspdesurf(varargin) - - seriesend = columns(varargin{3}); - dataname = mktemp("/tmp",".dx"); - colorname = varargin{2}; - FPL2dxoutputtimeseries(dataname, varargin{1}.p, varargin{1}.t, ... - varargin{3}, "dataseries", 0, 1, 1:seriesend); - - scriptname = mktemp("/tmp",".net"); - - view = file_in_path(path,"FPL2trspdesurf.net"); - - system (["cp " view " " scriptname]); - system (["sed -i \'s|FILENAME|" dataname "|g\' " scriptname]); - system (["sed -i \'s|COLORNAME|" colorname "|g\' " scriptname]); - - command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; - system(command); - -endfunction - -function filename = mktemp (direct,ext); - - if (~exist(direct,"dir")) - error("Trying to save temporary file to non existing directory") - endif - - done = false; - - while ~done - filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; - if ~exist(filename,"file") - done = true; - endif - endwhile - -endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2trspdesurf.net --- a/extra/fpl/inst/deprecated/FPL2trspdesurf.net Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,702 +0,0 @@ -// -// time: Sat Jan 5 19:47:19 2008 -// -// version: 3.2.0 (format), 4.4.4 (DX) -// -// -// MODULE main -// workspace: width = 1161, height = 826 -// layout: snap = 1, width = 10, height = 10, align = CC -// -macro main( -) -> ( -) { - // - // node String[1]: x = 281, y = 24, inputs = 0, label = String - // output[1]: visible = 1, type = 32, value = "FILENAME" - // - // - // node Import[1]: x = 269, y = 114, inputs = 6, label = Import - // -main_Import_1_out_1 = - Import( - main_String_1_out_1, - main_Import_1_in_2, - main_Import_1_in_3, - main_Import_1_in_4, - main_Import_1_in_5, - main_Import_1_in_6 - ) [instance: 1, cache: 1]; - // - // node Value[1]: x = 513, y = 104, inputs = 0, label = Value - // output[1]: visible = 1, type = 29, value = 0 - // - // - // node Inquire[1]: x = 509, y = 24, inputs = 3, label = Inquire - // input[2]: defaulting = 0, visible = 1, type = 32, value = "member count" - // -main_Inquire_1_out_1 = - Inquire( - main_Import_1_out_1, - main_Inquire_1_in_2, - main_Inquire_1_in_3 - ) [instance: 1, cache: 1]; - // - // node Value[2]: x = 643, y = 4, inputs = 0, label = Value - // output[1]: visible = 1, type = 29, value = 1 - // - // - // node Compute[1]: x = 601, y = 94, inputs = 3, label = Compute - // input[1]: defaulting = 0, visible = 0, type = 32, value = "$0 - $1" - // expression: value = a - b - // name[2]: value = a - // name[3]: value = b - // -main_Compute_1_out_1 = - Compute( - main_Compute_1_in_1, - main_Inquire_1_out_1, - main_Value_2_out_1 - ) [instance: 1, cache: 1]; - // - // node Sequencer[1]: x = 585, y = 184, inputs = 7, label = Sequencer - // input[1]: defaulting = 0, visible = 0, type = 32, value = "Sequencer_1" - // input[4]: defaulting = 1, visible = 1, type = 1, value = 0 - // input[5]: defaulting = 1, visible = 1, type = 1, value = 95 - // input[6]: defaulting = 1, visible = 0, type = 1, value = 1 - // input[7]: defaulting = 0, visible = 0, type = 16777217, value = { 0 95 1 0 95 1 } - // vcr[1]: min = 0, max = 95, beg = 0, end = 95, cur = 38, inc = 1, loop = off, step = off, pal = off - // window: position = (0.0132,0.0833), size = 0.1750x0.0667 - // - main_Sequencer_1_in_3 = @frame; -main_Sequencer_1_out_1[cache: 2] = - Sequencer( - main_Sequencer_1_in_1, - main_Sequencer_1_in_2, - main_Sequencer_1_in_3, - main_Value_1_out_1, - main_Compute_1_out_1, - main_Sequencer_1_in_6, - main_Sequencer_1_in_7 - ) [instance: 1, cache: 1]; - // - // node Select[1]: x = 411, y = 214, inputs = 3, label = Select - // -main_Select_1_out_1 = - Select( - main_Import_1_out_1, - main_Sequencer_1_out_1, - main_Select_1_in_3 - ) [instance: 1, cache: 1]; - // - // node RubberSheet[3]: x = 406, y = 364, inputs = 4, label = RubberSheet - // -main_RubberSheet_3_out_1 = - RubberSheet( - main_Select_1_out_1, - main_RubberSheet_3_in_2, - main_RubberSheet_3_in_3, - main_RubberSheet_3_in_4 - ) [instance: 3, cache: 1]; - // - // node Statistics[4]: x = 185, y = 234, inputs = 1, label = Statistics - // -main_Statistics_4_out_1, -main_Statistics_4_out_2, -main_Statistics_4_out_3, -main_Statistics_4_out_4, -main_Statistics_4_out_5 = - Statistics( - main_Import_1_out_1 - ) [instance: 4, cache: 1]; - // - // node AutoColor[1]: x = 336, y = 474, inputs = 10, label = AutoColor - // input[8]: visible = 1 - // -main_AutoColor_1_out_1, -main_AutoColor_1_out_2 = - AutoColor( - main_RubberSheet_3_out_1, - main_AutoColor_1_in_2, - main_AutoColor_1_in_3, - main_AutoColor_1_in_4, - main_AutoColor_1_in_5, - main_AutoColor_1_in_6, - main_Statistics_4_out_4, - main_Statistics_4_out_5, - main_AutoColor_1_in_9, - main_AutoColor_1_in_10 - ) [instance: 1, cache: 1]; - // - // node Shade[2]: x = 299, y = 574, inputs = 8, label = Shade - // input[3]: defaulting = 0, visible = 1, type = 32, value = "smooth" - // -main_Shade_2_out_1 = - Shade( - main_AutoColor_1_out_1, - main_Shade_2_in_2, - main_Shade_2_in_3, - main_Shade_2_in_4, - main_Shade_2_in_5, - main_Shade_2_in_6, - main_Shade_2_in_7, - main_Shade_2_in_8 - ) [instance: 2, cache: 1]; - // - // node ColorBar[1]: x = 775, y = 574, inputs = 16, label = ColorBar - // input[4]: defaulting = 0, visible = 1, type = 3, value = 1 - // -main_ColorBar_1_out_1 = - ColorBar( - main_AutoColor_1_out_2, - main_ColorBar_1_in_2, - main_ColorBar_1_in_3, - main_ColorBar_1_in_4, - main_ColorBar_1_in_5, - main_ColorBar_1_in_6, - main_ColorBar_1_in_7, - main_ColorBar_1_in_8, - main_ColorBar_1_in_9, - main_ColorBar_1_in_10, - main_ColorBar_1_in_11, - main_ColorBar_1_in_12, - main_ColorBar_1_in_13, - main_ColorBar_1_in_14, - main_ColorBar_1_in_15, - main_ColorBar_1_in_16 - ) [instance: 1, cache: 1]; - // - // node ShowConnections[1]: x = 869, y = 474, inputs = 1, label = ShowConnections - // -main_ShowConnections_1_out_1 = - ShowConnections( - main_RubberSheet_3_out_1 - ) [instance: 1, cache: 1]; - // - // node String[2]: x = 1091, y = 474, inputs = 0, label = String - // output[1]: visible = 1, type = 32, value = "COLORNAME" - // - // - // node Color[1]: x = 929, y = 574, inputs = 5, label = Color - // input[3]: defaulting = 0, visible = 1, type = 5, value = .3 - // -main_Color_1_out_1 = - Color( - main_ShowConnections_1_out_1, - main_String_2_out_1, - main_Color_1_in_3, - main_Color_1_in_4, - main_Color_1_in_5 - ) [instance: 1, cache: 1]; - // - // node Collect[1]: x = 799, y = 684, inputs = 3, label = Collect - // -main_Collect_1_out_1 = - Collect( - main_Shade_2_out_1, - main_ColorBar_1_out_1, - main_Color_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Image[1]: x = 1089, y = 764, inputs = 49, label = Image - // input[1]: defaulting = 0, visible = 0, type = 32, value = "Image_1" - // input[4]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[19]: defaulting = 0, visible = 0, type = 3, value = 0 - // depth: value = 24 - // internal caching: 1 - // -main_Image_1_out_1, -main_Image_1_out_2, -main_Image_1_out_3 = - Image( - main_Image_1_in_1, - main_Collect_1_out_1, - main_Image_1_in_3, - main_Image_1_in_4, - main_Image_1_in_5, - main_Image_1_in_6, - main_Image_1_in_7, - main_Image_1_in_8, - main_Image_1_in_9, - main_Image_1_in_10, - main_Image_1_in_11, - main_Image_1_in_12, - main_Image_1_in_13, - main_Image_1_in_14, - main_Image_1_in_15, - main_Image_1_in_16, - main_Image_1_in_17, - main_Image_1_in_18, - main_Image_1_in_19, - main_Image_1_in_20, - main_Image_1_in_21, - main_Image_1_in_22, - main_Image_1_in_23, - main_Image_1_in_24, - main_Image_1_in_25, - main_Image_1_in_26, - main_Image_1_in_27, - main_Image_1_in_28, - main_Image_1_in_29, - main_Image_1_in_30, - main_Image_1_in_31, - main_Image_1_in_32, - main_Image_1_in_33, - main_Image_1_in_34, - main_Image_1_in_35, - main_Image_1_in_36, - main_Image_1_in_37, - main_Image_1_in_38, - main_Image_1_in_39, - main_Image_1_in_40, - main_Image_1_in_41, - main_Image_1_in_42, - main_Image_1_in_43, - main_Image_1_in_44, - main_Image_1_in_45, - main_Image_1_in_46, - main_Image_1_in_47, - main_Image_1_in_48, - main_Image_1_in_49 - ) [instance: 1, cache: 1]; -// network: end of macro body -CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); -} -main_String_1_out_1 = "FILENAME"; -main_Import_1_in_2 = NULL; -main_Import_1_in_3 = NULL; -main_Import_1_in_4 = NULL; -main_Import_1_in_5 = NULL; -main_Import_1_in_6 = NULL; -main_Import_1_out_1 = NULL; -main_Value_1_out_1 = 0; -main_Inquire_1_in_2 = "member count"; -main_Inquire_1_in_3 = NULL; -main_Inquire_1_out_1 = NULL; -main_Value_2_out_1 = 1; -main_Compute_1_in_1 = "$0 - $1"; -main_Compute_1_out_1 = NULL; -main_Sequencer_1_in_1 = "Sequencer_1"; -main_Sequencer_1_in_2 = NULL; -main_Sequencer_1_in_3 = NULL; -main_Sequencer_1_in_6 = NULL; -main_Sequencer_1_in_7 = { 0 95 1 0 95 1 }; -main_Sequencer_1_out_1 = NULL; - -@startframe = 0; -@nextframe = @startframe; -@endframe = 95; -@deltaframe = 1; -main_Select_1_in_3 = NULL; -main_Select_1_out_1 = NULL; -main_RubberSheet_3_in_2 = NULL; -main_RubberSheet_3_in_3 = NULL; -main_RubberSheet_3_in_4 = NULL; -main_RubberSheet_3_out_1 = NULL; -main_Statistics_4_out_4 = NULL; -main_Statistics_4_out_5 = NULL; -main_AutoColor_1_in_2 = NULL; -main_AutoColor_1_in_3 = NULL; -main_AutoColor_1_in_4 = NULL; -main_AutoColor_1_in_5 = NULL; -main_AutoColor_1_in_6 = NULL; -main_AutoColor_1_in_9 = NULL; -main_AutoColor_1_in_10 = NULL; -main_AutoColor_1_out_1 = NULL; -main_AutoColor_1_out_2 = NULL; -main_Shade_2_in_2 = NULL; -main_Shade_2_in_3 = "smooth"; -main_Shade_2_in_4 = NULL; -main_Shade_2_in_5 = NULL; -main_Shade_2_in_6 = NULL; -main_Shade_2_in_7 = NULL; -main_Shade_2_in_8 = NULL; -main_Shade_2_out_1 = NULL; -main_ColorBar_1_in_2 = NULL; -main_ColorBar_1_in_3 = NULL; -main_ColorBar_1_in_4 = 1; -main_ColorBar_1_in_5 = NULL; -main_ColorBar_1_in_6 = NULL; -main_ColorBar_1_in_7 = NULL; -main_ColorBar_1_in_8 = NULL; -main_ColorBar_1_in_9 = NULL; -main_ColorBar_1_in_10 = NULL; -main_ColorBar_1_in_11 = NULL; -main_ColorBar_1_in_12 = NULL; -main_ColorBar_1_in_13 = NULL; -main_ColorBar_1_in_14 = NULL; -main_ColorBar_1_in_15 = NULL; -main_ColorBar_1_in_16 = NULL; -main_ColorBar_1_out_1 = NULL; -main_ShowConnections_1_out_1 = NULL; -main_String_2_out_1 = "COLORNAME"; -main_Color_1_in_3 = .3; -main_Color_1_in_4 = NULL; -main_Color_1_in_5 = NULL; -main_Color_1_out_1 = NULL; -main_Collect_1_out_1 = NULL; -macro Image( - id, - object, - where, - useVector, - to, - from, - width, - resolution, - aspect, - up, - viewAngle, - perspective, - options, - buttonState = 1, - buttonUpApprox = "none", - buttonDownApprox = "none", - buttonUpDensity = 1, - buttonDownDensity = 1, - renderMode = 0, - defaultCamera, - reset, - backgroundColor, - throttle, - RECenable = 0, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable = 0, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - interactionMode, - title, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - webOptions) -> ( - object, - camera, - where) -{ - ImageMessage( - id, - backgroundColor, - throttle, - RECenable, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - interactionMode, - title, - renderMode, - buttonUpApprox, - buttonDownApprox, - buttonUpDensity, - buttonDownDensity) [instance: 1, cache: 1]; - autoCamera = - AutoCamera( - object, - "front", - object, - resolution, - aspect, - [0,1,0], - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - realCamera = - Camera( - to, - from, - width, - resolution, - aspect, - up, - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - coloredDefaultCamera = - UpdateCamera(defaultCamera, - background=backgroundColor) [instance: 1, cache: 1]; - nullDefaultCamera = - Inquire(defaultCamera, - "is null + 1") [instance: 1, cache: 1]; - resetCamera = - Switch( - nullDefaultCamera, - coloredDefaultCamera, - autoCamera) [instance: 1, cache: 1]; - resetNull = - Inquire( - reset, - "is null + 1") [instance: 2, cache: 1]; - reset = - Switch( - resetNull, - reset, - 0) [instance: 2, cache: 1]; - whichCamera = - Compute( - "($0 != 0 || $1 == 0) ? 1 : 2", - reset, - useVector) [instance: 1, cache: 1]; - camera = Switch( - whichCamera, - resetCamera, - realCamera) [instance: 3, cache: 1]; - AAobject = - AutoAxes( - object, - camera, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels) [instance: 1, cache: 1]; - switchAAenable = Compute("$0+1", - AAenable) [instance: 2, cache: 1]; - object = Switch( - switchAAenable, - object, - AAobject) [instance:4, cache: 1]; - SWapproximation_options = - Switch( - buttonState, - buttonUpApprox, - buttonDownApprox) [instance: 5, cache: 1]; - SWdensity_options = - Switch( - buttonState, - buttonUpDensity, - buttonDownDensity) [instance: 6, cache: 1]; - HWapproximation_options = - Format( - "%s,%s", - buttonDownApprox, - buttonUpApprox) [instance: 1, cache: 1]; - HWdensity_options = - Format( - "%d,%d", - buttonDownDensity, - buttonUpDensity) [instance: 2, cache: 1]; - switchRenderMode = Compute( - "$0+1", - renderMode) [instance: 3, cache: 1]; - approximation_options = Switch( - switchRenderMode, - SWapproximation_options, - HWapproximation_options) [instance: 7, cache: 1]; - density_options = Switch( - switchRenderMode, - SWdensity_options, - HWdensity_options) [instance: 8, cache: 1]; - renderModeString = Switch( - switchRenderMode, - "software", - "hardware")[instance: 9, cache: 1]; - object_tag = Inquire( - object, - "object tag")[instance: 3, cache: 1]; - annoted_object = - Options( - object, - "send boxes", - 0, - "cache", - 1, - "object tag", - object_tag, - "ddcamera", - whichCamera, - "rendering approximation", - approximation_options, - "render every", - density_options, - "button state", - buttonState, - "rendering mode", - renderModeString) [instance: 1, cache: 1]; - RECresNull = - Inquire( - RECresolution, - "is null + 1") [instance: 4, cache: 1]; - ImageResolution = - Inquire( - camera, - "camera resolution") [instance: 5, cache: 1]; - RECresolution = - Switch( - RECresNull, - RECresolution, - ImageResolution) [instance: 10, cache: 1]; - RECaspectNull = - Inquire( - RECaspect, - "is null + 1") [instance: 6, cache: 1]; - ImageAspect = - Inquire( - camera, - "camera aspect") [instance: 7, cache: 1]; - RECaspect = - Switch( - RECaspectNull, - RECaspect, - ImageAspect) [instance: 11, cache: 1]; - switchRECenable = Compute( - "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", - RECenable, - switchRenderMode, - RECresolution, - ImageResolution, - RECaspect, - ImageAspect) [instance: 4, cache: 1]; - NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); - Display( - NoRECobject, - camera, - where, - throttle) [instance: 1, cache: 1]; - image = - Render( - RECNoRerenderObject, - camera) [instance: 1, cache: 1]; - Display( - image, - NULL, - where, - throttle) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 1, cache: 1]; - rec_where = Display( - RECNoRerHW, - camera, - where, - throttle) [instance: 1, cache: 0]; - rec_image = ReadImageWindow( - rec_where) [instance: 1, cache: 1]; - WriteImage( - rec_image, - RECfile, - RECformat) [instance: 1, cache: 1]; - RECupdateCamera = - UpdateCamera( - camera, - resolution=RECresolution, - aspect=RECaspect) [instance: 2, cache: 1]; - Display( - RECRerenderObject, - camera, - where, - throttle) [instance: 1, cache: 1]; - RECRerenderObject = - ScaleScreen( - RECRerenderObject, - NULL, - RECresolution, - camera) [instance: 1, cache: 1]; - image = - Render( - RECRerenderObject, - RECupdateCamera) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 2, cache: 1]; -} -main_Image_1_in_1 = "Image_1"; -main_Image_1_in_3 = "X24,,"; -main_Image_1_in_4 = 0; -main_Image_1_in_5 = NULL; -main_Image_1_in_6 = NULL; -main_Image_1_in_7 = NULL; -main_Image_1_in_8 = NULL; -main_Image_1_in_9 = NULL; -main_Image_1_in_10 = NULL; -main_Image_1_in_11 = NULL; -main_Image_1_in_12 = NULL; -main_Image_1_in_13 = NULL; -main_Image_1_in_14 = 1; -main_Image_1_in_15 = NULL; -main_Image_1_in_16 = NULL; -main_Image_1_in_17 = NULL; -main_Image_1_in_18 = NULL; -main_Image_1_in_19 = 0; -main_Image_1_in_20 = NULL; -main_Image_1_in_21 = NULL; -main_Image_1_in_22 = NULL; -main_Image_1_in_23 = NULL; -main_Image_1_in_25 = NULL; -main_Image_1_in_26 = NULL; -main_Image_1_in_27 = NULL; -main_Image_1_in_28 = NULL; -main_Image_1_in_29 = NULL; -main_Image_1_in_30 = NULL; -main_Image_1_in_31 = NULL; -main_Image_1_in_32 = NULL; -main_Image_1_in_33 = NULL; -main_Image_1_in_34 = NULL; -main_Image_1_in_35 = NULL; -main_Image_1_in_36 = NULL; -main_Image_1_in_37 = NULL; -main_Image_1_in_38 = NULL; -main_Image_1_in_39 = NULL; -main_Image_1_in_40 = NULL; -main_Image_1_in_41 = NULL; -main_Image_1_in_42 = NULL; -main_Image_1_in_43 = NULL; -main_Image_1_in_44 = NULL; -main_Image_1_in_45 = NULL; -main_Image_1_in_46 = NULL; -main_Image_1_in_47 = NULL; -main_Image_1_in_48 = NULL; -main_Image_1_in_49 = NULL; -Executive("product version 4 4 4"); -$sync - -sequence main(); -play; diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2trsptcsurf.m --- a/extra/fpl/inst/deprecated/FPL2trsptcsurf.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,90 +0,0 @@ -## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## @deftypefn {Function File} {} FPL2trsptcsurf (@var{mesh1}, @ -## @var{color1}, @var{data1}, [@var{mesh2}, @var{color2}, @var{data2}]) -## -## Plots the transient scalar fields @var{data} defined on the triangulation -## @var{mesh} using opendx. Connections are rendered as defined by -## @var{color} -## -## Example: -## @example -## -## FPL2trspdesurf(mesh1,"blue",data1, mesh2,"red",data2) -## -## @end example -## @seealso{FPL2pdesurf, FPL2ptcsurf, FPL2trspdesurf} -## @end deftypefn - -function FPL2trsptcsurf(varargin) - - datalist = ""; - colorlist = ""; - - for ii = 1:3:nargin - seriesend = columns(varargin{ii+2}); - dataname = mktemp("/tmp",".dx"); - colorname = varargin{ii+1}; - FPL2dxoutputtimeseries(dataname, varargin{ii}.p, varargin{ii}.t, ... - varargin{ii+2}, "dataseries", 0, 1, ... - 1:seriesend); - datalist = strcat(datalist, """", dataname ,""""); - colorlist = strcat(colorlist, """", colorname, """"); - endfor - - scriptname = mktemp("/tmp",".net"); - - view = file_in_path(path,"FPL2trsptcsurf.net"); - - system (["cp " view " " scriptname]); - system (["sed -i \'s|""FILELIST""|" datalist "|g\' " scriptname]); - system (["sed -i \'s|""COLORLIST""|" colorlist "|g\' " scriptname]); - - command = ["dx -noConfirmedQuit -program " scriptname " -execute -image >& /dev/null & "]; - system(command); -endfunction - -function filename = mktemp (direct,ext); - - if (~exist(direct,"dir")) - error("Trying to save temporary file to non existing directory") - endif - - done = false; - - while ~done - filename = [direct,"/FPL.",num2str(floor(rand*1e7)),ext]; - if ~exist(filename,"file") - done = true; - endif - endwhile - -endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2trsptcsurf.net --- a/extra/fpl/inst/deprecated/FPL2trsptcsurf.net Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,923 +0,0 @@ -// -// time: Sun Jan 6 17:08:01 2008 -// -// version: 3.2.0 (format), 4.4.4 (DX) -// -// -// MODULE main -// workspace: width = 1098, height = 1006 -// layout: snap = 1, width = 10, height = 10, align = CC -// -macro main( -) -> ( -) { - // - // node CollectMultiGrid[1]: x = 425, y = 404, inputs = 4, label = CollectMultiGrid - // input[1]: defaulting = 0, visible = 1, type = 67108863, value = NULL - // input[3]: defaulting = 0, visible = 1, type = 67108863, value = NULL - // -main_CollectMultiGrid_1_out_1 = - CollectMultiGrid( - main_CollectMultiGrid_1_in_1, - main_CollectMultiGrid_1_in_2, - main_CollectMultiGrid_1_in_3, - main_CollectMultiGrid_1_in_4 - ) [instance: 1, cache: 1]; - // - // node StringList[1]: x = 178, y = 24, inputs = 0, label = StringList - // output[1]: visible = 1, type = 16777248, value = { "FILELIST" } - // - // - // node ForEachMember[1]: x = 155, y = 124, inputs = 1, label = ForEachMember - // -main_ForEachMember_1_out_1, -main_ForEachMember_1_out_2, -main_ForEachMember_1_out_3 = - ForEachMember( - main_StringList_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Import[1]: x = 159, y = 224, inputs = 6, label = Import - // -main_Import_1_out_1 = - Import( - main_ForEachMember_1_out_1, - main_Import_1_in_2, - main_Import_1_in_3, - main_Import_1_in_4, - main_Import_1_in_5, - main_Import_1_in_6 - ) [instance: 1, cache: 1]; - // - // node Value[1]: x = 993, y = 294, inputs = 0, label = Value - // output[1]: visible = 1, type = 29, value = 0 - // - // - // node Inquire[1]: x = 879, y = 294, inputs = 3, label = Inquire - // input[2]: defaulting = 0, visible = 1, type = 32, value = "member count" - // -main_Inquire_1_out_1 = - Inquire( - main_Import_1_out_1, - main_Inquire_1_in_2, - main_Inquire_1_in_3 - ) [instance: 1, cache: 1]; - // - // node Value[2]: x = 1053, y = 74, inputs = 0, label = Value - // output[1]: visible = 1, type = 29, value = 1 - // - // - // node Compute[1]: x = 1021, y = 164, inputs = 3, label = Compute - // input[1]: defaulting = 0, visible = 0, type = 32, value = "$0 - $1" - // expression: value = a - b - // name[2]: value = a - // name[3]: value = b - // -main_Compute_1_out_1 = - Compute( - main_Compute_1_in_1, - main_Inquire_1_out_1, - main_Value_2_out_1 - ) [instance: 1, cache: 1]; - // - // node Sequencer[1]: x = 995, y = 394, inputs = 7, label = Sequencer - // input[1]: defaulting = 0, visible = 0, type = 32, value = "Sequencer_1" - // input[4]: defaulting = 1, visible = 1, type = 1, value = 0 - // input[5]: defaulting = 1, visible = 1, type = 1, value = 95 - // input[6]: defaulting = 1, visible = 0, type = 1, value = 1 - // input[7]: defaulting = 0, visible = 0, type = 16777217, value = { 0 95 1 0 95 1 } - // vcr[1]: min = 0, max = 95, beg = 0, end = 95, cur = 38, inc = 1, loop = off, step = off, pal = off - // window: position = (0.0132,0.0833), size = 0.1750x0.0667 - // - main_Sequencer_1_in_3 = @frame; -main_Sequencer_1_out_1[cache: 2] = - Sequencer( - main_Sequencer_1_in_1, - main_Sequencer_1_in_2, - main_Sequencer_1_in_3, - main_Value_1_out_1, - main_Compute_1_out_1, - main_Sequencer_1_in_6, - main_Sequencer_1_in_7 - ) [instance: 1, cache: 1]; - // - // node Select[1]: x = 851, y = 394, inputs = 3, label = Select - // -main_Select_1_out_1 = - Select( - main_Import_1_out_1, - main_Sequencer_1_out_1, - main_Select_1_in_3 - ) [instance: 1, cache: 1]; - // - // node ShowConnections[1]: x = 449, y = 324, inputs = 1, label = ShowConnections - // -main_ShowConnections_1_out_1 = - ShowConnections( - main_Select_1_out_1 - ) [instance: 1, cache: 1]; - // - // node StringList[2]: x = 628, y = 224, inputs = 0, label = StringList - // output[1]: visible = 1, type = 16777248, value = { "COLORLIST" } - // - // - // node ForEachMember[2]: x = 605, y = 324, inputs = 1, label = ForEachMember - // -main_ForEachMember_2_out_1, -main_ForEachMember_2_out_2, -main_ForEachMember_2_out_3 = - ForEachMember( - main_StringList_2_out_1 - ) [instance: 2, cache: 1]; - // - // node Color[1]: x = 589, y = 404, inputs = 5, label = Color - // input[3]: defaulting = 0, visible = 1, type = 5, value = .3 - // -main_Color_1_out_1 = - Color( - main_ShowConnections_1_out_1, - main_ForEachMember_2_out_1, - main_Color_1_in_3, - main_Color_1_in_4, - main_Color_1_in_5 - ) [instance: 1, cache: 1]; - // - // node GetLocal[3]: x = 732, y = 394, inputs = 3, label = GetLocal - // -main_GetLocal_3_out_1, -main_GetLocal_3_out_2 = - GetLocal( - main_GetLocal_3_in_1, - main_GetLocal_3_in_2, - main_GetLocal_3_in_3 - ) [instance: 3, cache: 1]; - // - // node Append[1]: x = 555, y = 484, inputs = 5, label = Append - // -main_Append_1_out_1 = - Append( - main_CollectMultiGrid_1_out_1, - main_Color_1_out_1, - main_Append_1_in_3, - main_GetLocal_3_out_1, - main_Append_1_in_5 - ) [instance: 1, cache: 1]; - // - // node GetLocal[4]: x = 1012, y = 484, inputs = 3, label = GetLocal - // -main_GetLocal_4_out_1, -main_GetLocal_4_out_2 = - GetLocal( - main_GetLocal_4_in_1, - main_GetLocal_4_in_2, - main_GetLocal_4_in_3 - ) [instance: 4, cache: 1]; - // - // node Append[2]: x = 835, y = 484, inputs = 5, label = Append - // -main_Append_2_out_1 = - Append( - main_CollectMultiGrid_1_out_1, - main_Select_1_out_1, - main_Append_2_in_3, - main_GetLocal_4_out_1, - main_Append_2_in_5 - ) [instance: 2, cache: 1]; - // - // node RubberSheet[2]: x = 786, y = 644, inputs = 4, label = RubberSheet - // input[2]: defaulting = 1, visible = 1, type = 5, value = .1 - // -main_RubberSheet_2_out_1 = - RubberSheet( - main_Append_2_out_1, - main_RubberSheet_2_in_2, - main_RubberSheet_2_in_3, - main_RubberSheet_2_in_4 - ) [instance: 2, cache: 1]; - // - // node Shade[1]: x = 899, y = 684, inputs = 8, label = Shade - // input[2]: defaulting = 0, visible = 1, type = 3, value = 1 - // input[3]: defaulting = 0, visible = 1, type = 32, value = "smooth" - // -main_Shade_1_out_1 = - Shade( - main_RubberSheet_2_out_1, - main_Shade_1_in_2, - main_Shade_1_in_3, - main_Shade_1_in_4, - main_Shade_1_in_5, - main_Shade_1_in_6, - main_Shade_1_in_7, - main_Shade_1_in_8 - ) [instance: 1, cache: 1]; - // - // node Statistics[1]: x = 135, y = 324, inputs = 1, label = Statistics - // -main_Statistics_1_out_1, -main_Statistics_1_out_2, -main_Statistics_1_out_3, -main_Statistics_1_out_4, -main_Statistics_1_out_5 = - Statistics( - main_Import_1_out_1 - ) [instance: 1, cache: 1]; - // - // node GetLocal[2]: x = 12, y = 324, inputs = 3, label = GetLocal - // -main_GetLocal_2_out_1, -main_GetLocal_2_out_2 = - GetLocal( - main_GetLocal_2_in_1, - main_GetLocal_2_in_2, - main_GetLocal_2_in_3 - ) [instance: 2, cache: 1]; - // - // node List[2]: x = 111, y = 464, inputs = 2, label = List - // -main_List_2_out_1 = - List( - main_Statistics_1_out_4, - main_GetLocal_2_out_1 - ) [instance: 2, cache: 1]; - // - // node Statistics[3]: x = 75, y = 594, inputs = 1, label = Statistics - // -main_Statistics_3_out_1, -main_Statistics_3_out_2, -main_Statistics_3_out_3, -main_Statistics_3_out_4, -main_Statistics_3_out_5 = - Statistics( - main_List_2_out_1 - ) [instance: 3, cache: 1]; - // - // node GetLocal[1]: x = 302, y = 324, inputs = 3, label = GetLocal - // -main_GetLocal_1_out_1, -main_GetLocal_1_out_2 = - GetLocal( - main_GetLocal_1_in_1, - main_GetLocal_1_in_2, - main_GetLocal_1_in_3 - ) [instance: 1, cache: 1]; - // - // node List[1]: x = 231, y = 464, inputs = 2, label = List - // -main_List_1_out_1 = - List( - main_Statistics_1_out_5, - main_GetLocal_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Statistics[2]: x = 235, y = 594, inputs = 1, label = Statistics - // -main_Statistics_2_out_1, -main_Statistics_2_out_2, -main_Statistics_2_out_3, -main_Statistics_2_out_4, -main_Statistics_2_out_5 = - Statistics( - main_List_1_out_1 - ) [instance: 2, cache: 1]; - // - // node AutoColor[1]: x = 896, y = 804, inputs = 10, label = AutoColor - // input[2]: defaulting = 0, visible = 0, type = 5, value = 1.0 - // input[8]: visible = 1 - // -main_AutoColor_1_out_1, -main_AutoColor_1_out_2 = - AutoColor( - main_Shade_1_out_1, - main_AutoColor_1_in_2, - main_AutoColor_1_in_3, - main_AutoColor_1_in_4, - main_AutoColor_1_in_5, - main_AutoColor_1_in_6, - main_Statistics_3_out_4, - main_Statistics_2_out_5, - main_AutoColor_1_in_9, - main_AutoColor_1_in_10 - ) [instance: 1, cache: 1]; - // - // node RubberSheet[4]: x = 606, y = 734, inputs = 4, label = RubberSheet - // input[2]: defaulting = 1, visible = 1, type = 5, value = .1 - // -main_RubberSheet_4_out_1 = - RubberSheet( - main_Append_1_out_1, - main_RubberSheet_4_in_2, - main_RubberSheet_4_in_3, - main_RubberSheet_4_in_4 - ) [instance: 4, cache: 1]; - // - // node ColorBar[1]: x = 835, y = 934, inputs = 16, label = ColorBar - // input[4]: defaulting = 0, visible = 1, type = 3, value = 1 - // -main_ColorBar_1_out_1 = - ColorBar( - main_AutoColor_1_out_2, - main_ColorBar_1_in_2, - main_ColorBar_1_in_3, - main_ColorBar_1_in_4, - main_ColorBar_1_in_5, - main_ColorBar_1_in_6, - main_ColorBar_1_in_7, - main_ColorBar_1_in_8, - main_ColorBar_1_in_9, - main_ColorBar_1_in_10, - main_ColorBar_1_in_11, - main_ColorBar_1_in_12, - main_ColorBar_1_in_13, - main_ColorBar_1_in_14, - main_ColorBar_1_in_15, - main_ColorBar_1_in_16 - ) [instance: 1, cache: 1]; - // - // node Collect[1]: x = 619, y = 844, inputs = 3, label = Collect - // -main_Collect_1_out_1 = - Collect( - main_RubberSheet_4_out_1, - main_AutoColor_1_out_1, - main_ColorBar_1_out_1 - ) [instance: 1, cache: 1]; - // - // node Image[1]: x = 609, y = 944, inputs = 49, label = Image - // input[1]: defaulting = 0, visible = 0, type = 67108863, value = "Image_1" - // input[4]: defaulting = 0, visible = 0, type = 1, value = 0 - // input[14]: defaulting = 0, visible = 0, type = 1, value = 1 - // input[19]: defaulting = 0, visible = 0, type = 3, value = 0 - // depth: value = 24 - // internal caching: 1 - // -main_Image_1_out_1, -main_Image_1_out_2, -main_Image_1_out_3 = - Image( - main_Image_1_in_1, - main_Collect_1_out_1, - main_Image_1_in_3, - main_Image_1_in_4, - main_Image_1_in_5, - main_Image_1_in_6, - main_Image_1_in_7, - main_Image_1_in_8, - main_Image_1_in_9, - main_Image_1_in_10, - main_Image_1_in_11, - main_Image_1_in_12, - main_Image_1_in_13, - main_Image_1_in_14, - main_Image_1_in_15, - main_Image_1_in_16, - main_Image_1_in_17, - main_Image_1_in_18, - main_Image_1_in_19, - main_Image_1_in_20, - main_Image_1_in_21, - main_Image_1_in_22, - main_Image_1_in_23, - main_Image_1_in_24, - main_Image_1_in_25, - main_Image_1_in_26, - main_Image_1_in_27, - main_Image_1_in_28, - main_Image_1_in_29, - main_Image_1_in_30, - main_Image_1_in_31, - main_Image_1_in_32, - main_Image_1_in_33, - main_Image_1_in_34, - main_Image_1_in_35, - main_Image_1_in_36, - main_Image_1_in_37, - main_Image_1_in_38, - main_Image_1_in_39, - main_Image_1_in_40, - main_Image_1_in_41, - main_Image_1_in_42, - main_Image_1_in_43, - main_Image_1_in_44, - main_Image_1_in_45, - main_Image_1_in_46, - main_Image_1_in_47, - main_Image_1_in_48, - main_Image_1_in_49 - ) [instance: 1, cache: 1]; - // - // node SetLocal[1]: x = 332, y = 464, inputs = 3, label = SetLocal - // - SetLocal( - main_List_1_out_1, - main_GetLocal_1_out_2, - main_SetLocal_1_in_3 - ) [instance: 1, cache: 1]; - // - // node SetLocal[2]: x = 12, y = 464, inputs = 3, label = SetLocal - // - SetLocal( - main_List_2_out_1, - main_GetLocal_2_out_2, - main_SetLocal_2_in_3 - ) [instance: 2, cache: 1]; - // - // node SetLocal[3]: x = 732, y = 484, inputs = 3, label = SetLocal - // - SetLocal( - main_Append_1_out_1, - main_GetLocal_3_out_2, - main_SetLocal_3_in_3 - ) [instance: 3, cache: 1]; - // - // node SetLocal[4]: x = 1012, y = 564, inputs = 3, label = SetLocal - // - SetLocal( - main_Append_2_out_1, - main_GetLocal_4_out_2, - main_SetLocal_4_in_3 - ) [instance: 4, cache: 1]; -// network: end of macro body -CacheScene(main_Image_1_in_1, main_Image_1_out_1, main_Image_1_out_2); -} -main_CollectMultiGrid_1_in_1 = NULL; -main_CollectMultiGrid_1_in_2 = NULL; -main_CollectMultiGrid_1_in_3 = NULL; -main_CollectMultiGrid_1_in_4 = NULL; -main_CollectMultiGrid_1_out_1 = NULL; -main_StringList_1_out_1 = { "FILELIST" }; -main_ForEachMember_1_out_1 = NULL; -main_Import_1_in_2 = NULL; -main_Import_1_in_3 = NULL; -main_Import_1_in_4 = NULL; -main_Import_1_in_5 = NULL; -main_Import_1_in_6 = NULL; -main_Import_1_out_1 = NULL; -main_Value_1_out_1 = 0; -main_Inquire_1_in_2 = "member count"; -main_Inquire_1_in_3 = NULL; -main_Inquire_1_out_1 = NULL; -main_Value_2_out_1 = 1; -main_Compute_1_in_1 = "$0 - $1"; -main_Compute_1_out_1 = NULL; -main_Sequencer_1_in_1 = "Sequencer_1"; -main_Sequencer_1_in_2 = NULL; -main_Sequencer_1_in_3 = NULL; -main_Sequencer_1_in_6 = NULL; -main_Sequencer_1_in_7 = { 0 95 1 0 95 1 }; -main_Sequencer_1_out_1 = NULL; - -@startframe = 0; -@nextframe = @startframe; -@endframe = 95; -@deltaframe = 1; -main_Select_1_in_3 = NULL; -main_Select_1_out_1 = NULL; -main_ShowConnections_1_out_1 = NULL; -main_StringList_2_out_1 = { "COLORLIST" }; -main_ForEachMember_2_out_1 = NULL; -main_Color_1_in_3 = .3; -main_Color_1_in_4 = NULL; -main_Color_1_in_5 = NULL; -main_Color_1_out_1 = NULL; -main_GetLocal_3_in_1 = NULL; -main_GetLocal_3_in_2 = NULL; -main_GetLocal_3_in_3 = NULL; -main_GetLocal_3_out_1 = NULL; -main_GetLocal_3_out_2 = NULL; -main_Append_1_in_3 = NULL; -main_Append_1_in_5 = NULL; -main_Append_1_out_1 = NULL; -main_GetLocal_4_in_1 = NULL; -main_GetLocal_4_in_2 = NULL; -main_GetLocal_4_in_3 = NULL; -main_GetLocal_4_out_1 = NULL; -main_GetLocal_4_out_2 = NULL; -main_Append_2_in_3 = NULL; -main_Append_2_in_5 = NULL; -main_Append_2_out_1 = NULL; -main_RubberSheet_2_in_2 = NULL; -main_RubberSheet_2_in_3 = NULL; -main_RubberSheet_2_in_4 = NULL; -main_RubberSheet_2_out_1 = NULL; -main_Shade_1_in_2 = 1; -main_Shade_1_in_3 = "smooth"; -main_Shade_1_in_4 = NULL; -main_Shade_1_in_5 = NULL; -main_Shade_1_in_6 = NULL; -main_Shade_1_in_7 = NULL; -main_Shade_1_in_8 = NULL; -main_Shade_1_out_1 = NULL; -main_Statistics_1_out_4 = NULL; -main_Statistics_1_out_5 = NULL; -main_GetLocal_2_in_1 = NULL; -main_GetLocal_2_in_2 = NULL; -main_GetLocal_2_in_3 = NULL; -main_GetLocal_2_out_1 = NULL; -main_GetLocal_2_out_2 = NULL; -main_List_2_out_1 = NULL; -main_Statistics_3_out_4 = NULL; -main_GetLocal_1_in_1 = NULL; -main_GetLocal_1_in_2 = NULL; -main_GetLocal_1_in_3 = NULL; -main_GetLocal_1_out_1 = NULL; -main_GetLocal_1_out_2 = NULL; -main_List_1_out_1 = NULL; -main_Statistics_2_out_5 = NULL; -main_AutoColor_1_in_2 = 1.0; -main_AutoColor_1_in_3 = NULL; -main_AutoColor_1_in_4 = NULL; -main_AutoColor_1_in_5 = NULL; -main_AutoColor_1_in_6 = NULL; -main_AutoColor_1_in_9 = NULL; -main_AutoColor_1_in_10 = NULL; -main_AutoColor_1_out_1 = NULL; -main_AutoColor_1_out_2 = NULL; -main_RubberSheet_4_in_2 = NULL; -main_RubberSheet_4_in_3 = NULL; -main_RubberSheet_4_in_4 = NULL; -main_RubberSheet_4_out_1 = NULL; -main_ColorBar_1_in_2 = NULL; -main_ColorBar_1_in_3 = NULL; -main_ColorBar_1_in_4 = 1; -main_ColorBar_1_in_5 = NULL; -main_ColorBar_1_in_6 = NULL; -main_ColorBar_1_in_7 = NULL; -main_ColorBar_1_in_8 = NULL; -main_ColorBar_1_in_9 = NULL; -main_ColorBar_1_in_10 = NULL; -main_ColorBar_1_in_11 = NULL; -main_ColorBar_1_in_12 = NULL; -main_ColorBar_1_in_13 = NULL; -main_ColorBar_1_in_14 = NULL; -main_ColorBar_1_in_15 = NULL; -main_ColorBar_1_in_16 = NULL; -main_ColorBar_1_out_1 = NULL; -main_Collect_1_out_1 = NULL; -macro Image( - id, - object, - where, - useVector, - to, - from, - width, - resolution, - aspect, - up, - viewAngle, - perspective, - options, - buttonState = 1, - buttonUpApprox = "none", - buttonDownApprox = "none", - buttonUpDensity = 1, - buttonDownDensity = 1, - renderMode = 0, - defaultCamera, - reset, - backgroundColor, - throttle, - RECenable = 0, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable = 0, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - interactionMode, - title, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - webOptions) -> ( - object, - camera, - where) -{ - ImageMessage( - id, - backgroundColor, - throttle, - RECenable, - RECfile, - RECformat, - RECresolution, - RECaspect, - AAenable, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels, - interactionMode, - title, - renderMode, - buttonUpApprox, - buttonDownApprox, - buttonUpDensity, - buttonDownDensity) [instance: 1, cache: 1]; - autoCamera = - AutoCamera( - object, - "front", - object, - resolution, - aspect, - [0,1,0], - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - realCamera = - Camera( - to, - from, - width, - resolution, - aspect, - up, - perspective, - viewAngle, - backgroundColor) [instance: 1, cache: 1]; - coloredDefaultCamera = - UpdateCamera(defaultCamera, - background=backgroundColor) [instance: 1, cache: 1]; - nullDefaultCamera = - Inquire(defaultCamera, - "is null + 1") [instance: 1, cache: 1]; - resetCamera = - Switch( - nullDefaultCamera, - coloredDefaultCamera, - autoCamera) [instance: 1, cache: 1]; - resetNull = - Inquire( - reset, - "is null + 1") [instance: 2, cache: 1]; - reset = - Switch( - resetNull, - reset, - 0) [instance: 2, cache: 1]; - whichCamera = - Compute( - "($0 != 0 || $1 == 0) ? 1 : 2", - reset, - useVector) [instance: 1, cache: 1]; - camera = Switch( - whichCamera, - resetCamera, - realCamera) [instance: 3, cache: 1]; - AAobject = - AutoAxes( - object, - camera, - AAlabels, - AAticks, - AAcorners, - AAframe, - AAadjust, - AAcursor, - AAgrid, - AAcolors, - AAannotation, - AAlabelscale, - AAfont, - AAxTickLocs, - AAyTickLocs, - AAzTickLocs, - AAxTickLabels, - AAyTickLabels, - AAzTickLabels) [instance: 1, cache: 1]; - switchAAenable = Compute("$0+1", - AAenable) [instance: 2, cache: 1]; - object = Switch( - switchAAenable, - object, - AAobject) [instance:4, cache: 1]; - SWapproximation_options = - Switch( - buttonState, - buttonUpApprox, - buttonDownApprox) [instance: 5, cache: 1]; - SWdensity_options = - Switch( - buttonState, - buttonUpDensity, - buttonDownDensity) [instance: 6, cache: 1]; - HWapproximation_options = - Format( - "%s,%s", - buttonDownApprox, - buttonUpApprox) [instance: 1, cache: 1]; - HWdensity_options = - Format( - "%d,%d", - buttonDownDensity, - buttonUpDensity) [instance: 2, cache: 1]; - switchRenderMode = Compute( - "$0+1", - renderMode) [instance: 3, cache: 1]; - approximation_options = Switch( - switchRenderMode, - SWapproximation_options, - HWapproximation_options) [instance: 7, cache: 1]; - density_options = Switch( - switchRenderMode, - SWdensity_options, - HWdensity_options) [instance: 8, cache: 1]; - renderModeString = Switch( - switchRenderMode, - "software", - "hardware")[instance: 9, cache: 1]; - object_tag = Inquire( - object, - "object tag")[instance: 3, cache: 1]; - annoted_object = - Options( - object, - "send boxes", - 0, - "cache", - 1, - "object tag", - object_tag, - "ddcamera", - whichCamera, - "rendering approximation", - approximation_options, - "render every", - density_options, - "button state", - buttonState, - "rendering mode", - renderModeString) [instance: 1, cache: 1]; - RECresNull = - Inquire( - RECresolution, - "is null + 1") [instance: 4, cache: 1]; - ImageResolution = - Inquire( - camera, - "camera resolution") [instance: 5, cache: 1]; - RECresolution = - Switch( - RECresNull, - RECresolution, - ImageResolution) [instance: 10, cache: 1]; - RECaspectNull = - Inquire( - RECaspect, - "is null + 1") [instance: 6, cache: 1]; - ImageAspect = - Inquire( - camera, - "camera aspect") [instance: 7, cache: 1]; - RECaspect = - Switch( - RECaspectNull, - RECaspect, - ImageAspect) [instance: 11, cache: 1]; - switchRECenable = Compute( - "$0 == 0 ? 1 : (($2 == $3) && ($4 == $5)) ? ($1 == 1 ? 2 : 3) : 4", - RECenable, - switchRenderMode, - RECresolution, - ImageResolution, - RECaspect, - ImageAspect) [instance: 4, cache: 1]; - NoRECobject, RECNoRerenderObject, RECNoRerHW, RECRerenderObject = Route(switchRECenable, annoted_object); - Display( - NoRECobject, - camera, - where, - throttle) [instance: 1, cache: 1]; - image = - Render( - RECNoRerenderObject, - camera) [instance: 1, cache: 1]; - Display( - image, - NULL, - where, - throttle) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 1, cache: 1]; - rec_where = Display( - RECNoRerHW, - camera, - where, - throttle) [instance: 1, cache: 0]; - rec_image = ReadImageWindow( - rec_where) [instance: 1, cache: 1]; - WriteImage( - rec_image, - RECfile, - RECformat) [instance: 1, cache: 1]; - RECupdateCamera = - UpdateCamera( - camera, - resolution=RECresolution, - aspect=RECaspect) [instance: 2, cache: 1]; - Display( - RECRerenderObject, - camera, - where, - throttle) [instance: 1, cache: 1]; - RECRerenderObject = - ScaleScreen( - RECRerenderObject, - NULL, - RECresolution, - camera) [instance: 1, cache: 1]; - image = - Render( - RECRerenderObject, - RECupdateCamera) [instance: 2, cache: 1]; - WriteImage( - image, - RECfile, - RECformat) [instance: 2, cache: 1]; -} -main_Image_1_in_1 = "Image_1"; -main_Image_1_in_3 = "X24,,"; -main_Image_1_in_4 = 0; -main_Image_1_in_5 = NULL; -main_Image_1_in_6 = NULL; -main_Image_1_in_7 = NULL; -main_Image_1_in_8 = NULL; -main_Image_1_in_9 = NULL; -main_Image_1_in_10 = NULL; -main_Image_1_in_11 = NULL; -main_Image_1_in_12 = NULL; -main_Image_1_in_13 = NULL; -main_Image_1_in_14 = 1; -main_Image_1_in_15 = NULL; -main_Image_1_in_16 = NULL; -main_Image_1_in_17 = NULL; -main_Image_1_in_18 = NULL; -main_Image_1_in_19 = 0; -main_Image_1_in_20 = NULL; -main_Image_1_in_21 = NULL; -main_Image_1_in_22 = NULL; -main_Image_1_in_23 = NULL; -main_Image_1_in_25 = NULL; -main_Image_1_in_26 = NULL; -main_Image_1_in_27 = NULL; -main_Image_1_in_28 = NULL; -main_Image_1_in_29 = NULL; -main_Image_1_in_30 = NULL; -main_Image_1_in_31 = NULL; -main_Image_1_in_32 = NULL; -main_Image_1_in_33 = NULL; -main_Image_1_in_34 = NULL; -main_Image_1_in_35 = NULL; -main_Image_1_in_36 = NULL; -main_Image_1_in_37 = NULL; -main_Image_1_in_38 = NULL; -main_Image_1_in_39 = NULL; -main_Image_1_in_40 = NULL; -main_Image_1_in_41 = NULL; -main_Image_1_in_42 = NULL; -main_Image_1_in_43 = NULL; -main_Image_1_in_44 = NULL; -main_Image_1_in_45 = NULL; -main_Image_1_in_46 = NULL; -main_Image_1_in_47 = NULL; -main_Image_1_in_48 = NULL; -main_Image_1_in_49 = NULL; -main_SetLocal_1_in_3 = NULL; -main_SetLocal_2_in_3 = NULL; -main_SetLocal_3_in_3 = NULL; -main_SetLocal_4_in_3 = NULL; -Executive("product version 4 4 4"); -$sync - -sequence main(); -play; diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL2vtkoutputdata.m --- a/extra/fpl/inst/deprecated/FPL2vtkoutputdata.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,144 +0,0 @@ -## Copyright (C) 2008 Carlo de Falco -## -## This program is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## This program is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with this program; if not, write to the Free Software -## Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA - - -## -*- texinfo -*- -## @deftypefn {Function File} {} FPL2vtkoutputdata ( @var{filename}, @var{p}, @var{t}, @var{nodedata}, @var{celldata}, @var{header}, @var{vtkver}) -## -## Save data in VTK ASCII format. -## -## @itemize @minus -## @item @var{filename} = name of file to save into -## @item @var{p}, @var{t} = mesh node coordinates and connectivity -## @item @var{name} = name of a mesh variable -## @item @var{nodedata}/@var{celldata} = node/cell centered data -## fields (2xNfields cell array), @var{*data}@{:,1@} = variable names; -## @var{*data}@{:,2@} = variable data; -## @item @var{header} comment to add in the file header -## @item @var{vtkver} format version (default is 3.0) -## @end itemize -## -## @seealso{FPL2dxoutputdata} -## @end deftypefn - -function FPL2vtkoutputdata (filename, p, t, nodedata, celldata, header, vtkver) - - fid = fopen (filename, "w"); - if ( fid ) - - ## version ID - if (!exist("vtkver")) - vtkver = [3 0]; - endif - - fprintf (fid, "# vtk DataFile Version %d.%d\n", vtkver(1), vtkver(2)); - - ## header - if (!exist("header")) - header = ""; - elseif (length(header) > 255) - header (255:end) = []; - endif - - fprintf (fid, "%s\n", header); - - ## File format: only ASCII supported for the moment - fprintf (fid, "ASCII\n"); - - ## Mesh: only triangles suported - fprintf (fid, "DATASET UNSTRUCTURED_GRID\n"); - - Nnodes = columns(p); - fprintf (fid,"POINTS %d double\n", Nnodes); - fprintf (fid,"%g %g 0\n", p); - - Nelem = columns(t); - T = zeros(4,Nelem); - T(1,:)= 3; - T(2:4,:) = t(1:3,:) -1; - fprintf (fid,"CELLS %d %d\n", Nelem, Nelem*4); - fprintf (fid,"%d %d %d %d\n", T); - fprintf (fid,"CELL_TYPES %d \n", Nelem); - fprintf (fid,"%d\n", 5*ones(Nelem,1)); - - ## node data - if (exist("nodedata")) - nfields = rows(nodedata); - if nfields - fprintf (fid,"POINT_DATA %d\n", Nnodes); - for ifield = 1:nfields - V = nodedata {ifield, 2}; - N = nodedata {ifield, 1}; - if (isvector (V)) - fprintf (fid,"SCALARS %s double\nLOOKUP_TABLE default\n", N); - fprintf (fid,"%g\n", V); - else - V(:,3) = 0; - fprintf (fid,"VECTORS %s double\nLOOKUP_TABLE default\n", N); - fprintf (fid,"%g %g %g\n", V); - endif - endfor - endif - endif - - ## cell data - if (exist("celldata")) - nfields = rows(celldata); - if nfields - fprintf (fid,"CELL_DATA %d\n", Nelem); - for ifield = 1:nfields - V = celldata {ifield, 2}; - N = celldata {ifield, 1}; - if (isvector (V)) - fprintf (fid,"SCALARS %s double\nLOOKUP_TABLE default\n", N); - fprintf (fid,"%g\n", V); - else - V(:,3) = 0; - fprintf (fid,"VECTORS %s double\nLOOKUP_TABLE default\n", N); - fprintf (fid,"%g %g %g\n", V); - endif - endfor - endif - endif - - ## cleanup - fclose (fid); - else - error(["FPL2vtkoutputdata: could not open file " filename]); - endif -endfunction - -%!test -%! msh.p =[ 0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3 -%! 0 1 2 3 0 1 2 3 0 1 2 3 0 1 2 3]; -%! msh.e =[1 5 9 13 14 15 4 8 12 1 2 3 -%! 5 9 13 14 15 16 8 12 16 2 3 4 -%! 0 0 0 0 0 0 0 0 0 0 0 0 -%! 0 0 0 0 0 0 0 0 0 0 0 0 -%! 1 1 1 2 2 2 3 3 3 4 4 4 -%! 0 0 0 0 0 0 0 0 0 0 0 0 -%! 1 1 1 1 1 1 1 1 1 1 1 1]; -%! msh.t =[ 1 2 3 5 6 7 9 10 11 1 2 3 5 6 7 9 10 11 -%! 5 6 7 9 10 11 13 14 15 6 7 8 10 11 12 14 15 16 -%! 6 7 8 10 11 12 14 15 16 2 3 4 6 7 8 10 11 12 -%! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]; -%! testfile = "# vtk DataFile Version 3.0\n\nASCII\nDATASET UNSTRUCTURED_GRID\nPOINTS 16 double\n0 0 0\n0 1 0\n0 2 0\n0 3 0\n1 0 0\n1 1 0\n1 2 0\n1 3 0\n2 0 0\n2 1 0\n2 2 0\n2 3 0\n3 0 0\n3 1 0\n3 2 0\n3 3 0\nCELLS 18 72\n3 0 4 5\n3 1 5 6\n3 2 6 7\n3 4 8 9\n3 5 9 10\n3 6 10 11\n3 8 12 13\n3 9 13 14\n3 10 14 15\n3 0 5 1\n3 1 6 2\n3 2 7 3\n3 4 9 5\n3 5 10 6\n3 6 11 7\n3 8 13 9\n3 9 14 10\n3 10 15 11\nCELL_TYPES 18 \n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\n5\nPOINT_DATA 16\nSCALARS u double\nLOOKUP_TABLE default\n0\n0\n0\n0\n1\n1\n1\n1\n2\n2\n2\n2\n3\n3\n3\n3\n"; -%! FPL2vtkoutputdata ("__FPL2vtkoutputdata__test__.vtk", msh.p, msh.t, {"u", msh.p(1,:).'}); -%! fid = fopen("__FPL2vtkoutputdata__test__.vtk","r"); -%! s = fread(fid); -%! fclose(fid); -%! assert (char(s'), testfile); -%! delete __FPL2vtkoutputdata__test__.vtk diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL3dxoutputfield.m --- a/extra/fpl/inst/deprecated/FPL3dxoutputfield.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,76 +0,0 @@ -## Copyright (C) 2004-2008 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## @deftypefn {Function File} {} FPL3dxoutputfield( @var{filename}, @ -## @var{meshfilename}, @var{dep}, @var{u}, @var{attr_name}, @var{attr_rank}, @ -## @var{attr_shape}, @var{endfile} ) -## -## Outputs data in DX form. -## -## Variable must be a scalar, vector or tensor of doubles -## -## @itemize @minus -## @item @var{filename} = name of file to save (type string) -## @item @var{meshfilename} = name of mesh file (type string) -## @item @var{dep} = "positions" for node data, "connections" for element data -## @item @var{field} = field data to be saved -## @item @var{attr_name} = name of the variable (type string) -## @item @var{attr_rank} = rank of variable data (0 for scalar, 1 for vector, etc.) -## @item @var{attr_shape} = number of components of variable data (assumed 1 for scalar) -## @end itemize -## @end deftypefn - -function FPL3dxoutputfield(filename,meshfilename,dep,field,attr_name,attr_rank,attr_shape) - - fid = fopen (filename,"w"); - nnodes = size(field,1); - - if ((attr_rank==0) && (min(size(field))==1)) - fprintf(fid,"object ""%s.data""\nclass array type double rank 0 items %d data follows",attr_name,nnodes); - fprintf(fid,"\n %e",field); - else - fprintf(fid,"object ""%s.data""\nclass array type double rank %d shape %d items %d data follows",attr_name,attr_rank,attr_shape,nnodes); - for ii = 1:nnodes - fprintf(fid,"\n"); - fprintf(fid," %e",field(ii,:)); - endfor - endif - fprintf(fid,"\nattribute ""dep"" string ""%s""\n\n",dep); - fprintf(fid,"object ""%s"" class field\n",attr_name); - fprintf(fid,"component ""positions"" file %s ""pos""\n",meshfilename); - fprintf(fid,"component ""connections"" file %s ""con""\n",meshfilename); - fprintf(fid,"component ""data"" value ""%s.data""\n",attr_name); - - fprintf(fid,"\nend\n"); - fclose (fid); - -endfunction - - diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/deprecated/FPL3dxoutputmesh.m --- a/extra/fpl/inst/deprecated/FPL3dxoutputmesh.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,110 +0,0 @@ -## Copyright (C) 2004-2008,2009 Carlo de Falco, Massimiliano Culpo -## -## This file is part of -## -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## -## AUTHORS: -## Carlo de Falco -## -## Culpo Massimiliano -## Bergische Universitaet Wuppertal -## Fachbereich C - Mathematik und Naturwissenschaften -## Arbeitsgruppe fuer Angewandte MathematD-42119 Wuppertal Gaussstr. 20 -## D-42119 Wuppertal, Germany - -## -*- texinfo -*- -## @deftypefn {Function File} {} FPL3dxoutputmesh ( @var{filename}, @ -## @var{mesh} ) -## -## Outputs data in DX form. -## -## Variable must be a scalar, vector or tensor of doubles -## -## @itemize @minus -## @item @var{filename} = name of file to save (type string) -## @item @var{mesh} = PDE-tool like mesh -## @end itemize -## @end deftypefn - - -function FPL3dxoutputmesh(filename,mesh) - - nodes = mesh.p'; - elem = mesh.t(1:4,:)'; - - fid = fopen (filename,"w"); - nnodes = columns(mesh.p); - nelem = columns(mesh.t); - - fprintf(fid,"object ""pos""\nclass array type float rank 1 shape 3 items %d data follows",nnodes); - for ii = 1:nnodes - fprintf(fid,"\n"); - fprintf(fid," %e",nodes(ii,:)); - endfor - - ## In DX format nodes are numbered starting from zero, - ## instead we want to number them starting from 1. - if (min(min(elem))==1) - elem = elem - 1; - elseif(min(min(elem))~=0) - error("WARNING: check tetrahedra structure"); - end - - fprintf(fid,"\n\nobject ""con""\nclass array type int rank 1 shape 4 items %d data follows",nelem); - for ii = 1:nelem - fprintf(fid,"\n"); - fprintf(fid," %d",elem(ii,:)); - endfor - - fprintf(fid,"\nattribute ""element type"" string ""tetrahedra""\nattribute ""ref"" string ""positions""\n\n"); - - fprintf(fid,"object ""themesh"" class field\n"); - fprintf(fid,"component ""positions"" value ""pos""\n"); - fprintf(fid,"component ""connections"" value ""con""\n"); - - fprintf(fid,"\nend\n"); - fclose (fid); - -endfunction - -%!test -%! msh.p =[ 0 0 1 1 0 0 1 1 -%! 0 1 0 1 0 1 0 1 -%! 0 0 0 0 1 1 1 1]; -%! msh.e =[1 5 7 8 5 5 6 8 1 3 5 7 -%! 2 6 3 3 7 3 2 6 3 2 6 6 -%! 6 1 8 4 3 1 4 4 2 4 7 8 -%! 0 0 0 0 0 0 0 0 0 0 0 0 -%! 0 0 0 0 0 0 0 0 0 0 0 0 -%! 0 0 0 0 0 0 0 0 0 0 0 0 -%! 0 0 0 0 0 0 0 0 0 0 0 0 -%! 0 0 0 0 0 0 0 0 0 0 0 0 -%! 1 1 1 1 1 1 1 1 1 1 1 1 -%! 1 1 2 2 3 3 4 4 5 5 6 6]; -%! msh.t =[ 1 5 5 6 7 8 -%! 3 6 6 3 3 3 -%! 2 7 3 2 6 6 -%! 6 3 1 4 8 4 -%! 1 1 1 1 1 1]; -%! testfile = "object ""pos""\nclass array type float rank 1 shape 3 items 8 data follows\n 0.000000e+00 0.000000e+00 0.000000e+00\n 0.000000e+00 1.000000e+00 0.000000e+00\n 1.000000e+00 0.000000e+00 0.000000e+00\n 1.000000e+00 1.000000e+00 0.000000e+00\n 0.000000e+00 0.000000e+00 1.000000e+00\n 0.000000e+00 1.000000e+00 1.000000e+00\n 1.000000e+00 0.000000e+00 1.000000e+00\n 1.000000e+00 1.000000e+00 1.000000e+00\n\nobject ""con""\nclass array type int rank 1 shape 4 items 6 data follows\n 0 2 1 5\n 4 5 6 2\n 4 5 2 0\n 5 2 1 3\n 6 2 5 7\n 7 2 5 3\nattribute ""element type"" string ""tetrahedra""\nattribute ""ref"" string ""positions""\n\nobject ""themesh"" class field\ncomponent ""positions"" value ""pos""\ncomponent ""connections"" value ""con""\n\nend\n"; -%! FPL3dxoutputmesh ("__FPL3dxoutputmesh__test__.dx",msh); -%! fid = fopen("__FPL3dxoutputmesh__test__.dx","r"); -%! s = fread(fid); -%! fclose(fid); -%! assert (char(s'), testfile); -%! delete __FPL3dxoutputmesh__test__.dx diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/fpl_dx_write_field.m --- a/extra/fpl/inst/fpl_dx_write_field.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,222 +0,0 @@ -## Copyright (C) 2006,2007,2008,2009,2010 Carlo de Falco, Massimiliano Culpo -## -## This file is part of: -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## author: Carlo de Falco -## author: Massimiliano Culpo - -## -*- texinfo -*- -## @deftypefn {Function File} {} fpl_dx_writefield (@var{basename}, @ -## @var{mesh}, @var{u}, @var{attr_name}, @var{attr_rank}, @ -## @var{attr_shape}, @var{endfile}) -## -## Output data field in ASCII Open-DX format. -## -## @var{basename} is a string containing the base-name of the dx file where the -## data will be saved. -## -## @var{mesh} is a PDE-tool like mesh, like the ones generated by the -## "msh" package. -## -## @var{u} is the field to be saved. It should represent scalar, vector -## or tensor of doubles. -## -## @var{attr_name} is a descriptive name for the field @var{u}, while -## @var{attr_rank} is the rank of the field (0 for scalar, 1 for vector, -## etc.) and @var{attr_shape} is the number of components of the field -## (assumed 1 for scalar). -## -## @var{endfile} should be 0 if you want to add other variables to the -## same file, 1 otherwise. -## -## Notice that when appending fields to an already existing file: -## -## @itemize -## @item @var{mesh} will not be printed to @var{filename}, but it will -## be only used to determine if the field is piece-wise constant or -## piece-wise linear -## @item @var{u} is not checked for consistency against the @var{mesh} -## already printed in @var{filename} -## @end itemize -## -## Example 1 (wrong usage): -## @example -## -## fpl_dx_write_field("field.dx",msh1,u1,"density",1,0,0); -## fpl_dx_write_field("field.dx",msh2,u2,"temperature",1,0,1); -## @end example -## generate a file that fails at OpenDX run-time. -## -## Example 2: -## @example -## -## fpl_dx_write_field("field",msh1,u1,"density",1,0,0); -## fpl_dx_write_field("field",msh1,u2,"temperature",1,0,1); -## @end example -## will generate a valid OpenDX ASCII data file. -## -## @seealso{fpl_dx_write_series} -## -## @end deftypefn - -function fpl_dx_write_field(basename,mesh,u,attr_name,attr_rank,attr_shape,endfile) - - ## Check input - if nargin!=7 - error("fpl_dx_write_field: wrong number of input"); - endif - - if !ischar(basename) - error("fpl_dx_write_field: basename should be a valid string"); - elseif !( isstruct(mesh) ) - error("fpl_dx_write_field: mesh should be a valid structure"); - elseif !ismatrix(u) - error("fpl_dx_write_field: u should be a valid matrix"); - elseif !ischar(attr_name) - error("fpl_dx_write_field: attr_name should be a valid string"); - elseif !isscalar(attr_rank) - error("fpl_dx_write_field: attr_rank should be a valid scalar"); - elseif !isscalar(attr_shape) - error("fpl_dx_write_field: attr_shape should be a valid scalar"); - elseif !isscalar(endfile) - error("fpl_dx_write_field: endfile should be a valid scalar"); - endif - - filename = [basename ".dx"]; - - if ! exist(filename,"file") - ## If file does not exist, create it - fid = fopen (filename,"w"); - create = 1; - else - ## FIXME: the following should be performed in a cleaner way! Does a - ## backward fgetl function exist? - - ## If file exist, check if it was already closed - fid = fopen (filename,"r"); - fseek(fid,-4,SEEK_END); - tst = fgetl(fid); - if strcmp(tst,"end") - error("fpl_dx_write_field: file %s exist and was already closed",filename); - endif - fclose(fid); - fid = fopen(filename,"a"); - create = 0; - endif - - p = mesh.p'; - dim = columns(p); # 2D or 3D - - if dim == 2 - t = mesh.t(1:3,:)'; - elseif dim == 3 - t = mesh.t(1:4,:)'; - else - error("fpl_dx_write_field: neither 2D triangle nor 3D tetrahedral mesh"); - endif - - nnodes = rows(p); - nelems = rows(t); - ndatas = rows(u); - - if ndatas == nnodes - dep = "positions"; - elseif ndatas == nelems - dep = "connections"; - else - error("fpl_dx_write_field: neither position nor connection data type") - endif - - if create - ## If the file has just been created, print mesh information - print_grid(fid,dim,p,nnodes,t,nelems); - endif - ## Otherwise assume the mesh is consistent with the one in the file - ## and print only field information - print_data(fid,u,ndatas,dep,attr_name,attr_rank,attr_shape); - - if(endfile) - fprintf(fid,"\nend\n"); - endif - fclose (fid); - -endfunction - -## fprint a 2Dtrg or 3Dtet mesh -function print_grid(fid,dim,p,nnodes,t,nelems) - - fprintf(fid,"object ""pos""\n"); - fprintf(fid,"class array type float rank 1 shape %d items %d data follows",dim,nnodes); - - for ii = 1:nnodes - fprintf(fid,"\n"); - fprintf(fid," %1.7e",p(ii,:)); - endfor - - ## In DX format nodes are - ## numbered starting from zero, - ## instead we want to number - ## them starting from 1! - ## Here we restore the DX - ## format - if (min(min(t))==1) - t -= 1; - elseif(min(min(t))~=0) - error("fpl_dx_write_field: check triangle structure") - endif - - fprintf(fid,"\n\nobject ""con""\n"); - fprintf(fid,"class array type int rank 1 shape %d items %d data follows",dim+1,nelems); - for ii = 1:nelems - fprintf(fid,"\n"); - fprintf(fid," %d",t(ii,:)); - endfor - - fprintf(fid,"\n"); - if dim == 2 - fprintf(fid,"attribute ""element type"" string ""triangles""\n"); - elseif dim == 3 - fprintf(fid,"\nattribute ""element type"" string ""tetrahedra""\n"); - endif - fprintf(fid,"attribute ""ref"" string ""positions""\n\n"); - -endfunction - -## fprint data on a trg grid -function print_data(fid,u,ndatas,dep,attr_name,attr_rank,attr_shape) - - if ((attr_rank == 0) && (min(size(u))==1)) - fprintf(fid,"object ""%s.data""\n",attr_name); - fprintf(fid,"class array type double rank 0 items %d data follows",ndatas); - fprintf(fid,"\n %1.7e",u); - else - fprintf(fid,"object ""%s.data""\n",attr_name); - fprintf(fid,"class array type double rank %d shape %d items %d data follows",attr_rank,attr_shape,ndatas); - for ii=1:ndatas - fprintf(fid,"\n"); - fprintf(fid," %1.7e",u(ii,:)); - endfor - endif - - fprintf(fid,"\n"); - fprintf(fid,"attribute ""dep"" string ""%s"" \n\n",dep); - fprintf(fid,"object ""%s"" class field\n",attr_name); - fprintf(fid,"component ""positions"" value ""pos""\n"); - fprintf(fid,"component ""connections"" value ""con""\n"); - fprintf(fid,"component ""data"" value ""%s.data""\n",attr_name); - fprintf(fid,"\n"); -endfunction diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/fpl_dx_write_series.m --- a/extra/fpl/inst/fpl_dx_write_series.m Mon Aug 17 10:16:44 2015 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,119 +0,0 @@ -## Copyright (C) 2006,2007,2008,2009,2010 Carlo de Falco, Massimiliano Culpo -## -## This file is part of: -## FPL - Fem PLotting package for octave -## -## FPL is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or -## (at your option) any later version. -## -## FPL is distributed in the hope that it will be useful, -## but WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -## GNU General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with FPL; If not, see . -## -## author: Carlo de Falco -## author: Massimiliano Culpo - -## -*- texinfo -*- -## @deftypefn {Function File} {} fpl_dx_write_series (@var{basename}, @ -## @var{mesh}, @var{u}, @var{sp}, @var{attr_name}, @var{attr_rank}, @ -## @var{attr_shape}) -## -## Output data series in ASCII Open-DX format. -## -## @var{basename} is a string containing the base-name of the dx file where the -## data will be saved. -## -## @var{mesh} is a PDE-tool like mesh, like the ones generated by the -## "msh" package. -## -## @var{u} is the series to be saved. It should represent scalar, vector -## or tensor of doubles. @var{sp} is the vector of the sampled points -## (e.g. time points in the case of a time series). -## -## @var{attr_name} is a descriptive name for the series @var{u}, while -## @var{attr_rank} is the rank of the field items (0 for scalar, 1 for -## vector, etc.) and @var{attr_shape} is the number of components of the -## field items (assumed 1 for scalar). -## -## @seealso{fpl_dx_write_field} -## -## @end deftypefn - -function fpl_dx_write_series(basename,mesh,u,tp,attr_name,attr_rank,attr_shape) - - ## FIXME: add append capabilities as in fpl_dx_write_field?? - - if nargin!=7 - error("fpl_dx_write_series: wrong number of input"); - endif - - if !ischar(basename) - error("fpl_dx_write_series: basename should be a valid string"); - elseif !( isstruct(mesh) ) - error("fpl_dx_write_series: mesh should be a valid structure"); - elseif !ismatrix(u) - error("fpl_dx_write_series: u should be a valid matrix"); - elseif !ischar(attr_name) - error("fpl_dx_write_series: attr_name should be a valid string"); - elseif !isscalar(attr_rank) - error("fpl_dx_write_series: attr_rank should be a valid scalar"); - elseif !isscalar(attr_shape) - error("fpl_dx_write_series: attr_shape should be a valid scalar"); - ##elseif !isscalar(endfile) - ##error("fpl_dx_write_series: endfile should be a valid scalar"); - endif - - filename = [basename ".dx"]; - - npoints = length(tp); - - p = mesh.p'; - dim = columns(p); # 2D or 3D - - if dim == 2 - t = mesh.t(1:3,:)'; - elseif dim == 3 - t = mesh.t(1:4,:)'; - else - error("fpl_dx_write_series: neither 2D triangle nor 3D tetrahedral mesh"); - endif - - nnodes = rows(p); - nelems = rows(t); - ndatas = rows(u); - - if ndatas == nnodes - dep = "positions"; - elseif ndatas == nelems - dep = "connections"; - else - error("fpl_dx_write_series: neither position nor connection data type") - endif - - ## Write field items to file - idx = (1:attr_shape); - for ii = 1:npoints - field = u(:,idx); - fname = sprintf("%s.%d",attr_name,ii); - fpl_dx_write_field(basename,mesh,field,fname,attr_rank,attr_shape,0); - idx += attr_shape; - endfor - - ##if endfile - fid = fopen(filename,"a"); - fprintf (fid, "object \"%s_series\" class series\n",attr_name); - for ii = 1:npoints - fname = sprintf("%s.%d",attr_name,ii); - fprintf (fid,"member %d position %g value \"%s\"\n",ii-1,tp(ii),fname); - endfor - fprintf (fid, "\nend\n"); - fclose(fid); - ##endif - -endfunction \ No newline at end of file diff -r d68da2f2417b -r 20e8aca47b2c extra/fpl/inst/fpl_vtk_assemble_series.m --- a/extra/fpl/inst/fpl_vtk_assemble_series.m Mon Aug 17 10:16:44 2015 +0000 +++ b/extra/fpl/inst/fpl_vtk_assemble_series.m Mon Aug 17 10:19:39 2015 +0000 @@ -36,8 +36,9 @@ ## @end deftypefn -function fpl_vtk_assemble_series (collection, basenanme, format, idx, time) +function fpl_vtk_assemble_series (collection, basename, format, idx, time) + ntpoints = numel (time); fid = fopen (strcat (collection, ".pvd"), "w"); ## Header @@ -57,4 +58,4 @@ fprintf (fid, "\n"); fclose (fid); -endfunction \ No newline at end of file +endfunction