Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Экранные Средства    >>    palitr1
   
 
 Изменение палитры   Олег Смагин 23.01.1995

Изменение палитры в графическом режиме



1k 
 

From: Oleg Smagin <Oleg_Smagin@p8.f15.n5025.z2.fidonet.org> Subject: Изменение палитры в graph mode. Date: Mon, 23 Jan 1995 16:30:24 +0300 Organization: Phantom of Infinity Soft Labs (Gid:fidonet.org) Hello MD@md.kamaz.kazan.su! 18 Jan 95 04:08, MD@md.kamaz.kazan.su wrote to All: M> Hi All. M> Есть вопросик. M> Можно-ли в графическом режиме 13H производить плавное M> затухание экрана т,е, изменение палитры. M> Видел исходник на цэ но они там в порт нецелое значение как-то M> пишут а в Паскале так нельзя. M> А если это значение округлять то плавного перехода M> нет и экран скачет :( M> Помогите please кто сталкивался. Вот тебе кусочек моей программы, в котором плавно затухает палитра (делать это можно в любом режиме, а не только в графическом :) type arpal = array [0..767] of byte; { палитра } var pal1,palt : arpal ; Procedure AsmPalt; { процедура работы с палитрой } begin { сохраняем палитру в массив } asm mov ax,1017h mov bx,Seg palt mov es,bx mov dx,offset palt xor bx,bx mov cx,256 int 10h end; end; Procedure AsmPal1; { процедура работы с палитрой } begin { загружаем палитру из массива } asm mov ax,1012h mov bx,seg pal1 mov es,bx mov dx,offset pal1 xor bx,bx mov cx,256 int 10h end; end; begin AsmPalt; for i:=0 to 767 do pal1[i]:=palt[i]; { считывание палитры } for j:=1 to 12 do begin { эффект угасания } for i:=0 to 767 do begin if Trunc(pal1[i]-4) > 0 then pal1[i]:=Trunc(pal1[i]-4) else pal1[i]:=0; end; AsmPal1; end; ... end. Единственно, что нехорошо в этой программе, то что я не отлавливал обратный ход луча при изменении палитры. Hа моей тройке итак все неплохо выглядело, а на двойке изменения палитры сопровождались нежелательными мерцанием и снежением :( За сим откланиваюсь, Oleg W. Smagin. --- GoldED 2.50.A0531+ * Origin: Hе вовpемя pассказ, что музыка во вpемя печали ... (2:5025/15.8)