
(object Petal
    version    	37)

(object Design "<Top Level>"
    is_unit    	TRUE
    is_loaded  	TRUE
    defaults   	(object defaults
	rightMargin 	0.250000
	leftMargin 	0.250000
	topMargin  	0.250000
	bottomMargin 	0.500000
	pageOverlap 	0.250000
	clipIconLabels 	TRUE
	autoResize 	FALSE
	snapToGrid 	TRUE
	gridX      	25
	gridY      	25
	defaultFont 	(object Font
	    size       	10
	    face       	"helvetica"
	    bold       	FALSE
	    italics    	FALSE
	    underline  	FALSE
	    strike     	FALSE
	    color      	0
	    default_color 	TRUE)
	showMessageNum 	3
	showClassOfObject 	TRUE
	notation   	"Booch")
    root_category 	(object Class_Category "<Top Level>"
	exportControl 	"Public"
	global     	TRUE
	subsystem  	"<Top Level>"
	logical_models 	(list unit_reference_list
	    (object Class "$UNNAMED$0")
	    (object Class "$UNNAMED$1")
	    (object Class "$UNNAMED$2")
	    (object Class_Utility "$UNNAMED$3")
	    (object Class "$UNNAMED$4")
	    (object Class "$UNNAMED$5"
		nonclass   	TRUE)
	    (object Class "HDC"
		nonclass   	TRUE)
	    (object Class "CWingdiwn"
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			supplier   	"CFbsBitGC")))
	    (object Class "CWingdibm"
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			supplier   	"CFbsBitGC")))
	    (object Class "RDrawWinScreen"
		fields     	(list has_relationship_list
		    (object Has_Relationship
			documentation 	"Window handle for main screen."
			label      	"iHwnd"
			supplier   	"HWND"
			exportControl 	"Private"
			Containment 	"By Value"
			supplier_cardinality 	(value cardinality "1")
			client_cardinality 	(value cardinality "1"))
		    (object Has_Relationship
			documentation 	"Windows device context handle for main screen."
			label      	"iHdc"
			supplier   	"HDC"
			exportControl 	"Private"
			Containment 	"By Value")
		    (object Has_Relationship
			documentation 	"Windows palette handle for main screen."
			label      	"iPalette"
			supplier   	"HPALETTE"
			exportControl 	"Private"
			Containment 	"By Value"))
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			supplier   	"RDrawWin"
			virtual    	TRUE))
		abstract   	TRUE)
	    (object Class "RDrawWinScreenGrey256"
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			supplier   	"RDrawWinScreen"
			virtual    	TRUE)))
	    (object Class "RDrawWinScreenColour"
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			supplier   	"RDrawWinScreen"
			virtual    	TRUE)))
	    (object Class "$UNNAMED$6"
		nonclass   	TRUE)
	    (object Class "$UNNAMED$7")
	    (object Class "$UNNAMED$8")
	    (object Class "$UNNAMED$9"
		nonclass   	TRUE)
	    (object Class "TSize"
		nonclass   	TRUE)
	    (object Class "HRGN"
		nonclass   	TRUE)
	    (object Class "HPEN"
		nonclass   	TRUE)
	    (object Class "TInt"
		nonclass   	TRUE)
	    (object Class "Draw*"
		nonclass   	TRUE)
	    (object Class "CGdiFont*"
		nonclass   	TRUE)
	    (object Class "HBRUSH"
		nonclass   	TRUE)
	    (object Class "TBool"
		nonclass   	TRUE)
	    (object Class "HBITMAP"
		nonclass   	TRUE)
	    (object Class "HPALETTE"
		nonclass   	TRUE)
	    (object Class "TPoint"
		nonclass   	TRUE)
	    (object Class "CRegion"
		nonclass   	TRUE)
	    (object Class "$UNNAMED$10")
	    (object Class "RDrawWin"
		fields     	(list has_relationship_list
		    (object Has_Relationship
			documentation 	"Pointer to bitmap pixel data."
			label      	"iBitmapBits"
			supplier   	"TUint8 *"
			exportControl 	"Protected"
			Containment 	"By Value")
		    (object Has_Relationship
			documentation 	"Pointer to bitmap palette array."
			label      	"iBitmapColours"
			supplier   	"LPRGBQUAD"
			exportControl 	"Protected"
			Containment 	"By Value")
		    (object Has_Relationship
			documentation 	"Windows device context handle for printing text to the bitmap."
			label      	"iBitmapDC"
			supplier   	"HDC"
			exportControl 	"Protected"
			Containment 	"By Value")
		    (object Has_Relationship
			documentation 	"Windows bitmap handle."
			label      	"iBitmapHandle"
			supplier   	"HBITMAP"
			exportControl 	"Protected"
			Containment 	"By Value")
		    (object Has_Relationship
			documentation 	"Pointer to bitmap info structure."
			label      	"iBitmapInfo"
			supplier   	"LPBITMAPINFO"
			exportControl 	"Protected"
			Containment 	"By Value")
		    (object Has_Relationship
			documentation 	"Pointer to bitmap info header structure."
			label      	"iBitmapInfoHdr"
			supplier   	"LPBITMAPINFOHEADER"
			exportControl 	"Protected"
			Containment 	"By Value"))
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			supplier   	"RFbsDrawDevice"
			virtual    	TRUE))
		abstract   	TRUE)
	    (object Class "RDrawWinBitmap"
		fields     	(list has_relationship_list
		    (object Has_Relationship
			documentation 	"Bitmap handle."
			label      	"iBitmap"
			supplier   	"HBITMAP"
			exportControl 	"Private"
			Containment 	"By Value"
			supplier_cardinality 	(value cardinality "1")
			client_cardinality 	(value cardinality "1")))
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			supplier   	"RDrawWin"
			virtual    	TRUE))
		abstract   	TRUE)
	    (object Class "CBase"
		abstract   	TRUE)
	    (object Class "TGraphicsInfo"
		fields     	(list has_relationship_list
		    (object Has_Relationship
			label      	"iFont"
			supplier   	"RBitwiseFont"
			Containment 	"By Reference"
			supplier_cardinality 	(value cardinality "1")
			client_cardinality 	(value cardinality "1"))
		    (object Has_Relationship
			label      	"iPatBrush"
			supplier   	"CBitwiseBitmap"
			Containment 	"By Reference"
			supplier_cardinality 	(value cardinality "1")
			client_cardinality 	(value cardinality "1"))
		    (object Has_Relationship
			label      	"iPalette"
			supplier   	"RPalette"
			Containment 	"By Reference"
			supplier_cardinality 	(value cardinality "1")
			client_cardinality 	(value cardinality "1"))
		    (object Has_Relationship
			documentation 	"Pen colour."
			label      	"iPen"
			supplier   	"TRgb"
			Containment 	"By Value")
		    (object Has_Relationship
			documentation 	"Brush colour."
			label      	"iBrush"
			supplier   	"TRgb"
			Containment 	"By Value")
		    (object Has_Relationship
			documentation 	"Drawing mode."
			label      	"iDrawMode"
			supplier   	"CGdiBase::TGdiDrawMode"
			Containment 	"By Value")
		    (object Has_Relationship
			documentation 	"Specifies transparent/opaque text background."
			label      	"iTextBackGround"
			supplier   	"CGdiBase::TTextBackGround"
			Containment 	"By Value")
		    (object Has_Relationship
			documentation 	"Rectangle to which all drawing operations will be clipped."
			label      	"iClipRect"
			supplier   	"TRect"
			Containment 	"By Value")
		    (object Has_Relationship
			documentation 	"Position at which any patterned brush painting should originate.  Painting may still take place to the left and above this, in which case this is the point that the bottom right-hand corner of the patterned brush lines up with."
			label      	"iPatBrushOrigin"
			supplier   	"TPoint"
			Containment 	"By Value"))
		used_nodes 	(list uses_relationship_list
		    (object Uses_Relationship
			supplier   	"RPalette")
		    (object Uses_Relationship
			supplier   	"CBitwiseBitmap")
		    (object Uses_Relationship
			supplier   	"RBitwiseFont")))
	    (object Class "CGdiSprite"
		nonclass   	TRUE)
	    (object Class "HWND"
		nonclass   	TRUE)
	    (object Class "RRegion"
		nonclass   	TRUE)
	    (object Class "CGdiBase::TGdiDrawMode"
		nonclass   	TRUE)
	    (object Class "CGdiBase::TTextBackGround"
		nonclass   	TRUE)
	    (object Class "TRect"
		nonclass   	TRUE)
	    (object Class "RSpriteBase"
		nonclass   	TRUE)
	    (object Class "TUint"
		nonclass   	TRUE)
	    (object Class "TUint8 *"
		nonclass   	TRUE)
	    (object Class "LPRGBQUAD"
		nonclass   	TRUE)
	    (object Class "LPBITMAPINFO"
		nonclass   	TRUE)
	    (object Class "LPBITMAPINFOHEADER"
		nonclass   	TRUE)
	    (object Class "RSpriteBase *"
		nonclass   	TRUE)
	    (object Class "TGdiAttributes"
		nonclass   	TRUE)
	    (object Class "TDisplayMode"
		nonclass   	TRUE)
	    (object Class "TUint8"
		nonclass   	TRUE)
	    (object Class "TRegionFix<1>"
		nonclass   	TRUE)
	    (object Class "const TRegion *"
		nonclass   	TRUE)
	    (object Class "const TRegion"
		nonclass   	TRUE)
	    (object Class "TDrawMode"
		nonclass   	TRUE)
	    (object Class "TLine"
		nonclass   	TRUE)
	    (object Class "TTextBackGround"
		nonclass   	TRUE)
	    (object Class "TWideLine"
		nonclass   	TRUE)
	    (object Class "RSessionBase")
	    (object Class_Category "$UNNAMED$11"
		exportControl 	"Public"
		logical_models 	(list unit_reference_list)
		logical_presentations 	(list unit_reference_list))
	    (object Class_Category "BitGdi"
		visible_categories 	(list visibility_relationship_list
		    (object Visibility_Relationship
			supplier   	"FontBitmapServer"))
		exportControl 	"Public"
		logical_models 	(list unit_reference_list
		    (object Class "CFbsBitGC"
			fields     	(list has_relationship_list
			    (object Has_Relationship
				documentation 	"Last print position, used by PrintText with no print position supplied."
				label      	"iLastPrintPosition"
				supplier   	"TPoint"
				exportControl 	"Private"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iDefaultRegion"
				supplier   	"TRegionFix<1>"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				documentation 	"Hardware dependent drawing functions"
				label      	"iDrawLowLevel"
				supplier   	"RFbsDrawDevice"
				exportControl 	"Protected"
				Containment 	"By Reference"
				supplier_cardinality 	(value cardinality "0,1")
				client_cardinality 	(value cardinality "n"))
			    (object Has_Relationship
				label      	"iFont"
				supplier   	"CFbsFont"
				exportControl 	"Protected"
				Containment 	"By Reference"
				supplier_cardinality 	(value cardinality "0,1")
				client_cardinality 	(value cardinality "0..n"))
			    (object Has_Relationship
				label      	"iPalette"
				supplier   	"RPalette"
				Containment 	"By Reference"
				supplier_cardinality 	(value cardinality "0,1")
				client_cardinality 	(value cardinality "0..n"))
			    (object Has_Relationship
				label      	"iClipRect"
				supplier   	"TRect"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iDefaultRegionPtr"
				supplier   	"const TRegion"
				exportControl 	"Protected"
				Containment 	"By Reference")
			    (object Has_Relationship
				label      	"iDrawMode"
				supplier   	"TDrawMode"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iLastPosAdjust"
				supplier   	"TInt"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iLastPosUsed"
				supplier   	"TBool"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iLine"
				supplier   	"TLine"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iLineWidth"
				supplier   	"TInt"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iPatBrushOrigin"
				supplier   	"TPoint"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iPen"
				supplier   	"TRgb"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iTextBackGround"
				supplier   	"TTextBackGround"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iWideLine"
				supplier   	"TWideLine"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iTextBackGroundColour"
				supplier   	"TRgb"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iBrushPattern"
				supplier   	"CFbsBitmap"
				exportControl 	"Protected"
				Containment 	"By Reference"
				supplier_cardinality 	(value cardinality "0..1")
				client_cardinality 	(value cardinality "0..n"))
			    (object Has_Relationship
				supplier   	"CFbsFont"
				exportControl 	"Protected"
				supplier_cardinality 	(value cardinality "0..1")
				client_cardinality 	(value cardinality "0..n"))
			    (object Has_Relationship
				supplier   	"CFbsBitmap"
				exportControl 	"Protected"
				supplier_cardinality 	(value cardinality "0..1")
				client_cardinality 	(value cardinality "0..n"))
			    (object Has_Relationship
				supplier   	"TRgb")
			    (object Has_Relationship
				supplier   	"TRgb")
			    (object Has_Relationship
				supplier   	"TLinearDDA")
			    (object Has_Relationship
				supplier   	"TEllipse"))
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CBitmapContext"))
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				label      	"iDrawable"
				supplier   	"RFbsDrawDevice"
				supplier_cardinality 	(value cardinality "1")
				client_cardinality 	(value cardinality "0..n"))
			    (object Uses_Relationship
				supplier   	"CBitwiseBitmap"
				exportControl 	"Protected"
				supplier_cardinality 	(value cardinality "0..1")
				client_cardinality 	(value cardinality "0..n"))
			    (object Uses_Relationship
				supplier   	"CBitmapFont"
				exportControl 	"Protected"
				supplier_cardinality 	(value cardinality "0..1")
				client_cardinality 	(value cardinality "0..n"))
			    (object Uses_Relationship
				label      	"iBrushPattern"
				supplier   	"CFbsBitmap"
				exportControl 	"Protected"
				supplier_cardinality 	(value cardinality "0..1")
				client_cardinality 	(value cardinality "0..n")))
			module     	"G32 (main)")
		    (object Class "RFbsDrawDevice"
			fields     	(list has_relationship_list
			    (object Has_Relationship
				documentation 	"Size of gdi area."
				label      	"iSize"
				supplier   	"TSize"
				exportControl 	"Protected"
				Containment 	"By Value"
				supplier_cardinality 	(value cardinality "1")
				client_cardinality 	(value cardinality "1"))
			    (object Has_Relationship
				documentation 	"Display mode of device."
				label      	"iDispMode"
				supplier   	"TDisplayMode"
				exportControl 	"Protected"
				Containment 	"By Value"
				supplier_cardinality 	(value cardinality "1")
				client_cardinality 	(value cardinality "1"))
			    (object Has_Relationship
				documentation 	"Single sprite pointer."
				label      	"iSprite"
				supplier   	"RSpriteBase *"
				exportControl 	"Protected"
				Containment 	"By Value"
				supplier_cardinality 	(value cardinality "1")
				client_cardinality 	(value cardinality "1"))
			    (object Has_Relationship
				documentation 	"The class handle."
				label      	"iHandle"
				supplier   	"TUint"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iAttributes"
				supplier   	"TGdiAttributes"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iLongWidth"
				supplier   	"TInt"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iBitmapBits"
				supplier   	"TUint8"
				exportControl 	"Protected"
				Containment 	"By Reference")
			    (object Has_Relationship
				label      	"iScanLineBuffer"
				supplier   	"TUint8 *"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iScanLineBytes"
				supplier   	"TInt"
				exportControl 	"Protected"
				Containment 	"By Value")
			    (object Has_Relationship
				label      	"iSpriteDraw"
				supplier   	"TBool"
				exportControl 	"Protected"
				Containment 	"By Value"))
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"RDrawBase"))
			abstract   	TRUE
			module     	"G32 (main)")
		    (object Class "RPaletteBase"
			abstract   	TRUE
			module     	"G32 (main)")
		    (object Class "CFbsScreenDevice"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CFbsDevice"))
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				supplier   	"CFbsBitGC"
				supplier_cardinality 	(value cardinality "0..n")
				client_cardinality 	(value cardinality "1"))
			    (object Uses_Relationship
				supplier   	"RFbsDrawDevice"))
			operations 	(list Operations
			    (object Operation "CreateContext"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0)))
		    (object Class "CFbsDevice"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CBitmapDevice"))
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				supplier   	"CFbsTypefaceStore"))
			abstract   	TRUE)
		    (object Class "CFbsBitmapDevice"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CFbsDevice"))
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				supplier   	"CFbsBitGC"
				supplier_cardinality 	(value cardinality "0..n")
				client_cardinality 	(value cardinality "1"))))
		    (object Class_Category "Low Level
Drawing"
			exportControl 	"Public"
			logical_models 	(list unit_reference_list
			    (object Class "RFbsDrawFourBppBitmap"
				superclasses 	(list inheritance_relationship_list
				    (object Inheritance_Relationship
					supplier   	"RFbsDrawBitmap"))
				persistence 	"Persistent"
				module     	"G32 (main)")
			    (object Class "RDrawEightBppBitmap
"
				superclasses 	(list inheritance_relationship_list
				    (object Inheritance_Relationship
					supplier   	"RFbsDrawBitmap"))
				persistence 	"Persistent"
				module     	"G32 (main)")
			    (object Class "RFbsDrawFourBppScreenBitmap"
				superclasses 	(list inheritance_relationship_list
				    (object Inheritance_Relationship
					supplier   	"RFbsDrawScreen")
				    (object Inheritance_Relationship
					supplier   	"RFbsDrawFourBppBitmap"))
				persistence 	"Persistent"
				module     	"G32 (main)")
			    (object Class "RFbsDrawTwoBppScreenBitmap"
				superclasses 	(list inheritance_relationship_list
				    (object Inheritance_Relationship
					supplier   	"RFbsDrawScreen")
				    (object Inheritance_Relationship
					supplier   	"RFbsDrawTwoBppBitmap"))
				persistence 	"Persistent"
				module     	"G32 (main)")
			    (object Class "RFbsDrawTwoBppBitmap"
				superclasses 	(list inheritance_relationship_list
				    (object Inheritance_Relationship
					supplier   	"RFbsDrawBitmap")))
			    (object Class "RFbsDrawOneBppBitmap"
				superclasses 	(list inheritance_relationship_list
				    (object Inheritance_Relationship
					supplier   	"RFbsDrawBitmap")))
			    (object Class "RDrawOneBppScreen"
				superclasses 	(list inheritance_relationship_list
				    (object Inheritance_Relationship
					supplier   	"RFbsDrawScreen")))
			    (object Class "RFbsDrawScreen"
				superclasses 	(list inheritance_relationship_list
				    (object Inheritance_Relationship
					supplier   	"RFbsDrawDevice"))
				abstract   	TRUE)
			    (object Class "RFbsDrawBitmap"
				superclasses 	(list inheritance_relationship_list
				    (object Inheritance_Relationship
					supplier   	"RFbsDrawDevice"))
				abstract   	TRUE))
			logical_presentations 	(list unit_reference_list
			    (object ClassDiagram "Main"
				title      	"Main"
				zoom       	100
				max_height 	28350
				max_width  	21600
				origin_x   	0
				origin_y   	0
				items      	(list diagram_item_list
				    (object ClassView "Class" "RFbsDrawDevice" @1
					location   	(1500, 175)
					label      	(object ItemLabel
					    Parent_View 	@1
					    location   	(1368, 68)
					    nlines     	2
					    max_width  	310
					    justify    	0
					    label      	"RFbsDrawDevice")
					width      	450
					height     	318
					annotation 	8
					autoResize 	TRUE)
				    (object ClassView "Class" "RFbsDrawFourBppBitmap" @2
					location   	(2175, 1050)
					label      	(object ItemLabel
					    Parent_View 	@2
					    location   	(2052, 966)
					    nlines     	2
					    max_width  	288
					    justify    	0
					    label      	"RFbsDrawFourBppBitmap")
					width      	420
					annotation 	8
					autoResize 	TRUE)
				    (object ClassView "Class" "RFbsDrawFourBppScreenBitmap" @3
					location   	(2175, 1575)
					label      	(object ItemLabel
					    Parent_View 	@3
					    location   	(2032, 1491)
					    nlines     	2
					    max_width  	334
					    justify    	0
					    label      	"RFbsDrawFourBppScreenBitmap")
					width      	488
					annotation 	8
					autoResize 	TRUE)
				    (object ClassView "Class" "RFbsDrawTwoBppScreenBitmap" @4
					location   	(700, 1600)
					label      	(object ItemLabel
					    Parent_View 	@4
					    location   	(558, 1516)
					    nlines     	2
					    max_width  	333
					    justify    	0
					    label      	"RFbsDrawTwoBppScreenBitmap")
					width      	486
					annotation 	8
					autoResize 	TRUE)
				    (object ClassView "Class" "RFbsDrawTwoBppBitmap" @5
					location   	(700, 1075)
					label      	(object ItemLabel
					    Parent_View 	@5
					    location   	(583, 991)
					    nlines     	2
					    max_width  	274
					    justify    	0
					    label      	"RFbsDrawTwoBppBitmap")
					width      	400
					annotation 	8
					autoResize 	TRUE)
				    (object ClassView "Class" "RFbsDrawOneBppBitmap" @6
					location   	(1500, 1050)
					label      	(object ItemLabel
					    Parent_View 	@6
					    location   	(1377, 966)
					    nlines     	2
					    max_width  	286
					    justify    	0
					    label      	"RFbsDrawOneBppBitmap")
					width      	418
					annotation 	8
					autoResize 	TRUE)
				    (object ClassView "Class" "RFbsDrawBitmap" @7
					location   	(1500, 575)
					label      	(object ItemLabel
					    Parent_View 	@7
					    location   	(1396, 491)
					    nlines     	2
					    max_width  	240
					    justify    	0
					    label      	"RFbsDrawBitmap")
					annotation 	8
					autoResize 	TRUE)
				    (object InheritView "" @8
					client     	@2
					supplier   	@7
					line_style 	0)
				    (object InheritView "" @9
					client     	@5
					supplier   	@7
					line_style 	0)
				    (object InheritView "" @10
					client     	@6
					supplier   	@7
					line_style 	0)
				    (object InheritView "" @11
					client     	@7
					supplier   	@1
					line_style 	0)
				    (object InheritView "" @12
					client     	@4
					supplier   	@5
					line_style 	0)
				    (object InheritView "" @13
					client     	@3
					supplier   	@2
					line_style 	0)))))
		    (object Class_Category "Screen/Bitmap Context"
			exportControl 	"Public"
			logical_models 	(list unit_reference_list
			    (object Class "TEllipse"))
			logical_presentations 	(list unit_reference_list
			    (object ClassDiagram "Main"
				title      	"Main"
				zoom       	100
				max_height 	28350
				max_width  	21600
				origin_x   	0
				origin_y   	0
				items      	(list diagram_item_list
				    (object ClassView "Class" "CFbsBitGC" @14
					location   	(1675, 1050)
					label      	(object ItemLabel
					    Parent_View 	@14
					    location   	(1558, 955)
					    nlines     	2
					    max_width  	275
					    justify    	0
					    label      	"CFbsBitGC")
					width      	400
					height     	287
					annotation 	8)
				    (object ClassView "Class" "CFbsFont" @15
					location   	(1625, 1725)
					label      	(object ItemLabel
					    Parent_View 	@15
					    location   	(1479, 1605)
					    nlines     	2
					    max_width  	344
					    justify    	0
					    label      	"CFbsFont")
					width      	500
					height     	357
					annotation 	8)
				    (object ClassView "Class" "CFbsBitmap" @16
					location   	(2525, 1475)
					label      	(object ItemLabel
					    Parent_View 	@16
					    location   	(2393, 1366)
					    nlines     	2
					    max_width  	310
					    justify    	0
					    label      	"CFbsBitmap")
					width      	450
					height     	325
					annotation 	8)
				    (object HasView "iFont" @17
					client     	@14
					supplier   	@15
					line_style 	0)
				    (object HasView "iBrushPattern" @18
					client     	@14
					supplier   	@16
					line_style 	0)
				    (object ClassView "Class" "TRgb" @19
					location   	(850, 1275)
					label      	(object ItemLabel
					    Parent_View 	@19
					    location   	(733, 1179)
					    nlines     	2
					    max_width  	275
					    justify    	0
					    label      	"TRgb")
					width      	400
					height     	288
					annotation 	8)
				    (object ClassView "Class" "TRgb" @20
					location   	(875, 850)
					label      	(object ItemLabel
					    Parent_View 	@20
					    location   	(758, 754)
					    nlines     	2
					    max_width  	275
					    justify    	0
					    label      	"TRgb")
					width      	400
					height     	288
					annotation 	8)
				    (object HasView "iPen" @21
					client     	@14
					supplier   	@19
					line_style 	0)
				    (object HasView "iTextBackGroundColour" @22
					client     	@14
					supplier   	@20
					line_style 	0)
				    (object ClassView "Class" "TLinearDDA" @23
					location   	(1400, 500)
					label      	(object ItemLabel
					    Parent_View 	@23
					    location   	(1296, 416)
					    nlines     	2
					    max_width  	240
					    justify    	0
					    label      	"TLinearDDA")
					annotation 	8)
				    (object HasView "" @24
					client     	@14
					supplier   	@23
					line_style 	0)
				    (object ClassView "Class" "TEllipse" @25
					location   	(1975, 525)
					label      	(object ItemLabel
					    Parent_View 	@25
					    location   	(1871, 441)
					    nlines     	2
					    max_width  	240
					    justify    	0
					    label      	"TEllipse")
					annotation 	8)
				    (object HasView "" @26
					client     	@14
					supplier   	@25
					line_style 	0))))))
		logical_presentations 	(list unit_reference_list
		    (object ClassDiagram "Main"
			title      	"Main"
			zoom       	92
			max_height 	28350
			max_width  	21600
			origin_x   	0
			origin_y   	0
			items      	(list diagram_item_list
			    (object ClassView "Class" "CFbsBitGC" @27
				location   	(2500, 975)
				label      	(object ItemLabel
				    Parent_View 	@27
				    location   	(2396, 891)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CFbsBitGC")
				annotation 	8)
			    (object ClassView "Class" "RFbsDrawDevice" @28
				location   	(1650, 650)
				label      	(object ItemLabel
				    Parent_View 	@28
				    location   	(1546, 566)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"RFbsDrawDevice")
				annotation 	8)
			    (object ClassView "Class" "CFbsScreenDevice" @29
				location   	(2025, 1375)
				label      	(object ItemLabel
				    Parent_View 	@29
				    location   	(1894, 1268)
				    nlines     	2
				    max_width  	309
				    justify    	0
				    label      	"CFbsScreenDevice")
				compartment 	(object Compartment
				    Parent_View 	@29
				    location   	(1584, 1386)
				    anchor     	2
				    nlines     	1
				    max_width  	927
				    justify    	0
				    compartmentItems 	(list Compartment
					"CreateContext( )"))
				width      	448
				height     	319
				annotation 	8)
			    (object UsesView "" @30
				client     	@29
				supplier   	@27
				line_style 	0)
			    (object ClassView "Class" "CFbsDevice" @31
				location   	(1250, 1125)
				label      	(object ItemLabel
				    Parent_View 	@31
				    location   	(1146, 1041)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CFbsDevice")
				annotation 	8)
			    (object InheritView "" @32
				client     	@29
				supplier   	@31
				line_style 	0)
			    (object ClassView "Class" "CBitmapContext" @33
				location   	(2775, 325)
				label      	(object ItemLabel
				    Parent_View 	@33
				    location   	(2616, 195)
				    nlines     	2
				    max_width  	374
				    justify    	0
				    label      	"CBitmapContext")
				width      	543
				height     	387
				annotation 	8)
			    (object InheritView "" @34
				client     	@27
				supplier   	@33
				line_style 	0)
			    (object ClassView "Class" "CFbsTypefaceStore" @35
				location   	(475, 1500)
				label      	(object ItemLabel
				    Parent_View 	@35
				    location   	(316, 1370)
				    nlines     	2
				    max_width  	374
				    justify    	0
				    label      	"CFbsTypefaceStore")
				width      	543
				height     	387
				annotation 	8)
			    (object UsesView "iDrawable" @36
				label      	(object ItemLabel
				    Parent_View 	@36
				    location   	(2082, 815)
				    anchor_loc 	1
				    nlines     	1
				    max_width  	450
				    justify    	0
				    label      	"iDrawable")
				client     	@27
				supplier   	@28
				line_style 	0)
			    (object CategoryView "Low Level
Drawing" @37
				location   	(1675, 400)
				label      	(object ItemLabel
				    Parent_View 	@37
				    location   	(1508, 305)
				    nlines     	2
				    max_width  	334
				    justify    	0
				    label      	
|Low Level
|Drawing
				    )
				width      	346
				height     	203)
			    (object CategoryView "Screen/Bitmap Context" @38
				location   	(2850, 1025)
				label      	(object ItemLabel
				    Parent_View 	@38
				    location   	(2706, 941)
				    nlines     	2
				    max_width  	288
				    justify    	0
				    label      	"Screen/Bitmap Context")
				compartment 	(object Compartment
				    Parent_View 	@38
				    location   	(2729, 1059)
				    anchor     	2
				    nlines     	1
				    max_width  	720
				    compartmentItems 	(list Compartment
					"TEllipse"))
				width      	300
				height     	180)
			    (object ClassView "Class" "CBitmapDevice" @39
				location   	(750, 525)
				label      	(object ItemLabel
				    Parent_View 	@39
				    location   	(619, 418)
				    nlines     	2
				    max_width  	309
				    justify    	0
				    label      	"CBitmapDevice")
				width      	448
				height     	319
				annotation 	8)
			    (object InheritView "" @40
				client     	@31
				supplier   	@39
				line_style 	0)
			    (object ClassView "Class" "CFbsBitmapDevice" @41
				location   	(2150, 1975)
				label      	(object ItemLabel
				    Parent_View 	@41
				    location   	(2040, 1891)
				    nlines     	2
				    max_width  	256
				    justify    	0
				    label      	"CFbsBitmapDevice")
				width      	372
				annotation 	8)
			    (object InheritView "" @42
				client     	@41
				supplier   	@31
				line_style 	0)
			    (object UsesView "" @43
				client     	@31
				supplier   	@35
				line_style 	0)
			    (object UsesView "" @44
				client     	@41
				supplier   	@27
				line_style 	0)))))
	    (object Class_Category "FontBitmapServer"
		visible_categories 	(list visibility_relationship_list
		    (object Visibility_Relationship
			supplier   	"Psibit")
		    (object Visibility_Relationship
			supplier   	"FntStore")
		    (object Visibility_Relationship
			supplier   	"Gdi"))
		exportControl 	"Public"
		logical_models 	(list unit_reference_list
		    (object Class "RFbsSession"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"RSessionBase"))
			operations 	(list Operations
			    (object Operation "SendCommand"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0)))
		    (object Class "CFbsFont"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CFont"))
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				supplier   	"RFbsSession")
			    (object Uses_Relationship
				supplier   	"CBitmapFont"
				supplier_cardinality 	(value cardinality "1")
				client_cardinality 	(value cardinality "1"))))
		    (object Class "CBitmappedDevice"
			abstract   	TRUE)
		    (object Class "CFbsBitmap"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CDiBitmap"))
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				supplier   	"RFbsSession")
			    (object Uses_Relationship
				supplier   	"CBitwiseBitmap"
				supplier_cardinality 	(value cardinality "1")
				client_cardinality 	(value cardinality "1"))))
		    (object Class "CFbsTypefaceStore"
			fields     	(list has_relationship_list
			    (object Has_Relationship
				supplier   	"RFbsSession"))
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CTypefaceStore"))
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				supplier   	"CFbsFont")))
		    (object Association "IPC"
			quid       	"3198EF07008C"
			roles      	(list role_list
			    (object Role "$UNNAMED$12"
				supplier   	"RFbsSession"
				client_cardinality 	(value cardinality "0..n"))
			    (object Role "$UNNAMED$13"
				supplier   	"CFontBitmapServer"
				client_cardinality 	(value cardinality "1"))))
		    (object Association "iConnectionHandle"
			quid       	"3198EF07008D"
			roles      	(list role_list
			    (object Role "$UNNAMED$14"
				supplier   	"RFbsSession"
				client_cardinality 	(value cardinality "1"))
			    (object Role "$UNNAMED$15"
				supplier   	"CFbClient"
				client_cardinality 	(value cardinality "1"))))
		    (object Class_Category "Font/BitmapServer"
			exportControl 	"Public"
			logical_models 	(list unit_reference_list
			    (object Class "CFontBitmapServer"
				superclasses 	(list inheritance_relationship_list
				    (object Inheritance_Relationship
					supplier   	"CServer"))
				used_nodes 	(list uses_relationship_list
				    (object Uses_Relationship
					supplier   	"CFbClient"
					supplier_cardinality 	(value cardinality "0..n")
					client_cardinality 	(value cardinality "1"))))
			    (object Class "CServer")
			    (object Class "CSession")
			    (object Class "CFbsTop"
				used_nodes 	(list uses_relationship_list
				    (object Uses_Relationship
					supplier   	"CFontStore"
					supplier_cardinality 	(value cardinality "1")
					client_cardinality 	(value cardinality "1"))))
			    (object Class "CFbClient"
				fields     	(list has_relationship_list
				    (object Has_Relationship
					label      	"iIx"
					supplier   	"CObjectIx"
					supplier_cardinality 	(value cardinality "1")
					client_cardinality 	(value cardinality "1")))
				superclasses 	(list inheritance_relationship_list
				    (object Inheritance_Relationship
					supplier   	"CSession"))
				used_nodes 	(list uses_relationship_list
				    (object Uses_Relationship
					supplier   	"CFbsObject"
					supplier_cardinality 	(value cardinality "0..n")
					client_cardinality 	(value cardinality "1"))
				    (object Uses_Relationship
					supplier   	"CBitwiseBitmap"
					supplier_cardinality 	(value cardinality "1")
					client_cardinality 	(value cardinality "0..n"))
				    (object Uses_Relationship
					supplier   	"CBitmapFont"
					supplier_cardinality 	(value cardinality "1")
					client_cardinality 	(value cardinality "0..n"))))
			    (object Class "CBitwiseBitmap"
				superclasses 	(list inheritance_relationship_list
				    (object Inheritance_Relationship
					supplier   	"RBrushBase")
				    (object Inheritance_Relationship
					supplier   	"CDiBitmap"))
				module     	"G32 (main)")
			    (object Association "$UNNAMED$16"
				quid       	"3198EF0700FA"
				roles      	(list role_list
				    (object Role "$UNNAMED$17"
					supplier   	"CFontBitmapServer"
					client_cardinality 	(value cardinality "1"))
				    (object Role "$UNNAMED$18"
					supplier   	"CFbsTop"
					client_cardinality 	(value cardinality "1"))))
			    (object Association "$UNNAMED$19"
				quid       	"3198EF0700FB"
				roles      	(list role_list
				    (object Role "$UNNAMED$20"
					supplier   	"CFbClient"
					client_cardinality 	(value cardinality "0..n"))
				    (object Role "$UNNAMED$21"
					supplier   	"RFbTop"
					client_cardinality 	(value cardinality "1"))))
			    (object Association "$UNNAMED$22"
				quid       	"3198EF0700FC"
				roles      	(list role_list
				    (object Role "$UNNAMED$23"
					supplier   	"CFbClient"
					client_cardinality 	(value cardinality "0..n"))
				    (object Role "$UNNAMED$24"
					supplier   	"CFbsTop"
					client_cardinality 	(value cardinality "1")))))
			logical_presentations 	(list unit_reference_list
			    (object ClassDiagram "Main"
				title      	"Main"
				zoom       	100
				max_height 	28350
				max_width  	21600
				origin_x   	0
				origin_y   	0
				items      	(list diagram_item_list
				    (object ClassView "Class" "CServer" @45
					location   	(1550, 300)
					label      	(object ItemLabel
					    Parent_View 	@45
					    location   	(1446, 216)
					    nlines     	2
					    max_width  	240
					    justify    	0
					    label      	"CServer")
					annotation 	8)
				    (object ClassView "Class" "CSession" @46
					location   	(1650, 1900)
					label      	(object ItemLabel
					    Parent_View 	@46
					    location   	(1546, 1816)
					    nlines     	2
					    max_width  	240
					    justify    	0
					    label      	"CSession")
					annotation 	8)
				    (object ClassView "Class" "RSessionBase" @47
					location   	(375, 425)
					label      	(object ItemLabel
					    Parent_View 	@47
					    location   	(258, 329)
					    nlines     	2
					    max_width  	275
					    justify    	0
					    label      	"RSessionBase")
					width      	400
					height     	288
					annotation 	8)
				    (object ClassView "Class" "CBitwiseBitmap" @48
					location   	(1175, 1725)
					label      	(object ItemLabel
					    Parent_View 	@48
					    location   	(1071, 1641)
					    nlines     	2
					    max_width  	240
					    justify    	0
					    label      	"CBitwiseBitmap")
					annotation 	8)
				    (object ClassView "Class" "CBitmapFont" @49
					location   	(2300, 1750)
					label      	(object ItemLabel
					    Parent_View 	@49
					    location   	(2196, 1666)
					    nlines     	2
					    max_width  	240
					    justify    	0
					    label      	"CBitmapFont")
					annotation 	8)
				    (object ClassView "Class" "CDiBitmap" @50
					location   	(675, 1875)
					label      	(object ItemLabel
					    Parent_View 	@50
					    location   	(571, 1791)
					    nlines     	2
					    max_width  	240
					    justify    	0
					    label      	"CDiBitmap")
					annotation 	8)
				    (object ClassView "Class" "CFontStore" @51
					location   	(2625, 450)
					label      	(object ItemLabel
					    Parent_View 	@51
					    location   	(2521, 366)
					    nlines     	2
					    max_width  	240
					    justify    	0
					    label      	"CFontStore")
					annotation 	8)
				    (object InheritView "" @52
					client     	@48
					supplier   	@50
					line_style 	0)
				    (object ClassView "Class" "RFbsSession" @53
					location   	(375, 1000)
					label      	(object ItemLabel
					    Parent_View 	@53
					    location   	(243, 891)
					    nlines     	2
					    max_width  	310
					    justify    	0
					    label      	"RFbsSession")
					width      	450
					height     	325
					annotation 	8)
				    (object InheritView "" @54
					client     	@53
					supplier   	@47
					line_style 	0)
				    (object ClassView "Class" "CFbClient" @55
					location   	(1600, 1525)
					label      	(object ItemLabel
					    Parent_View 	@55
					    location   	(1496, 1441)
					    nlines     	2
					    max_width  	240
					    justify    	0
					    label      	"CFbClient")
					annotation 	8)
				    (object AssociationViewNew "iConnectionHandle" @56
					location   	(1017, 1275)
					label      	(object SegLabel @57
					    Parent_View 	@56
					    location   	(1017, 1216)
					    anchor     	1
					    anchor_loc 	1
					    nlines     	1
					    max_width  	600
					    justify    	0
					    label      	"iConnectionHandle"
					    pctDist    	0.500000
					    height     	60
					    orientation 	0)
					quidu      	"3198EF07008D"
					roleview_list 	(list RoleViews
					    (object RoleView "$UNNAMED$14" @58
						Parent_View 	@56
						location   	(642, 275)
						client     	@56
						supplier   	@53
						line_style 	0
						label      	(object SegLabel @59
						    Parent_View 	@58
						    location   	(593, 1150)
						    anchor     	2
						    anchor_loc 	1
						    nlines     	1
						    max_width  	15
						    justify    	0
						    label      	"1"
						    pctDist    	0.900000
						    height     	54
						    orientation 	0))
					    (object RoleView "$UNNAMED$15" @60
						Parent_View 	@56
						location   	(642, 275)
						client     	@56
						supplier   	@55
						line_style 	0
						label      	(object SegLabel @61
						    Parent_View 	@60
						    location   	(1403, 1499)
						    anchor     	2
						    anchor_loc 	1
						    nlines     	1
						    max_width  	15
						    justify    	0
						    label      	"1"
						    pctDist    	0.900000
						    height     	54
						    orientation 	1))))
				    (object InheritView "" @62
					client     	@55
					supplier   	@46
					line_style 	0)
				    (object UsesView "" @63
					client     	@55
					supplier   	@48
					line_style 	0)
				    (object UsesView "" @64
					client     	@55
					supplier   	@49
					line_style 	0)
				    (object ClassView "Class" "CFontBitmapServer" @65
					location   	(1550, 775)
					label      	(object ItemLabel
					    Parent_View 	@65
					    location   	(1445, 691)
					    nlines     	2
					    max_width  	245
					    justify    	0
					    label      	"CFontBitmapServer")
					width      	356
					annotation 	8)
				    (object AssociationViewNew "IPC" @66
					location   	(996, 881)
					label      	(object SegLabel @67
					    Parent_View 	@66
					    location   	(996, 822)
					    anchor     	1
					    anchor_loc 	1
					    nlines     	1
					    max_width  	600
					    justify    	0
					    label      	"IPC"
					    pctDist    	0.500000
					    height     	60
					    orientation 	0)
					quidu      	"3198EF07008C"
					roleview_list 	(list RoleViews
					    (object RoleView "$UNNAMED$12" @68
						Parent_View 	@66
						location   	(621, -119)
						client     	@66
						supplier   	@53
						line_style 	0
						label      	(object SegLabel @69
						    Parent_View 	@68
						    location   	(633, 1007)
						    anchor     	2
						    anchor_loc 	1
						    nlines     	1
						    max_width  	15
						    justify    	0
						    label      	"0..n"
						    pctDist    	0.900000
						    height     	54
						    orientation 	0))
					    (object RoleView "$UNNAMED$13" @70
						Parent_View 	@66
						location   	(621, -119)
						client     	@66
						supplier   	@65
						line_style 	0
						label      	(object SegLabel @71
						    Parent_View 	@70
						    location   	(1377, 861)
						    anchor     	2
						    anchor_loc 	1
						    nlines     	1
						    max_width  	15
						    justify    	0
						    label      	"1"
						    pctDist    	0.900000
						    height     	54
						    orientation 	1))))
				    (object UsesView "" @72
					client     	@65
					supplier   	@55
					line_style 	0)
				    (object InheritView "" @73
					client     	@65
					supplier   	@45
					line_style 	0)
				    (object ClassView "Class" "CFbsTop" @74
					location   	(2450, 875)
					label      	(object ItemLabel
					    Parent_View 	@74
					    location   	(2346, 791)
					    nlines     	2
					    max_width  	240
					    justify    	0
					    label      	"CFbsTop")
					annotation 	8)
				    (object UsesView "" @75
					client     	@74
					supplier   	@51
					line_style 	0)
				    (object AssociationViewNew "$UNNAMED$22" @76
					location   	(2042, 1187)
					quidu      	"3198EF0700FC"
					roleview_list 	(list RoleViews
					    (object RoleView "$UNNAMED$23" @77
						Parent_View 	@76
						location   	(442, -338)
						client     	@76
						supplier   	@55
						line_style 	0
						label      	(object SegLabel @78
						    Parent_View 	@77
						    location   	(1786, 1451)
						    anchor     	2
						    anchor_loc 	1
						    nlines     	1
						    max_width  	15
						    justify    	0
						    label      	"0..n"
						    pctDist    	0.900000
						    height     	54
						    orientation 	0))
					    (object RoleView "$UNNAMED$24" @79
						Parent_View 	@76
						location   	(442, -338)
						client     	@76
						supplier   	@74
						line_style 	0
						label      	(object SegLabel @80
						    Parent_View 	@79
						    location   	(2364, 1009)
						    anchor     	2
						    anchor_loc 	1
						    nlines     	1
						    max_width  	15
						    justify    	0
						    label      	"1"
						    pctDist    	0.900000
						    height     	54
						    orientation 	1))))
				    (object AssociationViewNew "$UNNAMED$16" @81
					location   	(1992, 823)
					quidu      	"3198EF0700FA"
					roleview_list 	(list RoleViews
					    (object RoleView "$UNNAMED$17" @82
						Parent_View 	@81
						location   	(442, 48)
						client     	@81
						supplier   	@65
						line_style 	0
						label      	(object SegLabel @83
						    Parent_View 	@82
						    location   	(1727, 847)
						    anchor     	2
						    anchor_loc 	1
						    nlines     	1
						    max_width  	15
						    justify    	0
						    label      	"1"
						    pctDist    	0.900000
						    height     	54
						    orientation 	0))
					    (object RoleView "$UNNAMED$18" @84
						Parent_View 	@81
						location   	(442, 48)
						client     	@81
						supplier   	@74
						line_style 	0
						label      	(object SegLabel @85
						    Parent_View 	@84
						    location   	(2247, 908)
						    anchor     	2
						    anchor_loc 	1
						    nlines     	1
						    max_width  	15
						    justify    	0
						    label      	"1"
						    pctDist    	0.900000
						    height     	54
						    orientation 	1)))))))))
		logical_presentations 	(list unit_reference_list
		    (object ClassDiagram "Main"
			title      	"Main"
			zoom       	100
			max_height 	28350
			max_width  	21600
			origin_x   	0
			origin_y   	0
			items      	(list diagram_item_list
			    (object ClassView "Class" "RFbsSession" @86
				location   	(1475, 950)
				label      	(object ItemLabel
				    Parent_View 	@86
				    location   	(1343, 841)
				    nlines     	2
				    max_width  	310
				    justify    	0
				    label      	"RFbsSession")
				compartment 	(object Compartment
				    Parent_View 	@86
				    location   	(1032, 907)
				    anchor     	2
				    nlines     	1
				    max_width  	931
				    justify    	0
				    compartmentItems 	(list Compartment
					"SendCommand( )"))
				width      	450
				height     	325
				annotation 	8)
			    (object ClassView "Class" "CFbsFont" @87
				location   	(2450, 950)
				label      	(object ItemLabel
				    Parent_View 	@87
				    location   	(2346, 866)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CFbsFont")
				annotation 	8)
			    (object ClassView "Class" "CFbsBitmap" @88
				location   	(700, 950)
				label      	(object ItemLabel
				    Parent_View 	@88
				    location   	(596, 866)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CFbsBitmap")
				annotation 	8)
			    (object ClassView "Class" "RSessionBase" @89
				location   	(1475, 400)
				label      	(object ItemLabel
				    Parent_View 	@89
				    location   	(1371, 316)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"RSessionBase")
				annotation 	8)
			    (object InheritView "" @90
				client     	@86
				supplier   	@89
				line_style 	0)
			    (object ClassView "Class" "CFont" @91
				location   	(2450, 325)
				label      	(object ItemLabel
				    Parent_View 	@91
				    location   	(2346, 241)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CFont")
				annotation 	8)
			    (object InheritView "" @92
				client     	@87
				supplier   	@91
				line_style 	0)
			    (object ClassView "Class" "CDiBitmap" @93
				location   	(700, 325)
				label      	(object ItemLabel
				    Parent_View 	@93
				    location   	(596, 241)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CDiBitmap")
				annotation 	8)
			    (object InheritView "" @94
				client     	@88
				supplier   	@93
				line_style 	0)
			    (object CategoryView "Font/BitmapServer" @95
				location   	(1675, 675)
				label      	(object ItemLabel
				    Parent_View 	@95
				    location   	(1506, 578)
				    nlines     	2
				    max_width  	338
				    justify    	0
				    label      	"Font/BitmapServer")
				compartment 	(object Compartment
				    Parent_View 	@95
				    location   	(1534, 644)
				    anchor     	2
				    nlines     	1
				    max_width  	840
				    compartmentItems 	(list Compartment
					"CBitwiseBitmap"))
				width      	350
				height     	206)
			    (object ClassView "Class" "CFbsTypefaceStore" @96
				location   	(1925, 1525)
				label      	(object ItemLabel
				    Parent_View 	@96
				    location   	(1809, 1441)
				    nlines     	2
				    max_width  	270
				    justify    	0
				    label      	"CFbsTypefaceStore")
				width      	392
				annotation 	8)
			    (object HasView "" @97
				client     	@96
				supplier   	@86
				line_style 	0)
			    (object ClassView "Class" "CTypefaceStore" @98
				location   	(2600, 1725)
				label      	(object ItemLabel
				    Parent_View 	@98
				    location   	(2481, 1630)
				    nlines     	2
				    max_width  	275
				    justify    	0
				    label      	"CTypefaceStore")
				width      	399
				height     	287
				annotation 	8)
			    (object InheritView "" @99
				client     	@96
				supplier   	@98
				line_style 	0)
			    (object UsesView "" @100
				client     	@96
				supplier   	@87
				line_style 	0)
			    (object UsesView "" @101
				client     	@88
				supplier   	@86
				line_style 	0)
			    (object UsesView "" @102
				client     	@87
				supplier   	@86
				line_style 	0)))))
	    (object Class_Category "WindowServer"
		visible_categories 	(list visibility_relationship_list
		    (object Visibility_Relationship
			supplier   	"BitGdi"))
		exportControl 	"Public"
		logical_models 	(list unit_reference_list)
		logical_presentations 	(list unit_reference_list
		    (object ClassDiagram "Main"
			title      	"Main"
			zoom       	100
			max_height 	28350
			max_width  	21600
			origin_x   	0
			origin_y   	0
			items      	(list diagram_item_list))))
	    (object Class_Category "Psibit"
		visible_categories 	(list visibility_relationship_list
		    (object Visibility_Relationship
			supplier   	"Gdi"))
		exportControl 	"Public"
		logical_models 	(list unit_reference_list
		    (object Class "RPsiBit"
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				supplier   	"CBitwiseBitmap"))
			operations 	(list Operations
			    (object Operation "InitLoadBitmapL"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0)
			    (object Operation "ExecLoadBitmapL"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0)
			    (object Operation "StoreBitmapL"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0))))
		logical_presentations 	(list unit_reference_list
		    (object ClassDiagram "Main"
			title      	"Main"
			zoom       	100
			max_height 	28350
			max_width  	21600
			origin_x   	0
			origin_y   	0
			items      	(list diagram_item_list
			    (object ClassView "Class" "RPsiBit" @103
				location   	(1800, 950)
				label      	(object ItemLabel
				    Parent_View 	@103
				    location   	(1641, 817)
				    nlines     	2
				    max_width  	374
				    justify    	0
				    label      	"RPsiBit")
				compartment 	(object Compartment
				    Parent_View 	@103
				    location   	(1271, 883)
				    anchor     	2
				    nlines     	3
				    max_width  	1124
				    justify    	0
				    compartmentItems 	(list Compartment
					"ExecLoadBitmapL( )"
					"InitLoadBitmapL( )"
					"StoreBitmapL( )"))
				width      	543
				height     	394
				annotation 	8)
			    (object ClassView "Class" "CBitwiseBitmap" @104
				location   	(1800, 1575)
				label      	(object ItemLabel
				    Parent_View 	@104
				    location   	(1625, 1429)
				    nlines     	2
				    max_width  	413
				    justify    	0
				    label      	"CBitwiseBitmap")
				width      	599
				height     	431
				annotation 	8)
			    (object UsesView "" @105
				client     	@103
				supplier   	@104
				line_style 	0)))))
	    (object Class_Category "FntStore"
		exportControl 	"Public"
		logical_models 	(list unit_reference_list
		    (object Class "CBitmapFont"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CFont")))
		    (object Class "CFontStore"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CBase"))
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				supplier   	"CBitmapFont"))))
		logical_presentations 	(list unit_reference_list
		    (object ClassDiagram "Main"
			title      	"Main"
			zoom       	100
			max_height 	28350
			max_width  	21600
			origin_x   	0
			origin_y   	0
			items      	(list diagram_item_list
			    (object ClassView "Class" "CBitmapFont" @106
				location   	(1550, 1100)
				label      	(object ItemLabel
				    Parent_View 	@106
				    location   	(1446, 1016)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CBitmapFont")
				annotation 	8)
			    (object ClassView "Class" "CFontStore" @107
				location   	(700, 1100)
				label      	(object ItemLabel
				    Parent_View 	@107
				    location   	(596, 1016)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CFontStore")
				annotation 	8)
			    (object UsesView "" @108
				client     	@107
				supplier   	@106
				line_style 	0)
			    (object ClassView "Class" "CFont" @109
				location   	(1550, 375)
				label      	(object ItemLabel
				    Parent_View 	@109
				    location   	(1446, 291)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CFont")
				annotation 	8)
			    (object InheritView "" @110
				client     	@106
				supplier   	@109
				line_style 	0)
			    (object ClassView "Class" "CBase" @111
				location   	(700, 375)
				label      	(object ItemLabel
				    Parent_View 	@111
				    location   	(596, 291)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CBase")
				annotation 	8)
			    (object InheritView "" @112
				client     	@107
				supplier   	@111
				line_style 	0)))))
	    (object Class_Category "Gdi"
		exportControl 	"Public"
		logical_models 	(list unit_reference_list
		    (object Class "CGraphicsDevice"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CBase"))
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				supplier   	"CGraphicsContext")
			    (object Uses_Relationship
				supplier   	"CFont"))
			abstract   	TRUE)
		    (object Class "CFont"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CBase"))
			abstract   	TRUE)
		    (object Class "CGraphicsContext"
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				supplier   	"CFont"))
			abstract   	TRUE)
		    (object Class "CTypefaceStore"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CBase"))
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				supplier   	"CFont"))
			abstract   	TRUE)
		    (object Class "TRgb"
			nonclass   	TRUE)
		    (object Class "CDiBitmap"
			abstract   	TRUE)
		    (object Class "TLinearDDA")
		    (object Class "CBitmapContext"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CGraphicsContext"))
			abstract   	TRUE)
		    (object Class "CBitmapDevice"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"CGraphicsDevice"))
			abstract   	TRUE)
		    (object Class_Category "Utility Classes"
			exportControl 	"Public"
			logical_models 	(list unit_reference_list)
			logical_presentations 	(list unit_reference_list
			    (object ClassDiagram "Main"
				title      	"Main"
				zoom       	100
				max_height 	28350
				max_width  	21600
				origin_x   	0
				origin_y   	0
				items      	(list diagram_item_list)))))
		logical_presentations 	(list unit_reference_list
		    (object ClassDiagram "Main"
			title      	"Main"
			zoom       	100
			max_height 	28350
			max_width  	21600
			origin_x   	0
			origin_y   	0
			items      	(list diagram_item_list
			    (object ClassView "Class" "CFont" @113
				location   	(1500, 875)
				label      	(object ItemLabel
				    Parent_View 	@113
				    location   	(1396, 791)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CFont")
				annotation 	8)
			    (object ClassView "Class" "CGraphicsContext" @114
				location   	(975, 1250)
				label      	(object ItemLabel
				    Parent_View 	@114
				    location   	(871, 1166)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CGraphicsContext")
				annotation 	8)
			    (object ClassView "Class" "CGraphicsDevice" @115
				location   	(925, 750)
				label      	(object ItemLabel
				    Parent_View 	@115
				    location   	(821, 666)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CGraphicsDevice")
				annotation 	8)
			    (object ClassView "Class" "CBase" @116
				location   	(1425, 225)
				label      	(object ItemLabel
				    Parent_View 	@116
				    location   	(1321, 141)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CBase")
				annotation 	8)
			    (object ClassView "Class" "CTypefaceStore" @117
				location   	(2200, 850)
				label      	(object ItemLabel
				    Parent_View 	@117
				    location   	(2096, 766)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CTypefaceStore")
				annotation 	8)
			    (object InheritView "" @118
				client     	@113
				supplier   	@116
				line_style 	0)
			    (object ClassView "Class" "TRgb" @119
				location   	(650, 1700)
				label      	(object ItemLabel
				    Parent_View 	@119
				    location   	(546, 1616)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"TRgb")
				annotation 	8)
			    (object ClassView "Class" "CDiBitmap" @120
				location   	(1550, 1725)
				label      	(object ItemLabel
				    Parent_View 	@120
				    location   	(1446, 1641)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CDiBitmap")
				annotation 	8)
			    (object ClassView "Class" "TLinearDDA" @121
				location   	(2250, 1675)
				label      	(object ItemLabel
				    Parent_View 	@121
				    location   	(2146, 1591)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"TLinearDDA")
				annotation 	8)
			    (object InheritView "" @122
				client     	@115
				supplier   	@116
				line_style 	0)
			    (object InheritView "" @123
				client     	@117
				supplier   	@116
				line_style 	0)
			    (object UsesView "" @124
				client     	@117
				supplier   	@113
				line_style 	0)
			    (object UsesView "" @125
				client     	@114
				supplier   	@113
				line_style 	0)
			    (object ClassView "Class" "CBitmapContext" @126
				location   	(450, 1275)
				label      	(object ItemLabel
				    Parent_View 	@126
				    location   	(346, 1191)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CBitmapContext")
				annotation 	8)
			    (object ClassView "Class" "CBitmapDevice" @127
				location   	(575, 475)
				label      	(object ItemLabel
				    Parent_View 	@127
				    location   	(471, 391)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"CBitmapDevice")
				annotation 	8)
			    (object InheritView "" @128
				client     	@126
				supplier   	@114
				line_style 	0)
			    (object UsesView "" @129
				client     	@115
				supplier   	@114
				line_style 	0)
			    (object UsesView "" @130
				client     	@115
				supplier   	@113
				line_style 	0)
			    (object InheritView "" @131
				client     	@127
				supplier   	@115
				line_style 	0)))))
	    (object Mechanism @132
		logical_models 	(list unit_reference_list)))
	logical_presentations 	(list unit_reference_list
	    (object ClassDiagram "Main"
		title      	"Main"
		zoom       	100
		max_height 	28350
		max_width  	21600
		origin_x   	0
		origin_y   	0
		items      	(list diagram_item_list
		    (object CategoryView "BitGdi" @133
			location   	(1175, 900)
			label      	(object ItemLabel
			    Parent_View 	@133
			    location   	(981, 756)
			    nlines     	2
			    max_width  	388
			    justify    	0
			    label      	"BitGdi")
			compartment 	(object Compartment
			    Parent_View 	@133
			    location   	(1014, 822)
			    anchor     	2
			    nlines     	3
			    max_width  	347
			    compartmentItems 	(list Compartment
				"CFbsScreenDevice"
				"CFbsBitGC"
				"RPaletteBase"))
			width      	400
			height     	300)
		    (object CategoryView "FontBitmapServer" @134
			location   	(1875, 900)
			label      	(object ItemLabel
			    Parent_View 	@134
			    location   	(1656, 756)
			    nlines     	2
			    max_width  	438
			    justify    	0
			    label      	"FontBitmapServer")
			compartment 	(object Compartment
			    Parent_View 	@134
			    location   	(1694, 822)
			    anchor     	2
			    nlines     	4
			    max_width  	360
			    compartmentItems 	(list Compartment
				"CFbsFont"
				"CFbsTypefaceStore"
				"CFbsBitmap"
				"RFbsSession"))
			width      	450
			height     	300)
		    (object CategoryView "WindowServer" @135
			location   	(525, 900)
			label      	(object ItemLabel
			    Parent_View 	@135
			    location   	(381, 816)
			    nlines     	2
			    max_width  	288
			    justify    	0
			    label      	"WindowServer")
			width      	300
			height     	180)
		    (object ImportView "" @136
			client     	@135
			supplier   	@133
			line_style 	0)
		    (object ImportView "" @137
			client     	@133
			supplier   	@134
			line_style 	0)
		    (object CategoryView "FntStore" @138
			location   	(1875, 1525)
			label      	(object ItemLabel
			    Parent_View 	@138
			    location   	(1731, 1441)
			    nlines     	2
			    max_width  	288
			    justify    	0
			    label      	"FntStore")
			compartment 	(object Compartment
			    Parent_View 	@138
			    location   	(1754, 1507)
			    anchor     	2
			    nlines     	2
			    max_width  	720
			    compartmentItems 	(list Compartment
				"CBitmapFont"
				"CFontStore"))
			width      	300
			height     	180)
		    (object ImportView "" @139
			client     	@134
			supplier   	@138
			line_style 	0)
		    (object CategoryView "Gdi" @140
			location   	(2600, 900)
			label      	(object ItemLabel
			    Parent_View 	@140
			    location   	(2406, 631)
			    nlines     	2
			    max_width  	388
			    justify    	0
			    label      	"Gdi")
			compartment 	(object Compartment
			    Parent_View 	@140
			    location   	(2439, 697)
			    anchor     	2
			    nlines     	9
			    max_width  	347
			    compartmentItems 	(list Compartment
				"CFont"
				"CGraphicsDevice"
				"CTypefaceStore"
				"CGraphicsContext"
				"CDiBitmap"
				"TLinearDDA"
				"TRgb"
				"CBitmapContext"
				"CBitmapDevice"))
			width      	400
			height     	550)
		    (object ImportView "" @141
			client     	@134
			supplier   	@140
			line_style 	0)))
	    (object ObjectDiagram "Untitled"
		mechanism_ref 	@132
		title      	"Untitled"
		zoom       	100
		max_height 	28350
		max_width  	21600
		origin_x   	0
		origin_y   	0
		items      	(list diagram_item_list))))
    root_subsystem 	(object SubSystem "<Top Level>"
	physical_models 	(list unit_reference_list
	    (object module "G32" "SubType" "Main"))
	physical_presentations 	(list unit_reference_list
	    (object Module_Diagram "Main"
		title      	"Main"
		zoom       	100
		max_height 	28350
		max_width  	21600
		origin_x   	0
		origin_y   	0
		items      	(list diagram_item_list))))
    process_structure 	(object Processes
	ProcsNDevs 	(list
	    (object Process_Diagram ""
		title      	""
		zoom       	100
		max_height 	28350
		max_width  	21600
		origin_x   	0
		origin_y   	0
		items      	(list diagram_item_list))))
    properties 	(object Properties))
