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

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

06.03.2014, 22:09. Показов 1096. Ответов 1
Метки нет (Все метки)

Спираль из 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
06.03.2014, 22:09
Ответы с готовыми решениями:

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

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

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

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

1
2478 / 1854 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
07.03.2014, 00:27 2
Нужно добавить строку изменяющую толщину "карандаша".
Delphi
1
2
3
4
...
  Image1.Canvas.Pen.Width := StrToIntDef(Edit1.Text, 1);
  Image1.Canvas.MoveTo(x, y);
...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2014, 00:27
Помогаю со студенческими работами здесь

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

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


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

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

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