prcs: Producing diffs from 0.39 to xtree.1.
Index: 0.39/cell.g
--- 0.39/cell.g Sat, 30 Oct 1999 01:44:13 +0200 hugo (purkinje/33_cell.g 1.10.1.3 644)
+++ xtree.1/cell.g Tue, 23 Nov 1999 15:54:16 +0100 hugo (purkinje/33_cell.g 1.10.1.3.1.1 644)
@@ -42,7 +42,7 @@
// cut off from previous cell
// this cell can automatically fire even without external activation
-//str cellfile = "psmall.p"
+str cellfile = "psmall.p"
end
Index: 0.39/xtree.g
--- 0.39/xtree.g Thu, 04 Apr 2002 11:15:46 +0200 hugo ()
+++ xtree.1/xtree.g Tue, 23 Nov 1999 15:54:16 +0100 hugo (purkinje/51_xtree.g 1.1 664)
@@ -0,0 +1,140 @@
+//genesis
+//
+// $Id: purkinje-0.39-purkinje-xtree.1.patch 1.2 Thu, 04 Apr 2002 11:55:56 +0200 hugo $
+//
+
+//////////////////////////////////////////////////////////////////////////////
+//'
+//' Purkinje tutorial
+//'
+//' (C) 1998-2002 BBF-UIA
+//'
+//' see our site at http://bbf-www.uia.ac.be/ for more information regarding
+//' the Purkinje cell and genesis simulation software.
+//'
+//'
+//' functional ideas ... Erik De Schutter, erik@bbf.uia.ac.be
+//' genesis coding ..... Hugo Cornelis, hugo@bbf.uia.ac.be
+//'
+//' general feedback ... Reinoud Maex, Erik De Schutter
+//'
+//////////////////////////////////////////////////////////////////////////////
+
+
+// xtree.g : xtree functionality
+
+int include_xtree
+
+if ( {include_xtree} == 0 )
+
+ include_xtree = 1
+
+
+///
+/// SH: XTreeCreate
+///
+/// DE: Create the xtree display widget with all buttons
+///
+
+function XTreeCreate
+
+ //- create form container
+
+ create xform /xtree [0, 0, 500, 470]
+
+ //- add field for output
+
+ addfield /xtree \
+ output -description "Output (toggled widget)"
+
+ //- add field for output source
+
+ addfield /xtree \
+ outputSource -description \
+ "Output source (compartment subelement)"
+
+ //- add field for output value
+
+ addfield /xtree \
+ outputValue -description "Output value (Vm, Ik, Gk, Ek, Ca)"
+
+ //- add field for output flags
+
+ addfield /xtree \
+ outputFlags -description "Output flags (1-7)"
+
+ //- add field for output description
+
+ addfield /xtree \
+ outputDescription -description "Output description (Title)"
+
+ //- add field for channel mode
+
+ addfield /xtree \
+ channelMode -description "Channel display mode (Ik, Gk, Ek)"
+
+ //- add field for registering boundary element
+
+ addfield /xtree \
+ boundElement -description "Element with display boundaries"
+
+ //- create the heading at the top
+
+ //XTreeCreateHeadings
+
+ //- create the draw
+
+ //XTreeCreateDraw
+
+ //- create color dialog widgets at the bottom
+
+ //XTreeCreateColorDialogs
+
+ //- create the buttons and toggles
+
+ //XTreeCreateButtons
+
+ //- prepare the electrodes
+
+ //XTreePrepareElectrodes
+
+ create xdraw /xtree/draw \
+ [0,0,100%,100%]
+ setfield /xtree/draw \
+ xmin -10 \
+ xmax 10 \
+ ymin -5 \
+ ymax 5
+
+ create xtree /xtree/draw/tree
+
+ setfield /xtree/draw/tree \
+ path {cellpath}/soma[],{cellpath}/soma[]/##[] \
+ treemode tree \
+ sizescale 2 \
+ orientation down \
+ script "echo Element <v>"
+
+ //- show the output form
+
+ xshow /xtree
+
+ call /xtree/draw/tree ADDMSGARROW \
+ all \
+ all \
+ all \
+ all \
+ blue \
+ 0 0 \
+ "move.p <S> <D>; reset.p" \
+ "" \
+ ""
+
+ call /xtree/draw/tree SHOWMSGARROW
+
+ call /xtree/draw/tree RESET
+
+end
+
+
+end
|