Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Stardesigner - Make your Star (https://www.delphipraxis.net/142318-stardesigner-make-your-star.html)

jfheins 26. Okt 2009 12:49

Re: Stardesigner - Make your Star
 
Liste der Anhänge anzeigen (Anzahl: 1)
Dann möchte ich aber auch meinen hier vorstellen :)

ist in C# Programmiert und erfüllt einen ähnlichen Zweck. Allerdings ist der Stern schön ausgefüllt :P

Und mit Anti-Aliasing :mrgreen:

himitsu 26. Okt 2009 13:06

Re: Stardesigner - Make your Star
 
und jetzt bitte noch als OpenGL, Direct3D und Co.

turboPASCAL 26. Okt 2009 13:17

Re: Stardesigner - Make your Star
 
Zitat:

Zitat von himitsu
is aber nich nett ... wollte doch nur 2 Vollkreise malen lassen :cry:

War da einer Neugierig und musste fummeln ?

Zitat:

Zitat von himitsu
und jetzt bitte noch als OpenGL, Direct3D und Co.

Das ist deine Aufgabe! :P


Zitat:

Zitat von jfheins
Dann möchte ich aber auch meinen hier vorstellen :) ...

Spitze Sache das. :thumb:

.Net ist doch eine feine Angelegenheit, wenn man schell und einfach auf die GDI-Plus zugreifen kann.

Namenloser 26. Okt 2009 13:35

Re: Stardesigner - Make your Star
 
Hmm, also wenn schon, dann bitte mit Quellcode :wink:

jfheins 26. Okt 2009 13:37

Re: Stardesigner - Make your Star
 
Zitat:

Zitat von NamenLozer
Hmm, also wenn schon, dann bitte mit Quellcode :wink:

Nagut, ist ja sowiso nicht viel *g*
Code:
public partial class Form1 : Form
    {
        Pen pen;
        Brush brush;

        public Form1()
        {
            InitializeComponent();

            pen = new Pen(Color.Black, 3);
            brush = new SolidBrush(Color.OrangeRed);
        }

        private PointF PolarToPic(double r, double phi)
        {
            PointF Result = new PointF();
            Result.X = (float)(r * Math.Cos(phi + Math.PI / 2) + pictureBox1.Width / 2d);
            Result.Y = (float)(-r * Math.Sin(phi + Math.PI / 2) + pictureBox1.Height / 2d);
            return Result;
        }

        private void pictureBox1_Paint(object sender, PaintEventArgs e)
        {
            double phi = 0;
            double dphi = Math.PI / (double)Zackenzahl.Value;

            double ri = InnerRadius.Value;
            double ra = OuterRadius.Value;

            PointF[] Points = new PointF[(int)Zackenzahl.Value * 2];

            for (int i = 0; i < Zackenzahl.Value * 2; i = i + 2)
            {
                Points[i] = PolarToPic(ra, phi);
                phi += dphi;
                Points[i + 1] = PolarToPic(ri, phi);
                phi += dphi;
            }
            e.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality;
            e.Graphics.FillPolygon(brush, Points);
            e.Graphics.DrawPolygon(pen, Points);
        }

        private void ParamChanged(object sender, EventArgs e)
        {
            pictureBox1.Invalidate();
        }

        private void Form1_SizeChanged(object sender, EventArgs e)
        {
            pictureBox1.Invalidate();
        }
    }

Medium 26. Okt 2009 13:42

Re: Stardesigner - Make your Star
 
Tipp am Rande: Eine ganze Reihe an Standard-Pens und -Brushes findest du im Namespace "Pens" und "Brushes" quasi ready to use schon fertig :) (z.B. Pens.Red)

Mikescher 26. Okt 2009 15:28

Re: Stardesigner - Make your Star
 
Liste der Anhänge anzeigen (Anzahl: 3)
Cool man kann sogar ein Pentagramm machen :lol:

:thumb:

[Edit] und ein Quadrat :zwinker:

[Edit] und sogar Tic Tac Toe jetzt sollte ich eigentlich GFS machen und stattdessen spiel ich mit einem Stardesigner :oops:


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:45 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz