回 帖 发 新 帖 刷新版面

主题:请问什么是调色板?如何使用调色板?

我在[url=http://www.programfan.com/club/bbs.asp?bbsid=12]QBasic讨论区[/url]看到了一个实现淡入淡出效果的程序。我想,QBasic 能做的,Turbo Pascal 也能做!
听说淡入淡出效果是用调色板来实现的,我记得Turbo Pascal也能设置调色板,但由于小弟才疏学浅,不知道Turbo Pascal 的调色板怎么用,又对QBasic一窍不通。所以劳烦名位大虾,在此教教小弟,小弟将感激不尽!!
(注:最好教我使用作图模式的调色板,如果可以的话,做个淡入淡出效果演示程序出来吧)

相关链接:[url]http://www.programfan.com/club/showbbs.asp?id=47407[/url]

回复列表 (共23个回复)

21 楼

请问outportb、setfillstyle是什么意思?

22 楼

outportb在Help里找不到,是不是拼写错误?
setfillstyle(填充类型,填充着色);
setfillstyle是用来设置如Bar、Ellipse等作图过程的填充属性。

23 楼

[quote]我做的淡入淡出程序:

uses Crt, Graph;
var
 GraphDriver, GraphMode: Integer;
 Color: Word;
 Palette: PaletteType;
 i:integer;
begin
 GraphDriver := Detect;
 InitGraph(GraphDriver, GraphMode, '..\BGI');
 if GraphResult <> grOk then
&nbsp;&nbsp;&nbsp;Halt(1);
 GetPalette(Palette);
 setrgbpalette(1,0,0,0);
 setcolor(1);
 settextstyle(0,0,3);
 outtextxy(100,300,'Good Morning!!');
 readln;
 for i:=0 to 63 do begin
&nbsp;&nbsp;&nbsp;setrgbpalette(1,0,i,0);
&nbsp;&nbsp;&nbsp;delay(20);
 end;
 readln;
 for i:=63 downto 0 do begin
&nbsp;&nbsp;&nbsp;setrgbpalette(1,0,i,0);
&nbsp;&nbsp;&nbsp;delay(20);
 end;
 Readln;
 CloseGraph;
end.
[/quote]

这个什么语言编写的呀 ??

我来回复

您尚未登录,请登录后再回复。点此登录或注册