Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- PRO rhumba, geom
- ; let us assume that all the caller instances are defined
- ; although they will all be supplied to the generator
- objectType = 'GRID'
- geom = 'LINESEGMENT'
- cellContents = '[(I) (V) (X) (L) (C) (D) (M)]' ; we will take this as a string,
- ; and find ensembles
- command = 'CONSTRUCT' ; this is very important
- outputTarg = 'r' ; object name is the output name
- ;the actual objects
- CASE command OF
- "CONSTRUCT" : BEGIN
- print, "constructing ", outputTarg
- CASE objectType OF
- "GRID" : BEGIN
- print, "object is a grid"
- ;print, "expecting either cell content (automatic indexing) or"
- ;print, "cell indices as an array"
- IF (N_Elements(cellIndices) NE 0) THEN BEGIN
- print, "cell indices given"
- ENDIF
- IF (N_Elements(cellContents) NE 0) THEN BEGIN
- print, "cell contents given"
- ;to ease up operations
- ;consider also the geometry
- CASE geom OF
- "LINESEGMENT" : BEGIN
- print, "creating 1D array like a line segment"
- outputObj = obj_new('automaticSystem')
- outputObj->makeGrid, [3,2]
- ;print , outputObj->grid
- END
- ENDCASE
- ENDIF
- IF ((N_Elements(cellIndices) EQ 0) && ( N_Elements(cellContents) EQ 0)) THEN BEGIN
- print, "failed"
- ENDIF
- END
- ENDCASE
- END
- "READ" : BEGIN
- END
- "PUT" : BEGIN
- END
- "TRIGGER" : BEGIN
- END
- ENDCASE
- END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement