中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS开发编程 & 发展交流（开发室） » [转帖]显示24b bmp 图形文件

冷石_jasv
初级用户

积分 182
发帖 27
注册 2003-11-12
状态离线

『楼主』: [转帖]显示24b bmp 图形文件

DECLARE SUB ChangePalette (Alg%)
DECLARE SUB Open24 (FileName$)

TYPE BMPHeader
ValidID AS STRING * 2       '/* Must be 'BM'
SizeOfFile AS LONG          '/* Size of entire file in bytes
Reserved AS LONG             '/* Four empty bytes
OffsetOfBitMap AS LONG       '/* The location in the file where the
                              ' bitmap is located
END TYPE

TYPE WindowsBMPInfoHeader
SizeOfHeader AS LONG       '/* Size of Information Header
                              ' 40 - Windows | 12 - OS/2 1.x | 64 OS/2 2.x
Widthz AS LONG             '/* Width of image in pixels
Heightz AS LONG          '/* Height of image in pixels
Planes AS INTEGER          '/* Number of Planes. Must be '1'
BitsPerPixel AS INTEGER    '/* Number of bits per pixel
                              ' Possible values are 1,4,8,16,24,32
CompressMethod AS LONG    '/* Compression Method
                              ' 0 - Uncompressed
                              ' 1 - 8 Bit RLE Compression
                              ' 2 - 4 Bit RLE Compression
ImageSizeInBytes AS LONG '/* Size of image in bytes
HorizontalResol AS LONG    '/* Horizontal Resolution
VerticalResol AS LONG    '/* Vertical Resolution
ColorsUsed AS LONG       '/* Number of Colors used | 0 - All Used
ImportantColors AS LONG    '/* Number of Important Colors
END TYPE

CLS
FILES "*.bmp"
PRINT " 1st 24-BIT BMP Loader for Qbasic (ver 0.1) - A YPI Product"
INPUT " Enter File Name - ", FileName$
IF INSTR(FileName$, ".bmp"

= 0 THEN FileName$ = FileName$ + ".bmp"
CALL Open24(FileName$)

WHILE INKEY$  "": WEND
in$ = INPUT$(1)
SCREEN 2: SCREEN 0
PRINT " 1st 24-BIT BMP Loader for Qbasic (ver 0.1) - By YPI (BASIC Programming Inc.)"
PRINT " Program is Public Domain, (c) Copyrighted by YPI, All Rights Reserved"
PRINT " Programmed By Yousuf Philips in 1998"
PRINT " Send suggestions and comments to philipz85@hotmail.com"
PRINT " If you have a better color palette, please send it to us"
PRINT " Visit the YPI Website at http://members.xoom.com/Philipz/"
Wait$ = INPUT$(1)
DEFINT A-Z
'

'/* Sub to change the color palette                                     */'
SUB ChangePalette (Alg)

IF Alg = 1 THEN
'/* An excellent color palette from PALSTUFF.BAS [Graphics.abc|09/1995] */'
'/* Created by Steve Demo                                              */'
Change$ = "#####M#M##MMM##M#MM8#MMM88888b8b88bbb88b8bbb8bbb+++"
Change$ = Change$ + "...222555999===@@@DDDHHHKKKOOOSSSVVVZZZ^^^bbb3##8##"
Change$ = Change$ + "=##?&&B**E--H11K55N88Q<#\B*]F2^K:_OA`TIaXQb]Y33#66#99#<<#"
Change$ = Change$ + "??#BB#EE#HH#LL#OO#RR#UU#XX#[[#^^#bb##8%#

##KB#ME#OI#RM#TP#WT#YX#\\YbYRbQJbJG^GDZDAWA"
Change$ = Change$ + ">S>;O;8L85H52E2/A/,=,)

&6&$3#YbbQbbJbbE__A\\=ZZ:VV"
Change$ = Change$ + "7RR5NN2JJ0FF-BB*>>(::%66#33Y^bQ[bJXbBUb:Rb3Ob+Mb#Jb"
Change$ = Change$ + "#F\#BV#>P#:J#6D#3?#/9#,3YYbQRbJJbEE_@@\<'':%%6##3/@$2B#5D#8F#;H#>J#AL#DN#GP#JR#"
Change$ = Change$ + "MT#PV#SX#VZ#Y\#]_#bYb`S`^N^\H\ZCZX=XV8VT3UP0QL.MH+I"
Change$ = Change$ + "D(EA&A<%<7$73#3-+&1-'5/):2+;3+=4,?5-@6-B7.D8/E9/G:0"
Change$ = Change$ + "I;1J3O?3Q@4SA5UB6VD8WF;XH>YJAZMD[OG\QJ]SM^VP"
Change$ = Change$ + "_XS`ZVb]ZZ##X)#W0#U6#T;#S@#RF#PJ#ON#CN#6M#*M##L(#K3"
Change$ = Change$ + "#K?#KH#FL#>M#5M#-N6#Q>#QD#QL#QQ#NQ#FQ#@Q#9Q#1R#+R##"
Change$ = Change$ + "bbb"
FOR Loops = 0 TO 255
   OUT &H3C8, Loops
   OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 1, 1)) - 35
   OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 2, 1)) - 35
   OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 3, 1)) - 35
NEXT Loops
Change$ = ""
ELSE
'/* Randomized color palette */'
FOR Loops = 1 TO 255
   Blue = INT(RND * 256) \ 4
   Green = INT(RND * 256) \ 4
   Red = INT(RND * 256) \ 4
   OUT &H3C8, Loops
   OUT &H3C9, Red
   OUT &H3C9, Green
   OUT &H3C9, Blue
NEXT Loops
END IF

END SUB

SUB Open24 (FileName$)

DIM BMPHeader AS BMPHeader
DIM BMPInfoHeader AS WindowsBMPInfoHeader

'/* Open file and check if it is empty                                  */'
OPEN FileName$ FOR BINARY AS #255
IF LOF(255) = 0 THEN
PRINT " File Is Empty"
CLOSE
KILL FileName$
EXIT SUB
END IF

'/* Extract BMP information from the file                               */'
GET #255, , BMPHeader
GET #255, , BMPInfoHeader

IF BMPHeader.ValidID  "BM" THEN
PRINT " Invalid BMP File"
EXIT SUB
ELSEIF BMPInfoHeader.BitsPerPixel  24 THEN
PRINT " Not 24-bit Image "
EXIT SUB
END IF

DIM ColorPalette(255, 3)
DIM PixelArray(2000, 3)
ColorDif = 3

SCREEN 13
'/* Sub which changes the palette */'
'/* Valid values - 1 - Color Palette created by Steve Demo                */'
'/*             0 - Random Color Palette                               */'
'/* If you want to use your own color palette edit the function, and if you*/'
'/* think you palette works well with the program send it to us.          */'
CALL ChangePalette(1)

'/* Capture the current color palette into an array                      */'
FOR Loops = 0 TO 255
OUT &H3C7, Loops
ColorPalette(Loops, 1) = INP(&H3C9)
ColorPalette(Loops, 2) = INP(&H3C9)
ColorPalette(Loops, 3) = INP(&H3C9)
NEXT Loops

'/* Calculate the number of bytes per line for the current image          */'
LineExtract$ = SPACE$(BMPInfoHeader.Widthz * 3)
IF (4 - ((BMPInfoHeader.Widthz * 3) MOD 4))  4 THEN
LineExtract$ = LineExtract$ + SPACE$(4 - ((BMPInfoHeader.Widthz * 3) MOD 4))
END IF
LineExtract& = LEN(LineExtract$)

IF BMPHeader.OffsetOfBitMap = 0 THEN BMPHeader.OffsetOfBitMap = 55

'/* Resize image to fit the Screen                                        */'
ActualHeight! = 199 / (BMPInfoHeader.Heightz - 1)
ActualWidth! = 319 / (BMPInfoHeader.Widthz - 1)
IF ActualHeight! > 1 THEN ActualHeight! = 1
IF ActualWidth! > 1 THEN ActualWidth! = 1
ActualHeight1! = (BMPInfoHeader.Heightz - 1) / 199
ActualWidth1! = (BMPInfoHeader.Widthz - 1) / 319
IF ActualHeight1! < 1 THEN ActualHeight1! = 1
IF ActualWidth1! < 1 THEN ActualWidth1! = 1
WHILE INKEY$  "": WEND

FOR YHeight = BMPInfoHeader.Heightz - 1 TO 0 STEP -ActualHeight1!
'/* Extract only the image lines which will be shown                   */'
GET #255, BMPHeader.OffsetOfBitMap + ((BMPInfoHeader.Heightz - YHeight - 1) * LineExtract&

+ 1, LineExtract$
FOR XWidth = 0 TO BMPInfoHeader.Widthz - 1 STEP ActualWidth1!
   XWidthPosition = XWidth * 3
   '/* Extract the RGB of each pixel                                  */'
   PixelBlue = ASC(MID$(LineExtract$, XWidthPosition + 1, 1)) \ 4
   PixelGreen = ASC(MID$(LineExtract$, XWidthPosition + 2, 1)) \ 4
   PixelRed = ASC(MID$(LineExtract$, XWidthPosition + 3, 1)) \ 4
   PixelPut = 0: Movement = 0
   '/* Check if the RGB or an RGB close to it are in the color array */'
   FOR PixelArraySearch = 1 TO ArrayNo
      IF PixelBlue >= PixelArray(PixelArraySearch, 1) - ColorDif AND PixelBlue = PixelArray(PixelArraySearch, 2) - ColorDif AND PixelGreen = PixelArray(PixelArraySearch, 3) - ColorDif AND PixelRed = (ColorPalette(Loops, 3) - Movement) AND PixelBlue = (ColorPalette(Loops, 2) - Movement) AND PixelGreen = (ColorPalette(Loops, 1) - Movement) AND PixelRed  3 THEN
                        IF PixelBlue = PixelGreen AND PixelBlue = PixelRed THEN
                           PSET (XWidth * ActualWidth!, YHeight * ActualHeight!), Loops
                           IF ArrayNo < 2000 THEN
                              ArrayNo = ArrayNo + 1
                              PixelArray(ArrayNo, 1) = PixelBlue
                              PixelArray(ArrayNo, 2) = PixelGreen
                              PixelArray(ArrayNo, 3) = PixelRed
                              PixelArray(ArrayNo, 0) = Loops
                           END IF
                           EXIT DO
                        END IF
                     ELSE
                        PSET (XWidth * ActualWidth!, YHeight * ActualHeight!), Loops
                        IF ArrayNo < 2000 THEN
                        ArrayNo = ArrayNo + 1
                           PixelArray(ArrayNo, 1) = PixelBlue
                           PixelArray(ArrayNo, 2) = PixelGreen
                           PixelArray(ArrayNo, 3) = PixelRed
                           PixelArray(ArrayNo, 0) = Loops
                        END IF
                        EXIT DO
                     END IF
                  END IF
               END IF
            END IF
         NEXT Loops
         Movement = Movement + 1
      LOOP
   END IF
NEXT XWidth
NEXT YHeight
CLOSE

END SUB

2003-11-13 00:00

(21873670)

Kinglion
铂金会员

痴迷ＤＯＳ者

积分 5792
发帖 1921
注册 2003-6-20
来自金獅電腦軟體工作室
状态离线

『第 2 楼』:

厉害！佩服！要找差距！

熟能生巧，巧能生精，一艺不精，终生无成，精亦求精，始有所成，臻于完美，永无止境！
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui

2004-2-11 00:00

(79207959)

jiaking
中级用户

积分 223
发帖 52
注册 2004-3-7
状态离线

『第 3 楼』:

我刚学。请问就这么编译能用吗？

2004-3-12 00:00

(53379921)

xelloss
初级用户

积分 150
发帖 15
注册 2004-3-5
状态离线

『第 4 楼』:

BASIC？？厉害？我还是第一次看见有人用BASIC编，以前我还以为BASIC没这种能力呢！

2004-3-15 00:00

yangyifei
初级用户

积分 123
发帖 6
注册 2004-2-5
状态离线

『第 5 楼』:

BASIC能干的多了,只是我们的技术限制了

2004-3-18 00:00

(269785195)

冷石_jasv
初级用户

积分 182
发帖 27
注册 2003-11-12
状态离线

『第 6 楼』:

嘿,还是得说一下,光靠BASIC是无法编写出很理想的程序出来,还得学会汇编语言啊.借用汇编的低端功能,QB或C的书写编辑程序的方便,借鉴其他可视化语言的结构形式,在DOS下还是能写点好东东出来的.

2004-3-19 00:00

(21873670)

zyl910
中级用户

积分 282
发帖 126
注册 2006-5-17
状态离线

『第 7 楼』:

原理：
1.访问VGA调色板寄存器取得/设置调色板：

      OUT &H3C8, Loops

      OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 1, 1)) - 35

      OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 2, 1)) - 35

      OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 3, 1)) - 35

2.了解BMP文件格式。

3.使用误差分散算法抖动绘制真彩色图片，一般《计算机图形学》方面的书都讲了误差分散算法了的。关键是这一行：

IF PixelBlue >= PixelArray(PixelArraySearch, 1) - ColorDif AND PixelBlue = PixelArray(PixelArraySearch, 2) - ColorDif AND PixelGreen = PixelArray(PixelArraySearch, 3) - ColorDif AND PixelRed = (ColorPalette(Loops, 3) - Movement) AND PixelBlue = (ColorPalette(Loops, 2) - Movement) AND PixelGreen = (ColorPalette(Loops, 1) - Movement) AND PixelRed  3 THEN

这些知识与汇编有什么关系？
学习汇编最重要的是学习计算机体系，指令优化。
但是编写实际程序主要需要这些知识：
1.硬件接口编程。如该程序访问VGA寄存器（可用汇编中的in、out指令，QB只是把它做成函数而已）
2.理解文件格式，知道数据怎么存储的，这样才能进行处理
3.编写绘图代码有专业的《计算机图形学》可以参考，算法问题本来就是与编程语言无关的

只要将上面三个学会，你就能用任何编程语言编写这样的程序。到了那个时候，汇编优化才有必要。

推荐《图形程序开发人员指南（Michael Abrash's Graphics Programming Black Book）》，全面介绍DOS如何编写图形程序（2D及3D）及汇编优化（实时绘制）：
http://www.netyi.net/Resource/933a25cf-fa0e-4dab-b9d7-e58a0ea8f52e.aspx

[ Last edited by zyl910 on 2006-6-4 at 20:40 ]

人类存在的目的就是试图理解人类为何存在

2006-6-4 20:35

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: