(include "sci.sh")
(use "Class_950_0")
(use "PicView")
(script 978)



(class RFeature of Feature
    (properties
        x 0
        y 0
        z 0
        heading 0
        noun 0
        nsTop 0
        nsLeft 0
        nsBottom 0
        nsRight 0
        description 0
        sightAngle 26505
        actions 26505
        onMeCheck 26505
        lookStr 0
    )
)
(class RPicView of PicView
    (properties
        x 0
        y 0
        z 0
        heading 0
        noun 0
        nsTop 0
        nsLeft 0
        nsBottom 0
        nsRight 0
        description 0
        sightAngle 26505
        actions 26505
        onMeCheck 26505
        lookStr 0
        view 0
        loop 0
        cel 0
        priority -1
        signal 0
        palette 0
    )

    (method (init)
        (var temp0)
        = temp0 (/ CelWide(view loop cel) 2)
        = nsBottom (- y z)
        = nsLeft (- x temp0)
        = nsRight (+ x temp0)
        = nsTop (- y (+ z CelHigh(view loop cel)))
        (super:init())
    )

)
