(
    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
    )
)