атом, проверьте |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
атом, проверьте |
sheka |
4.06.2009 17:37
Сообщение
#1
|
Я. Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
визуализация атома.
подскажите пожалуйста: 1. как ускорить прогу; 2. при старте остаются следы електронов - как их убрать.
Сообщение отредактировано: sheka - 4.06.2009 17:40 |
volvo |
4.06.2009 18:18
Сообщение
#2
|
Гость |
А чего она у тебя на каждом шаге перерисовывает повернутый эллипс? Ресурсы только жрет этим. И замедляется...
1. Для того, чтоб отобразить движение предметов, не обязательно вызывать PutImage с NotmalPut, а потом - с XORput. Достаточно отобразить XORput-ом, потом чуть-чуть подождать, и опять отобразить тем же самым XORput-ом... Лишние вызовы PutImage убрал, сделал еще одну процедуру draw_atoms, если понадобится еще ускорить - запоминай положения атомов в массиве (у тебя если на то пошло всего 360 значений угла, и массив из 360*4(атома)*2(координаты X, Y)*4(размер одного вещественного числа) даже Турбо Паскаль вполне потянет, всего 11Кб) uses crt,graph; 2. У тебя некорректно выделялась память: New не работает с бестиповыми указателями, я убрал этот лишний вызов. Освободить память при выходе из программы не забудь, там тоже был неправильный вызов Dispose(p), но ты выделял память через GetMem, значит, надо освобождать через парную процедуру: FreeMem. |
sheka |
4.06.2009 19:10
Сообщение
#3
|
Я. Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
[quote name='volvo' date='4.06.2009 18:18' post='134499']
[quote]writeln(normalput);[/quote] что это такое? [quote]1. Для того, чтоб отобразить движение предметов, не обязательно вызывать PutImage с NotmalPut, а потом - с XORput. Достаточно отобразить XORput-ом, потом чуть-чуть подождать, и опять отобразить тем же самым XORput-ом... Код while true do begin draw_atoms; vihod; inc(ugol);if ugol=360 then ugol:=0; draw_atoms; end; end. [/quote] почему это так? в какой момент происходит зарисовка прошлого рисунка? [/quote]FreeMem. [/quote] память запоминать ту,которую брал при выделении в отдельную переменную? |
volvo |
4.06.2009 19:33
Сообщение
#4
|
Гость |
Цитата writeln(normalput); что это такое? Это можешь убрать. Я просто терпеть не могу, когда вместо именованных констант, специально введенных в разных библиотеках, используют ничего не значащие числа. Просто проверял, NormalPut - это 0 или 1...Цитата почему это так? в какой момент происходит зарисовка прошлого рисунка? При первом вызове draw_atoms (перед циклом) эти самые атомы устанавливаются в начальную позицию. Потом, входим в цикл и начинаем: первый вызов draw_atoms внутри цикла затирает изображение атомов, поскольку если одно и то же изображение дважды наложить с маской XorPut, то останется только фон, самое изображение уничтожится (для примера, возьми число, скажем, 234, и сделай дважды ему побитовый XOR с любым другим числом. После второго XOR-а опять останется число 234. С изображениями - тот же принцип). Потом меняем угол, и второй вызов draw_atoms в цикле отображает атомы уже на новых позициях...Цитата память запоминать ту,которую брал при выделении в отдельную переменную? Для того, чтоб правильно освободить память, надо знать, сколько ее было выделено. Вот так:var buf_size: word; { <-- глобально } , а освобождать - так: freemem(p, buf_size); |
Текстовая версия | 2.06.2024 1:14 |