Часики с одной стрелкой

Разговоры на любые темы: вы можете обсудить здесь какой-либо сайт, найти единомышленников или просто пообщаться...
Proxy
Профессор VB наук
Профессор VB наук
Аватара пользователя
 
Сообщения: 2941
Зарегистрирован: 31.08.2007 (Пт) 4:41

Часики с одной стрелкой

Сообщение Proxy » 09.03.2012 (Пт) 17:09

Эзотерические часы с одной единственной стрелкой (которая тоже не работает как обычная секундная стрелка, а избегает пересечения отметки 0).
Внешние 3 диска указывают минуты, внутренние 3 диска указывают часы, средний диск просто градуирован 60 и 12 делениями для удобства.

ЗЫ. Не стоит к ним относиться серьёзно. Это только испытание пригодности шкалы Нотиуса (и даже не совсем каноничной).
Вложения
Нотиус.7z
(7.2 Кб) Скачиваний: 75
Follow the white rabbit.

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

Re: Часики с одной стрелкой

Сообщение FireFenix » 09.03.2012 (Пт) 17:16

Мои глаза :twisted: ... Нельзя ли было использовать разную цветовую гамму?
И по моему стрелку уж сильно плющит... поменьше бы изгиб.
Последний раз редактировалось FireFenix 09.03.2012 (Пт) 17:22, всего редактировалось 1 раз.
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる

Proxy
Профессор VB наук
Профессор VB наук
Аватара пользователя
 
Сообщения: 2941
Зарегистрирован: 31.08.2007 (Пт) 4:41

Re: Часики с одной стрелкой

Сообщение Proxy » 09.03.2012 (Пт) 17:22

FireFenix писал(а):Нельзя ли было использовать разную цветовую гамму?

Изначально было несколько цветов, но потом... :)
Follow the white rabbit.

iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4272
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

Re: Часики с одной стрелкой

Сообщение iGrok » 09.03.2012 (Пт) 17:55

Эээ.. Оно вот так и должно быть?!
4asiki.png
label:
cli
jmp label

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 09.03.2012 (Пт) 18:06

iGrok писал(а):Эээ.. Оно вот так и должно быть?!

Неа
Нотиус.png
Должно быть так :)
Нотиус.png (25.28 Кб) Просмотров: 2460

Proxy, при перерисовке бывает заметно мерцание, а секундная стрелка иногда слишком сильно отматывается назад, пересекая 60, после чего устанавливается на полагающиеся 3. А так - прикольно.
Последний раз редактировалось Qwertiy 09.03.2012 (Пт) 18:10, всего редактировалось 1 раз.

Proxy
Профессор VB наук
Профессор VB наук
Аватара пользователя
 
Сообщения: 2941
Зарегистрирован: 31.08.2007 (Пт) 4:41

Re: Часики с одной стрелкой

Сообщение Proxy » 09.03.2012 (Пт) 18:06

iGrok писал(а):Эээ.. Оно вот так и должно быть?!

Нет, но идея мне нравится :)
Я не знаю почему съехало. Притом съехало только то, что прорисовано через Win32API, попробовал ScaleMode изменить. Может исправится.
FireFenix писал(а):И по моему стрелку уж сильно плющит... поменьше бы изгиб.

Сделал в 2 раза меньше изгиб.

Новое в аттаче.
Вложения
Нотиус.7z
(7.37 Кб) Скачиваний: 65
Follow the white rabbit.

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 09.03.2012 (Пт) 18:17

Proxy писал(а):Новое в аттаче.

Старые лучше.
Мерцание стало ещё заметнее, цвета мне не нравятся :(
Некоторые деления виляют хвостиком :shock:
Зато баг со стрелкой пропал, кажется :)

iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4272
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

Re: Часики с одной стрелкой

Сообщение iGrok » 09.03.2012 (Пт) 18:23

У меня масштабирование интерфейса винды включено - 150%. Скорей всего дело в этом. :)
Поэтому то, что ты рисуешь сам, осталось "на месте", а вот остальное растянулось, как того и требует включенное масштабирование.

В новой версии в углу оказалось всё, но уже синхронно, поэтому теперь идея понятна. :)
Сейчас, правда, исчезла половина окружностей (т.е. остались границы больших кусков, но разделение на три внутренних и три внешних - пропало.)
Изображение раз в пару секунд подмигивает по непонятной причине. Ну, с гаммой ещё можно поэкспериментировать, действительно.

Как часы для гика - вполне. :)
label:
cli
jmp label

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 09.03.2012 (Пт) 18:27

iGrok писал(а):Сейчас, правда, исчезла половина окружностей (т.е. остались границы больших кусков, но разделение на три внутренних и три внешних - пропало.)

Нотиус 2.png
Подозреваю, что так и должно быть :(
Нотиус 2.png (27.09 Кб) Просмотров: 2453

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 09.03.2012 (Пт) 18:35

Дёргающееся деление.7z
Это как??? O_o
(37.29 Кб) Скачиваний: 65

Но если так все сделать, будет классно :D

Proxy
Профессор VB наук
Профессор VB наук
Аватара пользователя
 
Сообщения: 2941
Зарегистрирован: 31.08.2007 (Пт) 4:41

Re: Часики с одной стрелкой

Сообщение Proxy » 09.03.2012 (Пт) 19:21

Должно поменьше дёргаться теперь
Вложения
Нотиус.7z
(131.47 Кб) Скачиваний: 72
Follow the white rabbit.

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 09.03.2012 (Пт) 20:09

Классно! И цвета хорошие :)
Хотя, выгибание стрелки стоило бы оставить.
И форма должна быть на 1 пиксель крупнее. А может, не форма, а коричневый квадрат.

Proxy
Профессор VB наук
Профессор VB наук
Аватара пользователя
 
Сообщения: 2941
Зарегистрирован: 31.08.2007 (Пт) 4:41

Re: Часики с одной стрелкой

Сообщение Proxy » 09.03.2012 (Пт) 21:42

Форму увеличил, ага (правый борт не влез). Стрелку новую приделал, подлиннее, она чуть-чуть гнётся (та же синусоида как в самой первой версии, но с меньшей амплитудой).
Как-то так:
Вложения
Нотиус.7z
(115.32 Кб) Скачиваний: 63
Follow the white rabbit.

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 10.03.2012 (Сб) 0:03

Часики красивые, только вот не работают :( Стрелка доходит до 59, начинает откатываться и улетает куда-то в бесконечность, насовсем...
И синусоиду я что-то не заметил.

Нотиус 4.7z
Скринвидео
(449.13 Кб) Скачиваний: 63

Proxy
Профессор VB наук
Профессор VB наук
Аватара пользователя
 
Сообщения: 2941
Зарегистрирован: 31.08.2007 (Пт) 4:41

Re: Часики с одной стрелкой

Сообщение Proxy » 10.03.2012 (Сб) 0:29

Qwertiy писал(а):Стрелка доходит до 59, начинает откатываться и улетает куда-то в бесконечность, насовсем...

Это происходило при откате стрелки с вероятностью 0.8 :) Специально сделал анимацию выпадающей стрелки :)
Вот ещё проба (вместо отката стрелки тут что-то вроде растворения, само-собой получилось с увеличением коэффициента у синусоиды):
Вложения
Нотиус.7z
(133.95 Кб) Скачиваний: 63
Follow the white rabbit.

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 10.03.2012 (Сб) 0:38

Прикольно, но всё-таки хочется чтобы часы работали больше одной минуты ;)
А ещё мне больше нравилось, когда стрелка концами чего-нибудь касалась. Сейчас внешний конец касается точек, а вот внутренний - в пустоте...
Остальное оформление - вообще замечательно :)

Proxy
Профессор VB наук
Профессор VB наук
Аватара пользователя
 
Сообщения: 2941
Зарегистрирован: 31.08.2007 (Пт) 4:41

Re: Часики с одной стрелкой

Сообщение Proxy » 10.03.2012 (Сб) 0:52

Qwertiy писал(а): ещё мне больше нравилось, когда стрелка концами чего-нибудь касалась.


Сделал :)
Плюс стрелка теперь выпадает по клику с вероятностью 50%
Это думаю в дальнейшем использовать, когда обпилю окно по кругу и сделаю таскаемым за всю область окна.
Вложения
Нотиус.7z
(252.09 Кб) Скачиваний: 72
Follow the white rabbit.

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 10.03.2012 (Сб) 0:59

Всё-таки коротковата стрелка :)

Proxy писал(а):Плюс стрелка теперь выпадает по клику с вероятностью 50%

Ты уверен? А то 8 из 8 на 50% как-то не очень похоже :lol:

Proxy писал(а):Это думаю в дальнейшем использовать, когда обпилю окно по кругу и сделаю таскаемым за всю область окна.

А планету куда денешь? Она мне понравилась :)

Proxy
Профессор VB наук
Профессор VB наук
Аватара пользователя
 
Сообщения: 2941
Зарегистрирован: 31.08.2007 (Пт) 4:41

Re: Часики с одной стрелкой

Сообщение Proxy » 10.03.2012 (Сб) 1:10

Qwertiy писал(а):А планету куда денешь? Она мне понравилась :)

Она даже не обтравлена аккуратно пока, набросок без композиции и подбора параметров слоёв. А так это всё валяется в xcf для GIMP, так что при желании можно подвинуть правее.

Qwertiy писал(а):Ты уверен? А то 8 из 8 на 50% как-то не очень похоже :lol:

If Math.Rnd > 0.5 Then SecHandBreakStatus = 1


Хммм, похоже VB6 я изрядно забыл. Почему-то это работает всегда.
АПД. Рэндомайз упустил)
Последний раз редактировалось Anonymous 10.03.2012 (Сб) 1:15, всего редактировалось 2 раз(а).
Follow the white rabbit.

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 10.03.2012 (Сб) 1:13

:)

Proxy писал(а):
If Math.Rnd > 0.5 Then SecHandBreakStatus = 1

Хммм, похоже VB6 я изрядно забыл. Почему-то это работает всегда.

Хм... Там же просто Rnd() был... Math.Rnd не писал ни разу.

Proxy писал(а):АПД. Рэндомайз упустил)

А с Rnd() кажется не нужен был? Или нужен?

iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4272
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

Re: Часики с одной стрелкой

Сообщение iGrok » 10.03.2012 (Сб) 1:43

Qwertiy писал(а):А с Rnd() кажется не нужен был? Или нужен?

Всегда нужен.
label:
cli
jmp label


Вернуться в Народный треп

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 22

    TopList