www.adoxx.orgClass "Map Dot"
| Highlights/Dependencies |
|---|
| A small red dot (similar to google maps) including an info box, that can be hidden or shown The info box represents: +a name and description of the location +a location map (image), which can be set/changed in the notebook +a link to the website of the location |
| GraphRep Code |
|---|
| GRAPHREP #Setting paramenters for x, y, w and h SET prm_x:1cm SET prm_y:1cm SET prm_w:1cm SET prm_h:1cm SET prm_w:1cm SET prm_h:1cm # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CONDITION to Show just the red DOT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AVAL sh:"X_Umsl" IF (sh = "Hide") # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Map Dot >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> # ----- Upper part / half circle PEN color:red FILL color:red PIE x: (prm_x * 0) y: (prm_y * 0) rx: (prm_x * 0.25) ry: (prm_y * 0.25) x1: (prm_x* 1) y1:(prm_y * 0) x2: (prm_x * (-1)) y2:(prm_y * 0) # ----- Lower Triangle Part FILL color:red POLYGON 3 x1: (prm_x * (-0.25)) y1: (prm_y * 0) x2: (prm_x * 0) y2:(prm_y * 0.5) x3: (prm_x * 0.25) y3:(prm_y * 0) # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Else to Show the red DOT and the info box>>>>>>>>>>>>>>>>>>>>>>>> ELSIF (sh = "Show") # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Map Dot >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> # ----- Upper part / half circle PEN color:red FILL color:red PIE x: (prm_x * 0) y: (prm_y * 0) rx: (prm_x * 0.25) ry: (prm_y * 0.25) x1: (prm_x* 1) y1:(prm_y * 0) x2: (prm_x * (-1)) y2:(prm_y * 0) # ----- Lower Triangle Part FILL color:red POLYGON 3 x1: (prm_x * (-0.25)) y1: (prm_y * 0) x2: (prm_x * 0) y2:(prm_y * 0.5) x3: (prm_x * 0.25) y3:(prm_y * 0) # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Info Box >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> #---------------------------------------------------------------------------------------------------- # -------- Right A B O U T Box ------------------------------------------------------------------ #---------------------------------------------------------------------------------------------------- PEN color:green FILL color:white POLYGON 7 x1:(prm_x * 1) y1: (prm_y * (-0.5)) x2:(prm_x * 1) y2: (prm_y * (-0.25)) x3:(prm_x * 0.75) y3: (prm_y * 0) x4:(prm_x * 1) y4: (prm_y * 0.25) x5:(prm_x * 1) y5: (prm_y * 5) x6:(prm_x * 11) y6: (prm_y * 5) x7:(prm_x * 11) y7: (prm_y * (-0.5)) # -------- NAME ------------ FONT style:"bold" TEXT "Name:" x:(prm_x * 1.5) y:(prm_y * 0) FONT ATTR "X_Title" x:(prm_x * 1.5) y:(prm_y * 0.5) # -------- ABOUT ------------ FONT style:"bold" TEXT "About:" x:(prm_x * 1.5) y:(prm_y * 1.3) FONT ATTRBOX "X_Description" x:(prm_x * 1.5) y:(prm_y * 1.8) w:(prm_w * 9) h:(prm_h * 2.5) ATTR "X_Description" x:(prm_x * 1.5) y:(prm_y * 1.8) w:(prm_w * 9) h:(prm_h * 2.5) line-break:words row:5 #------------------------------------------------------------------------------------------------------ # -------- Right L O C A T I O N Box --------------------------------------------------------------- #------------------------------------------------------------------------------------------------------ RECTANGLE x:(prm_x * 1) y:(prm_y * 5.25) w:(prm_w * 10) h:(prm_h * 7) # -------- LOCATION ------------ FONT style:"bold" TEXT "Location:" x:(prm_x * 1.5) y:(prm_x * 5.5) FONT style:bold FONT AVAL set-default:"" a:"X_Image_external" # ----- Search function to remove "\" and "@" from filepath SET found:(search(a,"\"",0)) IF (found >= 0) IF (found = (LEN a - 1)) SET s:(search(a,"@",0) + 1) SET e:((LEN a) - 1) ELSE SET s:((found) + 1) SET foundend:(search(a,"\"",s)) IF (foundend >= 0) SET e:((LEN a) - 1) ELSE SET e:(LEN a) ENDIF ENDIF ELSE SET e:(LEN a) SET s:(search(a,"@",0) + 1) ENDIF SET grfk:(copy (a, s, e - s)) SET s:((LEN grfk) - 4) SET e:((LEN grfk)) SET ext:(copy (grfk, s, e)) # -- build obj -- SET ext:(lower(ext)) # ---- table to position the image inside TABLE x:(prm_x * 1.5) y:(prm_y * 6.5) w:(prm_w * 9) h:(prm_h * 5) cols:3 rows:3 w1:(prm_w * 0.15) w2:100% w3:(prm_w * 0.15) h1:(prm_h * 0.15) h2:100% h3:(prm_h * 0.15) STRETCH off # -- In case no image is loaded, show gray brackground RECTANGLE x:(prm_x * 1.5) y:(prm_y * 6.5) w:(tabw1 + tabw2 + tabw3) h:(tabh1 + tabh2 + tabh3) IF ( (ext=".bmp") OR (ext=".gif") OR (ext=".ico") OR (ext=".jpg") OR (ext=".jpeg") OR (ext=".png") OR (ext=".targa") OR (ext=".tiff") OR (ext=".wbmp") OR (ext=".xpm") ) BITMAP (grfk) x:(prm_x * 1.5) y:(prm_y * 6.5) w:(tabw1 + tabw2 + tabw3) h:(tabh1 + tabh2 + tabh3) ENDIF #------------------------------------------------------------------------------------------------------ # -------- Right W E B S I T E Box ---------------------------------------------------------------- #------------------------------------------------------------------------------------------------------ RECTANGLE x:(prm_x * 1) y:(prm_y * 12.5) w:(prm_w * 10) h:(prm_h * 2) # -------- WEBSITE ------------ FONT style:"bold" TEXT "Website:" x:(prm_x * 1.5) y:(prm_y * 13) FONT TEXT "http://www.univie.ac.at./" x:(prm_x * 1.5) y:(prm_y * 13.5) #---- Creates hotspot to click on above the website link HOTSPOT "X_Hyperlink" x:(prm_x * 1.5) y:(prm_y * 13) w:(prm_w * 5) h:(prm_h * 2) # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ENDIF
|
| Graphical Representation |
|---|
| |
| Instance examples from Modelling Toolkit |
|---|
| |
| and corresponding notebook representations |
| |
89379 Απόψεις
