主题:请问什么是调色板?如何使用调色板?
阿Ben
[专家分:2200] 发布于 2005-10-03 22:40:00
我在[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 楼
绿步甲 [专家分:1610] 发布于 2006-01-19 19:40:00
请问outportb、setfillstyle是什么意思?
22 楼
阿Ben [专家分:2200] 发布于 2006-01-21 23:28:00
outportb在Help里找不到,是不是拼写错误?
setfillstyle(填充类型,填充着色);
setfillstyle是用来设置如Bar、Ellipse等作图过程的填充属性。
23 楼
vfdff [专家分:740] 发布于 2006-08-21 23:10:00
[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
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
setrgbpalette(1,0,i,0);
delay(20);
end;
readln;
for i:=63 downto 0 do begin
setrgbpalette(1,0,i,0);
delay(20);
end;
Readln;
CloseGraph;
end.
[/quote]
这个什么语言编写的呀 ??
我来回复