home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c083 / 21.ddi / SCRNSAVE.PAK / OWLSCRN.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1993-12-02  |  7.1 KB  |  288 lines
  1. //----------------------------------------------------------------------------
  2. // ObjectWindows - (C) Copyright 1991, 1993 by Borland International
  3. //----------------------------------------------------------------------------
  4. #include <owl\owlpch.h>
  5. #include <owl\applicat.h>
  6. #include <owl\dialog.h>
  7. #include <owl\dc.h>
  8. #include <stdio.h>
  9. #include "tscrnsav.h"
  10. #include "owlscrn.h"
  11.  
  12. //#define USE_BWCC
  13.  
  14. #if defined(USE_BWCC)
  15.   #define IDD_CONFIGURE "IDD_CONFIGURE_BWCC"
  16. #else
  17.   #define IDD_CONFIGURE "IDD_CONFIGURE"
  18. #endif
  19.  
  20. const char OwlScrnSectionStr[] = "OwlScreenSaver";
  21. const char ObjectsStr[] = "Objects";
  22. const char SpeedStr[] = "Speed";
  23. char  AppName[]  = "ScreenSaver.OWLSample";
  24. const int NumThings = 900;
  25. const int MaxBuilders = 8;
  26.  
  27. class TScreenThing {
  28.   public:
  29.     TScreenThing(TSize& scrnSize);
  30.     
  31.     virtual void Draw(TDC& dc) = 0;
  32.  
  33.   protected:
  34.     const TPoint& Position() {return Pos;}
  35.     const TColor& Color() {return C;}
  36.  
  37.   private:
  38.     TPoint  Pos;
  39.     TColor  C;
  40. };
  41.  
  42. typedef TScreenThing* (*TScreenThingBuilder)(TSize&);
  43.  
  44. TScreenThing::TScreenThing(TSize& scrnSize)
  45. {
  46.   Pos.x = random(scrnSize.cx + 1);
  47.   Pos.y = random(scrnSize.cy + 1);
  48.   C = TColor(random(0x100), random(0x100), random(0x100));
  49. }
  50.  
  51.  
  52. class TDot : public TScreenThing {
  53.   public:
  54.     TDot(TSize& scrnSize) : TScreenThing(scrnSize) {}
  55.     
  56.     virtual void Draw(TDC& dc);
  57.  
  58.     static TScreenThing* Build(TSize& scrnSize) {return new TDot(scrnSize);}
  59. };
  60.  
  61. void
  62. TDot::Draw(TDC& dc)
  63. {
  64.   dc.SetPixel(Position(), Color());
  65. }
  66.  
  67. class TLine : public TScreenThing  {
  68.   public:
  69.     TLine(TSize& scrnSize) : TScreenThing(scrnSize) {
  70.       End.x = random(scrnSize.cx + 1);
  71.       End.y = random(scrnSize.cy + 1);
  72.     }
  73.     
  74.     virtual void Draw(TDC& dc);
  75.  
  76.     static TScreenThing* Build(TSize& scrnSize) {return new TLine(scrnSize);}
  77.     
  78.   private:
  79.     TPoint  End;
  80. };
  81.  
  82. void
  83. TLine::Draw(TDC& dc)
  84. {
  85.   dc.SelectObject(TPen(Color()));
  86.   dc.MoveTo(Position());
  87.   dc.LineTo(End);
  88.   dc.RestorePen();
  89. }
  90.  
  91. class TBlob : public TScreenThing  {
  92.   public:
  93.     TBlob(TSize& scrnSize) : TScreenThing(scrnSize) {
  94.       Rad.cx = random(scrnSize.cx/20);
  95.       Rad.cy = random(scrnSize.cy/20);
  96.     }
  97.     
  98.     virtual void Draw(TDC& dc);
  99.     static TScreenThing* Build(TSize& scrnSize) {return new TBlob(scrnSize);}
  100.     
  101.   private:
  102.     TSize  Rad;
  103. };
  104.  
  105. void
  106. TBlob::Draw(TDC& dc)
  107. {
  108.   dc.SelectObject(TBrush(Color()));
  109.   dc.Ellipse(Position().x-Rad.cx, Position().y-Rad.cy, 
  110.              Position().x+Rad.cx, Position().y+Rad.cy);
  111.   dc.RestoreBrush();
  112. }
  113.  
  114. //----------------------------------------------------------------------------
  115.  
  116. class TMyScrnSavWindow : public TScrnSavWindow {
  117.   public:
  118.     TMyScrnSavWindow(TWindow* parent, const char* title, TModule* = 0);
  119.  
  120.   protected:
  121.     char far* GetClassName() {return(AppName);}
  122.     void  GetWindowClass(WNDCLASS& wndClass);
  123.  
  124.     virtual void  AnimateScreen();
  125.  
  126.   private:
  127.     TScreenThing*  Thing[NumThings];
  128.     TScreenThingBuilder Builder[MaxBuilders];
  129.     TSize          ScreenSize;
  130.     int            DrawIndex, EraseIndex;
  131.     int            NumBuilders;
  132.     BOOL           DoDots;
  133.     BOOL           DoLines;
  134.     BOOL           DoBlobs;
  135. };
  136.  
  137. TMyScrnSavWindow::TMyScrnSavWindow(TWindow* parent, const char* title,
  138.                                    TModule* module)
  139.   : TWindow(parent, title, module),
  140.     TScrnSavWindow(parent, title, module)
  141. {
  142.   DrawIndex  = 0;
  143.   EraseIndex = -2*(NumThings/3);
  144.   ScreenSize.cx = GetSystemMetrics(SM_CXSCREEN);
  145.   ScreenSize.cy = GetSystemMetrics(SM_CYSCREEN);
  146.  
  147.   char settings[32];
  148.  
  149.   GetProfileString(OwlScrnSectionStr, ObjectsStr, "1 0 0", settings, sizeof(settings));
  150.   sscanf(settings, "%d %d %d", &DoDots, &DoLines, &DoBlobs);
  151.   
  152.   NumBuilders = 0;
  153.   if (DoDots)
  154.     Builder[NumBuilders++] = TDot::Build;
  155.   if (DoLines)
  156.     Builder[NumBuilders++] = TLine::Build;
  157.   if (DoBlobs)
  158.     Builder[NumBuilders++] = TBlob::Build;
  159.  
  160.   int speed;
  161.   GetProfileString(OwlScrnSectionStr, SpeedStr, "2", settings, sizeof(settings));
  162.   sscanf(settings, "%d", &speed);
  163.   
  164.   ((TScrnSavApp*)GetApplication())->SetSpeed(speed);
  165. }
  166.  
  167. void
  168. TMyScrnSavWindow::GetWindowClass(WNDCLASS& wndClass)
  169. {
  170.   TScrnSavWindow::GetWindowClass(wndClass);
  171.   wndClass.hbrBackground = (HBRUSH)GetStockObject(BLACK_BRUSH);
  172. }
  173.  
  174. void
  175. TMyScrnSavWindow::AnimateScreen()
  176. {
  177.   if (!DoDots && !DoLines && !DoBlobs)
  178.     return;
  179.  
  180.   TClientDC  dc(*this);
  181.   if (dc) {
  182.     dc.SetROP2(R2_XORPEN);
  183.  
  184.     Thing[DrawIndex] = Builder[random(NumBuilders)](ScreenSize);
  185.     Thing[DrawIndex]->Draw(dc);
  186.  
  187.     DrawIndex++;
  188.     DrawIndex %= NumThings;
  189.  
  190.     if (EraseIndex >= 0) {
  191.       Thing[EraseIndex]->Draw(dc);
  192.       delete Thing[EraseIndex];
  193.       EraseIndex++;
  194.       EraseIndex %= NumThings;
  195.  
  196.     } else
  197.       EraseIndex++;
  198.   }
  199. }
  200.  
  201. //----------------------------------------------------------------------------
  202.  
  203. class TScrnSavDlg : public TDialog {
  204.   public:
  205.     TScrnSavDlg(TWindow* parent, const char* name, TModule* module)
  206.       : TDialog(parent, name, module) {}
  207.       
  208.     void SetupWindow();
  209.     void CloseWindow(int retValue);
  210.    
  211.   DECLARE_RESPONSE_TABLE(TScrnSavDlg);
  212. };
  213.  
  214. DEFINE_RESPONSE_TABLE1(TScrnSavDlg, TDialog)
  215.   EV_COMMAND(IDCANCEL, CmCancel),
  216. END_RESPONSE_TABLE;
  217.  
  218. void
  219. TScrnSavDlg::SetupWindow()
  220. {
  221.   char settings[32];
  222.   
  223.   int doDots, doLines, doBlobs;
  224.   ::GetProfileString(OwlScrnSectionStr, ObjectsStr, "1 0 0", 
  225.                      settings, sizeof(settings));
  226.   sscanf(settings, "%d %d %d", &doDots, &doLines, &doBlobs);
  227.   CheckDlgButton(ID_DOTS, doDots);
  228.   CheckDlgButton(ID_LINES, doLines);
  229.   CheckDlgButton(ID_BLOBS, doBlobs);
  230.  
  231.   int speed;
  232.   ::GetProfileString(OwlScrnSectionStr, SpeedStr, "2", 
  233.                      settings, sizeof(settings));
  234.   sscanf(settings, "%d", &speed);
  235.   CheckRadioButton(ID_SLOW, ID_FAST, ID_SLOW+speed);
  236. }
  237.  
  238. void
  239. TScrnSavDlg::CloseWindow(int retValue)
  240. {
  241.   char settings[32];
  242.  
  243.   wsprintf(settings, "%d %d %d", IsDlgButtonChecked(ID_DOTS), 
  244.                                  IsDlgButtonChecked(ID_LINES), 
  245.                                  IsDlgButtonChecked(ID_BLOBS));
  246.   WriteProfileString(OwlScrnSectionStr, ObjectsStr, settings);
  247.   
  248.   wsprintf(settings, "%d", IsDlgButtonChecked(ID_SLOW) ? 0 : 
  249.                            (IsDlgButtonChecked(ID_MED) ? 1 : 2));
  250.   WriteProfileString(OwlScrnSectionStr, SpeedStr, settings);
  251.  
  252.   TDialog::CloseWindow(retValue);
  253. }
  254.  
  255. //----------------------------------------------------------------------------
  256.  
  257. class TMyScrnSavApp : public TScrnSavApp {
  258.   public:
  259.     TMyScrnSavApp(char far* name) : TScrnSavApp(name) {
  260.       #if defined(USE_BWCC)
  261.         EnableBWCC();
  262.       #endif
  263.     }
  264.  
  265.     // Override TScrnSavApp's virtual functions
  266.     //
  267.     void  InitScrnSavWindow();
  268.     void  InitConfigDialog();
  269. };
  270.  
  271. void
  272. TMyScrnSavApp::InitScrnSavWindow()
  273. {
  274.   ScrnSavWnd = new TMyScrnSavWindow(0, AppName);
  275. }
  276.  
  277. void
  278. TMyScrnSavApp::InitConfigDialog()
  279. {
  280.   ConfigureDialog = new TScrnSavDlg(0, IDD_CONFIGURE, this);
  281. }
  282.  
  283. int
  284. OwlMain(int /*argc*/, char* /*argv*/ [])
  285. {
  286.   return TMyScrnSavApp(AppName).Run();
  287. }
  288.