String GenerateQtfImage() const
{
	int w = 1;
	int dist = 400;
	const Point p1(0, 0);
	const Point p2(dist, 0);
	const Point p3(dist, dist);
	const Point p4(0, dist);
	
	Size simg(p3);
	DrawingDraw dw(simg);
	
	for(int i = 0; i < 10; i++)
		dw.DrawLine(dist/2, dist/2,
		           int(dist/2 + dist/2 * sin(i * M_PI / 10)),
		           int(dist/2 + dist/2 * cos(i * M_PI / 10)),
		           w, SLtGray);
	
	Size sz = dw.GetTextSize("DRAWING", Courier(dist/5).Italic());
	dw.DrawText((p2.x - sz.cx) / 2, (p3.y - sz.cy) / 2, "DRAWING", Courier(dist/5).Italic());
	
	int scale = 4;
	Image img (dist/scale, dist/scale, dw.GetResult(), SWhite());
	
	String qtfimg;
	{	
		RichPara::CharFormat cformat;
		cformat. Face(Font::COURIER).Height(dist/20);
		
		// What's this for??
		/*Size size = dw.Dots() ? img.GetSize()
		: iscale(size, Size(DOTS_PER_METER_INT, DOTS_PER_METER_INT), GetPixelsPerMeter(draw));*/
		
		RichPara para;// rich paragraf
		
		para.Cat(RichObject("PNG",
				            PngEncoder().SaveImage(img), 
				            img.GetSize()
				            )
				 , cformat);
		
		RichText rtext;
		rtext.Cat(para);
		qtfimg = BodyAsQTF(rtext);
	}
	return qtfimg;
}

GUI_APP_MAIN
{
    DrawingDraw dw(100, 100);
    dw.DrawRect(0, 0, 100, 100, White);
    dw.DrawEllipse(10, 10, 80, 80, Red, 5, Blue);
    dw.DrawRect(50, 50, 50, 50, Yellow);
    QtfRichObject pict(CreateDrawingObject(dw.GetResult(), Size(500, 500), Size(500, 500)));
    String qtf;
    qtf << "[A6 This is some drawing in QTF: " << pict << "&";
    qtf << "[C3*@B And now in the table: {{1:1 " << pict << ":: Another cell " << pict << "}}";
    PromptOK(qtf);
}