183 lines
7.9 KiB
Plaintext
183 lines
7.9 KiB
Plaintext
(
|
|
in-package :om
|
|
)
|
|
|
|
(
|
|
load-lib-for
|
|
(
|
|
quote nil
|
|
)
|
|
)
|
|
|
|
(
|
|
setf *om-current-persistent*
|
|
(
|
|
om-load-patch1 "Patch 2"
|
|
(
|
|
quote
|
|
(
|
|
(
|
|
let
|
|
(
|
|
(
|
|
box
|
|
(
|
|
om-load-editor-box1 "BPC"
|
|
(
|
|
quote bpc
|
|
)
|
|
(
|
|
quote
|
|
(
|
|
(
|
|
om-load-inputfun
|
|
(
|
|
quote input-funbox
|
|
)
|
|
"object" "self" nil
|
|
)
|
|
(
|
|
om-load-inputfun
|
|
(
|
|
quote input-funbox
|
|
)
|
|
"X coordinates (list)" "x-points"
|
|
(
|
|
list 0 100
|
|
)
|
|
)
|
|
(
|
|
om-load-inputfun
|
|
(
|
|
quote input-funbox
|
|
)
|
|
"Y coordinates (list)" "y-points"
|
|
(
|
|
list 0 100
|
|
)
|
|
)
|
|
(
|
|
om-load-inputfun
|
|
(
|
|
quote input-funbox
|
|
)
|
|
"precision
|
|
(
|
|
integer
|
|
) [0 - 10]" "decimals" 0
|
|
)
|
|
)
|
|
)
|
|
(
|
|
om-make-point 151 96
|
|
)
|
|
(
|
|
om-make-point 40 60
|
|
)
|
|
(
|
|
let
|
|
(
|
|
(
|
|
newobj
|
|
(
|
|
when
|
|
(
|
|
find-class
|
|
(
|
|
quote bpc
|
|
)
|
|
nil
|
|
)
|
|
(
|
|
let
|
|
(
|
|
(
|
|
newbpf
|
|
(
|
|
simple-bpf-from-list
|
|
(
|
|
quote
|
|
(
|
|
-1 99 70
|
|
)
|
|
)
|
|
(
|
|
quote
|
|
(
|
|
0 100 65
|
|
)
|
|
)
|
|
(
|
|
quote bpc
|
|
)
|
|
0
|
|
)
|
|
)
|
|
)
|
|
(
|
|
setf
|
|
(
|
|
bpfcolor newbpf
|
|
)
|
|
(
|
|
om-make-color 0 0 0
|
|
)
|
|
)
|
|
(
|
|
set-name newbpf "BPC"
|
|
)
|
|
newbpf
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(
|
|
when newobj
|
|
)
|
|
newobj
|
|
)
|
|
"x" nil
|
|
(
|
|
pairlis
|
|
(
|
|
quote
|
|
(
|
|
picture winpos winsize
|
|
)
|
|
)
|
|
(
|
|
list nil
|
|
(
|
|
om-make-point 0 0
|
|
)
|
|
(
|
|
om-make-point 1900 1006
|
|
)
|
|
)
|
|
)
|
|
nil nil nil nil
|
|
)
|
|
)
|
|
)
|
|
(
|
|
when
|
|
(
|
|
fboundp
|
|
(
|
|
quote set-active
|
|
)
|
|
)
|
|
(
|
|
set-active box nil
|
|
)
|
|
)
|
|
box
|
|
)
|
|
)
|
|
)
|
|
(
|
|
quote nil
|
|
)
|
|
nil 6.19
|
|
)
|
|
) |