wxOil/speedtst.cpp

   1 // $Id: speedtst.cpp 1282 2006-06-09 09:46:49Z alex $
   2 /* @@tag:xara-cn@@ DO NOT MODIFY THIS LINE
   3 ================================XARAHEADERSTART===========================
   4
   5                Xara LX, a vector drawing and manipulation program.
   6                     Copyright (C) 1993-2006 Xara Group Ltd.
   7        Copyright on certain contributions may be held in joint with their
   8               respective authors. See AUTHORS file for details.
   9
  10 LICENSE TO USE AND MODIFY SOFTWARE
  11 ----------------------------------
  12
  13 This file is part of Xara LX.
  14
  15 Xara LX is free software; you can redistribute it and/or modify it
  16 under the terms of the GNU General Public License version 2 as published
  17 by the Free Software Foundation.
  18
  19 Xara LX and its component source files are distributed in the hope
  20 that it will be useful, but WITHOUT ANY WARRANTY; without even the
  21 implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  22 See the GNU General Public License for more details.
  23
  24 You should have received a copy of the GNU General Public License along
  25 with Xara LX (see the file GPL in the root directory of the
  26 distribution); if not, write to the Free Software Foundation, Inc., 51
  27 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
  28
  29
  30 ADDITIONAL RIGHTS
  31 -----------------
  32
  33 Conditional upon your continuing compliance with the GNU General Public
  34 License described above, Xara Group Ltd grants to you certain additional
  35 rights.
  36
  37 The additional rights are to use, modify, and distribute the software
  38 together with the wxWidgets library, the wxXtra library, and the "CDraw"
  39 library and any other such library that any version of Xara LX relased
  40 by Xara Group Ltd requires in order to compile and execute, including
  41 the static linking of that library to XaraLX. In the case of the
  42 "CDraw" library, you may satisfy obligation under the GNU General Public
  43 License to provide source code by providing a binary copy of the library
  44 concerned and a copy of the license accompanying it.
  45
  46 Nothing in this section restricts any of the rights you have under
  47 the GNU General Public License.
  48
  49
  50 SCOPE OF LICENSE
  51 ----------------
  52
  53 This license applies to this program (XaraLX) and its constituent source
  54 files only, and does not necessarily apply to other Xara products which may
  55 in part share the same code base, and are subject to their own licensing
  56 terms.
  57
  58 This license does not apply to files in the wxXtra directory, which
  59 are built into a separate library, and are subject to the wxWindows
  60 license contained within that directory in the file "WXXTRA-LICENSE".
  61
  62 This license does not apply to the binary libraries (if any) within
  63 the "libs" directory, which are subject to a separate license contained
  64 within that directory in the file "LIBS-LICENSE".
  65
  66
  67 ARRANGEMENTS FOR CONTRIBUTION OF MODIFICATIONS
  68 ----------------------------------------------
  69
  70 Subject to the terms of the GNU Public License (see above), you are
  71 free to do whatever you like with your modifications. However, you may
  72 (at your option) wish contribute them to Xara's source tree. You can
  73 find details of how to do this at:
  74   http://www.xaraxtreme.org/developers/
  75
  76 Prior to contributing your modifications, you will need to complete our
  77 contributor agreement. This can be found at:
  78   http://www.xaraxtreme.org/developers/contribute/
  79
  80 Please note that Xara will not accept modifications which modify any of
  81 the text between the start and end of this header (marked
  82 XARAHEADERSTART and XARAHEADEREND).
  83
  84
  85 MARKS
  86 -----
  87
  88 Xara, Xara LX, Xara X, Xara X/Xtreme, Xara Xtreme, the Xtreme and Xara
  89 designs are registered or unregistered trademarks, design-marks, and/or
  90 service marks of Xara Group Ltd. All rights in these marks are reserved.
  91
  92
  93       Xara Group Ltd, Gaddesden Place, Hemel Hempstead, HP2 6EX, UK.
  94                         http://www.xara.com/
  95
  96 =================================XARAHEADEREND============================
  97  */
  98
  99 // operation(s) to test Camelot speed
 100
 101 /*
 102 */
 103
 104 #include "camtypes.h"
 105 //#include "camconfig.h"
 106 #include "speedtst.h"
 107 //#include "docview.h" - in camtypes.h [AUTOMATICALLY REMOVED]
 108 //#include "convert.h" - in camtypes.h [AUTOMATICALLY REMOVED]
 109
 110 //#include "andy.h"
 111 //#include "will.h"
 112 //#include "richard2.h"
 113 //#include "phil.h"
 114 //#include "resource.h"
 115 #include "camprofile.h"
 116
 117 /*
 118 //#include "errors.h" - in camtypes.h [AUTOMATICALLY REMOVED]
 119 #include <time.h>
 120 #include "mainfrm.h"
 121 //#include "app.h" - in camtypes.h [AUTOMATICALLY REMOVED]
 122 //#include "rgnlist.h" - in camtypes.h [AUTOMATICALLY REMOVED]
 123
 124 #include "xadraw.h"
 125 #include "zoomops.h"
 126 #include "wrkrect.h"
 127 //#include "bitmapcache.h" - in camtypes.h [AUTOMATICALLY REMOVED]
 128 */
 129
 130 CC_IMPLEMENT_DYNCREATE(OpTimeDraw, Operation)
 131 CC_IMPLEMENT_DYNCREATE(OpClearCache, Operation)
 132 CC_IMPLEMENT_DYNCREATE(OpThrottleCache, Operation)
 133
 134 #define new CAM_DEBUG_NEW
 135
 136
 137 // This global var is incremented every time the speed test op is executed.
 138 // It was put in so I could test the speed increase of the path point caching inside
 139 // the NodeBlendPath object. When SpeedTest_Count was even I checked the cache,
 140 // when odd I ignored it
 141 // I've left it in as I'm sure others will find it useful
 142 // Markn - 14-5-99
 143
 144 //INT32 SpeedTest_Count = 0;
 145
 146 /********************************************************************************************
 147
 148 >       BOOL OpTimeDraw::Init()
 149
 150         Author:         Andy_Pennell (Xara Group Ltd) <camelotdev@xara.com>
 151         Created:        18/1/94
 152         Inputs:         None
 153         Outputs:        None
 154         Returns:        TRUE if worked, FALSE if failed (out of memory)
 155         Purpose:        Declares op descriptors for time testing
 156         Errors:         Returns FALSE on failure.
 157         Scope:          Static
 158
 159 ********************************************************************************************/
 160
 161
 162 BOOL OpTimeDraw::Init()
 163 {
 164         BOOL bOK = TRUE;
 165         if (bOK) bOK = RegisterOpDescriptor(
 166                                                                                 0,
 167                                                                                 _R(IDS_TIMEDRAW),
 168                                                                                 CC_RUNTIME_CLASS(OpTimeDraw),
 169                                                                                 OPTOKEN_TIMEDRAW,
 170                                                                                 GetState,
 171                                                                                 _R(IDS_TIMEDRAW),
 172                                                                                 _R(IDBBL_TIMEDRAW)
 173                                                                           );
 174
 175         if (bOK) bOK = RegisterOpDescriptor(
 176                                                                                 0,
 177                                                                                 _R(IDS_CLEARCACHE),
 178                                                                                 CC_RUNTIME_CLASS(OpClearCache),
 179                                                                                 OPTOKEN_CLEARCACHE,
 180                                                                                 GetState,
 181                                                                                 _R(IDS_CLEARCACHE),
 182                                                                                 _R(IDBBL_CLEARCACHE)
 183                                                                           );
 184
 185         if (bOK) bOK = RegisterOpDescriptor(
 186                                                                                 0,
 187                                                                                 _R(IDS_THROTTLECACHE),
 188                                                                                 CC_RUNTIME_CLASS(OpThrottleCache),
 189                                                                                 OPTOKEN_THROTTLECACHE,
 190                                                                                 GetState,
 191                                                                                 _R(IDS_THROTTLECACHE),
 192                                                                                 _R(IDBBL_THROTTLECACHE)
 193                                                                           );
 194
 195         return bOK;
 196 }
 197
 198 /********************************************************************************************
 199
 200 >       void OpTimeDraw::Do(OpDescriptor*)
 201
 202         Author:         Andy_Pennell (Xara Group Ltd) <camelotdev@xara.com>
 203         Created:        18/1/94
 204         Inputs:         None
 205         Outputs:        None
 206         Returns:        None
 207         Purpose:        Forces a redraw of the current document and displays the time taken to do
 208         Errors:         None
 209
 210 ********************************************************************************************/
 211
 212 #ifdef CONFIG_DEBUG_XADRAW
 213 INT32 _cdecl XaTimingSortFunc(const void *arg1, const void *arg2)
 214 {
 215         DWORD *p1 = (DWORD*)arg1;
 216         DWORD *p2 = (DWORD*)arg2;
 217         if (g_XaTimes[*p2].QuadPart - g_XaTimes[*p1].QuadPart)
 218                 return((INT32)(g_XaTimes[*p2].QuadPart - g_XaTimes[*p1].QuadPart));
 219         else
 220                 return((INT32)g_XaCalls[*p2] - (INT32)g_XaCalls[*p1]);
 221 }
 222 #endif
 223
 224 void OpTimeDraw::Do(OpDescriptor*)
 225 {
 226 //      SpeedTest_Count++;
 227
 228         DocView *pDocView = DocView::GetSelected();
 229         if (pDocView == NULL)
 230                 return;
 231
 232         wxYield(); // let through some wxPaint events
 233
 234         CamProfiler Profiler;
 235         // clock() measures system time so excludes (e.g.) X-Windows blit time
 236         // so this is rather a peculiar test
 237         clock_t Timer = clock();                                                                                        // start clock
 238
 239         pDocView->ForceRedraw();                                                                                        // posts the paint message
 240
 241         wxWindow* pWnd = DocView::GetCurrentRenderWindow();
 242         if (pWnd)
 243                 pWnd->Update();                                                                                 // do the paint
 244
 245         // now we wait until all rendering has finished
 246         while ( Camelot.ServiceRendering() )
 247         {
 248         }
 249
 250         Timer = clock() - Timer;                                                                                        // stop clock
 251
 252         double Results[CAMPROFILE_NONE];
 253         double total = Profiler.Read(Results);
 254
 255         // as this is for our use only, it is permitted to hard-code English strings
 256
 257         // this lovely line translates the clock_t value into a useful value without using
 258         // floats
 259         String_256 Buf; // "Redraw took %d.%03d secs"
 260
 261         Buf.MakeMsg(_R(IDS_SPEEDTST_REDRAW_TOOK), (INT32)(Timer / CLOCKS_PER_SEC),
 262                                                                 (INT32)((Timer % CLOCKS_PER_SEC) * 1000 / CLOCKS_PER_SEC) );
 263 #if 1
 264
 265         // All this because MakeMsg doesn't do floating point
 266 #define PFORM(x) ((INT32)((x<0)?ceil(x):floor(x))) , ((INT32)(floor(0.5+( ( (x<0)?(ceil(x)-x):(x - floor(x)) ) * 1000 ))))
 267
 268         double error=Results[CAMPROFILE_OTHER ]+
 269                                  Results[CAMPROFILE_GDRAW ]+
 270                                  Results[CAMPROFILE_SHADOW]+
 271                                  Results[CAMPROFILE_BEVEL ]+
 272                                  Results[CAMPROFILE_BLIT  ]-total;
 273
 274         String_256 Buf2;
 275
 276         Buf2.MakeMsg(_R(IDS_SPEEDTST_REDRAW_TOOK2), _T("TOTAL"), PFORM(total));
 277         Buf += _T(", ");
 278         Buf += Buf2;
 279         Buf2.MakeMsg(_R(IDS_SPEEDTST_REDRAW_TOOK2), _T("GDRAW"), PFORM(Results[CAMPROFILE_GDRAW]));
 280         Buf += _T(", ");
 281         Buf += Buf2;
 282         Buf2.MakeMsg(_R(IDS_SPEEDTST_REDRAW_TOOK2), _T("SHADOW"), PFORM(Results[CAMPROFILE_SHADOW]));
 283         Buf += _T(", ");
 284         Buf += Buf2;
 285         Buf2.MakeMsg(_R(IDS_SPEEDTST_REDRAW_TOOK2), _T("BEVEL"), PFORM(Results[CAMPROFILE_BEVEL]));
 286         Buf += _T(", ");
 287         Buf += Buf2;
 288         Buf2.MakeMsg(_R(IDS_SPEEDTST_REDRAW_TOOK2), _T("BLIT"), PFORM(Results[CAMPROFILE_BLIT]));
 289         Buf += _T(", ");
 290         Buf += Buf2;
 291         Buf2.MakeMsg(_R(IDS_SPEEDTST_REDRAW_TOOK2), _T("OTHER"), PFORM(Results[CAMPROFILE_OTHER]));
 292         Buf += _T(", ");
 293         Buf += Buf2;
 294
 295         // Only report error if it is significant. With current code, it shouldn't actually exist at all bar
 296         // floating point to INT32 rounding error.
 297         if (fabs(error) > 0.5/1000.0)
 298         {
 299                 Buf2.MakeMsg(_R(IDS_SPEEDTST_REDRAW_TOOK2), _T("ERROR"), PFORM(error));
 300                 Buf += _T(", ");
 301                 Buf += Buf2;
 302         }
 303
 304 #endif
 305         Convert::ReplaceDecimalPoint(&Buf);                                                                     // Just to keep Neville happy... :-
 306
 307
 308         // URGH! This should use the proper Camelot dialog box system but we don't have it available right now
 309         ::wxMessageBox( (TCHAR *)Buf );
 310
 311         End();                                                                                                                          // cleanup memory
 312 }
 313 /********************************************************************************************
 314
 315 >       OpTimeDraw::OpTimeDraw()
 316
 317         Author:         Andy_Pennell (Xara Group Ltd) <camelotdev@xara.com>
 318         Created:        18/1/94
 319         Inputs:
 320         Outputs:
 321         Returns:
 322         Purpose:        Constructor for OpTimeDraw operation. It is not undoable.
 323         Errors:         None
 324
 325 ********************************************************************************************/
 326
 327 OpTimeDraw::OpTimeDraw()
 328 {
 329 }
 330
 331
 332 /********************************************************************************************
 333
 334 >       OpState OpTimeDraw::GetState(String_256*, OpDescriptor*)
 335
 336         Author:         Andy_Pennell (Xara Group Ltd) <camelotdev@xara.com>
 337         Created:        18/1/94
 338         Inputs:
 339         Outputs:
 340         Returns:
 341         Purpose:        This item is always available, so long as a document is visible.
 342         Errors:         None
 343
 344 ********************************************************************************************/
 345
 346 OpState OpTimeDraw::GetState(String_256*, OpDescriptor*)
 347 {
 348         OpState OpSt;
 349
 350         return OpSt;
 351 }
 352
 353 /********************************************************************************************
 354
 355 >       void OpClearCache::Do(OpDescriptor*)
 356
 357         Author:         Phil_Martin (Xara Group Ltd) <camelotdev@xara.com>
 358         Created:        23/06/2004
 359         Inputs:         None
 360         Outputs:        None
 361         Returns:        None
 362         Purpose:        Toggles bitmap cache enabled pref also Clears the bitmap cache for performance testing
 363         Errors:         None
 364
 365 ********************************************************************************************/
 366
 367 void OpClearCache::Do(OpDescriptor*)
 368 {
 369         if (NodeRenderableBounded::bEnableCacheing)
 370         {
 371                 InformWarning(_R(IDS_WARN_DISABLECACHEING), _R(IDS_OK));
 372         }
 373
 374         NodeRenderableBounded::bEnableCacheing = ! NodeRenderableBounded::bEnableCacheing;
 375
 376         CBitmapCache* pBitmapCache = Camelot.GetBitmapCache();
 377         if (pBitmapCache)
 378         {
 379                 pBitmapCache->DeInitialise();
 380         }
 381
 382         End();                                                                                                                          // cleanup memory
 383 }
 384
 385 /********************************************************************************************
 386
 387 >       OpClearCache::OpClearCache()
 388
 389         Author:         Andy_Pennell (Xara Group Ltd) <camelotdev@xara.com>
 390         Created:        18/1/94
 391         Inputs:
 392         Outputs:
 393         Returns:
 394         Purpose:        Constructor for OpTimeDraw operation. It is not undoable.
 395         Errors:         None
 396
 397 ********************************************************************************************/
 398
 399 OpClearCache::OpClearCache()
 400 {
 401 }
 402
 403
 404 /********************************************************************************************
 405
 406 >       OpState OpClearCache::GetState(String_256*, OpDescriptor*)
 407
 408         Author:         Andy_Pennell (Xara Group Ltd) <camelotdev@xara.com>
 409         Created:        18/1/94
 410         Inputs:
 411         Outputs:
 412         Returns:
 413         Purpose:        This item is always available, so long as a document is visible.
 414         Errors:         None
 415
 416 ********************************************************************************************/
 417
 418 OpState OpClearCache::GetState(String_256*, OpDescriptor*)
 419 {
 420         OpState OpSt;
 421
 422         OpSt.Ticked = NodeRenderableBounded::bEnableCacheing;
 423
 424         return OpSt;
 425 }
 426
 427
 428
 429
 430 /********************************************************************************************
 431
 432 >       void OpThrottleCache::Do(OpDescriptor*)
 433
 434         Author:         Phil_Martin (Xara Group Ltd) <camelotdev@xara.com>
 435         Created:        23/06/2004
 436         Inputs:         None
 437         Outputs:        None
 438         Returns:        None
 439         Purpose:        Toggles bitmap cache enabled pref also Clears the bitmap cache for performance testing
 440         Errors:         None
 441
 442 ********************************************************************************************/
 443
 444 void OpThrottleCache::Do(OpDescriptor*)
 445 {
 446         if (NodeRenderableBounded::bThrottleCacheing)
 447         {
 448                 InformWarning(_R(IDS_WARN_DISABLE_THROTTLING), _R(IDS_OK));
 449         }
 450         else
 451         {
 452                 InformWarning(_R(IDS_WARN_ENABLE_THROTTLING), _R(IDS_OK));
 453         }
 454
 455         NodeRenderableBounded::bThrottleCacheing = ! NodeRenderableBounded::bThrottleCacheing;
 456
 457         End();                                                                                                                          // cleanup memory
 458 }
 459
 460 /********************************************************************************************
 461
 462 >       OpThrottleCache::OpThrottleCache()
 463
 464         Author:         Andy_Pennell (Xara Group Ltd) <camelotdev@xara.com>
 465         Created:        18/1/94
 466         Inputs:
 467         Outputs:
 468         Returns:
 469         Purpose:        Constructor for OpTimeDraw operation. It is not undoable.
 470         Errors:         None
 471
 472 ********************************************************************************************/
 473
 474 OpThrottleCache::OpThrottleCache()
 475 {
 476 }
 477
 478
 479 /********************************************************************************************
 480
 481 >       OpState OpThrottleCache::GetState(String_256*, OpDescriptor*)
 482
 483         Author:         Andy_Pennell (Xara Group Ltd) <camelotdev@xara.com>
 484         Created:        18/1/94
 485         Inputs:
 486         Outputs:
 487         Returns:
 488         Purpose:        This item is always available, so long as a document is visible.
 489         Errors:         None
 490
 491 ********************************************************************************************/
 492
 493 OpState OpThrottleCache::GetState(String_256*, OpDescriptor*)
 494 {
 495         OpState OpSt;
 496
 497         OpSt.Ticked = NodeRenderableBounded::bThrottleCacheing;
 498
 499         return OpSt;
 500 }
 501
 502
 503
 504