(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