Rev 1119 | Rev 1265 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 1119 | Rev 1225 | ||
|---|---|---|---|
| Line 16... | Line 16... | ||
| 16 | ** Gregory L. Fenves (fenves@ce.berkeley.edu) **
|
16 | ** Gregory L. Fenves (fenves@ce.berkeley.edu) **
|
| 17 | ** Filip C. Filippou (filippou@ce.berkeley.edu) **
|
17 | ** Filip C. Filippou (filippou@ce.berkeley.edu) **
|
| 18 | ** **
|
18 | ** **
|
| 19 | ** ****************************************************************** */
|
19 | ** ****************************************************************** */
|
| 20 | 20 | ||
| 21 | // $Revision: 1.19 $
|
- | |
| 22 | // $Date: 2002-10-22 19:49:50 $
|
- | |
| - | 21 | // $Revision: 1.20 $
|
|
| - | 22 | // $Date: 2002-12-13 22:25:47 $
|
|
| 23 | // $Source: /usr/local/cvs/OpenSees/SRC/element/TclElementCommands.cpp,v $
|
23 | // $Source: /usr/local/cvs/OpenSees/SRC/element/TclElementCommands.cpp,v $
|
| 24 | 24 | ||
| 25 | 25 | ||
| 26 | // File: ~/element/TclElementCommands.C
|
26 | // File: ~/element/TclElementCommands.C
|
| 27 | //
|
27 | //
|
| Line 135... | Line 135... | ||
| 135 | TclModelBuilder_addFourNodeQuad(ClientData, Tcl_Interp *, int, char **, |
135 | TclModelBuilder_addFourNodeQuad(ClientData, Tcl_Interp *, int, char **, |
| 136 | Domain*, TclModelBuilder *); |
136 | Domain*, TclModelBuilder *); |
| 137 | extern int |
137 | extern int |
| 138 | TclModelBuilder_addDispBeamColumn(ClientData, Tcl_Interp *, int, char **, |
138 | TclModelBuilder_addDispBeamColumn(ClientData, Tcl_Interp *, int, char **, |
| 139 | Domain*, TclModelBuilder *); |
139 | Domain*, TclModelBuilder *); |
| - | 140 | extern int |
|
| - | 141 | TclModelBuilder_addForceBeamColumn(ClientData, Tcl_Interp *, int, char **, |
|
| - | 142 | Domain*, TclModelBuilder *); |
|
| 140 | 143 | ||
| 141 | 144 | ||
| 142 | //Boris Jeremic & Zhaohui
|
145 | //Boris Jeremic & Zhaohui
|
| 143 | extern int TclModelBuilder_addEightNodeBrick(ClientData, |
146 | extern int TclModelBuilder_addEightNodeBrick(ClientData, |
| 144 | Tcl_Interp *,
|
147 | Tcl_Interp *,
|
| Line 220... | Line 223... | ||
| 220 | int result = TclModelBuilder_addFrameElement(clientData, interp, argc, argv, |
223 | int result = TclModelBuilder_addFrameElement(clientData, interp, argc, argv, |
| 221 | theTclDomain, theTclBuilder); |
224 | theTclDomain, theTclBuilder); |
| 222 | return result; |
225 | return result; |
| 223 | } else if (strcmp(argv[1],"dispBeamColumn") == 0) { |
226 | } else if (strcmp(argv[1],"dispBeamColumn") == 0) { |
| 224 | int result = TclModelBuilder_addDispBeamColumn(clientData, interp, argc, argv, |
227 | int result = TclModelBuilder_addDispBeamColumn(clientData, interp, argc, argv, |
| - | 228 | theTclDomain, theTclBuilder); |
|
| - | 229 | return result; |
|
| - | 230 | } else if (strcmp(argv[1],"forceBeamColumn") == 0) { |
|
| - | 231 | int result = TclModelBuilder_addForceBeamColumn(clientData, interp, argc, argv, |
|
| 225 | theTclDomain, theTclBuilder); |
232 | theTclDomain, theTclBuilder); |
| 226 | return result; |
233 | return result; |
| 227 | } else if (strcmp(argv[1],"beamWithHinges") == 0) { |
234 | } else if (strcmp(argv[1],"beamWithHinges") == 0) { |
| 228 | int result = TclModelBuilder_addBeamWithHinges(clientData, interp, argc, argv, |
235 | int result = TclModelBuilder_addBeamWithHinges(clientData, interp, argc, argv, |
| 229 | theTclDomain, theTclBuilder); |
236 | theTclDomain, theTclBuilder); |