0 / 0 / 1
Регистрация: 26.01.2014
Сообщений: 18
1

Изобразить прямоугольную спираль из 5 витков. Обеспечить циклическое изменение (1 пиксел - 3 пиксела) толщины линий, которыми отрисована спираль

18.03.2014, 23:04. Показов 1290. Ответов 2
Метки нет (Все метки)

Спираль из 5 витков изобразил... помогите пожалуйста сделать анимацию изменения толщины линий

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,n:integer;
begin
x:=round(image1.width/2)-50;
y:=round(image1.height/2)-50;
Image1.Canvas.MoveTo(x,y);
n:=2;
  while n<>7 do
   begin
    Image1.Canvas.lineto(x+n*25+40,y);
    x:=x+n*25+40;
    Image1.canvas.lineto(x,y+n*25+40);
    y:=y+n*25+40;
    Image1.canvas.lineto(x-n*25-52,y);
    x:=x-n*25-52;
    Image1.canvas.lineto(x,y-n*25-52);
    y:=y-n*25-52;
    n:=n+1;
   end;
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2014, 23:04
Ответы с готовыми решениями:

Изобразить прямоугольную спираль из 5 витков. Обеспечить циклическое изменение (1 пиксел - 3 пиксела) толщины линий, которыми отрисована спираль
Спираль из 5 витков изобразил... помогите пожалуйста сделать анимацию изменения толщины линий ...

Изобразить Архимедову спираль
Помогите составить программу, которая бы изображала архимедову спираль.

Изобразить спираль Архимеда
Задача звучит немного иначе, чем название темы, но в этом и есть проблема. Вычислить площадь S...

Изобразить на экране вращающуюся спираль

2
Модератор
3481 / 2604 / 741
Регистрация: 19.09.2012
Сообщений: 7,967
18.03.2014, 23:19 2
Добавь таймер:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TForm1.Timer1Timer(Sender: TObject);
const
{$J+}
  b: Boolean = False;
{$J-}
var
  x,y,n:integer;
begin
  b := not b;
  if b then
    Image1.canvas.Pen.Width := 3
  else
    Image1.canvas.Pen.Width := 1;
 
  Image1.canvas.FillRect(Image1.canvas.ClipRect);
x:=round(image1.width/2)-50;
y:=round(image1.height/2)-50;
Image1.Canvas.MoveTo(x,y);
n:=2;
  while n<>7 do
   begin
    Image1.Canvas.lineto(x+n*25+40,y);
    x:=x+n*25+40;
    Image1.canvas.lineto(x,y+n*25+40);
    y:=y+n*25+40;
    Image1.canvas.lineto(x-n*25-52,y);
    x:=x-n*25-52;
    Image1.canvas.lineto(x,y-n*25-52);
    y:=y-n*25-52;
    n:=n+1;
   end;
end;
1
0 / 0 / 1
Регистрация: 26.01.2014
Сообщений: 18
18.03.2014, 23:41  [ТС] 3
Спасибо!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2014, 23:41
Помогаю со студенческими работами здесь

Изменение толщины линий между ячейками QTabelView
Вот по умолчанию между ячейками линии очень тонкие. И никак не могу найти как же поменять толщину (...

Изменение толщины и стиля линий при нажатии кнопок мыши
Нужно сделать программу на паскале, при нажатии левой кнопки мыши появляется линия сплошная, если...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru