Делфи в Паскаль!

[ololoshkaa]

Всем доброго времени суток!
Столкнулся с такой проблемой:
есть программа в Delphi, которая рисует ночной городской пейзаж
вот она:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
{Событие на нажатие кнопки нарисовать }
procedure TForm1.Button1Click(Sender: TObject);
begin
 
with form1.Canvas do
begin
 // земля
 brush.color:=RGB(8,16,48);
rectangle(0,350,1000,710);
//небо
 brush.color:=RGB(4,3,35);
rectangle(0,0,1000,350);
// дома слева
  brush.color:=RGB(30,30,22);
  rectangle(0,125,150,550);
  brush.Color:=clGray;
  rectangle(200,200,350,500);
  brush.color:=RGB(200,195,138);
    brush.color:=RGB(25,19,16);
  rectangle(150,250,250,500);
   brush.color:=RGB(88,81,56);
 rectangle(200,425,375,536);
    // дома справа
       brush.color:=RGB(25,19,16);
       rectangle(725,100,875,400);
       brush.color:=RGB(94,91,65);
       rectangle(600,300,675,450);
        brush.color:=RGB(57,31,15);
       rectangle(650,350,750,550);
 
         brush.color:=RGB(64,75,99);
       rectangle(850,50,1000,575);
          brush.color:=RGB(53,54,54);
       rectangle(725,450,825,560);
 
// Луна
brush.Color:=clyellow;
Ellipse(250,25,350,125);
brush.Color:=RGB(4,3,35);
Ellipse(245,20,345,120);
// Звездочки
   brush.color:=RGB(254,255,211);
   Ellipse(475,90,478,93);
   Ellipse(500,100,503,103);
   Ellipse(525,125,528,128);
   Ellipse(550,163,553,166);
   Ellipse(625,163,628,166);
   Ellipse(634,125,637,128);
 
   //дорога
   brush.color:=RGB(85,84,86);
   rectangle(0,650,1000,700);
 
moveTo(375,650);
LineTo(525,350);
LineTo(550,350);
LineTo(440,650);
LineTo(375,650);
brush.Color:=RGB(85,84,86);
floodFill(425,600,clblack,fsBorder);
 
 
end;
end;
 
end.

Но для сдачи курсовой мне нужно переделать ее в Turbo Pascal! Когда я начал переделывать программу, возникло много ошибок, которых я не смог исправить. Прошу помочь мне в этом деле, буду очень-очень признателен! Заранее большое спасибо!!!
Вот, собственно, что у меня получилось:

program gorod;
uses graph, crt;
var gd, gr, err:integer;
begin
gd:=detect;
gr:=VGAHi;
InitGraph(gd,gr,' ');
err:=GraphResult;
if err=grOk then
begin
{Zemlya}
 brush.color:=RGB(8,16,48);
rectangle(0,350,1000,710);
{ Nebo}
 brush.color:=RGB(4,3,35);
rectangle(0,0,1000,350);
{ Bydunku zliva}
  brush.color:=RGB(30,30,22);
  rectangle(0,125,150,550);
  brush.Color:=clGray;
  rectangle(200,200,350,500);
  brush.color:=RGB(200,195,138);
    brush.color:=RGB(25,19,16);
  rectangle(150,250,250,500);
   brush.color:=RGB(88,81,56);
 rectangle(200,425,375,536);
    { Bydunku sprava }
       brush.color:=RGB(25,19,16);
       rectangle(725,100,875,400);
       brush.color:=RGB(94,91,65);
       rectangle(600,300,675,450);
        brush.color:=RGB(57,31,15);
       rectangle(650,350,750,550);
 
         brush.color:=RGB(64,75,99);
       rectangle(850,50,1000,575);
          brush.color:=RGB(53,54,54);
       rectangle(725,450,825,560);
 
{ Misyac   }
brush.Color:=clyellow;
Ellipse(250,25,350,125);
brush.Color:=RGB(4,3,35);
Ellipse(245,20,345,120);
{Zirku}
   brush.color:=RGB(254,255,211);
   Ellipse(475,90,478,93);
   Ellipse(500,100,503,103);
   Ellipse(525,125,528,128);
   Ellipse(550,163,553,166);
   Ellipse(625,163,628,166);
   Ellipse(634,125,637,128);
 
   {Doroga}
   brush.color:=RGB(85,84,86);
   rectangle(0,650,1000,700);
 
moveTo(375,650);
LineTo(525,350);
LineTo(550,350);
LineTo(440,650);
LineTo(375,650);
brush.Color:=RGB(85,84,86);
floodFill(425,600,clblack,fsBorder);
readkey;
closegraph;
end;
end.

[Stilet]

возникло много ошибок

Что-ж. Бывает. Выкладывай сюда тексты ошибок - посмотрим )

[ZX Spectrum-128]

Размер экрана для vgahi - 640х480. Нужно исправлять координаты.
Максимальное количество цветов - 16.
Установка rgb палитры setrgbpalette
Выбор цвета setcolor

SetFillStyle(solidfill, цвет..); // установка сплошного стиля и цвета закраски
Bar(x1,y1,x2,y2); // рисуем закрашенный прчмоугольник

[ZX Spectrum-128]

То есть, вам сначала нужно масштабировать координаты. Вместо brush.color setfillstyle , вместо rectangle - bar

[ololoshkaa]

сначала все ошибки были связаны с *brush.Color*
я почитал что это инструмент - кисть в делфи, и его нету в паскале
я просто поудалял все строки с ним
потом:
{ Misyac }
brush.Color:=clyellow;
Ellipse(250,25,350,125); <- и тут, после 125 требовало записать еще 2 числа через запятую
и когда я написал любые 2 числа, результат был очень плохой(

[ololoshkaa]

Вот такой город получился в делфи:

[Stilet]

когда я написал любые 2 числа, результат был очень плохой(

Это типо метод "авось проканает"?
Нужно не тупо вписывать а вдумчиво
Ellipse(250,25,350,125); заменяется на Circle(300,75,100);

[ololoshkaa]

О, спасибо большое
еще 1 вопрос
вот мне в дома нужно дорисовать окна, добавить еще светильник
вот как точно записать координаты, чтобы не гадать по пол часа, а сразу там где надо нарисовать?

Вот, переделал основные моменты
но не получается подобрать правильные координаты согласно рисунку в делфи(цвет, в принципе, не важен). Помогите пожалуйста, или поясните как правильно писать верные координати объектов

program gorod;
uses graph, crt;
var gd, gr, err:integer;
begin
gd:=detect;
gr:=vgahi;
initgraph(gd,gr,' ');
err:=graphresult;
if err=grOk then
begin
{Zemlya}
setfillstyle(solidfill, yellow);
bar(0,350,1000,710);
{Nebo}
setfillstyle(solidfill, blue);
bar(0,0,1000,350);
{Bydunku zliva}
setfillstyle(solidfill, red);
bar(0,125,150,550);
setfillstyle(solidfill, red);
bar(200,200,350,500);
setfillstyle(solidfill, green);
setfillstyle(solidfill, black);
bar(150,250,250,500);
setfillstyle(solidfill, yellow);
bar(200,425,375,536);
{Bydunku sprava}
setfillstyle(solidfill, brown);
bar(725,100,875,400);
setfillstyle(solidfill, red);
bar(600,300,675,450);
setfillstyle(solidfill, green);
bar(650,350,750,550);
setfillstyle(solidfill, yellow);
bar(850,50,1000,575);
setfillstyle(solidfill, white);
bar(725,450,825,560);
{Misyac}
setfillstyle(solidfill, yellow);
circle(300,75,100);
setfillstyle(solidfill, blue);
circle(295,70,95);
{Zirku}
setfillstyle(solidfill, yellow);
circle(475,90,478);
circle(500,100,503);
circle(525,125,528);
circle(550,163,553);
circle(625,163,628);
circle(634,125,637);
{Doroga}
setfillstyle(solidfill, black);
bar(0,650,1000,700);
moveTo(375,650);
LineTo(525,350);
LineTo(550,350);
LineTo(440,650);
LineTo(375,650);
setfillstyle(solidfill, brown);
floodFill(425,600,black);
readkey;
closegraph;
end;
end.

[Stilet]

как точно записать координаты, чтобы не гадать по пол часа, а сразу там где надо нарисовать?

Нужно выбрать опорную точку. От нее построить фундамент (квадрат), потом зная высоту и ширину высчитать на сколько отвести перо для окна и рамок. Короче так как это делают архитекторы, зная габариты и координаты объекта вычерчивают от этих данных остальное, это называется "привязка". На словах так не расскажешь, ну к примеру:

x:=100;
y:=100;
Здание
bar(x,y,x+100,y+200);

Окна
bar(x+25,y+10,x+10,y+20);
bar(x+50,y+10,x+60,y+20);

А опорная точка - (x,y). Все элементы строятся относительно нее.

[ololoshkaa]

Уже почти переработал)
Только у меня почему-то не закрашиваются звезды, луна и сама дорога, пробовал разные цвета, не помогает. Подскажите пожалуйста, в чем проблема?

program gorod;
uses graph, crt;
var gd, gr, err:integer;
begin
gd:=detect;
gr:=vgahi;
initgraph(gd,gr,' ');
err:=graphresult;
if err=grOk then
begin
{Zemlya}
setfillstyle(solidfill, blue);
bar(0,175,640,500);
{Nebo}
setfillstyle(4, blue);
bar(0,0,650,175);
{Bydunku zliva}
setfillstyle(solidfill, lightgray);
bar(0,60,100,400);
setfillstyle(solidfill, brown);
bar(250,75,175,350);
setfillstyle(solidfill, darkgray);
bar(100,200,200,370);
setfillstyle(solidfill, lightgray);
bar(300,300,170,380);
{Bydunku sprava}
setfillstyle(solidfill, brown);
bar(450,75,550,250);
setfillstyle(solidfill, darkgray);
bar(360,100,445,250);
setfillstyle(solidfill, lightgray);
bar(400,175,500,350);
setfillstyle(solidfill, darkgray);
bar(525,25,650,420);
setfillstyle(solidfill, brown);
bar(425,300,520,400);
{Misyac}
setfillstyle(solidfill, yellow);
circle(140,35,25);
setfillstyle(solidfill, black);
circle(135,30,20);
{Zirku}
setfillstyle(solidfill, yellow);
circle(300,110,1);
circle(250,80,1);
circle(200,150,1);
circle(350,90,1);
circle(100,90,1);
circle(50,30,1);
{Doroga}
setfillstyle(solidfill, black);
bar(0,440,700,470);
moveTo(400,440);
LineTo(260,175);
LineTo(300,175);
LineTo(440,440);
LineTo(400,440);
readkey;
closegraph;
end;
end.