1 files changed, 19 insertions, 2 deletions
diff --git a/unit1.pas b/unit1.pas
index ec73033..2a39e11 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -5,12 +5,19 @@ unit Unit1;
 interface
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Spin,
+  Penroseunit;
 
 type
+
+  { TForm1 }
+
   TForm1 = class(TForm)
+    Image1: TImage;
+    SpinEdit1: TSpinEdit;
+    procedure SpinEdit1Change(Sender: TObject);
   private
-
+    P: tPenrose;
   public
 
   end;
@@ -22,5 +29,15 @@ implementation
 
 {$R *.lfm}
 
+{ TForm1 }
+
+procedure TForm1.SpinEdit1Change(Sender: TObject);
+begin
+  P:=TPenrose.create(SpinEdit1.Value);
+  P.Zeichnen(Image1.Width,Image1.Height,Image1.Canvas);
+  P.Free;
+  form1.caption:=floattostr(cos(90));
+end;
+
 end.