| Вопрос: Тайна Gold Lace | Добавлено: 04.04.05 20:35 |
Автор вопроса:  Morpheus | Web-сайт: xury.zx6.ru
|
| Ответы | Всего ответов: 51 |
|
Номер ответа: 31 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #31 | Добавлено: 11.04.05 05:31 |
А точно сейвер не юзает OpenGL? 
|
||
|
Номер ответа: 32 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #32 | Добавлено: 11.04.05 05:38 |
|
а ктож знает?
|
||
|
Номер ответа: 33 Автор ответа: Страшный Сон Вопросов: 46 Ответов: 848 |
Профиль | | #33 | Добавлено: 11.04.05 22:22 |
| Gold Lace вроде DirectX юзает. Про OpenGL там ничего нет. | ||
|
Номер ответа: 34 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #34 | Добавлено: 11.04.05 22:23 |
|
Имхо DirectX или OpenGL - это последнее дело. Не в них же алгоритмы
|
||
|
Номер ответа: 35 Автор ответа: Quebec Вопросов: 2 Ответов: 28 |
Профиль | | #35 | Добавлено: 12.04.05 06:51 |
| Хм, а вот всё таки интересно, можно ли получать похожие анимации путём наложения и движения несколькх изображений и\или масок? | ||
|
Номер ответа: 36 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #36 | Добавлено: 12.04.05 13:27 |
| Короче в Gold Lace сначала берется функция, возвращающая в зависимости от координат точки и фазы анимации единицу или ноль, если вернула единицу - юзается одна функция, определяющая цвет пикселя, если ноль - юзается другая. Но как это сделать, чтобы не тормозило на 200-мегагерцовых камнях (как было написано в системных требованиях)... Сразу понятно, что Gold Lace не на VB писался. | ||
|
Номер ответа: 37 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #37 | Добавлено: 12.04.05 16:15 |
|
тормозило на 200-мегагерцовых камнях
Да, вот это вопрос интересный. Может она не вся перерисовывается? о только то, что изменилось? А вот ещё вопрос: как думаете, там система координат декартова или полярная ??? вот как то слишком красиво для декартов )
|
||
|
Номер ответа: 38 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #38 | Добавлено: 12.04.05 16:47 |
|
как думаете, там система координат декартова или полярная ???
А что, между ними есть какая-то разница?
|
||
|
Номер ответа: 39 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #39 | Добавлено: 12.04.05 16:55 |
|
Конечно ты прав, разницы нет.
Ну, кроме формата координат (угол и радиус) мне в них нравится простота нарисовать всякие интересные вещи (раньше баловался от нефиг делать). |
||
|
Номер ответа: 40 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #40 | Добавлено: 13.04.05 02:27 |
|
Нарисуй в полярных координатах (1+sin(t))*(1+0.9*cos(8*t))*(1+0.1*cos(24*t))
|
||
|
Номер ответа: 41 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #41 | Добавлено: 13.04.05 02:33 |
| и чё это? (щас лень лепить) | ||
|
Номер ответа: 42 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #42 | Добавлено: 13.04.05 02:42 |
|
Построй, узнаешь. Это того стоит
|
||
|
Номер ответа: 43 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #43 | Добавлено: 13.04.05 03:22 |
Блин, признаюсь, не хватает соображалки куда это подставить... я не так делал 
вот я наляпал, но тут еругда всякая. Const pi = 3.14159265358979 'pi
Dim cx As Integer 'center x Dim cy As Integer 'center y Dim R As Double 'radius Dim t As Double 'angle Dim x As Integer 'x - coord Dim y As Integer 'y - coord Dim sharps As Double 'tvoy primer Private Sub Form_Load() Show R = 1000 ' dla primera With Form1 cx = .Height \ 2 cy = .Width \ 2 End With For t = 0 To pi * 2 Step pi / 100 sharps = (1 + Sin(t)) * (1 + 0.9 * Cos(8 * t)) * (1 + 0.1 * Cos(24 * t)) y = Sin(sharps) * R x = Cos(t) * R Me.PSet (cx + t, cy + y) Next |
||
|
Номер ответа: 44 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #44 | Добавлено: 13.04.05 04:13 |
|
Option Explicit
Private Sub Form_Load() Dim t As Single, v As Single Me.Scale (-5, 5)-(5, -5) For t = 1 To 360 Step 0.1 v = (1 + Sin(t)) * (1 + 0.9 * Cos(8 * t)) * (1 + 0.1 * Cos(24 * t)) Me.PSet (v * Cos(t), v * Sin(t)), vbMagenta Next End Sub |
||
|
Номер ответа: 45 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #45 | Добавлено: 13.04.05 04:15 |
|
Мда, чё-то я градусы заюзал в цикле вместо радианов... Но результат тот же самый, так что пофигу
|
||