Поворот ромба

[aHristovsky]

Помогите повернуть ромб так, чтобы получился квадрат, не сильно меняя код. Очень прошу. Файл lpi:

<?xml version="1.0"?>
<CONFIG>
  <ProjectOptions>
    <Version Value="9"/>
    <PathDelim Value="\"/>
    <General>
      <SessionStorage Value="InProjectDir"/>
      <MainUnit Value="0"/>
      <Title Value="project1"/>
      <ResourceType Value="res"/>
      <UseXPManifest Value="True"/>
      <Icon Value="0"/>
    </General>
    <i18n>
      <EnableI18N LFM="False"/>
    </i18n>
    <VersionInfo>
      <StringTable ProductVersion=""/>
    </VersionInfo>
    <BuildModes Count="1">
      <Item1 Name="Default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
        <FormatVersion Value="1"/>
      </local>
    </RunParams>
    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="SQLDBLaz"/>
      </Item1>
      <Item2>
        <PackageName Value="LCL"/>
      </Item2>
    </RequiredPackages>
    <Units Count="2">
      <Unit0>
        <Filename Value="project1.lpr"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="project1"/>
      </Unit0>
      <Unit1>
        <Filename Value="unit1.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Unit1"/>
      </Unit1>
    </Units>
  </ProjectOptions>
  <CompilerOptions>
    <Version Value="11"/>
    <PathDelim Value="\"/>
    <Target>
      <Filename Value="project1"/>
    </Target>
    <SearchPaths>
      <IncludeFiles Value="$(ProjOutDir)"/>
      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    </SearchPaths>
    <Linking>
      <Options>
        <Win32>
          <GraphicApplication Value="True"/>
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerMessages>
        <MsgFileName Value=""/>
      </CompilerMessages>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="3">
      <Item1>
        <Name Value="EAbort"/>
      </Item1>
      <Item2>
        <Name Value="ECodetoolError"/>
      </Item2>
      <Item3>
        <Name Value="EFOpenError"/>
      </Item3>
    </Exceptions>
  </Debugging>
</CONFIG>

[ZX Spectrum-128]

А зачем этот файл? Нужны *.pas

[type_Oleg]

Всякий квадрат является ромбом.
Но не всякий ромб является квадратом, и поворотом тут не поможешь. Надо сжимать или растягивать, а не поворачивать.

[aHristovsky]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, mysql40conn, FileUtil, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Change(Sender: TObject);
    type
     xy=array[1..4] of Tpoint;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.CheckBox1Change(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
var
   p,p1:array[1..4,1..3] of word;
   i,j,k,s:word;
const
   d=200;
   t:array[1..3,1..3] of word=((0,1,0),(1,0,0),(20,20,1));
begin
     p[1,1]:=Width div 2;
     p[1,2]:=d;
     p[2,1]:=Width - d;
     p[2,2]:=Height div 2;
     p[3,1]:=Width div 2;
     p[3,2]:=Height - d;
     p[4,1]:=d;
     p[4,2]:=Height div 2;
     for i:=1 to 4 do
         p[i,3]:=1;
     with Canvas do
     begin
       Pen.Width:=10;
       Pen.Color:=clGreen;
       polyline([Point(p[1,1],p[1,2]),Point(p[2,1],p[2,2]),
       Point(p[3,1],p[3,2]),Point(p[4,1],p[4,2]),Point(p[1,1],p[1,2])]);
     end;
     for i:=1 to 4 do
         for j:=1 to 3 do
             begin
               s:=0;
               for k:=1 to 3 do
                 s:=s+p[i,k]*t[k,j];
               p1[i,j]:=s;
             end;
     p:=p1;
     with Canvas do
     begin
       Pen.Width:=10;
       Pen.Color:=clRed;
       PolyLine([Point(p[1,1],p[1,2]),Point(p[2,1],p[2,2]),
       Point(p[3,1],p[3,2]),Point(p[4,1],p[4,2]),Point(p[1,1],p[1,2])]);
     end;

end;

end.

[aHristovsky]

ромб должен перевернуться и превратиться в увеличенный квадрат вроде, а потом этот квадрат сместить надо

[aHristovsky]

ромб, перевернутый квадрат и смещенный квадрат
3 фигуры получается