ecoform.c
1 #include "ecoform.h"
2
3 FL_FORM *ecoform;
4
5 FL_OBJECT *fileButton1,*fileButton2,*exitButton,*treeButtonGrp,
6 *tree1Button,*tree2Button,*fileBrow1,*fileBrow2,
7 *leafTypeChoice,*leafColorChoice,*resetLfButton,*lfmin,*lfmax,
8 *rootTypeChoice,*rootColorChoice,*resetRtsButton,*rtmin,*rtmax,
9 *brchChoice,*rootChoice,*sunChoice,*leafAttribGrp,*rootMinMaxGrp,
10 *rootTypeColGrp;
11
12 void create_ecoform ()
13 {
14 FL_OBJECT *obj,*rootbox,*titlebox,*fileloadbox,*treeswapbox,*miscbox,
15 *smleafbox,*smrootbox,*leafbox;
16
17 ecoform = fl_bgn_form (FL_NO_BOX,550.0,430.0);
18 obj = fl_add_box (FL_UP_BOX,0.0,0.0,550.0,430.0,"");
19 titlebox = fl_add_box (FL_FRAME_BOX,10.0,350.0,430.0,70.0,
20 "ECOPHYS Tree Model Visualization Program");
21 fl_set_object_lsize (titlebox,16.000000);
22
23
24 obj = fl_add_button (FL_NORMAL_BUTTON,450.0,390.0,90.0,30.0,"Update");
25 fl_set_call_back (obj,updateButton_cb,0);
26 exitButton = fl_add_button (FL_NORMAL_BUTTON,450.0,350.0,90.0,30.0,"Exit");
27
28 treeswapbox = fl_add_box (FL_FRAME_BOX,10.0,150.0,130.0,90.0,"");
29 treeButtonGrp = fl_bgn_group ();
30 tree1Button = fl_add_button (FL_RADIO_BUTTON,20.0,200.0,110.0,30.0,"Tree 1");
31 fl_set_call_back (tree1Button,treeButton_cb,0);
32 fl_set_object_color (tree1Button,47,5);
33 fl_set_button (tree1Button, 1);
34 tree2Button = fl_add_button (FL_RADIO_BUTTON,20.0,160.0,110.0,30.0,"Tree 2");
35 fl_set_call_back (tree2Button,treeButton_cb,0);
36 fl_set_object_color (tree2Button,47,5);
37 fl_end_group ();
38
39 fileloadbox = fl_add_box (FL_FRAME_BOX,10.0,250.0,530.0,90.0,"");
40 fileBrow1 = fl_add_browser (FL_NORMAL_BROWSER,70.0,300.0,400.0,30.0,"");
41 obj = fl_add_text (FL_NORMAL_TEXT,20.0,300.0,40.0,30.0,"Tree 1");
42 fl_set_object_align (obj,FL_ALIGN_CENTER);
43 fileBrow2 = fl_add_browser (FL_NORMAL_BROWSER,70.0,260.0,400.0,30.0,"");
44 obj = fl_add_text (FL_NORMAL_TEXT,20.0,260.0,40.0,30.0,"Tree 2");
45 fl_set_object_align (obj,FL_ALIGN_CENTER);
46 fileButton1 = fl_add_button (FL_NORMAL_BUTTON,480.0,300.0,50.0,30.0,"Load");
47 fl_set_call_back (fileButton1,loadFile_cb,0);
48 fileButton2 = fl_add_button (FL_NORMAL_BUTTON,480.0,260.0,50.0,30.0,"Load");
49 fl_set_call_back (fileButton2,loadFile_cb,0);
50 fl_deactivate_object (fileButton2);
51
52 leafbox = fl_add_box (FL_FRAME_BOX,150.0,10.0,190.0,230.0,"");
53 smleafbox = fl_add_box (FL_FRAME_BOX,150.0,200.0,190.0,40.0,"Leaf attributes");
54 fl_set_object_lsize (smleafbox,11.000000);
55 leafTypeChoice = fl_add_choice (FL_NORMAL_CHOICE,200.0,160.0,130.0,30.0,"Type");
56 fl_addto_choice (leafTypeChoice, "normal");
57 fl_addto_choice (leafTypeChoice, "gross psyn");
58 fl_addto_choice (leafTypeChoice, "percent shaded");
59 fl_addto_choice (leafTypeChoice, "LPI");
60 fl_addto_choice (leafTypeChoice, "ppfd-sun");
61 fl_addto_choice (leafTypeChoice, "ppfd-shade");
62 fl_set_call_back (leafTypeChoice,leafType_cb,0);
63 leafAttribGrp = fl_bgn_group ();
64 leafColorChoice = fl_add_choice (FL_NORMAL_CHOICE,200.0,120.0,130.0,30.0,"Color");
65 fl_addto_choice (leafColorChoice, "blue");
66 fl_addto_choice (leafColorChoice, "green");
67 fl_addto_choice (leafColorChoice, "sea green");
68 fl_addto_choice (leafColorChoice, "red");
69 fl_addto_choice (leafColorChoice, "magenta");
70 fl_addto_choice (leafColorChoice, "yellow");
71 fl_set_call_back (leafColorChoice,leafColorChoice_cb,0);
72 lfmin = fl_add_input (FL_FLOAT_INPUT,160.0,80.0,80.0,30.0,"Min.");
73 fl_set_object_align (lfmin,FL_ALIGN_BOTTOM);
74 fl_set_input_return (lfmin, FL_RETURN_END_CHANGED);
75 fl_set_call_back (lfmin,leafminValue_cb,0);
76 lfmax = fl_add_input (FL_FLOAT_INPUT,250.0,80.0,80.0,30.0,"Max.");
77 fl_set_object_align (lfmax,FL_ALIGN_BOTTOM);
78 fl_set_input_return (lfmax, FL_RETURN_END_CHANGED);
79 fl_set_call_back (lfmax,leafmaxValue_cb,0);
80 resetLfButton = fl_add_button (FL_NORMAL_BUTTON,160.0,20.0,170.0,30.0,"Reset");
81 fl_set_call_back (resetLfButton,resetLeaves_cb,0);
82 fl_end_group ();
83
84 rootbox = fl_add_box (FL_FRAME_BOX,350.0,10.0,190.0,230.0,"");
85 smrootbox = fl_add_box (FL_FRAME_BOX,350.0,200.0,190.0,40.0,"Root attributes");
86 fl_set_object_lsize (smrootbox,11.000000);
87 rootTypeColGrp = fl_bgn_group ();
88 rootTypeChoice = fl_add_choice (FL_NORMAL_CHOICE,400.0,160.0,130.0,30.0,"Type");
89 fl_addto_choice (rootTypeChoice, "normal");
90 fl_addto_choice (rootTypeChoice, "doubled");
91 fl_addto_choice (rootTypeChoice, "diameter");
92 fl_addto_choice (rootTypeChoice, "order");
93 fl_addto_choice (rootTypeChoice, "rho");
94 fl_set_call_back (rootTypeChoice,rootType_cb,0);
95 rootColorChoice = fl_add_choice (FL_NORMAL_CHOICE,400.0,120.0,130.0,30.0,"Color");
96 fl_addto_choice (rootColorChoice, "blue");
97 fl_addto_choice (rootColorChoice, "green");
98 fl_addto_choice (rootColorChoice, "sea green");
99 fl_addto_choice (rootColorChoice, "red");
100 fl_addto_choice (rootColorChoice, "magenta");
101 fl_addto_choice (rootColorChoice, "yellow");
102 fl_addto_choice (rootColorChoice, "white");
103 fl_addto_choice (rootColorChoice, "black");
104 fl_set_call_back (rootColorChoice,rootColorChoice_cb,0);
105 fl_end_group ();
106 rootMinMaxGrp = fl_bgn_group ();
107 rtmin = fl_add_input (FL_FLOAT_INPUT,360.0,80.0,80.0,30.0,"Min.");
108 fl_set_object_align (rtmin,FL_ALIGN_BOTTOM);
109 fl_set_call_back (rtmin,rootminValue_cb,0);
110 rtmax = fl_add_input (FL_FLOAT_INPUT,450.0,80.0,80.0,30.0,"Max.");
111 fl_set_object_align (rtmax,FL_ALIGN_BOTTOM);
112 fl_set_call_back (rtmax,rootmaxValue_cb,0);
113 resetRtsButton = fl_add_button (FL_NORMAL_BUTTON,360.0,20.0,170.0,30.0,"Reset");
114 fl_set_call_back (resetRtsButton,resetRoots_cb,0);
115 fl_end_group ();
116
117 miscbox = fl_add_box (FL_FRAME_BOX,10.0,10.0,130.0,130.0,"");
118 brchChoice = fl_add_choice (FL_NORMAL_CHOICE,20.0,100.0,110.0,30.0,"");
119 fl_addto_choice (brchChoice, "No branches");
120 fl_addto_choice (brchChoice, "Show branches");
121 fl_set_call_back (brchChoice,branchChoice_cb,0);
122 rootChoice = fl_add_choice (FL_NORMAL_CHOICE,20.0,60.0,110.0,30.0,"");
123 fl_addto_choice (rootChoice, "No roots");
124 fl_addto_choice (rootChoice, "Show roots");
125 fl_set_call_back (rootChoice,rootChoice_cb,0);
126 sunChoice = fl_add_choice (FL_NORMAL_CHOICE,20.0,20.0,110.0,30.0,"");
127 fl_addto_choice (sunChoice, "No sunlight");
128 fl_addto_choice (sunChoice, "Sunlight");
129 fl_set_call_back(sunChoice,sunChoice_cb,0);
130 fl_end_form ();
131 }
132
133 /******************** end of ecoform.c **************************/
134