vcl/workben/svptest.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <sal/main.h>
  21 #include <tools/extendapplicationenvironment.hxx>
  22 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
  23
  24 #include <vcl/event.hxx>
  25 #include <vcl/svapp.hxx>
  26 #include <vcl/wrkwin.hxx>
  27 #include <vcl/gradient.hxx>
  28 #include <vcl/lineinfo.hxx>
  29 #include <vcl/bitmap.hxx>
  30 #include <vcl/bmpacc.hxx>
  31 #include <vcl/metric.hxx>
  32
  33 #include <rtl/ustrbuf.hxx>
  34
  35 #include <math.h>
  36
  37 #include <comphelper/processfactory.hxx>
  38 #include <cppuhelper/servicefactory.hxx>
  39 #include <cppuhelper/bootstrap.hxx>
  40
  41 using namespace ::com::sun::star::uno;
  42 using namespace ::com::sun::star::lang;
  43
  44
  45 // Forward declaration
  46 void Main();
  47
  48
  49 SAL_IMPLEMENT_MAIN()
  50 {
  51     tools::extendApplicationEnvironment();
  52
  53     Reference< XMultiServiceFactory > xMS;
  54     xMS = cppu::createRegistryServiceFactory( OUString( "types.rdb" ), OUString( "applicat.rdb" ), sal_True );
  55
  56     comphelper::setProcessServiceFactory( xMS );
  57
  58     InitVCL();
  59     ::Main();
  60     DeInitVCL();
  61
  62     return 0;
  63 }
  64
  65
  66 class MyWin : public WorkWindow
  67 {
  68     Bitmap      m_aBitmap;
  69 public:
  70                 MyWin( Window* pParent, WinBits nWinStyle );
  71
  72     void        MouseMove( const MouseEvent& rMEvt );
  73     void        MouseButtonDown( const MouseEvent& rMEvt );
  74     void        MouseButtonUp( const MouseEvent& rMEvt );
  75     void        KeyInput( const KeyEvent& rKEvt );
  76     void        KeyUp( const KeyEvent& rKEvt );
  77     void        Paint( const Rectangle& rRect );
  78     void        Resize();
  79 };
  80
  81
  82 void Main()
  83 {
  84     MyWin aMainWin( NULL, WB_APP | WB_STDWORK );
  85     aMainWin.SetText( OUString( "VCL - Workbench" ) );
  86     aMainWin.Show();
  87
  88     Application::Execute();
  89 }
  90
  91
  92 MyWin::MyWin( Window* pParent, WinBits nWinStyle ) :
  93     WorkWindow( pParent, nWinStyle ),
  94     m_aBitmap( Size( 256, 256 ), 32 )
  95 {
  96     // prepare an alpha mask
  97     BitmapWriteAccess* pAcc = m_aBitmap.AcquireWriteAccess();
  98     for( int nX = 0; nX < 256; nX++ )
  99     {
 100         for( int nY = 0; nY < 256; nY++ )
 101         {
 102             double fRed = 255.0-1.5*sqrt((double)(nX*nX+nY*nY));
 103             if( fRed < 0.0 )
 104                 fRed = 0.0;
 105             double fGreen = 255.0-1.5*sqrt((double)(((255-nX)*(255-nX)+nY*nY)));
 106             if( fGreen < 0.0 )
 107                 fGreen = 0.0;
 108             double fBlue = 255.0-1.5*sqrt((double)((128-nX)*(128-nX)+(255-nY)*(255-nY)));
 109             if( fBlue < 0.0 )
 110                 fBlue = 0.0;
 111             pAcc->SetPixel( nX, nY, BitmapColor( sal_uInt8(fRed), sal_uInt8(fGreen), sal_uInt8(fBlue) ) );
 112         }
 113     }
 114     m_aBitmap.ReleaseAccess( pAcc );
 115 }
 116
 117
 118 void MyWin::MouseMove( const MouseEvent& rMEvt )
 119 {
 120     WorkWindow::MouseMove( rMEvt );
 121 }
 122
 123
 124 void MyWin::MouseButtonDown( const MouseEvent& rMEvt )
 125 {
 126     WorkWindow::MouseButtonDown( rMEvt );
 127 }
 128
 129
 130 void MyWin::MouseButtonUp( const MouseEvent& rMEvt )
 131 {
 132     WorkWindow::MouseButtonUp( rMEvt );
 133 }
 134
 135
 136 void MyWin::KeyInput( const KeyEvent& rKEvt )
 137 {
 138     WorkWindow::KeyInput( rKEvt );
 139 }
 140
 141
 142 void MyWin::KeyUp( const KeyEvent& rKEvt )
 143 {
 144     WorkWindow::KeyUp( rKEvt );
 145 }
 146
 147
 148 static Point project( const Point& rPoint )
 149 {
 150     const double angle_x = M_PI / 6.0;
 151     const double angle_z = M_PI / 6.0;
 152
 153     // transform planar coordinates to 3d
 154     double x = rPoint.X();
 155     double y = rPoint.Y();
 156
 157     // rotate around X axis
 158     double x1 = x;
 159     double y1 = y * cos( angle_x );
 160     double z1 = y * sin( angle_x );
 161
 162     // rotate around Z axis
 163     double x2 = x1 * cos( angle_z ) + y1 * sin( angle_z );
 164     //double y2 = y1 * cos( angle_z ) - x1 * sin( angle_z );
 165     double z2 = z1;
 166
 167     return Point( (sal_Int32)x2, (sal_Int32)z2 );
 168 }
 169
 170 static Color approachColor( const Color& rFrom, const Color& rTo )
 171 {
 172     Color aColor;
 173     sal_uInt8 nDiff;
 174     // approach red
 175     if( rFrom.GetRed() < rTo.GetRed() )
 176     {
 177         nDiff = rTo.GetRed() - rFrom.GetRed();
 178         aColor.SetRed( rFrom.GetRed() + ( nDiff < 10 ? nDiff : 10 ) );
 179     }
 180     else if( rFrom.GetRed() > rTo.GetRed() )
 181     {
 182         nDiff = rFrom.GetRed() - rTo.GetRed();
 183         aColor.SetRed( rFrom.GetRed() - ( nDiff < 10 ? nDiff : 10 ) );
 184     }
 185     else
 186         aColor.SetRed( rFrom.GetRed() );
 187
 188     // approach Green
 189     if( rFrom.GetGreen() < rTo.GetGreen() )
 190     {
 191         nDiff = rTo.GetGreen() - rFrom.GetGreen();
 192         aColor.SetGreen( rFrom.GetGreen() + ( nDiff < 10 ? nDiff : 10 ) );
 193     }
 194     else if( rFrom.GetGreen() > rTo.GetGreen() )
 195     {
 196         nDiff = rFrom.GetGreen() - rTo.GetGreen();
 197         aColor.SetGreen( rFrom.GetGreen() - ( nDiff < 10 ? nDiff : 10 ) );
 198     }
 199     else
 200         aColor.SetGreen( rFrom.GetGreen() );
 201
 202     // approach blue
 203     if( rFrom.GetBlue() < rTo.GetBlue() )
 204     {
 205         nDiff = rTo.GetBlue() - rFrom.GetBlue();
 206         aColor.SetBlue( rFrom.GetBlue() + ( nDiff < 10 ? nDiff : 10 ) );
 207     }
 208     else if( rFrom.GetBlue() > rTo.GetBlue() )
 209     {
 210         nDiff = rFrom.GetBlue() - rTo.GetBlue();
 211         aColor.SetBlue( rFrom.GetBlue() - ( nDiff < 10 ? nDiff : 10 ) );
 212     }
 213     else
 214         aColor.SetBlue( rFrom.GetBlue() );
 215
 216     return aColor;
 217 }
 218
 219 #define DELTA 5.0
 220 void MyWin::Paint( const Rectangle& rRect )
 221 {
 222     WorkWindow::Paint( rRect );
 223
 224     Push( PUSH_ALL );
 225     MapMode aMapMode( MAP_100TH_MM );
 226
 227     SetMapMode( aMapMode );
 228
 229     Size aPaperSize = GetOutputSize();
 230     Point aCenter( aPaperSize.Width()/2-300,
 231                    (aPaperSize.Height() - 8400)/2 + 8400 );
 232     Point aP1( aPaperSize.Width()/48, 0), aP2( aPaperSize.Width()/40, 0 ), aPoint;
 233
 234     DrawRect( Rectangle( Point( 0,0 ), aPaperSize ) );
 235     DrawRect( Rectangle( Point( 100,100 ),
 236                          Size( aPaperSize.Width()-200,
 237                                aPaperSize.Height()-200 ) ) );
 238     DrawRect( Rectangle( Point( 200,200 ),
 239                          Size( aPaperSize.Width()-400,
 240                                aPaperSize.Height()-400 ) ) );
 241     DrawRect( Rectangle( Point( 300,300 ),
 242                          Size( aPaperSize.Width()-600,
 243                                aPaperSize.Height()-600 ) ) );
 244
 245     const int nFontCount = GetDevFontCount();
 246     const int nFontSamples = (nFontCount<15) ? nFontCount : 15;
 247     for( int i = 0; i < nFontSamples; ++i )
 248     {
 249
 250         FontInfo aFont = GetDevFont( (i*nFontCount) / nFontSamples );
 251         aFont.SetHeight( 400 + (i%7) * 100 );
 252         aFont.SetOrientation( i * (3600 / nFontSamples) );
 253         SetFont( aFont );
 254
 255         sal_uInt8 nRed   = (i << 6) & 0xC0;
 256         sal_uInt8 nGreen = (i << 4) & 0xC0;
 257         sal_uInt8 nBlue  = (i << 2) & 0xC0;
 258         SetTextColor( Color( nRed, nGreen, nBlue ) );
 259
 260         OUStringBuffer aPrintText(1024);
 261         long nMaxWidth = 0;
 262
 263         aPrintText.appendAscii( "SVP test program" );
 264
 265         DrawText( Rectangle( Point( (aPaperSize.Width() - 4000) / 2, 2000 ),
 266                             Size( aPaperSize.Width() - 2100 - nMaxWidth,
 267                                 aPaperSize.Height() - 4000 ) ),
 268                 aPrintText.makeStringAndClear(),
 269                 TEXT_DRAW_MULTILINE );
 270     }
 271
 272     SetFillColor();
 273     DrawRect( Rectangle( Point( aPaperSize.Width() - 4000, 1000 ),
 274                          Size( 3000,3000 ) ) );
 275     DrawBitmap( Point( aPaperSize.Width() - 4000, 1000 ),
 276                 Size( 3000,3000 ),
 277                 m_aBitmap );
 278
 279     Color aWhite( 0xff, 0xff, 0xff );
 280     Color aBlack( 0, 0, 0 );
 281     Color aLightRed( 0xff, 0, 0 );
 282     Color aDarkRed( 0x40, 0, 0 );
 283     Color aLightBlue( 0, 0, 0xff );
 284     Color aDarkBlue( 0,0,0x40 );
 285     Color aLightGreen( 0, 0xff, 0 );
 286     Color aDarkGreen( 0, 0x40, 0 );
 287
 288     Gradient aGradient( GradientStyle_LINEAR, aBlack, aWhite );
 289     aGradient.SetAngle( 900 );
 290     DrawGradient( Rectangle( Point( 1000, 4500 ),
 291                              Size( aPaperSize.Width() - 2000,
 292                                    500 ) ), aGradient );
 293     aGradient.SetStartColor( aDarkRed );
 294     aGradient.SetEndColor( aLightBlue );
 295     DrawGradient( Rectangle( Point( 1000, 5300 ),
 296                              Size( aPaperSize.Width() - 2000,
 297                                    500 ) ), aGradient );
 298     aGradient.SetStartColor( aDarkBlue );
 299     aGradient.SetEndColor( aLightGreen );
 300     DrawGradient( Rectangle( Point( 1000, 6100 ),
 301                              Size( aPaperSize.Width() - 2000,
 302                                    500 ) ), aGradient );
 303     aGradient.SetStartColor( aDarkGreen );
 304     aGradient.SetEndColor( aLightRed );
 305     DrawGradient( Rectangle( Point( 1000, 6900 ),
 306                              Size( aPaperSize.Width() - 2000,
 307                                    500 ) ), aGradient );
 308
 309
 310
 311     LineInfo aLineInfo( LINE_SOLID, 200 );
 312     double sind = sin( DELTA*M_PI/180.0 );
 313     double cosd = cos( DELTA*M_PI/180.0 );
 314     double factor = 1 + (DELTA/1000.0);
 315     int n=0;
 316     Color aLineColor( 0, 0, 0 );
 317     Color aApproachColor( 0, 0, 200 );
 318     while ( aP2.X() < aCenter.X() && n++ < 680 )
 319     {
 320         aLineInfo.SetWidth( n/3 );
 321         aLineColor = approachColor( aLineColor, aApproachColor );
 322         SetLineColor( aLineColor );
 323
 324         // switch aproach color
 325         if( aApproachColor.IsRGBEqual( aLineColor ) )
 326         {
 327             if( aApproachColor.GetRed() )
 328                 aApproachColor = Color( 0, 0, 200 );
 329             else if( aApproachColor.GetGreen() )
 330                 aApproachColor = Color( 200, 0, 0 );
 331             else
 332                 aApproachColor = Color( 0, 200, 0 );
 333         }
 334
 335         DrawLine( project( aP1 ) + aCenter,
 336                   project( aP2 ) + aCenter,
 337                   aLineInfo );
 338         aPoint.X() = (int)((((double)aP1.X())*cosd - ((double)aP1.Y())*sind)*factor);
 339         aPoint.Y() = (int)((((double)aP1.Y())*cosd + ((double)aP1.X())*sind)*factor);
 340         aP1 = aPoint;
 341         aPoint.X() = (int)((((double)aP2.X())*cosd - ((double)aP2.Y())*sind)*factor);
 342         aPoint.Y() = (int)((((double)aP2.Y())*cosd + ((double)aP2.X())*sind)*factor);
 343         aP2 = aPoint;
 344     }
 345     Pop();
 346 }
 347
 348
 349 void MyWin::Resize()
 350 {
 351     WorkWindow::Resize();
 352 }
 353
 354 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */