--- /dev/null
+///////////////////////////////////////////////////////////////////////////////
+// Name: fractal.cpp
+// Purpose: demo of wxConfig and related classes
+// Author: Andrew Davison
+// Modified by:
+// Created: 05.04.94
+// RCS-ID: $Id$
+// Copyright: (c) 1994 Andrew Davison
+// Licence: wxWindows licence
+///////////////////////////////////////////////////////////////////////////////
+
+
+/*
+Date: Tue, 5 Apr 1994 12:01:18 +1000
+From: Andrew Davison <andrewd@au.com.sfe>
+To: wxwin-users@ed.aiai
+Subject: Fractal mountains
+
+Hi,
+
+This is a quick port of a fractal mountain generator originally
+done for MS-Windows. On a Sun the colours look a little washed
+out and there is not as much snow or high mountains (maybe the
+random number generators fault). The viewing plane is not
+quite right as the original code used SetViewportOrg() which there
+doesn't seem to be an equivalent of under wxWindows, and my quick
+hack doesn't fix.
+*/
+
+#ifdef __GNUG__
+#pragma implementation
+#pragma interface
+#endif
+
+#include "wx/wxprec.h"
+
+#ifndef WX_PRECOMP
+ #include "wx/wx.h"
+#endif //precompiled headers
+
+#include <stdlib.h>
+#include <math.h>
+#include <time.h>
+
+#define Random(x) (rand() % x)
+#define Randomize() (srand((unsigned int)time(NULL)))
+
+static int detail = 9; // CHANGE THIS... 7,8,9 etc
+
+static bool running = FALSE;
+static wxMenuBar *menuBar = NULL;
+
+// Define a new application type
+class MyApp: public wxApp
+{ public:
+ bool OnInit();
+};
+
+IMPLEMENT_APP(MyApp)
+
+// Define a new frame type
+class MyFrame: public wxFrame
+{
+public:
+ MyFrame(wxFrame *frame, const wxString& title, const wxPoint& pos, const wxSize& size);
+
+ void OnCloseWindow(wxCloseEvent& event);
+ void OnExit(wxCommandEvent& event);
+DECLARE_EVENT_TABLE()
+};
+
+// Define a new canvas which can receive some events
+class MyCanvas: public wxWindow
+{
+public:
+ MyCanvas(wxFrame *frame);
+ void Draw(wxDC& dc);
+
+private:
+ void OnPaint(wxPaintEvent& event);
+ void Fractal(wxDC& dc, int X1, int Y1, int X2, int Y2, int Z1, int Z2, int Z3, int Z4, int Iteration, double Std, double Ratio);
+ wxPen SnowPen, MtnPen, GreenPen;
+ wxBrush WaterBrush;
+ int Sealevel;
+
+DECLARE_EVENT_TABLE()
+};
+
+// `Main program' equivalent, creating windows and returning main app frame
+bool MyApp::OnInit()
+{
+ // Create the main frame window
+ MyFrame *frame = new MyFrame(NULL, "Fractal Mountains for wxWindows", wxPoint(-1, -1), wxSize(640, 480));
+
+ // Make a menubar
+ wxMenu *file_menu = new wxMenu;
+ file_menu->Append(wxID_EXIT, "E&xit");
+ menuBar = new wxMenuBar;
+ menuBar->Append(file_menu, "&File");
+ frame->SetMenuBar(menuBar);
+
+ int width, height;
+ frame->GetClientSize(&width, &height);
+
+ (void) new MyCanvas(frame);
+
+ // Show the frame
+ frame->Show(TRUE);
+
+ return TRUE;
+}
+
+BEGIN_EVENT_TABLE(MyFrame, wxFrame)
+ EVT_CLOSE(MyFrame::OnCloseWindow)
+ EVT_MENU(wxID_EXIT, MyFrame::OnExit)
+END_EVENT_TABLE()
+
+// My frame constructor
+MyFrame::MyFrame(wxFrame *frame, const wxString& title, const wxPoint& pos, const wxSize& size):
+ wxFrame(frame, -1, title, pos, size)
+{
+}
+
+// Intercept menu commands
+void MyFrame::OnExit(wxCommandEvent& event)
+{
+ this->Destroy();
+}
+
+void MyFrame::OnCloseWindow(wxCloseEvent& event)
+{
+ static bool destroyed = FALSE;
+ if (destroyed)
+ return;
+
+ this->Destroy();
+
+ destroyed = TRUE;
+}
+
+BEGIN_EVENT_TABLE(MyCanvas, wxWindow)
+ EVT_PAINT(MyCanvas::OnPaint)
+END_EVENT_TABLE()
+
+// Define a constructor for my canvas
+MyCanvas::MyCanvas(wxFrame *frame):
+ wxWindow(frame, -1)
+{
+ wxColour wxCol1(255,255,255);
+ SnowPen = wxPen(wxCol1, 2, wxSOLID);
+
+ wxColour wxCol2(128,0,0);
+ MtnPen = wxPen(wxCol2, 1, wxSOLID);
+
+ wxColour wxCol3(0,128,0);
+ GreenPen = wxPen(wxCol3, 1, wxSOLID);
+
+ wxColour wxCol4(0,0,128);
+ WaterBrush = wxBrush(wxCol4, wxSOLID);
+}
+
+void MyCanvas::OnPaint(wxPaintEvent& event)
+{
+ wxPaintDC dc(this);
+ Draw(dc);
+}
+
+void MyCanvas::Draw(wxDC& dc)
+{
+ if (running) return;
+
+ running = TRUE;
+ menuBar->EnableTop(0, FALSE);
+
+ Randomize();
+
+ int Left, Top, Right, Bottom;
+ GetClientSize(&Right, &Bottom);
+
+ Right *= 3; Right /= 4;
+ Bottom *= 3; Bottom /= 4;
+ Left = 0;
+ Top = Bottom/8;
+
+ wxPoint Water[4];
+ Water[0].x = Left; Water[0].y = Top;
+ Water[1].x = Right; Water[1].y = Top;
+ Water[2].x = Right+Bottom/2; Water[2].y = Bottom;
+ Water[3].x = Bottom/2; Water[3].y = Bottom;
+
+ dc.SetBrush(WaterBrush);
+ dc.DrawPolygon(4, Water);
+
+ double H = 0.75;
+ double Scale = Bottom;
+ double Ratio = 1.0 / pow(2.0, H);
+ double Std = Scale * Ratio;
+ Sealevel = Random(18) - 8;
+
+ Fractal(dc, Left, Top, Right, Bottom, 0, 0, 0, 0, detail, Std, Ratio);
+
+ menuBar->EnableTop(0, TRUE);
+ running = FALSE;
+}
+
+void MyCanvas::Fractal(wxDC& dc, int X1, int Y1, int X2, int Y2, int Z1, int Z2, int Z3, int Z4, int Iteration, double Std, double Ratio)
+{
+ int Xmid = (X1 + X2) / 2;
+ int Ymid = (Y1 + Y2) / 2;
+ int Z23 = (Z2 + Z3) / 2;
+ int Z41 = (Z4 + Z1) / 2;
+ int Newz = (int)((Z1 + Z2 + Z3 + Z4) / 4 + (double)(Random(17) - 8) / 8.0 * Std);
+
+ if (--Iteration)
+ {
+ int Z12 = (Z1 + Z2) / 2;
+ int Z34 = (Z3 + Z4) / 2;
+ double Stdmid = Std * Ratio;
+
+ Fractal(dc, Xmid, Y1, X2, Ymid, Z12, Z2, Z23, Newz, Iteration, Stdmid, Ratio);
+ Fractal(dc, X1, Y1, Xmid, Ymid, Z1, Z12, Newz, Z41, Iteration, Stdmid, Ratio);
+ Fractal(dc, Xmid, Ymid, X2, Y2, Newz, Z23, Z3, Z34, Iteration, Stdmid, Ratio);
+ Fractal(dc, X1, Ymid, Xmid, Y2, Z41, Newz, Z34, Z4, Iteration, Stdmid, Ratio);
+ }
+ else
+ {
+ if (Newz <= Sealevel)
+ {
+ wxPoint P[4];
+ P[0].x = Y1 / 2 + X1; P[0].y = Y1 + Z1;
+ P[1].x = Y1 / 2 + X2; P[1].y = Y1 + Z2;
+ P[2].x = Y2 / 2 + X2; P[2].y = Y2 + Z3;
+ P[3].x = Y2 / 2 + X1; P[3].y = Y2 + Z4;
+
+ dc.SetPen(* wxBLACK_PEN);
+ dc.SetBrush(* wxBLACK_BRUSH);
+
+ dc.DrawPolygon(4, P);
+
+ if (Z1 >= -(60+Random(25)))
+ dc.SetPen(GreenPen);
+ else if (Z1 >= -(100+Random(25)))
+ dc.SetPen(MtnPen);
+ else
+ dc.SetPen(SnowPen);
+
+ dc.DrawLine(Ymid/2+X2, Ymid+Z23, Ymid/2+X1, Ymid+Z41);
+ }
+ }
+}
+
projects / wxWidgets.git / blobdiff