Модераторы: LSD

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Подцветка или подсветка, кто тут Русский знает? 
:(
    Опции темы
chipset
Дата 5.3.2005, 17:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4071
Регистрация: 11.1.2003
Где: Seattle, US
А я всё таки думаю что это дело вкуса smile


--------------------
Цитата(Jimi Hendrix)
Well, I stand up next to a mountain
And I chop it down with the edge of my hand
PM MAIL WWW   Вверх
sergejzr
Дата 5.3.2005, 17:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Un salsero
Group Icon


Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер
А какая разница? По большому счёту?
Как вам кстати новая подсветка?

Ищите глюки плиз smile


--------------------
Me.
FB.
LinkedIn.
ORCID.
YT.
PM WWW IM ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
batigoal
Дата 5.3.2005, 18:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Нелетучий Мыш
****


Профиль
Группа: Участник Клуба
Сообщений: 6423
Регистрация: 28.12.2004
Где: Санктъ-Петербургъ
По-моему, вообще неграмотно было обозначать сие явление словом "подсветка"/"подцветка", тогда и не было бы проблем.
Только не спрашивайте, как его надо было назвать smile
А коли уж качественно новое явление назвали "подсветкой" - так давайте примем его как неологизм. "Осьминога" же никто на "восьминога" не исправляет.


--------------------
"Чтобы правильно задать вопрос, нужно знать большую часть ответа" (Р. Шекли)
ЖоржЖЖ
PM WWW   Вверх
sergejzr
Дата 5.3.2005, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Un salsero
Group Icon


Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер
Давайте назовём: "Раскраска кода"
smile
Нет, тогда может возникнуть спор насчёт пристаки "рас" или "раз".

Во! "Прокраска кода" Или "Пробелка кода"
Тогда даже слово "код" можно убирать и писат в рамке:


\"Выделить\"Развернуть\"СвернутьПробелка Pascal/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 -
50 -
51 -
52 -
53 -
54 -
55 -
56 -
57 -
58 -
59 -
60 -
61 -
62 -
63 -
64 -
65 -
66 -
67 -
68 -
69 -
70 -
71 -
72 -
73 -
74 -
75 -
76 -
77 -
78 -
79 -
80 -
81 -
82 -
83 -
84 -
85 -
86 -
87 -
88 -
89 -
90 -
91 -
92 -
93 -
94 -
95 -
96 -
97 -
98 -
99 -
100 -
101 -
102 -
103 -
104 -
105 -
106 -
107 -
108 -
109 -
110 -
111 -
112 -
113 -
114 -
115 -
116 -
117 -
118 -
119 -
120 -
121 -
122 -
123 -
124 -
125 -
126 -
127 -
128 -
129 -
130 -
131 -
132 -
133 -
134 -
135 -
136 -
137 -
138 -
139 -
140 -
141 -
142 -
143 -
144 -
145 -
146 -
147 -
148 -
149 -
150 -
151 -
152 -
153 -
154 -
155 -
156 -
157 -
158 -
159 -
160 -
161 -
162 -
163 -
164 -
165 -
166 -
167 -
168 -
169 -
170 -
171 -
172 -
173 -
174 -
175 -
176 -
177 -
178 -
179 -
180 -
181 -
182 -
183 -
184 -
185 -
186 -
187 -
188 -
189 -
190 -
191 -
192 -
193 -
194 -
195 -
196 -
197 -
198 -
199 -
200 -
201 -
202 -
203 -
204 -
205 -
206 -
207 -
208 -
209 -
210 -
211 -
212 -
213 -
214 -
215 -
216 -
217 -
218 -
219 -
220 -
221 -
222 -
223 -
224 -
225 -
226 -
227 -
228 -
229 -
230 -
231 -
232 -
233 -
234 -
235 -
236 -
237 -
238 -
239 -
240 -
241 -
242 -
243 -
244 -
245 -
246 -
247 -
248 -
249 -
250 -
251 -
252 -
253 -
254 -
255 -
256 -
257 -
258 -
259 -
260 -
261 -
262 -
263 -
264 -
265 -
266 -
267 -
268 -
269 -
270 -
271 -
272 -
273 -
274 -
275 -
Правильная кириллица

unit uGraph;

interface

uses
   Windows, MyMath, Raster, Meshes, Sect;

type
   FloatType = Single;

   TMyGraph = class (Txbject)
      private
         FLoaded   -  Boolean;
         FDeltaIL  -  FloatType;
         FLoadedPicOnly  -  Boolean;
         procedure StartUpRaster2;
         procedure ShutDownRaster2;
         procedure RunSecondThread;
         procedure StopSecondThread;
         function  GetIL  -  FloatType;
         procedure SetIL (AIL  -  FloatType);
      public
         property Loaded  -  Boolean read FLoaded;
         procedure ChangeTraingles;
         procedure ChangeRes (AXRes, AYRes  -  Integer);
         procedure MakeImage;
         procedure Rotate;
         procedure Run;
         procedure Pause;
         procedure RotateUp;
         procedure RotateDown;
         procedure RotateLeft;
         procedure RotateRight;
         procedure MoveForward;
         procedure MoveBackward;
         procedure ScaleUp;
         procedure ScaleDown;
         procedure ILUp;
         procedure ILDown;
         property ILevel  -  FloatType read GetIL write SetIL;
         property DeltaIL  -  FloatType read FDeltaIL write FDeltaIL;
   end;

var
   MyGraph         -  TMyGraph;
   DC              -  HDC;
   r, Alpha, Beta  -  Real;

implementation

uses uData;

Const
    Angle   = 3.1415926 / 36;
    TrAngle = 3.1415926 / 540;

Var
    tr    -  TMatrix;

{$I graph/Auxilary.pas}

procedure TMyGraph.StartUpRaster2;
begin
   with BitmapInfo.bmiHeader do
   begin
      biWidth          - = XRes;
      biHeight         - = YRes;
      biSizeImage      - = XRes * YRes * biBitCount div 8;
   end;
   Bitmap  - = CreateDIBSection (DC, BitmapInfo, DIB_RGB_COLORS, Pointer(Pic), 0, 0);
   if Bitmap = 0
   then MessageBox (0, '═х ьюує ёючфрЄ№ DIB-cхъЎш■', 'Error', MB_OK+MB_ICONERROR);
   StartUpRaster;
end;

procedure TMyGraph.ShutDownRaster2;
begin
   ShutDownRaster;
   Deletexbject (Bitmap);
end;

procedure TMyGraph.RunSecondThread;
begin

end;

procedure TMyGraph.StopSecondThread;
begin

end;

function  TMyGraph.GetIL  -  FloatType;
begin
   Result  - = IL;
end;

procedure TMyGraph.SetIL (AIL  -  FloatType);
begin
   if FLoadedPicOnly
   then Exit;
   IL  - = AIL;
   DestroyMesh;
   Intersect;
   MakeImage;
end;

procedure TMyGraph.ChangeTraingles;
begin
   if FLoaded
   then
   begin
      DestroyMesh;
      DestroyCloud;
   end;
   case WhatPic of
     '0'  -  begin LoadDATxbject('graph\dolph.dat');              FLoadedPicOnly  - = true;  end;
      '1'  -  begin LoadDATxbject('graph\duck.dat');               FLoadedPicOnly  - = true;  end;
      '2'  -  begin LoadDATxbject('graph\sphere.dat');             FLoadedPicOnly  - = true;  end;
     '3'  -  begin LoadDATxbject('graph\thore.dat');                FLoadedPicOnly - = true;  end;
      '4'  -  begin LoadTetraedrons ('graph\out1.txt'); Intersect; FLoadedPicOnly  - = false; end;
      '5'  -  begin LoadTetraedrons ('graph\out2.txt'); Intersect; FLoadedPicOnly  - = false; end;
//      else  begin MakeNet(2, 2, 2, 10, 10, 10);       Intersect; FLoadedPicOnly - = false; end;
   end;
   if not FLoaded
   then StartUpRaster2;
   FLoaded  - = true;
   MakeImage;
end;

procedure TMyGraph.ChangeRes (AXRes, AYRes  -  Integer);
begin
   if FLoaded
   then ShutDownRaster2;
   XRes  - = AXRes;
   YRes  - = AYRes;
   XCen  - = XRes / 2;
   YCen  - = YRes / 2;
   FOV  - = (YRes + XRes) / 2;
   if FLoaded
   then
   begin
      StartUpRaster2;
      MakeImage;
   end;
end;

procedure TMyGraph.MakeImage;
begin
   if not FLoaded
   then Exit;
   ClearBuffer;
   DrawMesh;
   MakePicture;
end;

procedure TMyGraph.Rotate;
begin
   LCS.m  - = MatrixMul (tr, LCS.m);
   MakeImage;
end;

procedure TMyGraph.Run;
begin

end;

procedure TMyGraph.Pause;
begin

end;

Procedure CalcCoords(r, Alpha, Beta -  Real);
Var
    x, y, z -  TVector;
Begin
    z  - = Vector(- Cos(Alpha) * Cos(Beta), - Sin(Beta), - Sin(Alpha) * Cos(Beta));
    x  - = Vector(- Sin(Alpha), 0, Cos(Alpha));
    y  - = Vector(- Cos(Alpha) * Sin(Beta), Cos(Beta), - Sin(Alpha) * Sin(Beta));
    With CCS Do
    Begin
        m[1][1]  - = x[1]; m[1][2]  - = y[1]; m[1][3]  - = z[1];
        m[2][1]  - = x[2]; m[2][2]  - = y[2]; m[2][3]  - = z[2];
        m[3][1]  - = x[3]; m[3][2]  - = y[3]; m[3][3]  - = z[3];
       CCS.v  - = VectorAdd(LCS.v, Vector(r * Cos(Alpha) * Cos(Beta),  r * Sin(Beta),  r * Sin(Alpha) * Cos(Beta)));
    End;
End;

procedure TMyGraph.RotateUp;
begin
   Beta  - = Beta + Angle; CalcCoords(r, Alpha, Beta);
   MakeImage;
end;

procedure TMyGraph.RotateDown;
begin
   Beta  - = Beta - Angle; CalcCoords(r, Alpha, Beta);
   MakeImage;
end;

procedure TMyGraph.RotateLeft;
begin
   Alpha  - = Alpha - Angle; CalcCoords(r, Alpha, Beta);
   MakeImage;
end;

procedure TMyGraph.RotateRight;
begin
   Alpha  - = Alpha + Angle; CalcCoords(r, Alpha, Beta);
   MakeImage;
end;

procedure TMyGraph.MoveForward;
begin
   r  - = r - 1; CalcCoords(r, Alpha, Beta);
   MakeImage;
end;

procedure TMyGraph.MoveBackward;
begin
   r  - = r + 1; CalcCoords(r, Alpha, Beta);
   MakeImage;
end;

procedure TMyGraph.ScaleUp;
begin
   FOV  - = FOV * 1.1;
   MakeImage;
end;

procedure TMyGraph.ScaleDown;
begin
   FOV  - = FOV / 1.1;
   MakeImage;
end;

procedure TMyGraph.ILUp;
begin
   ILevel  - = ILevel + DeltaIL;
end;

procedure TMyGraph.ILDown;
begin
   ILevel  - = ILevel - DeltaIL;
end;

initialization
   DC  - = GetDC (0);
   MyGraph  - = TMyGraph.Create;
   LightI   - = 0.8;
   r        - = 50;
   Alpha    - = - Pi / 2;
   Beta     - = 0;
   KD       - = 0.25;
   NS       - = 32;
   LightR   - = Vector(1000, 0, 0);
   CCS.m    - = E_Matrix;
   CCS.v    - = Vector(0, 0, 0);
   LCS.m    - = E_Matrix;
   LCS.v    - = Vector(0, 0, 50);
   IL       - = 0;
   tr       - = MatrixMul(GetRotYMatrix(TrAngle), GetRotXMatrix(TrAngle));
   MyGraph.DeltaIL  - = 0.01;

finalization
   ReleaseDC (0, DC);
   MyGraph.ShutDownRaster2;
   DestroyMesh;
   DestroyCloud;
   MyGraph.Free;

end.



--------------------
Me.
FB.
LinkedIn.
ORCID.
YT.
PM WWW IM ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
chipset
Дата 5.3.2005, 18:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4071
Регистрация: 11.1.2003
Где: Seattle, US
А нельзя сделать так, чтобы в твоем окошке код можно было бы прокручивать скроллером?

Это сообщение отредактировал(а) chipset - 5.3.2005, 18:38


--------------------
Цитата(Jimi Hendrix)
Well, I stand up next to a mountain
And I chop it down with the edge of my hand
PM MAIL WWW   Вверх
sergejzr
Дата 5.3.2005, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Un salsero
Group Icon


Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер
Нет.. Это уже Браузер решает...


--------------------
Me.
FB.
LinkedIn.
ORCID.
YT.
PM WWW IM ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
Wowa
Дата 5.3.2005, 18:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
Group Icon


Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград
Цитата(chipset @ 5.3.2005, 16:38)
А нельзя сделать так, чтобы в твоем окошке код можно было бы прокручивать скроллером?


прокручивается все.
PM WWW   Вверх
dm9
Дата 5.3.2005, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дмитрий Копытин
****


Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва
Цитата(Admin @ 5.3.2005, 18:56)
прокручивается все.


Не во всех браузерах. Мозилла, кажется, не прокручивает.

Добавлено @ 18:59
Цитата(sergej @ 5.3.2005, 18:43)
Нет.. Это уже Браузер решает...


Блин, я ржал. Браузер! С Большой Буквы! Его Величество БРАУЗЕР!
Отражает, блин, действительность.
PM MAIL ICQ   Вверх
Wowa
Дата 5.3.2005, 19:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
Group Icon


Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград
Цитата(dm9 @ 5.3.2005, 16:57)


Блин, я ржал. Браузер! С Большой Буквы! Его Величество БРАУЗЕР!
Отражает, блин, действительность.


smile smile smile

Я тоже иногда так стал писать smile Это просто из-за того, что в немецком все существительные с большой буквы пишутся smile
Добавлено @ 19:13
Но прикольно вышло smile
PM WWW   Вверх
chipset
Дата 5.3.2005, 19:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4071
Регистрация: 11.1.2003
Где: Seattle, US
Опа. В опере всё работает.
Я же говорю - опера рулит smile

Это сообщение отредактировал(а) chipset - 5.3.2005, 19:43


--------------------
Цитата(Jimi Hendrix)
Well, I stand up next to a mountain
And I chop it down with the edge of my hand
PM MAIL WWW   Вверх
dm9
Дата 5.3.2005, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дмитрий Копытин
****


Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва
Цитата(chipset @ 5.3.2005, 19:42)
Я же говорю - опера рулит


Ну! smile

Правда, я вчера на все браузеры по очереди матерился smile На Оперу не меньше smile

Это сообщение отредактировал(а) dm9 - 5.3.2005, 20:40
PM MAIL ICQ   Вверх
S.A.P.
Дата 5.3.2005, 20:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2664
Регистрация: 11.6.2004
Стоит уйти ненадолго, уже оффтоп подняли smile .
PM MAIL   Вверх
dm9
Дата 5.3.2005, 20:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дмитрий Копытин
****


Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва
Флужу России! --Resize_Images_Alt_Text--

smile
PM MAIL ICQ   Вверх
S.A.P.
Дата 5.3.2005, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2664
Регистрация: 11.6.2004
Цитата
end.<!--c2-->


глюки - то свои исправляйте smile . Набитая рука подсказывает, что у вас закрывающий тег не там стоит smile . У меня тоже скоро подСЦветка на сайте будет smile .

Это сообщение отредактировал(а) Perchilla - 5.3.2005, 21:32
PM MAIL   Вверх
dm9
Дата 5.3.2005, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дмитрий Копытин
****


Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва
Perchilla, это не подсветка smile smile smile smile
Это просто прикол. smile (Правда, даже я на него попался).

Подсветку тестируй в других топиках smile)
Добавлено @ 21:16
smile
PM MAIL ICQ   Вверх
Страницы: (4) Все 1 2 [3] 4 
 Ответ в темуСоздание новой темы Создание опроса
Правила раздела «Флейм»
Sneg0k

Добро пожаловать в «Флейм».

В разделе не действуют многие правила:

  • Можно оффтопить(умеренно)
  • Можно общаться на темы, не только связанные с программированием.

Строго запрещено:

  • Размещать рекламу
  • Обсуждать политику
  • Оскорблять друг-друга и переходить на личности
  • Наезжать, провоцировать других участников форума
  • Материться
  • Троллить

Напоминаем о существовании волшебной кнопочки "Репорт". Если вы увидели сообщение, несовместимое с жизнью, просьба подвести на нее курсор и клацнуть левой клавишей мышки. Тем самым вы сможете призвать злого, но жутко справедливого джина-модератора, который нашлет порчу на злостного нарушителя. Кстати - счётчик сообщений здесь не растёт.


Глас Винграда:


Глас Философии:

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Sneg0k

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Флейм | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1610 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.