This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;;Elevation command | |
| ;;Type EV to run this command | |
| ;;Triangulates the elevation of a point between two other points of known elevations | |
| ;;useful for calculating BOD and other deck elevation related measurements | |
| ;;Type "ELEVATION" to run this routine | |
| ;;1/27/2008 Written by Joe C. | |
| ;;1/29/2008 streamlined data entry to require less keyboard usage | |
| ;;2/15/2008 streamlined data entry some more (added loop through unknown point entry) | |
| ;;2/20/2008 changed to accept architectural input rather than just decimal feet |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;;THE FOLLOWING COMMANDS, 'SUPPLY', 'SYSTEM', AND 'PT' ARE COMMANDS TO DRAW THE HYDRAULIC GRAPH | |
| ;;-------------------- | |
| ;;;supply and system programs for the supply curve graph 2/19/99 | |
| (setq qsc (getvar "userr1")) | |
| (setq pc (getvar "users1")) | |
| (defun c:supply (/ lc pt3 pt1 pt2 q2 q1 q sp ps) | |
| (graphscr) | |
| (setvar "cmdecho" 0) | |
| (setvar "plinewid" 0.2) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| package main | |
| import ( | |
| "fmt" | |
| "io/ioutil" | |
| "log" | |
| "os" | |
| "path/filepath" | |
| "regexp" | |
| "strings" |
NewerOlder