/*
* perftest . cc - - Part of Chalk
*
* Copyright ( c ) 2004 Boudewijn Rempt < boud @ valdyas . org >
*
* This program is free software ; you can redistribute it and / or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation ; either version 2 of the License , or
* ( at your option ) any later version .
*
* This program is distributed in the hope that it will be useful ,
* but WITHOUT ANY WARRANTY ; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE . See the
* GNU General Public License for more details .
*
* You should have received a copy of the GNU General Public License
* along with this program ; if not , write to the Free Software
* Foundation , Inc . , 51 Franklin Street , Fifth Floor , Boston , MA 02110 - 1301 , USA .
*/
# include <math.h>
# include <stdlib.h>
# include <tqslider.h>
# include <tqpoint.h>
# include <tqradiobutton.h>
# include <tqcheckbox.h>
# include <tqlabel.h>
# include <tqtextedit.h>
# include <tqdatetime.h>
# include <klocale.h>
# include <kiconloader.h>
# include <kinstance.h>
# include <kdialogbase.h>
# include <kmessagebox.h>
# include <kstandarddirs.h>
# include <ktempfile.h>
# include <kdebug.h>
# include <kgenericfactory.h>
# include <knuminput.h>
# include <tqcolor.h>
# include "kis_meta_registry.h"
# include <kis_resourceserver.h>
# include "kis_cursor.h"
# include <kis_doc.h>
# include <kis_config.h>
# include <kis_image.h>
# include <kis_layer.h>
# include <kis_global.h>
# include <kis_types.h>
# include <kis_view.h>
# include <kis_selection.h>
# include <kis_colorspace_factory_registry.h>
# include <kis_colorspace.h>
# include <kis_painter.h>
# include <kis_fill_painter.h>
# include <kis_id.h>
# include <kis_paint_device.h>
# include <kis_iterators_pixel.h>
# include "perftest.h"
# include "kis_filter_config_widget.h"
# include "kis_factory.h"
# include "dlg_perftest.h"
# include "wdg_perftest.h"
# define USE_CALLGRIND 0
# if USE_CALLGRIND
# include <valgrind/callgrind.h>
# endif
typedef KGenericFactory < PerfTest > PerfTestFactory ;
K_EXPORT_COMPONENT_FACTORY ( chalkperftest , PerfTestFactory ( " chalk " ) )
PerfTest : : PerfTest ( TQObject * parent , const char * name , const TQStringList & )
: KParts : : Plugin ( parent , name )
{
if ( parent - > inherits ( " KisView " ) )
{
setInstance ( PerfTestFactory : : instance ( ) ) ;
setXMLFile ( locate ( " data " , " chalkplugins/perftest.rc " ) , true ) ;
( void ) new KAction ( i18n ( " &Performance Test... " ) , 0 , 0 , this , TQT_SLOT ( slotPerfTest ( ) ) , actionCollection ( ) , " perf_test " ) ;
m_view = ( KisView * ) parent ;
}
}
PerfTest : : ~ PerfTest ( )
{
m_view = 0 ;
}
void PerfTest : : slotPerfTest ( )
{
KisImageSP image = m_view - > canvasSubject ( ) - > currentImg ( ) ;
if ( ! image ) return ;
DlgPerfTest * dlgPerfTest = new DlgPerfTest ( m_view , " PerfTest " ) ;
TQ_CHECK_PTR ( dlgPerfTest ) ;
dlgPerfTest - > setCaption ( i18n ( " Performance Test " ) ) ;
TQString report = TQString ( " " ) ;
if ( dlgPerfTest - > exec ( ) = = TQDialog : : Accepted ) {
TQ_INT32 testCount = ( TQ_INT32 ) tqRound ( dlgPerfTest - > page ( ) - > intTestCount - > value ( ) ) ;
if ( dlgPerfTest - > page ( ) - > chkBitBlt - > isChecked ( ) ) {
kdDebug ( ) < < " bltTest: \n " ;
TQString s = bltTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkFill - > isChecked ( ) ) {
kdDebug ( ) < < " Filltest \n " ;
TQString s = fillTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkGradient - > isChecked ( ) ) {
kdDebug ( ) < < " Gradienttest \n " ;
TQString s = gradientTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkPixel - > isChecked ( ) ) {
kdDebug ( ) < < " Pixeltest \n " ;
TQString s = pixelTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkShape - > isChecked ( ) ) {
kdDebug ( ) < < " Shapetest \n " ;
TQString s = shapeTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkLayer - > isChecked ( ) ) {
kdDebug ( ) < < " LayerTest \n " ;
TQString s = layerTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkScale - > isChecked ( ) ) {
kdDebug ( ) < < " Scaletest \n " ;
TQString s = scaleTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkRotate - > isChecked ( ) ) {
kdDebug ( ) < < " Rotatetest \n " ;
TQString s = rotateTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkRender - > isChecked ( ) ) {
kdDebug ( ) < < " Rendertest \n " ;
TQString s = renderTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkSelection - > isChecked ( ) ) {
kdDebug ( ) < < " Selectiontest \n " ;
TQString s = selectionTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkColorConversion - > isChecked ( ) ) {
kdDebug ( ) < < " Colorconversiontest \n " ;
TQString s = colorConversionTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkFilter - > isChecked ( ) ) {
kdDebug ( ) < < " filtertest \n " ;
TQString s = filterTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkReadBytes - > isChecked ( ) ) {
kdDebug ( ) < < " Readbytes test \n " ;
TQString s = readBytesTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkWriteBytes - > isChecked ( ) ) {
kdDebug ( ) < < " Writebytes test \n " ;
TQString s = writeBytesTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkIterators - > isChecked ( ) ) {
kdDebug ( ) < < " Iterators test \n " ;
TQString s = iteratorTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkPaintView - > isChecked ( ) ) {
kdDebug ( ) < < " paintview test \n " ;
TQString s = paintViewTest ( testCount ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
if ( dlgPerfTest - > page ( ) - > chkPaintViewFPS - > isChecked ( ) ) {
kdDebug ( ) < < " paint current view (fps) test \n " ;
TQString s = paintViewFPSTest ( ) ;
report = report . append ( s ) ;
kdDebug ( ) < < s < < " \n " ;
}
KDialogBase * d = new KDialogBase ( m_view , " " , true , " " , KDialogBase : : Ok ) ;
TQ_CHECK_PTR ( d ) ;
d - > setCaption ( " Performance test results " ) ;
TQTextEdit * e = new TQTextEdit ( d ) ;
TQ_CHECK_PTR ( e ) ;
d - > setMainWidget ( e ) ;
e - > setText ( report ) ;
e - > setMinimumWidth ( 600 ) ;
e - > setMinimumHeight ( 600 ) ;
d - > exec ( ) ;
delete d ;
}
delete dlgPerfTest ;
}
TQString PerfTest : : bltTest ( TQ_UINT32 testCount )
{
TQString report = TQString ( " * bitBlt test \n " ) ;
KisDoc * doc = m_view - > canvasSubject ( ) - > document ( ) ;
KisIDList l = KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > listKeys ( ) ;
for ( KisIDList : : Iterator it = l . begin ( ) ; it ! = l . end ( ) ; + + it ) {
kdDebug ( ) < < " Image-> " < < ( * it ) . name ( ) < < " \n " ;
report = report . append ( " Testing blitting on " + ( * it ) . name ( ) + " \n " ) ;
KisImageSP img = doc - > newImage ( " blt- " + ( * it ) . name ( ) , 1000 , 1000 ,
KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( * it , " " ) ) ;
report = report . append ( doBlit ( COMPOSITE_OVER , * it , OPACITY_OPAQUE , testCount , img ) ) ;
report = report . append ( " \n " ) ;
report = report . append ( doBlit ( COMPOSITE_OVER , * it , OPACITY_OPAQUE / 2 , testCount , img ) ) ;
report = report . append ( " \n " ) ;
report = report . append ( doBlit ( COMPOSITE_COPY , * it , OPACITY_OPAQUE , testCount , img ) ) ;
report = report . append ( " \n " ) ;
report = report . append ( doBlit ( COMPOSITE_COPY , * it , OPACITY_OPAQUE / 2 , testCount , img ) ) ;
report = report . append ( " \n " ) ;
}
return report ;
}
TQString PerfTest : : doBlit ( const KisCompositeOp & op ,
KisID cspace ,
TQ_UINT8 opacity ,
TQ_UINT32 testCount ,
KisImageSP img )
{
TQTime t ;
TQString report ;
// ------------------------------------------------------------------------------
// Small
KisPaintDeviceSP small = new KisPaintDevice ( KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( cspace , " " ) , " small blit " ) ;
TQ_CHECK_PTR ( small ) ;
KisFillPainter pf ( small . data ( ) ) ;
pf . fillRect ( 0 , 0 , 32 , 32 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
pf . end ( ) ;
t . restart ( ) ;
KisPainter p ( img - > activeDevice ( ) ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . bitBlt ( 0 , 0 , op , small . data ( ) , 0 , 0 , 32 , 32 ) ;
}
p . end ( ) ;
report = report . append ( TQString ( " %1 blits of rectangles < tilesize with opacity %2 and composite op %3: %4ms \n " )
. arg ( testCount )
. arg ( opacity )
. arg ( op . id ( ) . name ( ) )
. arg ( t . elapsed ( ) ) ) ;
// ------------------------------------------------------------------------------
// Medium
KisPaintDeviceSP medium = new KisPaintDevice ( KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( cspace , " " ) , " medium blit " ) ;
TQ_CHECK_PTR ( medium ) ;
pf . begin ( medium . data ( ) ) ;
pf . fillRect ( 0 , 0 , 64 * 3 , 64 * 3 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
pf . end ( ) ;
t . restart ( ) ;
p . begin ( img - > activeDevice ( ) . data ( ) ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . bitBlt ( 0 , 0 , op , medium . data ( ) , 0 , 0 , 96 , 96 ) ;
}
p . end ( ) ;
report = report . append ( TQString ( " %1 blits of rectangles 3 * tilesize with opacity %2 and composite op %3: %4ms \n " )
. arg ( testCount )
. arg ( opacity )
. arg ( op . id ( ) . name ( ) )
. arg ( t . elapsed ( ) ) ) ;
// ------------------------------------------------------------------------------
// Big
KisPaintDeviceSP big = new KisPaintDevice ( KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( cspace , " " ) , " big blit " ) ;
TQ_CHECK_PTR ( big ) ;
pf . begin ( big . data ( ) ) ;
pf . fillRect ( 0 , 0 , 800 , 800 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
pf . end ( ) ;
t . restart ( ) ;
p . begin ( img - > activeDevice ( ) . data ( ) ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . bitBlt ( 0 , 0 , op , big . data ( ) , 0 , 0 , 800 , 800 ) ;
}
p . end ( ) ;
report = report . append ( TQString ( " %1 blits of rectangles 800 x 800 with opacity %2 and composite op %3: %4ms \n " )
. arg ( testCount )
. arg ( opacity )
. arg ( op . id ( ) . name ( ) )
. arg ( t . elapsed ( ) ) ) ;
// ------------------------------------------------------------------------------
// Outside
KisPaintDeviceSP outside = new KisPaintDevice ( KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( cspace , " " ) , " outside blit " ) ;
TQ_CHECK_PTR ( outside ) ;
pf . begin ( outside . data ( ) ) ;
pf . fillRect ( 0 , 0 , 500 , 500 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
pf . end ( ) ;
t . restart ( ) ;
p . begin ( img - > activeDevice ( ) . data ( ) ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . bitBlt ( 600 , 600 , op , outside . data ( ) , 0 , 0 , 500 , 500 ) ;
}
p . end ( ) ;
report = report . append ( TQString ( " %1 blits of rectangles 500 x 500 at 600,600 with opacity %2 and composite op %3: %4ms \n " )
. arg ( testCount )
. arg ( opacity )
. arg ( op . id ( ) . name ( ) )
. arg ( t . elapsed ( ) ) ) ;
// ------------------------------------------------------------------------------
// Small with varied source opacity
KisPaintDeviceSP small_with_alpha = new KisPaintDevice ( KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( cspace , " " ) , " small blit with alpha " ) ;
TQ_CHECK_PTR ( small_with_alpha ) ;
pf . begin ( small_with_alpha . data ( ) ) ;
pf . fillRect ( 0 , 0 , 32 , 32 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) , OPACITY_TRANSPARENT ) ;
pf . fillRect ( 4 , 4 , 24 , 24 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) , OPACITY_OPAQUE / 2 ) ;
pf . fillRect ( 8 , 8 , 16 , 16 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) , OPACITY_OPAQUE ) ;
pf . end ( ) ;
t . restart ( ) ;
p . begin ( img - > activeDevice ( ) . data ( ) ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . bitBlt ( 0 , 0 , op , small_with_alpha . data ( ) , 0 , 0 , 32 , 32 ) ;
}
p . end ( ) ;
report = report . append ( TQString ( " %1 blits of rectangles < tilesize with source alpha, with opacity %2 and composite op %3: %4ms \n " )
. arg ( testCount )
. arg ( opacity )
. arg ( op . id ( ) . name ( ) )
. arg ( t . elapsed ( ) ) ) ;
return report ;
}
TQString PerfTest : : fillTest ( TQ_UINT32 testCount )
{
TQString report = TQString ( " * Fill test \n " ) ;
KisDoc * doc = m_view - > canvasSubject ( ) - > document ( ) ;
KisIDList l = KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > listKeys ( ) ;
for ( KisIDList : : Iterator it = l . begin ( ) ; it ! = l . end ( ) ; + + it ) {
kdDebug ( ) < < " Filltest on " < < ( * it ) . name ( ) + " \n " ;
report = report . append ( " Testing blitting on " + ( * it ) . name ( ) + " \n " ) ;
KisImageSP img = doc - > newImage ( " fill- " + ( * it ) . name ( ) , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( * it , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
// Rect fill
KisFillPainter p ( l . data ( ) ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . eraseRect ( 0 , 0 , 1000 , 1000 ) ;
}
report = report . append ( TQString ( " Erased 1000 x 1000 layer %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . eraseRect ( 50 , 50 , 500 , 500 ) ;
}
report = report . append ( TQString ( " Erased 500 x 500 layer %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . eraseRect ( - 50 , - 50 , 1100 , 1100 ) ;
}
report = report . append ( TQString ( " Erased rect bigger than layer %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
// Opaque Rect fill
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . fillRect ( 0 , 0 , 1000 , 1000 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
}
report = report . append ( TQString ( " Opaque fill 1000 x 1000 layer %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . fillRect ( 50 , 50 , 500 , 500 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
}
report = report . append ( TQString ( " Opaque fill 500 x 500 layer %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . fillRect ( - 50 , - 50 , 1100 , 1100 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
}
report = report . append ( TQString ( " Opaque fill rect bigger than layer %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
// Transparent rect fill
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . fillRect ( 0 , 0 , 1000 , 1000 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) , OPACITY_OPAQUE / 2 ) ;
}
report = report . append ( TQString ( " Opaque fill 1000 x 1000 layer %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . fillRect ( 50 , 50 , 500 , 500 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) , OPACITY_OPAQUE / 2 ) ;
}
report = report . append ( TQString ( " Opaque fill 500 x 500 layer %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . fillRect ( - 50 , - 50 , 1100 , 1100 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) , OPACITY_OPAQUE / 2 ) ;
}
report = report . append ( TQString ( " Opaque fill rect bigger than layer %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
// Colour fill
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . eraseRect ( 0 , 0 , 1000 , 1000 ) ;
// p.paintEllipse(500, 1000, 100, 0, 0);
p . setPaintColor ( KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
p . setFillThreshold ( 15 ) ;
p . setCompositeOp ( COMPOSITE_OVER ) ;
p . fillColor ( 0 , 0 ) ;
}
report = report . append ( TQString ( " Opaque floodfill of whole circle (incl. erase and painting of circle) %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
// Pattern fill
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
p . eraseRect ( 0 , 0 , 1000 , 1000 ) ;
// p.paintEllipse(500, 1000, 100, 0, 0);
p . setPaintColor ( KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
KisResourceServerBase * r = KisResourceServerRegistry : : instance ( ) - > get ( " PatternServer " ) ;
TQ_CHECK_PTR ( r ) ;
p . setPattern ( ( KisPattern * ) r - > resources ( ) . first ( ) ) ;
p . setFillThreshold ( 15 ) ;
p . setCompositeOp ( COMPOSITE_OVER ) ;
p . fillPattern ( 0 , 0 ) ;
}
report = report . append ( TQString ( " Opaque patternfill of whole circle (incl. erase and painting of circle) %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
}
return report ;
}
TQString PerfTest : : gradientTest ( TQ_UINT32 testCount )
{
return TQString ( " Gradient test \n " ) ;
}
TQString PerfTest : : pixelTest ( TQ_UINT32 testCount )
{
TQString report = TQString ( " * pixel/setpixel test \n " ) ;
KisDoc * doc = m_view - > canvasSubject ( ) - > document ( ) ;
KisIDList l = KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > listKeys ( ) ;
for ( KisIDList : : Iterator it = l . begin ( ) ; it ! = l . end ( ) ; + + it ) {
report = report . append ( " Testing pixel/setpixel on " + ( * it ) . name ( ) + " \n " ) ;
KisImageSP img = doc - > newImage ( " fill- " + ( * it ) . name ( ) , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( * it , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
TQTime t ;
t . restart ( ) ;
TQColor c = TQt : : black ;
TQ_UINT8 opacity = OPACITY_OPAQUE ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
for ( TQ_UINT32 x = 0 ; x < 1000 ; + + x ) {
for ( TQ_UINT32 y = 0 ; y < 1000 ; + + y ) {
l - > pixel ( x , y , & c , & opacity ) ;
}
}
}
report = report . append ( TQString ( " read 1000 x 1000 pixels %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
c = TQt : : black ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
for ( TQ_UINT32 x = 0 ; x < 1000 ; + + x ) {
for ( TQ_UINT32 y = 0 ; y < 1000 ; + + y ) {
l - > setPixel ( x , y , c , 128 ) ;
}
}
}
report = report . append ( TQString ( " written 1000 x 1000 pixels %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
}
return report ;
}
TQString PerfTest : : shapeTest ( TQ_UINT32 testCount )
{
return TQString ( " Shape test \n " ) ;
}
TQString PerfTest : : layerTest ( TQ_UINT32 testCount )
{
return TQString ( " Layer test \n " ) ;
}
TQString PerfTest : : scaleTest ( TQ_UINT32 testCount )
{
return TQString ( " Scale test \n " ) ;
}
TQString PerfTest : : rotateTest ( TQ_UINT32 testCount )
{
TQString report = TQString ( " * Rotate test \n " ) ;
KisDoc * doc = m_view - > canvasSubject ( ) - > document ( ) ;
KisIDList l = KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > listKeys ( ) ;
for ( KisIDList : : Iterator it = l . begin ( ) ; it ! = l . end ( ) ; + + it ) {
doc - > undoAdapter ( ) - > setUndo ( false ) ;
TQTime t ;
for ( uint i = 0 ; i < testCount ; + + i ) {
for ( double angle = 0 ; angle < 360 ; + + angle ) {
kdDebug ( ) < < " Rotating " < < ( * it ) . name ( ) < < " at " < < angle < < " degrees \n " ;
KisImage * img = doc - > newImage ( " cs- " + ( * it ) . name ( ) , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( * it , " " ) ) ;
img - > rotate ( angle , m_view - > canvasSubject ( ) - > progressDisplay ( ) ) ;
kdDebug ( ) < < " Size: " < < img - > projection ( ) - > extent ( ) < < endl ;
delete img ;
}
}
report = report . append ( TQString ( " rotated 1000 x 1000 pixels over 360 degrees, degree by degree, %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
}
return report ;
}
TQString PerfTest : : renderTest ( TQ_UINT32 restCount )
{
return TQString ( " Render test \n " ) ;
}
TQString PerfTest : : selectionTest ( TQ_UINT32 testCount )
{
return TQString ( " Selection test \n " ) ;
}
TQString PerfTest : : colorConversionTest ( TQ_UINT32 testCount )
{
TQString report = TQString ( " * Colorspace conversion test \n " ) ;
KisDoc * doc = m_view - > canvasSubject ( ) - > document ( ) ;
KisIDList l = KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > listKeys ( ) ;
for ( KisIDList : : Iterator it = l . begin ( ) ; it ! = l . end ( ) ; + + it ) {
KisImage * img = doc - > newImage ( " cs- " + ( * it ) . name ( ) , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( * it , " " ) ) ;
TQTime t ;
KisIDList l2 = KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > listKeys ( ) ;
for ( KisIDList : : Iterator it2 = l2 . begin ( ) ; it2 ! = l2 . end ( ) ; + + it2 ) {
kdDebug ( ) < < " test conversion from " < < ( * it ) . name ( ) < < " to " < < ( * it2 ) . name ( ) < < endl ;
t . restart ( ) ;
for ( uint i = 0 ; i < testCount ; + + i ) {
KisImage * img2 = new KisImage ( * img ) ;
img2 - > convertTo ( KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( * it2 , " " ) ) ;
delete img2 ;
}
report = report . append ( TQString ( " converted from " + ( * it ) . name ( ) + " to " + ( * it2 ) . name ( ) + " 1000 x 1000 pixels %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
}
delete img ;
}
return report ;
}
TQString PerfTest : : filterTest ( TQ_UINT32 testCount )
{
TQString report = TQString ( " * Filter test \n " ) ;
KisIDList filters = KisFilterRegistry : : instance ( ) - > listKeys ( ) ;
KisDoc * doc = m_view - > canvasSubject ( ) - > document ( ) ;
KisIDList l = KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > listKeys ( ) ;
for ( KisIDList : : Iterator it = l . begin ( ) ; it ! = l . end ( ) ; + + it ) {
report = report . append ( " Testing filtering on " + ( * it ) . name ( ) + " \n " ) ;
KisImageSP img = doc - > newImage ( " filter- " + ( * it ) . name ( ) , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( * it , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
TQTime t ;
for ( KisIDList : : Iterator it = filters . begin ( ) ; it ! = filters . end ( ) ; + + it ) {
KisFilterSP f = KisFilterRegistry : : instance ( ) - > get ( * it ) ;
t . restart ( ) ;
kdDebug ( ) < < " test filter " < < f - > id ( ) . name ( ) < < " on " < < img - > colorSpace ( ) - > id ( ) . name ( ) < < endl ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
f - > enableProgress ( ) ;
f - > process ( l . data ( ) , l . data ( ) , f - > configuration ( f - > createConfigurationWidget ( m_view , l . data ( ) ) ) , TQRect ( 0 , 0 , 1000 , 1000 ) ) ;
f - > disableProgress ( ) ;
}
report = report . append ( TQString ( " filtered " + ( * it ) . name ( ) + " 1000 x 1000 pixels %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
}
}
return report ;
}
TQString PerfTest : : readBytesTest ( TQ_UINT32 testCount )
{
TQString report = TQString ( " * Read bytes test \n \n " ) ;
// On default tiles
KisDoc * doc = m_view - > canvasSubject ( ) - > document ( ) ;
KisImageSP img = doc - > newImage ( " Readbytes " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
TQ_UINT8 * newData = new TQ_UINT8 [ 1000 * 1000 * l - > pixelSize ( ) ] ;
TQ_CHECK_PTR ( newData ) ;
l - > readBytes ( newData , 0 , 0 , 1000 , 1000 ) ;
delete [ ] newData ;
}
report = report . append ( TQString ( " read 1000 x 1000 pixels %1 times from empty image: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
// On tiles with data
KisFillPainter p ( l . data ( ) ) ;
p . fillRect ( 0 , 0 , 1000 , 1000 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
p . end ( ) ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
TQ_UINT8 * newData = new TQ_UINT8 [ 1000 * 1000 * l - > pixelSize ( ) ] ;
TQ_CHECK_PTR ( newData ) ;
l - > readBytes ( newData , 0 , 0 , 1000 , 1000 ) ;
delete [ ] newData ;
}
report = report . append ( TQString ( " read 1000 x 1000 pixels %1 times from filled image: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
return report ;
}
TQString PerfTest : : writeBytesTest ( TQ_UINT32 testCount )
{
TQString report = TQString ( " * Write bytes test " ) ;
// On default tiles
KisDoc * doc = m_view - > canvasSubject ( ) - > document ( ) ;
KisImageSP img = doc - > newImage ( " Writebytes " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
KisFillPainter p ( l . data ( ) ) ;
p . fillRect ( 0 , 0 , 1000 , 1000 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
p . end ( ) ;
TQ_UINT8 * data = new TQ_UINT8 [ 1000 * 1000 * l - > pixelSize ( ) ] ;
TQ_CHECK_PTR ( data ) ;
l - > readBytes ( data , 0 , 0 , 1000 , 1000 ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
l - > writeBytes ( data , 0 , 0 , 1000 , 1000 ) ;
}
delete [ ] data ;
report = report . append ( TQString ( " written 1000 x 1000 pixels %1 times: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
return report ;
}
/////// Iterator tests
TQString hlineRODefault ( KisDoc * doc , TQ_UINT32 testCount )
{
KisImageSP img = doc - > newImage ( " " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
int adv ;
for ( TQ_INT32 y2 = 0 ; y2 < 0 + 1000 ; y2 + + )
{
KisHLineIterator hiter = l - > createHLineIterator ( 0 , y2 , 1000 , false ) ;
while ( ! hiter . isDone ( ) )
{
adv = hiter . nConseqHPixels ( ) ;
hiter + = adv ;
}
}
}
return TQString ( " hline iterated read-only 1000 x 1000 pixels %1 times over default tile: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ;
}
TQString hlineRO ( KisDoc * doc , TQ_UINT32 testCount )
{
KisImageSP img = doc - > newImage ( " " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
KisFillPainter p ( l . data ( ) ) ;
p . fillRect ( 0 , 0 , 1000 , 1000 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
p . end ( ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
int adv ;
for ( TQ_INT32 y2 = 0 ; y2 < 0 + 1000 ; y2 + + )
{
KisHLineIterator hiter = l - > createHLineIterator ( 0 , y2 , 1000 , false ) ;
while ( ! hiter . isDone ( ) )
{
adv = hiter . nConseqHPixels ( ) ;
hiter + = adv ;
}
}
}
return TQString ( " hline iterated read-only 1000 x 1000 pixels %1 times over existing tile: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ;
}
TQString hlineWRDefault ( KisDoc * doc , TQ_UINT32 testCount )
{
KisImageSP img = doc - > newImage ( " " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
int adv ;
for ( TQ_INT32 y2 = 0 ; y2 < 0 + 1000 ; y2 + + )
{
KisHLineIterator hiter = l - > createHLineIterator ( 0 , y2 , 1000 , true ) ;
while ( ! hiter . isDone ( ) )
{
adv = hiter . nConseqHPixels ( ) ;
hiter + = adv ;
}
}
}
return TQString ( " hline iterated writable 1000 x 1000 pixels %1 times over default tile: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ;
}
TQString hlineWR ( KisDoc * doc , TQ_UINT32 testCount )
{
KisImageSP img = doc - > newImage ( " " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
KisFillPainter p ( l . data ( ) ) ;
p . fillRect ( 0 , 0 , 1000 , 1000 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
p . end ( ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
int adv ;
for ( TQ_INT32 y2 = 0 ; y2 < 0 + 1000 ; y2 + + )
{
KisHLineIterator hiter = l - > createHLineIterator ( 0 , y2 , 1000 , true ) ;
while ( ! hiter . isDone ( ) )
{
adv = hiter . nConseqHPixels ( ) ;
hiter + = adv ;
}
}
}
return TQString ( " hline iterated writable 1000 x 1000 pixels %1 times over existing tile: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ;
}
TQString vlineRODefault ( KisDoc * doc , TQ_UINT32 testCount )
{
KisImageSP img = doc - > newImage ( " " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
for ( TQ_INT32 y2 = 0 ; y2 < 0 + 1000 ; y2 + + )
{
KisVLineIterator hiter = l - > createVLineIterator ( y2 , 0 , 1000 , true ) ;
while ( ! hiter . isDone ( ) )
{
+ + hiter ;
}
}
}
return TQString ( " vline iterated read-only 1000 x 1000 pixels %1 times over default tile: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ;
}
TQString vlineRO ( KisDoc * doc , TQ_UINT32 testCount )
{
KisImageSP img = doc - > newImage ( " " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
KisFillPainter p ( l . data ( ) ) ;
p . fillRect ( 0 , 0 , 1000 , 1000 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
p . end ( ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
for ( TQ_INT32 y2 = 0 ; y2 < 0 + 1000 ; y2 + + )
{
KisVLineIterator hiter = l - > createVLineIterator ( y2 , 0 , 1000 , true ) ;
while ( ! hiter . isDone ( ) )
{
+ + hiter ;
}
}
}
return TQString ( " vline iterated read-only 1000 x 1000 pixels %1 times over existing tile: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ;
}
TQString vlineWRDefault ( KisDoc * doc , TQ_UINT32 testCount )
{
KisImageSP img = doc - > newImage ( " " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
for ( TQ_INT32 y2 = 0 ; y2 < 0 + 1000 ; y2 + + )
{
KisVLineIterator hiter = l - > createVLineIterator ( y2 , 0 , 1000 , true ) ;
while ( ! hiter . isDone ( ) )
{
+ + hiter ;
}
}
}
return TQString ( " vline iterated writable 1000 x 1000 pixels %1 times over default tile: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ;
}
TQString vlineWR ( KisDoc * doc , TQ_UINT32 testCount )
{
KisImageSP img = doc - > newImage ( " " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
KisFillPainter p ( l . data ( ) ) ;
p . fillRect ( 0 , 0 , 1000 , 1000 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
p . end ( ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
for ( TQ_INT32 y2 = 0 ; y2 < 0 + 1000 ; y2 + + )
{
KisHLineIterator hiter = l - > createHLineIterator ( y2 , 0 , 1000 , true ) ;
while ( ! hiter . isDone ( ) )
{
+ + hiter ;
}
}
}
return TQString ( " vline iterated writable 1000 x 1000 pixels %1 times over existing tile: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ;
}
TQString rectRODefault ( KisDoc * doc , TQ_UINT32 testCount )
{
KisImageSP img = doc - > newImage ( " " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
KisRectIterator r = l - > createRectIterator ( 0 , 0 , 1000 , 1000 , false ) ;
while ( ! r . isDone ( ) )
{
+ + r ;
}
}
return TQString ( " rect iterated read-only 1000 x 1000 pixels %1 times over default tile: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ;
}
TQString rectRO ( KisDoc * doc , TQ_UINT32 testCount )
{
KisImageSP img = doc - > newImage ( " " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
KisFillPainter p ( l . data ( ) ) ;
p . fillRect ( 0 , 0 , 1000 , 1000 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
p . end ( ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
KisRectIterator r = l - > createRectIterator ( 0 , 0 , 1000 , 1000 , false ) ;
while ( ! r . isDone ( ) )
{
+ + r ;
}
}
return TQString ( " rect iterated read-only 1000 x 1000 pixels %1 times over existing tile: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ;
}
TQString rectWRDefault ( KisDoc * doc , TQ_UINT32 testCount )
{
KisImageSP img = doc - > newImage ( " " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
KisRectIterator r = l - > createRectIterator ( 0 , 0 , 1000 , 1000 , true ) ;
while ( ! r . isDone ( ) )
{
+ + r ;
}
}
return TQString ( " rect iterated writable 1000 x 1000 pixels %1 times over default tile: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ;
}
TQString rectWR ( KisDoc * doc , TQ_UINT32 testCount )
{
KisImageSP img = doc - > newImage ( " " , 1000 , 1000 , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getColorSpace ( KisID ( " RGBA " , " " ) , " " ) ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
KisFillPainter p ( l . data ( ) ) ;
p . fillRect ( 0 , 0 , 1000 , 1000 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
p . end ( ) ;
TQTime t ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
KisRectIterator r = l - > createRectIterator ( 0 , 0 , 1000 , 1000 , true ) ;
while ( ! r . isDone ( ) )
{
+ + r ;
}
}
return TQString ( " rect iterated writable 1000 x 1000 pixels %1 times over existing tile: %2 \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ;
}
TQString PerfTest : : iteratorTest ( TQ_UINT32 testCount )
{
TQString report = " Iterator test " ;
KisDoc * doc = m_view - > canvasSubject ( ) - > document ( ) ;
report = report . append ( hlineRODefault ( doc , testCount ) ) ;
report = report . append ( hlineRO ( doc , testCount ) ) ;
report = report . append ( hlineWRDefault ( doc , testCount ) ) ;
report = report . append ( hlineWR ( doc , testCount ) ) ;
report = report . append ( vlineRODefault ( doc , testCount ) ) ;
report = report . append ( vlineRO ( doc , testCount ) ) ;
report = report . append ( vlineWRDefault ( doc , testCount ) ) ;
report = report . append ( vlineWR ( doc , testCount ) ) ;
report = report . append ( rectRODefault ( doc , testCount ) ) ;
report = report . append ( rectRO ( doc , testCount ) ) ;
report = report . append ( rectWRDefault ( doc , testCount ) ) ;
report = report . append ( rectWR ( doc , testCount ) ) ;
return report ;
}
TQString PerfTest : : paintViewTest ( TQ_UINT32 testCount )
{
TQString report = TQString ( " * paintView test \n \n " ) ;
KisDoc * doc = m_view - > canvasSubject ( ) - > document ( ) ;
KisImageSP img = doc - > currentImage ( ) ;
img - > resize ( 512 , 512 ) ;
KisPaintDeviceSP l = img - > activeDevice ( ) ;
KisFillPainter p ( l . data ( ) ) ;
p . fillRect ( 0 , 0 , 512 , 512 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
p . end ( ) ;
TQTime t ;
t . restart ( ) ;
# if USE_CALLGRIND
CALLGRIND_ZERO_STATS ( ) ;
# endif
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
m_view - > getCanvasController ( ) - > updateCanvas ( TQRect ( 0 , 0 , 512 , 512 ) ) ;
}
# if USE_CALLGRIND
CALLGRIND_DUMP_STATS ( ) ;
# endif
report = report . append ( TQString ( " painted a 512 x 512 image %1 times: %2 ms \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
img - > newLayer ( " layer 2 " , OPACITY_OPAQUE ) ;
l = img - > activeDevice ( ) ;
p . begin ( l . data ( ) ) ;
p . fillRect ( 0 , 0 , 512 , 512 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
p . end ( ) ;
img - > newLayer ( " layer 3 " , OPACITY_OPAQUE ) ;
l = img - > activeDevice ( ) ;
p . begin ( l . data ( ) ) ;
p . fillRect ( 0 , 0 , 512 , 512 , KisColor ( TQt : : black , KisMetaRegistry : : instance ( ) - > csRegistry ( ) - > getRGB8 ( ) ) ) ;
p . end ( ) ;
t . restart ( ) ;
for ( TQ_UINT32 i = 0 ; i < testCount ; + + i ) {
m_view - > getCanvasController ( ) - > updateCanvas ( TQRect ( 0 , 0 , 512 , 512 ) ) ;
}
report = report . append ( TQString ( " painted a 512 x 512 image with 3 layers %1 times: %2 ms \n " ) . arg ( testCount ) . arg ( t . elapsed ( ) ) ) ;
return report ;
}
TQString PerfTest : : paintViewFPSTest ( )
{
TQString report = TQString ( " * paintView (fps) test \n \n " ) ;
TQTime t ;
t . restart ( ) ;
# if USE_CALLGRIND
CALLGRIND_ZERO_STATS ( ) ;
# endif
int numViewsPainted = 0 ;
const int millisecondsPerSecond = 1000 ;
while ( t . elapsed ( ) < millisecondsPerSecond ) {
m_view - > getCanvasController ( ) - > updateCanvas ( ) ;
numViewsPainted + + ;
}
# if USE_CALLGRIND
CALLGRIND_DUMP_STATS ( ) ;
# endif
report = report . append ( TQString ( " painted current view at %1 frames per second \n " ) . arg ( numViewsPainted ) ) ;
return report ;
}
# include "perftest.moc"