subclass PicInfo of Obj
{
	scratch         = $0
	pModule         = $ffff		; -1
	pLine           = $ffff		; -1
	number          = $0
	roomType        = $0
	picture         = $0
	horizon         = $82		; 130, magPower
	polyList        = $0
	pScaled         = $1
	pBackY          = $8c		; 140, scratch
	pBackSize       = $28		; 40, '(', style
	pFrontY         = $136		; 310, getLong
	pFrontSize      = $80		; 128, lastKey
}

subclass PicInfoList of Set
{
	scratch         = $0
	pModule         = $ffff		; -1
	pLine           = $ffff		; -1
	elements        = $0
	size            = $0
	nextNode        = $0

	init()
}

string_0050	= "PicInfo"
string_0058	= "PicInfoList"