PSC Code Manual

land/endview.lsp [src]

Functions for drawing landing end views

Functions

Function signature Description
Public
(land-endview-draw ins lr) Draws a landing end view at INS
Private
(land-endview--blw-post wid lng) Returns a block containing a post under the channel
(land-endview--draw-support corner) Draw the landing support for CORNER in BLOCKOBJ
(land-endview--hanger dia chd lng) Returns a block containing a hanger
(land-endview--ledger emb ang rod) Returns a block containing a standard ledger
(land-endview--ledger-inv) Returns a block containing an inverted ledger
(land-endview--std-post wid lng) Returns a block containing a standard post

(land-endview-draw ins lr)

Draws a landing end view at INS

LR should be one of the symbols 'left or 'right to indicate which perspective to
draw (relative to the view of the section).

VARS:
(INS LIST (POINT-P INS))
(LR SYM (MEMBER LR '(LEFT RIGHT)))

WITH-DATA

(land-endview--blw-post wid lng)

Returns a block containing a post under the channel

VARS:
(WID nil (NUMBERP WID))
(LNG nil (NUMBERP LNG))

(land-endview--draw-support corner)

Draw the landing support for CORNER in BLOCKOBJ

VARS:
(CORNER STR)
(BLOCKOBJ VLA-OBJECT)

WITH-DATA

(land-endview--hanger dia chd lng)

Returns a block containing a hanger

VARS:
(DIA nil (NUMBERP DIA))
(CHD nil (NUMBERP CHD))
(LNG nil (NUMBERP LNG))

(land-endview--ledger emb ang rod)

Returns a block containing a standard ledger

(land-endview--ledger-inv)

Returns a block containing an inverted ledger

(land-endview--std-post wid lng)

Returns a block containing a standard post

VARS:
(WID nil (NUMBERP WID))
(LNG nil (NUMBERP LNG))