怎样把PCX图形转换成BASIC图形

张正新
1997-01-01

　　在ＢＡＳＩＣ程序中，可利用ＵＣＤＯＳ的特显功能显示广为流行的ＰＣＸ图形，那么怎样在非汉字系统下或不用ＵＣＤＯＳ的特显功能来显示ＰＣＸ图形呢？下面介绍一种在ＱＢＡＳＩＣ或ＴＵＲＢＯ　ＢＡＳＩＣ语言中，把ＰＣＸ图形转换成ＢＡＳＩＣ图形的方法。该方法的步骤为：
　　１．先启动ＵＣＤＯＳ及其特显功能，然后在ＱＢＡＳＩＣ或ＴＵＲＢＯ　ＢＡＳＩＣ的显示模式９下，显示一个ＰＣＸ图形。
　　２．利用读取指定点色值的函数ＰＯＩＮＴ，读取屏幕上的色值并把色值存入一个数组中（此时你得耐心等待）。
　　３．改变显示模式为１，因为只有在模式１下保存的ＢＡＳＩＣ图形在重新显示时最好。但模式１的分辨率太低，需人为改为高分辨率，对此可用设置当前视窗相对坐标的语句ＷＩＮＤＯＷ将视窗坐标设置为６４０列、３４０行，为的是与显示ＰＣＸ图形时的列数、行数一致。
　　４．用画点语句ＰＳＥＴ将色值数组中的颜色画到屏幕上，并用ＢＳＡＶＥ命令将屏幕上的图形存为某一个图形文件——这个图形已经是一个ＢＡＳＩＣ格式的图形了。
　　此后我们就可在任何系统下，在ＢＡＳＩＣ显示模式１下，用ＢＬＯＡＤ命令随时显示那个ＢＡＳＩＣ格式的图形了。
　　下面程序１可将一个名为ＡＡＡ．ＰＣＸ的ＰＣＸ图形转换为一个名为ＢＢＢ．ＢＡＳ的ＢＡＳＩＣ图形文件。
　　程序２可将ＢＢＢ．ＢＡＳ图形重新显示。
#3　　程序１
　　ＳＣＲＥＥＮ　９：ｉ＝０
　　ＰＲＩＮＴ　ＣＨＲ＄（１４）；”［ＲＥ０，０，ＡＡＡ．ＰＣＸ＄］”
　　ＤＩＭ　Ｃ（２５０００）　　　′此数组大小为６４０　　３４０
　　ＦＯＲ　ｘ＝０　ｔｏ　６３９
　　ＦＯＲ　ｙ＝０　ｔｏ　３３９
　　ａ＝ＰＯＩＮＴ　（ｘ，ｙ）
　　Ｃ（ｉ）＝ａ
　　ｉ＝ｉ＋１
　　ＮＥＸＴ　ｙ：ＮＥＸＴ　ｘ
　　ＳＣＲＥＥＮ　１：ｉ＝０
　　ＷＩＮＤＯＷ　ＳＣＲＥＥＮ（６４０，３４０）－（０，０）
　　ＦＯＲ　ｘ＝０　ｔｏ　６３９
　　ＦＯＲ　ｙ＝０　ｔｏ　３３９
　　ＰＳＥＴ　（ｘ，ｙ），Ｃ（ｉ）
　　ｉ＝ｉ＋１
　　ＮＥＸＴ　ｙ：ＮＥＸＴ　ｘ
　　ＤＥＦ　ＳＥＧ＝＆ＨＢ８００
　　ＢＳＡＶＥ　”ＢＢＢ．ＢＡＳ”，０，４００
　　ＥＮＤ
#3　　程序２
　　ＳＣＲＥＥＮ　１
　　ＤＥＦ　ＳＥＧ＝＆ＨＢ８００
　　ＷＩＮＤＯＷ　ＳＣＲＥＥＮ（６４０，３４０）－（０，０）
　　ＢＬＯＡＤ　”ＢＢＢ．ＢＡＳ”，０
　　ＥＮＤ

 