Apfelmännchen / Fraktal

Zurück

Mit dem untenstehenden Quellcode können Sie, mit Hilfe von C++, ein Apfelmännchen nach dem Prinzip von Mandelbrot berrechnen. Eine Abbildung des Apfelmännchens sehen Sie auf der rechten Seite. Die Funktion "abweichung" gibt an nach wieviel Durchläufen der Wert sich dem Unendlichen nähert oder einen natürliche Zahl ergibtt, umsohö:her der zurück gelieferte Wert der Funktion ist, umso stärker wird der Punkt später im Bild dargestellt. Durch eine Veränderung des Auschnittes, wäre eine Zoom-Funktion auch möglich.

Quelltext:

// appel_men.cpp : Definiert den Einsprungpunkt für die Anwendung. // #include "stdafx.h" #include "resource.h" #define MAX_LOADSTRING 100 int screen_x = 800; int screen_y = 800; int ausschlag = 0; float proz, pos, posx, posy, si, sj = 0; float px(int x) { pos = ((x*100/(float)(screen_x))*(2-0-0))/100-(2-0-0)/2; return pos; } float py(int y) { pos = ((y*100/(float)(screen_y))*(2-0-0))/100-(2-0-0)/2; return pos; } int abweichung(double a,double b) { double c=0,d=0,e=0,f=0; int i; for (i=0;i<30;i++) { d=2*e*f+b; c=e*e-f*f+a; if (c*c+d*d>4) return i; e=c; f=d; } return i; } // Globale Variablen: HINSTANCE hInst; // aktuelle Instanz TCHAR szTitle[MAX_LOADSTRING]; // Text der Titelzeile TCHAR szWindowClass[MAX_LOADSTRING]; // Text der Titelzeile // Vorausdeklarationen von Funktionen, die in diesem Code-Modul enthalten sind: ATOM MyRegisterClass( HINSTANCE hInstance ); BOOL InitInstance( HINSTANCE, int ); LRESULT CALLBACK WndProc( HWND, UINT, WPARAM, LPARAM ); LRESULT CALLBACK About( HWND, UINT, WPARAM, LPARAM ); int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow ) { // ZU ERLEDIGEN: Fügen Sie hier den Code ein. MSG msg; HACCEL hAccelTable; // Globale Zeichenfolgen initialisieren LoadString(hInstance, IDS_APP_TITLE, szTitle, MAX_LOADSTRING); LoadString(hInstance, IDC_APPEL_MEN, szWindowClass, MAX_LOADSTRING); MyRegisterClass(hInstance); // Initialisierung der Anwendung durchführen: if( !InitInstance( hInstance, nCmdShow ) ) { return FALSE; } hAccelTable = LoadAccelerators(hInstance, (LPCTSTR)IDC_APPEL_MEN); // Hauptnachrichtenschleife: while( GetMessage(&msg, NULL, 0, 0) ) { if( !TranslateAccelerator (msg.hwnd, hAccelTable, &msg) ) { TranslateMessage( &msg ); DispatchMessage( &msg ); } } return msg.wParam; } // // FUNKTION: MyRegisterClass() // // AUFGABE: Registriert die Fensterklasse. // // KOMMENTARE: // // Diese Funktion und ihre Verwendung sind nur notwendig, wenn dieser Code // mit Win32-Systemen vor der 'RegisterClassEx'-Funktion kompatibel sein soll, // die zu Windows 95 hinzugefügt wurde. Es ist wichtig diese Funktion aufzurufen, // damit der Anwendung kleine Symbole mit den richtigen Proportionen zugewiesen // werden. // ATOM MyRegisterClass( HINSTANCE hInstance ) { WNDCLASSEX wcex; wcex.cbSize = sizeof(WNDCLASSEX); wcex.style = CS_HREDRAW | CS_VREDRAW; wcex.lpfnWndProc = (WNDPROC)WndProc; wcex.cbClsExtra = 0; wcex.cbWndExtra = 0; wcex.hInstance = hInstance; wcex.hIcon = LoadIcon(hInstance, (LPCTSTR)IDI_APPEL_MEN); wcex.hCursor = LoadCursor(NULL, IDC_ARROW); wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW+1); wcex.lpszMenuName = (LPCSTR)IDC_APPEL_MEN; wcex.lpszClassName = szWindowClass; wcex.hIconSm = LoadIcon(wcex.hInstance, (LPCTSTR)IDI_SMALL); return RegisterClassEx(&wcex); } // // FUNKTION: InitInstance(HANDLE, int) // // AUFGABE: Speichert die Instanzzugriffsnummer und erstellt das Hauptfenster // // KOMMENTARE: // // In dieser Funktion wird die Instanzzugriffsnummer in einer globalen Variable // gespeichert und das Hauptprogrammfenster erstellt und angezeigt. // BOOL InitInstance( HINSTANCE hInstance, int nCmdShow ) { HWND hWnd; hInst = hInstance; // Instanzzugriffsnummer in unserer globalen Variable speichern hWnd = CreateWindow(szWindowClass, szTitle, WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, 0, screen_x, screen_y, NULL, NULL, hInstance, NULL); if( !hWnd ) { return FALSE; } ShowWindow( hWnd, nCmdShow ); UpdateWindow( hWnd ); return TRUE; nCmdShow; } // // FUNKTION: WndProc(HWND, unsigned, WORD, LONG) // // AUFGABE: Verarbeitet Nachrichten für das Hauptfenster. // // WM_COMMAND - Anwendungsmenü verarbeiten // WM_PAINT - Hauptfenster darstellen // WM_DESTROY - Beendigungsnachricht ausgeben und zurückkehren // // LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam) { int wmId, wmEvent; PAINTSTRUCT ps; HDC hdc; switch( message ) { case WM_COMMAND: wmId = LOWORD(wParam); wmEvent = HIWORD(wParam); // Menüauswahlen analysieren: switch( wmId ) { case IDM_ABOUT: DialogBox(hInst, (LPCTSTR)IDD_ABOUTBOX, hWnd, (DLGPROC)About); break; case IDM_EXIT: DestroyWindow( hWnd ); break; default: return DefWindowProc( hWnd, message, wParam, lParam ); } break; case WM_PAINT: hdc = BeginPaint (hWnd, &ps); // ZU ERLEDIGEN: Hier beliebigen Code zum Zeichnen hinzufügen... for (si=0;si<screen_x; si+=0.5) { posx = px(si); for (sj=0;sj<screen_y; sj+=0.5) { posy = py(sj); ausschlag = abweichung(posx,posy); SetPixel(hdc,si,sj,RGB(0,ausschlag*10,0)); } } EndPaint( hWnd, &ps ); break; case WM_DESTROY: PostQuitMessage( 0 ); break; default: return DefWindowProc( hWnd, message, wParam, lParam ); } return 0; } // Nachrichtenbehandlungsroutine für "Info"-Feld. LRESULT CALLBACK About( HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam ) { switch( message ) { case WM_INITDIALOG: return TRUE; case WM_COMMAND: if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL) { EndDialog(hDlg, LOWORD(wParam)); return TRUE; } break; } return FALSE; }