mike » Графика http://mikhail.krivyy.com мнение автора может не совпадать с его точкой зрения © Fri, 10 Feb 2012 08:08:41 +0000 en hourly 1 http://wordpress.org/?v=3.3.1 en Установка MapNik в Gentoo Linux http://mikhail.krivyy.com/2009/10/02/mapnik-gentoo-linux/ http://mikhail.krivyy.com/2009/10/02/mapnik-gentoo-linux/#comments Fri, 02 Oct 2009 13:26:50 +0000 mike http://mike.nov.ru/?p=1918 Все что описано выше проверено на:

  • Linux 2.6.23-gentoo-r3k1
  • Mapnik 0.6.0 (sci-geosciences/mapnik)
  • osm2pgsql 20090707 (sci-geosciences/osm2pgsql)
  • PostgreSQL 8.3.7 (dev-db/postgresql-base, dev-db/postgresql-server)
  • Python 2.6.2-r1

Установка PostGIS и PostgreSQL

1. Устанавливаем Postgis и PostgreSQL:

ACCEPT_KEYWORDS="~x86" USE="proj geos" emerge postgis
emerge postgresql-server --config

2. Запускаем PostgreSQL:

/etc/init.d/postgresql-8.3 start

3. Создаем базу данных PostGIS:

su
su - postgres
createuser mike
createdb -E UTF8 -O mike gis
createlang plpgsql gis
psql -d gis -f /usr/share/postgresql/contrib/lwpostgis.sql
echo "ALTER TABLE geometry_columns OWNER TO mike; ALTER TABLE spatial_ref_sys OWNER TO mike;"  | psql -d gis
ACCEPT_KEYWORDS="~x86" USE="postgres proj doc gdal python bidi" emerge mapnik
ACCEPT_KEYWORDS="~x86" emerge osm2pgsql
psql -d gis -f /usr/share/postgresql/contrib/90000.sql

Установка Mapnik

4. Устанавливаем Mapnik:

USE="postgres proj debug doc gdal python bidi" emerge mapnik

5. Устанавливаем данных Mapnik:

Более подробные инструкции можно найти на http://wiki.openstreetmap.org/index.php/Mapnik. Ниже только самое главное:

World boundaries (Границы, 51MB) and coastlines (Береговые линии) (~200MB):

wget http://tile.openstreetmap.org/world_boundaries-spherical.tgz
wget http://hypercube.telascience.org/~kleptog/processed_p.zip
tar -zxvf world_boundaries-spherical.tgz
unzip processed_p.zip
mv coastlines/* world_boundaries/
rmdir coastlines
chmod -R 755 world_boundaries

mkdir /usr/local/share/mapnik
mv world_boundaries /usr/local/share/mapnik

Установка osm2pgsql

6. Устанавливаем osm2pgsql:

ACCEPT_KEYWORDS="~x86" emerge osm2pgsql

7. Получаем данные OSM по заданным координатам:

wget -O map.osm "http://www.informationfreeway.org/api/0.6/*[bbox=29.637569,56.918102,36.227985,59.435345]"

7. Добавляем скачанные данных в базу данных:

./osm2pgsql -d gis ../map.osm

Генерация карты

8. Скачиваем с http://svn.openstreetmap.org/applications/rendering/mapnik/ Pyhton скрипты для генерации квадратов — http://svn.openstreetmap.org/applications/rendering/mapnik/generate_image.py и http://svn.openstreetmap.org/applications/rendering/mapnik/generate_tiles.py. Также скачиваем XML файлы описывающие стили карт — osm.xml;

9. В самом конце файла generate_tiles.py правим координаты квадрата и уровни масштабирования. Запускаем generate_tiles.py;

10. Используем квадраты по своему усмотрению, например с Google Maps API.

]]> http://mikhail.krivyy.com/2009/10/02/mapnik-gentoo-linux/feed/ 0 Алгоритм Брезенхема для вывода эллипса http://mikhail.krivyy.com/2002/12/28/ellipse-c/ http://mikhail.krivyy.com/2002/12/28/ellipse-c/#comments Sat, 28 Dec 2002 13:40:37 +0000 mike http://mike.nov.ru/2002/12/28/ellipse-c/ Одно время у меня была мания на, всякого рода, графические библиотечки :) Они еще не раз появятся на этом сайте.

Казалось бы — убитое время: Ан нет, опыт написания подобных очень пригодился при разработке своего клона GD, который выводит курс валют и информер погоды на www.novgorod.ru, счетчик и кое-какие графики на top.novgorod.ru.

Здесь приведена неотъемлемая часть такое библиотек — Алгоритм Брезенхема для вывода эллипса, самый быстрый из подобных.

  1. #include <conio.h>
  2. #include <stdlib.h>
  3.  
  4. //############################ Вывод точки ##################################
  5. void putpixel(unsigned int X,unsigned int Y,unsigned char Color)
  6. {
  7. asm {
  8. mov ax, [Y]
  9. mov dx, 320
  10. imul dx
  11. add ax, [X]
  12. mov di, ax
  13. push es
  14. mov ax, 0xA000
  15. mov es, ax
  16. mov al,[Color]
  17. stosb
  18. pop es
  19. }
  20. }
  21.  
  22. //################ Алгорит Брезенхема для рисования эллипса #################
  23. void ellipse(int x, int y, int a, int b, int color)
  24. {
  25. int col,i,row,bnew;
  26. long a_square,b_square,two_a_square,two_b_square,four_a_square,four_b_square,d;
  27.  
  28. b_square=b*b;
  29. a_square=a*a;
  30. row=b;
  31. col=0;
  32. two_a_square=a_square<<1;
  33. four_a_square=a_square<<2;
  34. four_b_square=b_square<<2;
  35. two_b_square=b_square<<1;
  36. d=two_a_square*((row-1)*(row))+a_square+two_b_square*(1-a_square);
  37. while(a_square*(row)>b_square*(col))
  38. {
  39. putpixel(col+x,row+y,color);
  40. putpixel(col+x,y-row,color);
  41. putpixel(x-col,row+y,color);
  42. putpixel(x-col,y-row,color);
  43. if (d>=0)
  44. {
  45. row--;
  46. d-=four_a_square*(row);
  47. }
  48. d+=two_b_square*(3+(col<<1));
  49. col++;
  50. }
  51. d=two_b_square*(col+1)*col+two_a_square*(row*(row-2)+1)+(1-two_a_square)*b_square;
  52. while ((row) + 1)
  53. {
  54. putpixel(col+x,row+y,color);
  55. putpixel(col+x,y-row,color);
  56. putpixel(x-col,row+y,color);
  57. putpixel(x-col,y-row,color);
  58. if (d<=0)
  59. {
  60. col++;
  61. d+=four_b_square*col;
  62. }
  63. row--;
  64. d+=two_a_square*(3-(row <<1));
  65. }
  66. }
  67.  
  68. void main(void)
  69. {
  70. int X,Y;
  71.  
  72. asm mov ax,0x0013
  73. asm int 0x10
  74. while (!kbhit()) putpixel(random(320),random(200),random(255));
  75. getch();
  76. while (!kbhit())
  77. {
  78. X=50+random(220);
  79. Y=50+random(100);
  80. ellipse(X,Y,1+random(48),1+random(48),random(255));
  81. }
  82. getch();
  83. }

Download this code: demo_320.cpp ]]> http://mikhail.krivyy.com/2002/12/28/ellipse-c/feed/ 0 Функции для работы с XMode (320x200x256) http://mikhail.krivyy.com/2002/12/27/xmode-gl-assembler/ http://mikhail.krivyy.com/2002/12/27/xmode-gl-assembler/#comments Fri, 27 Dec 2002 08:43:54 +0000 mike http://mike.nov.ru/2002/12/27/xmode-gl-assembler/ Эхххх, какой был видео-режим…какие для него писали демки.

Приведенный ниже код содержит простейшие функции для работы с XMode: включить режим, восстановить режим, вывести точку, изменить палитру, подождать обратного хода луча (интересно, как это выглядит на LCD мониторах :)), вывести символ и очистить экран.

Вообще приведенный код вряд ли может быть использован для дела… разве что лабораторные сдавать или поэкспериментировать…или так, для истории :)

  1. SMART
  2.  
  3. CODE SEGMENT
  4. ASSUME cs:Code
  5.  
  6. P386
  7.  
  8. PUBLIC _mSetMode
  9. PUBLIC _mRestoreMode
  10. PUBLIC _mPutPixel
  11. PUBLIC _mWaitRetRace
  12. PUBLIC _mChangePalette
  13. PUBLIC _mWriteSymb
  14. PUBLIC _mClrScr
  15.  
  16. PUBLIC _OldMode
  17.  
  18. _OLDMODE DB 0
  19.  
  20. ;################## SetMode ##################################################
  21. _mSetMode PROC Far
  22. mov ah,0Fh
  23. int 10h
  24. mov [_OldMode],Al
  25. mov ax,0013h ; 320x200x256
  26. int 10h
  27. ret
  28. _mSetMode ENDP
  29. ;################## SetMode ##################################################
  30. _mRestoreMode PROC Far
  31. xor ah,ah
  32. mov al,[_OldMode]
  33. int 10h
  34. ret
  35. _mRestoreMode ENDP
  36. ;################## PutPixel #################################################
  37. _mPutPixel PROC Far
  38. push bp
  39. mov bp,sp
  40. mov ax,0A000h
  41. mov es,ax
  42. mov cx,320
  43. mov ax,ss:[bp+08] ;Y
  44. mov bx,ss:[bp+10] ;X
  45. mul cx
  46. add ax,bx
  47. mov dx,ss:[bp+06] ;Color
  48. mov di,ax
  49. mov Byte Ptr es:[di],dl
  50. pop bp
  51. ret 6
  52. _mPutPixel ENDP
  53. ;################## WaitRetRace ##############################################
  54. _mWaitRetRace PROC Far
  55. mov dx,03DAh
  56. RetR1: in al,dx
  57. test al,08h
  58. jne RetR1
  59. RetR2: in al,dx
  60. test al,08h
  61. je RetR2
  62. ret
  63. _mWaitRetRace ENDP
  64. ;################## ChangePalette ############################################
  65. _mChangePalette PROC Far
  66. push bp
  67. mov bp,sp
  68. mov ax, ss:[bp+12]
  69. mov dx, 3C8h
  70. out dx, al
  71. inc dx ;DX = 3C9h (Pal DATA REG)
  72. mov ax, ss:[bp+10]
  73. out dx, al ;красная составляющая
  74. mov ax, ss:[bp+08]
  75. out dx, al ;зеленая составляющая
  76. mov ax, ss:[bp+06]
  77. out dx, al ;синяя составляющая
  78. pop bp
  79. ret 8
  80. _mChangePalette ENDP
  81. ;############## Write ########################################################
  82. _mWriteSymb PROC Far
  83. push bp
  84. mov bp,sp ;6-Символ
  85. mov ax,[bp+10] ;8-Color
  86. mov dh,al ;10-Y
  87. mov bx,[bp+12] ;12-X
  88. mov dl,bl
  89. mov ah,02h
  90. int 10h
  91. mov cx,1
  92. mov ax,[bp+06]
  93. xor ah,ah
  94. mov bx,[bp+08]
  95. mov ah,09h
  96. int 10h
  97. pop bp
  98. ret 8
  99. _mWriteSymb ENDP
  100. ;############## Clear Screen #################################################
  101. _mClrScr PROC Far
  102. push es
  103. push 0A000h
  104. pop es
  105. xor di,di
  106. xor eax,eax
  107. mov cx,16000
  108. rep stosd
  109. pop es
  110. ret
  111. _mClrScr ENDP
  112. CODE ENDS
  113. END

Download this code: xmode.asm ]]> http://mikhail.krivyy.com/2002/12/27/xmode-gl-assembler/feed/ 0 Игрушка с использованием DirectX SDK http://mikhail.krivyy.com/2002/01/01/simple-directx-game/ http://mikhail.krivyy.com/2002/01/01/simple-directx-game/#comments Tue, 01 Jan 2002 08:32:05 +0000 mike http://mike.nov.ru/2002/01/01/simple-directx-game/ Эта игрушка писалась для проверки недавно скачанного DirectX SDK. Проверка прошла успешно :) Если у кого-то есть желание дописать сие чудо, то ради бога. Особенно интересно было бы сделать сетевую версию — при выбивании кубка с одной стороны, он отправляется противнику. Получилось бы аля-банана.



Скачать исходники (MSVC;883Kb).



]]> http://mikhail.krivyy.com/2002/01/01/simple-directx-game/feed/ 0 Вывод BMP в видеорежимах VESA http://mikhail.krivyy.com/2000/09/17/bmp-vesa-view-2/ http://mikhail.krivyy.com/2000/09/17/bmp-vesa-view-2/#comments Sun, 17 Sep 2000 08:10:17 +0000 mike http://mike.nov.ru/2000/09/17/bmp-vesa-view-2/ Очень часто в форумах всплывают такие вопросы, как вывод на экран BMP и работа с видеорежимами VESA. Этот пример ответит на оба вопроса.

Программа писалась в студенческие годы, в качестве лабораторной работы. Студенты должны были получить спецификации и писать модули для поддержки файлов разных графических форматов, но были выставлены автоматы, и все замялось.

Все закончилось на том, что включался видеорежим, были написаны кое-какие функции для него (blt(), putpixel() и line())

Скачать в архиве

bmp.cpp

  1. #include "vesa.h";
  2. #include <math.h>;
  3. #include "bmp.h";
  4.  
  5. void BMP_PutFromFile(TMode m, int x, int y, char * fname) {
  6. FILE* fp;
  7. struct BMPHeader bmp;
  8. TPallete pal[256]; // Палитра
  9. char paloffset; // Смещение в палитре;
  10.  
  11. if (x>m.w || y>m.h) return; // Если не влезает в экран.
  12.  
  13. fp=fopen(fname,"rb");
  14. fread(&bmp,54,1,fp);
  15.  
  16. if (bmp.ID==0x4D42) { // Проверим ID
  17.  
  18. int rw=m.w-x-1; if (rw>bmp.Width) rw=bmp.Width; // Требуемая ширина
  19. int rh=m.h-y-1; if (rh>bmp.Height) rh=bmp.Height; // Требуемая высота
  20. int bpl=bmp.ISize/bmp.Height; // Байт на строку у BMP
  21.  
  22. ul pnt=(ul)m.VLFB;
  23. pnt=pnt+(y+rh)*m.bpl+x*m.bytespp; // Установим указатель на нижнюю строку картинки
  24.  
  25. // 24 бита не пакованая ##############################################
  26. if (bmp.Bits==24 && bmp.Comp==0) {
  27. if (bmp.Height-rh!=0) fseek(fp, (bmp.Height-rh)*bpl ,SEEK_CUR);
  28.  
  29. int fseeksize=bpl-rw*3; // Пропускаемая часть в файле
  30. int pntmove=m.bpl+rw*4; // Смещене указателя на экране
  31. for (int i=0;i<rh;i++) {
  32. for (int j=0;j<rw;j++) {
  33. fread((void *)pnt, 3, 1, fp);
  34. pnt+=4;
  35. }
  36. fseek(fp, fseeksize, SEEK_CUR);
  37. pnt-=pntmove;
  38. }
  39. }
  40. // 8 бит не пакованая ################################################
  41. if (bmp.Bits==8 && bmp.Comp==0) {
  42. if (bpl==0) bpl=bmp.Width;
  43. fread(&pal,1024,1,fp); // Читаем палитру
  44.  
  45. if (bmp.Height-rh!=0) fseek(fp, (bmp.Height-rh)*bpl ,SEEK_CUR);
  46.  
  47. int fseeksize=bpl-rw; // Пропускаемая часть в файле
  48. int pntmove=m.bpl+rw*4; // Смещене указателя на экране
  49. char * pnto;
  50. for (int i=0;i<rh;i++) {
  51. for (int j=0;j<rw;j++) {
  52. fread(&paloffset, 1, 1, fp);
  53. pnto=(char *)pnt;
  54. pnto[2]=pal[paloffset].r;
  55. pnto[1]=pal[paloffset].g;
  56. pnto[0]=pal[paloffset].b;
  57. pnt+=4;
  58. }
  59. fseek(fp, fseeksize, SEEK_CUR);
  60. pnt-=pntmove;
  61. }
  62. } // end of 8 bit
  63. }
  64. fclose(fp);
  65. }

Download this code: bmp.cpp

glib2000.cpp

  1. #include <conio.h>;
  2. #include "vesa.h";
  3. #include "bmp.h";
  4.  
  5. char VScreen[1024*768*4];
  6.  
  7.  
  8. void DrawHistogram(char * scr, int size, char *s) {
  9. int R[256];
  10. int G[256];
  11. int B[256];
  12. int i,val;
  13. char value;
  14.  
  15. memset (&R, 0, sizeof(R));
  16. memset (&G, 0, sizeof(G));
  17. memset (&B, 0, sizeof(B));
  18. for (i=0;i<size;i=i+4) { // Рассчитываются гистограммы
  19. value=scr[i]; R[value]=R[value]+1;//s[i]=255-value;
  20. value=scr[i+1]; G[value]=G[value]+1;//s[i+1]=255-value;
  21. value=scr[i+2]; B[value]=B[value]+1;//s[i+2]=255-value;
  22. }
  23.  
  24. int sumR=0;for (i=0;i<255;i++) sumR=sumR+R[i];
  25. int maxR=sumR>>6;
  26. int sumG=0;for (i=0;i<255;i++) sumG=sumG+G[i];
  27. int maxG=sumG>>6;
  28. int sumB=0;for (i=0;i<255;i++) sumB=sumB+B[i];
  29. int maxB=sumB>>6;
  30.  
  31. int maxM=(maxR+maxG+maxB)/3;
  32. maxR=maxM;
  33. maxG=maxM;
  34. maxB=maxM;
  35.  
  36.  
  37. // Вывод гистограммы для R
  38. Line(9,151,9,10,0xFFFFFF);Line(9,151,522,151,0xFFFFFF);
  39. for (i=0;i<256;i++) {
  40. val=(R[i]*140)/maxR;if (val>140) val=140;
  41. Line(10+(i<<1),150,10+(i<<1),150-val,i<<16);
  42. Line(11+(i<<1),150,11+(i<<1),150-val+1,0xC0C0C0);
  43. }
  44.  
  45. Line(9,301,9,160,0xFFFFFF);Line(9,301,522,301,0xFFFFFF);
  46. for (i=0;i<256;i++) {
  47. val=(G[i]*140)/maxG;if (val>140) val=140;
  48. Line(10+(i<<1),300,10+(i<<1),300-val,i<<8);
  49. Line(11+(i<<1),300,11+(i<<1),300-val+1,0xC0C0C0);
  50. }
  51.  
  52. Line(9,451,9,310,0xFFFFFF);Line(9,451,522,451,0xFFFFFF);
  53. for (i=0;i<256;i++) {
  54. val=(B[i]*140)/maxB;if (val>140) val=140;
  55. Line(10+(i<<1),450,10+(i<<1),450-val,i);
  56. Line(11+(i<<1),450,11+(i<<1),450-val+1,0xC0C0C0);
  57. }
  58. }
  59.  
  60. void main(void) {
  61. cm=SetVESAMode(640,480,32); // Включение видеорежима.
  62. cm.VLFB=(uc *)VScreen; // Установка виртуального экрана.
  63. InitGraph();
  64.  
  65. BMP_PutFromFile(cm,0,0,"29sc091.bmp");
  66.  
  67. DrawHistogram((char *)cm.VLFB, cm.w*cm.h*cm.bytespp, (char *)cm.LFB);
  68. blt(cm);
  69.  
  70. getch();
  71. SetVGAMode(3);
  72. }

Download this code: glib2000.cpp

vesa.cpp

  1. #include "vesa.h";
  2. #include <conio.h>;
  3.  
  4. VBE_InfoBlock far * vinfo;
  5. VBE_ModeInfoBlock far * minfo;
  6.  
  7. int *scr;
  8. int dwpl;
  9.  
  10. // Возвращает версию VESA ####################################################
  11. int GetVBEVersion(void) {
  12. union REGS r;
  13. us seg,sel;
  14. static VBE_RMI RMI;
  15. struct SREGS sr;
  16. ul ver;
  17.  
  18. memset (&cm, 0, sizeof(cm));
  19. r.x.eax=0x0100;
  20. r.x.ebx=600>>4;
  21. int386(0x31,&r,&r);
  22. if (r.x.cflag) {
  23. puts (" ¦ DOS memory alocate error.");
  24. return(0);
  25. }
  26. seg = r.w.ax; // RM segment
  27. sel = r.w.dx; // PM selector
  28. vinfo = (VBE_InfoBlock far *) MK_FP (sel, 0);
  29. memset (&sr, 0, sizeof (sr));
  30. memset (&RMI, 0, sizeof (RMI));
  31. RMI.EAX = 0x00004f00; // Get VBE Info
  32. RMI.ES = seg;
  33. RMI.EDI = 0;
  34. r.w.ax = 0x0300;
  35. r.h.bl = 0x10;
  36. r.h.bh = 0;
  37. r.w.cx = 0;
  38. sr.es = FP_SEG (&RMI);
  39. r.x.edi = FP_OFF (&RMI);
  40. int386x (0x31, &r, &r, &sr);
  41. if (r.x.cflag) {
  42. puts (" ¦ DPMI 300h failed.");
  43. return(0);
  44. }
  45. if ((us) RMI.EAX != 0x004f) {
  46. puts (" ¦ Error Getting Video Controller Info.");
  47. return(0);
  48. }
  49. return(vinfo -> VbeVersion);
  50. }
  51.  
  52. void PutVBEVersion(void) {
  53. int ver=GetVBEVersion();
  54. printf("%d.%d",(ver & 0xFF00)>>8 ,ver & 0x00FF);
  55. }
  56.  
  57. // Включение VESA видео-режима ###########################
  58. // 0 - Ok
  59. // 1 - DPMI 300h failed
  60. // 2 - Error Getting Video Controller Info
  61. // 3 - DOS memory alocate error
  62. // 4 - Video mode no found
  63. // 5 - Error mapping physical to linear
  64. // 6 - Error Init Mode
  65. TMode SetVESAMode(int xmax, int ymax, int bpp) {
  66. static VBE_RMI RMI;
  67. union REGS r;
  68. struct SREGS sr;
  69. us sel,seg,x,y,ic;
  70. ul phys;
  71. int mmode;
  72. TMode cm;
  73.  
  74. r.x.eax=0x0100;
  75. r.x.ebx=600>>4;
  76. int386(0x31,&r,&r);
  77. if (r.x.cflag) {
  78. cm.error=1;
  79. return(cm);
  80. }
  81. seg = r.w.ax; // RM segment
  82. sel = r.w.dx; // PM selector
  83. vinfo = (VBE_InfoBlock far *) MK_FP (sel, 0);
  84. memset (&sr, 0, sizeof (sr));
  85. memset (&RMI, 0, sizeof (RMI));
  86. RMI.EAX = 0x00004f00; // Get VBE Info
  87. RMI.ES = seg;
  88. RMI.EDI = 0;
  89. r.w.ax = 0x0300;
  90. r.h.bl = 0x10;
  91. r.h.bh = 0;
  92. r.w.cx = 0;
  93. sr.es = FP_SEG (&RMI);
  94. r.x.edi = FP_OFF (&RMI);
  95. int386x (0x31, &r, &r, &sr);
  96. if (r.x.cflag) {
  97. cm.error=1;
  98. return(cm);
  99. }
  100. if ((us) RMI.EAX != 0x004f) {
  101. cm.error=2;
  102. return(cm);
  103. }
  104. r.x.eax = 0x0100;
  105. r.x.ebx = 300 >> 4;
  106. int386 (0x31, &r, &r);
  107. if (r.x.cflag) {
  108. cm.error=3;
  109. return(cm);
  110. }
  111. seg = r.w.ax; // RM segment
  112. sel = r.w.dx; // PM selector
  113. minfo = (VBE_ModeInfoBlock far *) MK_FP (sel, 0);
  114. memset (&sr, 0, sizeof (sr));
  115. memset (&RMI, 0, sizeof (RMI));
  116. mmode=0;
  117. if (vinfo -> VbeVersion >= 0x0200) {
  118. for (ic=0x4100;ic<0x4200;ic++) {
  119. RMI.EAX = 0x00004f01; // Get VBE Mode Info
  120. RMI.ECX = ic;
  121. RMI.ES = seg;
  122. RMI.EDI = 0;
  123. r.w.ax = 0x0300;
  124. r.h.bl = 0x10;
  125. r.h.bh = 0;
  126. r.w.cx = 0;
  127. sr.es = FP_SEG (&RMI);
  128. r.x.edi = FP_OFF (&RMI);
  129. int386x (0x31, &r, &r, &sr);
  130. if (r.x.cflag) {
  131. cm.error=1;
  132. return(cm);
  133. }
  134. if ((minfo->BitsPerPixel==bpp) &&
  135. (minfo->XResolution==xmax) &&
  136. (minfo->YResolution==ymax) &&
  137. ((us)RMI.EAX==0x004f)) {
  138. if (mmode==0) {mmode=ic;}
  139. }
  140. }
  141. if (mmode!=0) cm.banked=1; else cm.banked=0;
  142. }
  143. if (mmode==0) {
  144. for (ic=0x0100;ic<0x0200;ic++) {
  145. RMI.EAX = 0x00004f01; // Get VBE Mode Info
  146. RMI.ECX = ic;
  147. RMI.ES = seg;
  148. RMI.EDI = 0;
  149. r.w.ax = 0x0300;
  150. r.h.bl = 0x10;
  151. r.h.bh = 0;
  152. r.w.cx = 0;
  153. sr.es = FP_SEG (&RMI);
  154. r.x.edi = FP_OFF (&RMI);
  155. int386x (0x31, &r, &r, &sr);
  156. if (r.x.cflag) {
  157. cm.error=1;
  158. return(cm);
  159. }
  160. if ((minfo->BitsPerPixel==bpp)&&
  161. (minfo->XResolution==xmax)&&
  162. (minfo->YResolution==ymax)&&
  163. ((us)RMI.EAX==0x004f)) {
  164. if (mmode==0) {mmode=ic;}
  165. }
  166. }
  167. }
  168. if (mmode==0) {
  169. cm.error=4;
  170. return(cm);
  171. }
  172. RMI.EAX = 0x00004f01; // Get VBE Mode Info
  173. RMI.ECX = mmode;
  174. RMI.ES = seg;
  175. RMI.EDI = 0;
  176. r.w.ax = 0x0300;
  177. r.h.bl = 0x10;
  178. r.h.bh = 0;
  179. r.w.cx = 0;
  180. sr.es = FP_SEG (&RMI);
  181. r.x.edi = FP_OFF (&RMI);
  182. int386x (0x31, &r, &r, &sr);
  183. phys=minfo->PhysBasePtr;
  184. cm.bpp=minfo->BitsPerPixel;
  185. cm.bytespp=cm.bpp/8;
  186. cm.h=minfo->YResolution;
  187. cm.w=minfo->XResolution;
  188. cm.bpl=minfo->BytesPerScanLine;
  189. r.w.ax = 0x0800;
  190. r.w.bx = (phys >> 0x10);
  191. r.w.cx = (phys & 0xffff);
  192. r.w.si = (long)((minfo->YResolution * minfo->BytesPerScanLine)>>16);
  193. r.w.di = minfo->YResolution * minfo->BytesPerScanLine;
  194. int386 (0x31, &r, &r);
  195. if (r.x.cflag) {
  196. cm.error=5;
  197. return(cm);
  198. }
  199. cm.LFB = (uc near *) (((ul) r.w.bx << 16) | r.w.cx);
  200. r.w.ax = 0x4f02;
  201. r.w.bx = mmode;
  202. int386 (0x10, &r, &r);
  203. if (r.w.ax != 0x004f) {
  204. cm.error=6;
  205. return(cm);
  206. }
  207. cm.error=0;
  208. return(cm);
  209. }
  210.  
  211. // Установка VGA режима ######################################################
  212. void SetVGAMode(int mode) {
  213. static VBE_RMI RMI;
  214. union REGS r;
  215. struct SREGS sr;
  216.  
  217. memset (&sr, 0, sizeof (sr));
  218. memset (&RMI, 0, sizeof (RMI));
  219. memset (&r, 0, sizeof (r));
  220. RMI.EAX = mode; // Get VBE Mode Info
  221. r.w.ax = 0x0300;
  222. r.h.bl = 0x10;
  223. r.h.bh = 0;
  224. r.w.cx = 0;
  225. sr.es = FP_SEG (&RMI);
  226. r.x.edi = FP_OFF (&RMI);
  227. int386x (0x31, &r, &r, &sr);
  228. }
  229.  
  230. void blt(TMode m) {
  231. if (m.bpp==32 && m.banked==1) { // Если включен 32 битный LFB режим
  232. memcpy((void *)m.LFB, (void *)m.VLFB, m.w * m.h * m.bytespp);
  233. }
  234. }
  235.  
  236. void InitGraph(void) {
  237. dwpl=cm.bpl>>2;
  238. scr=(int *)cm.VLFB;
  239. }
  240.  
  241. void PutPixel(int x,int y,int color) {
  242. scr[y*dwpl+x]=color;
  243. }
  244.  
  245. int sgn(int i) {
  246. if (i==0) return(0);
  247. if (i>0) return(1);
  248. return(-1);
  249. }
  250.  
  251. void Line(int x1,int y1,int x2,int y2,int color) {
  252. int dx,dy,r,dr1,dr2,x,y,sx,sy;
  253.  
  254. dx=abs(x2-x1);
  255. dy=abs(y2-y1);
  256. sx=sgn(x2-x1);
  257. sy=sgn(y2-y1);
  258. if (dx>dy) {
  259.  
  260. r=dx;
  261. dr1=-dy<<1;
  262. dr2=(dx-dy)<<1;
  263. y=y1;
  264. x=x1;
  265. x2=x2+sx;
  266. do {
  267. PutPixel(x,y,color);
  268. if (r>0) r=r+dr1;
  269. else {
  270. r=r+dr2;
  271. y=y+sy;
  272. PutPixel(x,y,color);
  273. }
  274. x=x+sx;
  275. } while (x!=x2);
  276. }
  277. else {
  278. r=dy;
  279. dr1=-dx<<1;
  280. dr2=(dy-dx)<<1;
  281. y=y1;
  282. x=x1;
  283. y2=y2+sy;
  284. do {
  285. PutPixel(x,y,color);
  286. if (r>0) r=r+dr1;
  287. else {
  288. r=r+dr2;
  289. x=x+sx;
  290. PutPixel(x,y,color);
  291. }
  292. y=y+sy;
  293. } while (y!=y2);
  294. }
  295. }

Download this code: vesa.cpp

bmp.h

  1. struct BMPHeader
  2. {
  3. unsigned short ID; // 'BM' for a Windows BitMaP
  4. unsigned int FSize; // Size of file
  5. unsigned short Res1; // Not used
  6. unsigned short Res2; // Not used
  7. unsigned int Image; // Offset of image into file
  8.  
  9. unsigned int stSize; // число байт, занимаемых структурой BITMAPINFOHEADER
  10. unsigned int Width; // Width of image
  11. unsigned int Height; // Height of image
  12. unsigned short Num; // число битовых плоскостей устройства
  13. unsigned short Bits; // Number of bits per pixel
  14. unsigned int Comp; // Type of compression, 0 for uncompressed, 1,2 for RLE
  15. unsigned int ISize; // Size of image in bytes
  16. unsigned int XRes; // X dots per metre (not inches! for US, unbelievable!)
  17. unsigned int YRes; // Y dots per metre
  18. unsigned int PSize; // Palette size (number of colours) if not zero
  19. unsigned int PImportant; // Probably reserved, currently 0
  20. };
  21.  
  22. typedef struct SPallete { // Тип описывающий элемент палитры.
  23. char b,g,r,x;
  24. } TPallete;
  25.  
  26. void BMP_PutFromFile(TMode cm, int x, int y, char * fname);

Download this code: bmp.h

bmp.cpp

vesa.h

  1. #include <string.h>
  2. #include <stdio.h>
  3. #include <stdlib.h>
  4. #include <dos.h>
  5.  
  6. typedef unsigned short us;
  7. typedef unsigned int ui;
  8. typedef unsigned char uc;
  9. typedef unsigned long ul;
  10.  
  11. typedef struct SVBE_InfoBlock {
  12. uc VbeSignature[4]; // VBE Signature
  13. us VbeVersion; // VBE Version
  14. ul OemStringPtr; // Pointer to OEM String
  15. ul Capabilities; // Capabilities of graphics cont.
  16. ul VideoModePtr; // Pointer to Video Mode List
  17. // Added for VBE 1.2+
  18. us TotalMemory; // Number of 64kb memory blocks
  19. // Added for VBE 2.0+
  20. us OemSoftwareRev; // VBE implementation Software revision
  21. ul OemVendorNamePtr; // Pointer to Vendor Name String
  22. ul OemProductNamePtr; // Pointer to Product Name String
  23. ul OemProductRevPtr; // Pointer to Product Revision String
  24. us AccelVbeVersion; // VBE/AF Version
  25. ul AccelVideoModePtr; // Pointer to Acclelerated Mode List
  26. uc Reserved20[216]; // Reserved for VBE implementation
  27. // scratch area
  28. uc OemData[256]; // Data Area for OEM Strings
  29. uc NaVsyakiySloochay[100]; // 2e
  30. } VBE_InfoBlock;
  31.  
  32. typedef struct SVBE_ModeInfoBlock {
  33. us ModeAttributes; // mode attributes
  34. uc WinAAttributes; // window A attributes
  35. uc WinBAttributes; // window B attributes
  36. us WinGranularity; // window granularity
  37. us WinSize; // window size
  38. us WinASegment; // window A start segment
  39. us WinBSegment; // window B start segment
  40. ul WinFuncPtr; // pointer to window function
  41. us BytesPerScanLine; // bytes per scan line
  42. // Mandatory information for VBE 1.2 and above
  43. us XResolution; // horizontal resolution in pixels or chars
  44. us YResolution; // vertical resolution in pixels or chars
  45. uc XCharSize; // character cell width in pixels
  46. uc YCharSize; // character cell height in pixels
  47. uc NumberOfPlanes; // number of memory planes
  48. uc BitsPerPixel; // bits per pixel
  49. uc NumberOfBanks; // number of banks
  50. uc MemoryModel; // memory model type
  51. uc BankSize; // bank size in KB
  52. uc NumberOfImagePages; // number of images
  53. uc Reserved12; // reserved for page function
  54. // Direct Color fields (required
  55. // for direct/6 and YUV/7 memory models)
  56. uc RedMaskSize; // size of direct color red mask in bits
  57. uc RedFieldPosition; // bit position of lsb of red mask
  58. uc GreenMaskSize; // size of direct color green mask in bits
  59. uc GreenFieldPosition; // bit position of lsb of green mask
  60. uc BlueMaskSize; // size of direct color blue mask in bits
  61. uc BlueFieldPosition; // bit position of lsb of blue mask
  62. uc RsvdMaskSize; // size of direct color reserved mask in bits
  63. uc RsvdFieldPosition; // bit position of lsb of reserved mask
  64. uc DirectColorModeInfo; // direct color mode attributes
  65. // Mandatory information for VBE 2.0 and above
  66. ul PhysBasePtr; // physical address for flat frame buffer
  67. ul OffScreenMemOffset; // pointer to start of off screen memory
  68. us OffScreenMemSize; // amount of off screen memory in 1k units
  69. uc Reserved20[206]; // remainder of ModeInfoBlock
  70. uc NaVsyakiySloochay[100]; // 2e
  71. } VBE_ModeInfoBlock;
  72.  
  73. typedef struct SVBE_RMI { // Rreal Mode Interrupt (RMI) structure
  74. ul EDI, ESI, EBP, ReservedByRMI,
  75. EBX, EDX, ECX, EAX;
  76. us flags,
  77. ES, DS,
  78. FS, GS,
  79. IP, CS,
  80. SP, SS;
  81. } VBE_RMI;
  82.  
  83. typedef struct SMode { // Тип описывающий видео-режим.
  84. ul bpl; // Байт на строку растра.
  85. ul w; // Ширина
  86. ul h; // Высота
  87. ul bpp; // Бит на точку
  88. ul bytespp; // Байт на точку
  89. ul banked; // (1)LFB or (0)Banked
  90. ul error; // Ошибка (обязательно надо проверять)
  91. uc* LFB; // Указатель на LFB
  92. uc* VLFB; // Указатель на Виртуальный экран
  93. } TMode;
  94.  
  95. TMode cm; // Текущий видеорежим.
  96.  
  97. int GetVBEVersion(void);
  98. void PutVBEVersion(void);
  99. TMode SetVESAMode(int xmax, int ymax, int bpp);
  100. void SetVGAMode(int mode);
  101. void InitGraph(void);
  102. void blt(TMode m);
  103. void PutPixel(int x,int y,int color);
  104. void Line(int x1,int y1,int x2,int y2,int color);

Download this code: vesa.h ]]> http://mikhail.krivyy.com/2000/09/17/bmp-vesa-view-2/feed/ 0 Простой редактор чертежей http://mikhail.krivyy.com/2000/07/22/vector-editor/ http://mikhail.krivyy.com/2000/07/22/vector-editor/#comments Sat, 22 Jul 2000 08:36:11 +0000 mike http://mike.nov.ru/2000/07/22/prostoy-redaktor-chertezhey/ Как то, когда я еще учился на четвертом курсе, меня попросили написать графический для простых чертежей. Главная особенность — это сохранение чертежей в компактные файлы. Позже предполагалось, что это будут не файлы, а обыкновенное текстовок поле в обыкновенной таблице обыкновенной базы данных.


Рисунок 1 — Редактирование списка объектов чертежа

Потом, как на Руси принято, проект загнулся, а редактор остался. К тому времени он уже умел создавать, удалять и изменять графические объекты. Был реализован репозиторий графических примитивов, выбор цветов с поддержкой цветовых таблиц Adobe PhotoShop, сохранение/чтение чертежей из файла. И еще много чего.

Написан редактор на Borland C++ Builder 5.0.
Скачать на http://sources.codenet.ru/ (ZIP ~631Kb)

Другие скриншоты


Рисунок 2 — Репозиторий

Рисунок 3 — Выбор цвета

]]> http://mikhail.krivyy.com/2000/07/22/vector-editor/feed/ 0 Трехмерный ландшафт http://mikhail.krivyy.com/1999/11/06/3d-landscape/ http://mikhail.krivyy.com/1999/11/06/3d-landscape/#comments Sat, 06 Nov 1999 13:55:06 +0000 mike http://mike.nov.ru/1999/11/06/3d-landscape/ Пример создания трехмерного ландшафта. Версия под Windows работает c DirectX, а DOS версия работает используя стандарт VESA. Пример показывает как работать с видео напрямую.

Использует свои процедуры отрисовки графических примитивов (Точек и треугольников). Легко адаптируется под любую ОС.

Скриншоты:


lscape3.gif
Классический ландшафт


lscape3.gif
Совсем перспективная проекция

lscape2.gif
Обратная сторона «Луны»

(*) У DirectX версии в исходных текстах есть ошибка — при инициализации DirectX’а не обнуляется какая-то структура, из-за этого иногда программа может не работать :).

]]> http://mikhail.krivyy.com/1999/11/06/3d-landscape/feed/ 0 Салют http://mikhail.krivyy.com/1999/07/05/salute-pascal/ http://mikhail.krivyy.com/1999/07/05/salute-pascal/#comments Sun, 04 Jul 1999 22:32:36 +0000 mike http://mike.nov.ru/2003/04/17/salute-pascal/ Просто «салют». Программа писалась в прошлом веке :), на TMT Паскале, но не смотря на это эффект своей красоты не потерял.

Не работает по Windows NT/2000/XP, так как эти операционные системы блокируют
включение видеорежимов VESA.

Скачать в архиве (ZIP;22Kb)

salutss.pas

  1. program BLUR;
  2.  
  3. uses Crt,mVBE;
  4.  
  5. Type TSalut=Record
  6. X:Real;
  7. Y:Real;
  8. NX:Word;
  9. NY:Word;
  10. End;
  11.  
  12. var Scr :Array[0..256000] of Byte; {Виртуальный видео-буффер}
  13. F :File;
  14. RSize :DWord;
  15. Salut :Array[1..10,1..40] of TSalut;
  16. SalDown :Array[1..10] of Real;
  17. SalColor :Array[1..10] of DWord;
  18. SalTimer :Array[1..10] of Word;
  19. X :DWord;
  20. Exit :Boolean;
  21. Mode :Word;
  22.  
  23. Procedure PrintBuf; {Копирование виртуального видео-буфера в реальный}
  24. var I,S:Word;
  25. Begin
  26. asm
  27. cld
  28. lea esi,Scr;
  29. mov edi,[VBE_VideoMem]
  30. mov ecx,64000
  31. repe movsd
  32. end;
  33. End;
  34.  
  35. Procedure Blur; {Сам Блюр}
  36. var I:DWord;
  37. Begin
  38. asm
  39. lea edi,Scr
  40. add edi,1280
  41. mov ecx,253440
  42. xor ebx,ebx
  43. @1:
  44. xor eax,eax
  45. mov bl,[edi-4]
  46. add eax,ebx
  47. mov bl,[edi-1280]
  48. add eax,ebx
  49. mov bl,[edi+1280]
  50. add eax,ebx
  51. mov bl,[edi+4]
  52. add eax,ebx
  53.  
  54. shr eax,2
  55. mov [edi],al
  56. inc edi
  57. loop @1
  58. end;
  59. End;
  60.  
  61. Procedure Plot(X,Y,Color:DWord);
  62. var Addr:DWord;
  63. Begin
  64. asm
  65. lea ebx,Scr {ebx = адресс видео-буфера}
  66. mov edi,[X] {edi = X}
  67. cmp edi,1 {Проверка попадания в экран}
  68. jna @NoPlot
  69. cmp edi,318
  70. ja @NoPlot
  71. mov eax,[Y] {eax = Y}
  72. cmp eax,1 {Проверка попадания в экран}
  73. jna @NoPlot
  74. cmp eax,198
  75. ja @NoPlot
  76. imul eax,eax,1280 {Вычисление видео-адресса - Base+X*3+Y*960}
  77. shl edi,2
  78. add edi,eax
  79. mov eax,[Color] {И наконец выставление точки}
  80. mov [edi+ebx],eax
  81. @NoPlot:
  82. end;
  83. End;
  84.  
  85. Procedure InitSalutNum(Num:Word);
  86. var X1,Y1,X,Y:Word;
  87. Begin
  88. SalDown[Num]:=0;
  89. SalColor[Num]:=Random($FFFFFF);
  90. SalTimer[Num]:=Random(7000);
  91. X1:=Random(320);
  92. Y1:=Random(200);
  93. If Random(100)>95 then
  94. Begin
  95. SalColor[Num]:=$FFFF00;
  96. For Y:=1 to 40 do
  97. Begin
  98. Salut[Num,Y].X:=X1;
  99. Salut[Num,Y].Y:=Y1;
  100. Salut[Num,Y].NX:=Random(255);
  101. Salut[Num,Y].NX:=Random(255);
  102. End;
  103. End
  104. else
  105. Begin
  106. For Y:=1 to 40 do
  107. Begin
  108. Salut[Num,Y].X:=X1;
  109. Salut[Num,Y].Y:=Y1;
  110. Salut[Num,Y].NX:=Random(100);
  111. Salut[Num,Y].NY:=Random(100);
  112. End;
  113. End;
  114. End;
  115.  
  116. Procedure InitSalut;
  117. var X:Word;
  118. Begin
  119. RandomiZe;
  120. For X:=1 to 10 do InitSalutNum(X);
  121. End;
  122.  
  123. Procedure GetSalut;
  124. var I,J,X,Y:Word;
  125. Begin
  126. For J:=1 to 10 do
  127. For I:=1 to 40 do
  128. Begin
  129. SalDown[J]:=SalDown[J]+0.0002;
  130. SalTimer[J]:=SalTimer[J]+1;
  131. If SalTimer[J]>15000 then InitSalutNum(J);
  132. Salut[J,I].X:=Salut[J,I].X+(Salut[J,I].NX/100)-0.5;
  133. Salut[J,I].Y:=Salut[J,I].Y+(Salut[J,I].NY/100)-1+Sqrt(SalDown[J]);
  134. Plot(round(Salut[J,I].X),round(Salut[J,I].Y),SalColor[J]);
  135. Plot(round(Salut[J,I].X+1),round(Salut[J,I].Y),SalColor[J]);
  136. End;
  137. End;
  138.  
  139. {######################### Инициализация мыши ###############################}
  140. Procedure InitMouse;
  141. Begin
  142. asm
  143. mov ax,0
  144. int 33h
  145. mov ax,4
  146. xor cx,cx
  147. xor dx,dx
  148. int 33h
  149. end;
  150. End;
  151.  
  152. {######################## Датчик движения мыши ##############################}
  153. Function MouseMove:Boolean;
  154. var Q:Word;
  155. Begin
  156. asm
  157. mov ax,3
  158. int 33h
  159. or bx,cx
  160. or bx,dx
  161. mov [Q],bx
  162. end;
  163. If Q<>0 then MouseMove:=True else MouseMove:=False;
  164. End;
  165.  
  166. Begin
  167. {Инициалтзация 320x200x24}
  168. mVESAInit;If VesaError<>0 then mVesaErrorMessage;
  169. Mode:=mPutVesaMode(320,200,32);If Mode=0 then mVesaErrorMessage;
  170. mSetVESAMode(Mode);If VesaError<>0 then mVesaErrorMessage;
  171. mSetVMemory;If VesaError<>0 then mVesaErrorMessage;
  172. For X:=1 to 256000 do Scr[X]:=0;
  173. InitSalut;
  174. InitMouse;
  175. Repeat
  176. PrintBuf;
  177. GetSalut;
  178. Blur;
  179. Until KeyPressed or MouseMove;
  180. mSetVGAMode;
  181. WriteLn('¦ Coded by Mikhail Krivyy 1997');
  182. WriteLn(' http://mikhail.krivyy.com/feedback/');
  183. End.

Download this code: salutss.pas

mvbe.pas

  1. unit mVBE;
  2.  
  3. interface
  4.  
  5. uses DPMILib;
  6.  
  7. (* VBE info block structure *)
  8. type TVbeInfo = record
  9. VbeSignature : DWord;
  10. VbeVersion : Word;
  11. OemStringPtr : DWord;
  12. Capabilities : DWord;
  13. VideoModePtr : DWord;
  14. TotalMemory : Word;
  15. OEMSoftwareRev : Word;
  16. OEMVendorNamePtr : DWord;
  17. OEMProductNamePtr : DWord;
  18. OEMProductRevPtr : DWord;
  19. Reserved : array [0..221] of Byte;
  20. OEMData : array [0..255] of Byte;
  21. end;
  22.  
  23. TVbeModeInfo = record
  24. ModeAttributes : Word;
  25. WinAAttributes : Byte;
  26. WinBAttributes : Byte;
  27. WinGranularity : Word;
  28. WinSize : Word;
  29. WinASegment : Word;
  30. WinBSegment : Word;
  31. WinFuncPtr : Pointer;
  32. BytesPerScanLine : Word;
  33. XResolution : Word;
  34. YResolution : Word;
  35. XCharSize : Byte;
  36. YCharSize : Byte;
  37. NumberOfPlanes : Byte;
  38. BitsPerPixel : Byte;
  39. NumberOfBanks : Byte;
  40. MemoryModel : Byte;
  41. BankSize : Byte;
  42. NumberOfImagePages : Byte;
  43. Reserved : Byte;
  44. RedMaskSize : Byte;
  45. RedFieldPosition : Byte;
  46. GreenMaskSize : Byte;
  47. GreenFieldPosition : Byte;
  48. BlueMaskSize : Byte;
  49. BlueFieldPosition : Byte;
  50. RsvdMaskSize : Byte;
  51. RsvdFieldPosition : Byte;
  52. DirectColorModeInfo: Byte;
  53. PhysBasePtr : DWord;
  54. OffScreenMemOffset : DWord;
  55. OffScreenMemSize : Word;
  56. Reserved2 : Array [0..205] of Byte;
  57. end;
  58.  
  59. var VesaError :Byte;
  60. Regs :TRmRegs;
  61. VESAInfo :TVBEInfo;
  62. VESAModeInfo :TVBEModeInfo;
  63. VideoMem,VBE_VideoMem :DWord;
  64.  
  65. Procedure mVESAInit;
  66. Procedure mInitVESAMode(Mode:Word);
  67. Procedure mSetVESAMode(Mode:Word);
  68. Procedure mSetVGAMode;
  69. Function mPutVESAMode(X,Y,BPP:Word):Word;
  70. Procedure mVesaErrorMessage;
  71. Procedure mSetVMemory;
  72.  
  73. implementation
  74.  
  75. { Инициализация VESA }
  76. Procedure mVESAInit;
  77. Begin
  78. VesaError:=0;
  79. ClearRmRegs(Regs);
  80. Regs.AX:=$4F00;
  81. Regs.ES:=Buf_16;
  82. RealModeInt($10,Regs);
  83. Move(Pointer(Buf_32)^,VESAInfo,256);
  84. if (Regs.AX<>$004F) or (VESAInfo.VbeSignature<>$41534556) then VesaError=1;
  85. End;
  86.  
  87. { Инициализация графического режима VESA }
  88. Procedure mInitVESAMode(Mode:Word);
  89. Begin
  90. VesaError:=0;
  91. ClearRmRegs(Regs);
  92. Regs.ES:=Buf_16;
  93. Regs.ax:=$4F01;
  94. Regs.di:=$0000;
  95. Regs.cx:=Mode;
  96. RealModeInt($10,Regs);
  97. Move(Pointer(Buf_32)^,VESAModeInfo,256);
  98. if (Regs.AX<>$004F) or (VESAModeInfo.PhysBasePtr=0) then VESAError:=2;
  99. End;
  100.  
  101. { Установка графического режима VESA }
  102. Procedure mSetVESAMode(Mode:Word);
  103. Begin
  104. VesaError:=0;
  105. ClearRmRegs(Regs);
  106. Regs.AX:=$4F02;
  107. Regs.BX:=Mode;
  108. RealModeInt($10,Regs);
  109. if (Regs.AX<>$004F) then VESAError:=3;
  110. End;
  111.  
  112. { Установка стандартного режима EGA }
  113. Procedure mSetVGAMode;
  114. Begin
  115. ClearRmRegs(Regs);
  116. Regs.AX:=$0003;
  117. RealModeInt($10,Regs);
  118. End;
  119.  
  120. Function mPutVESAMode(X,Y,BPP:Word):Word;
  121. var M:Word;
  122. Begin
  123. For M:=$4100 to $4200 do
  124. Begin
  125. mInitVESAMode(M);
  126. If (VesaModeInfo.XResolution=X) and
  127. (VesaModeInfo.YResolution=Y) and
  128. (VesaModeInfo.BitsPerPixel=BPP) and
  129. (VesaError=0) then mPutVESAMode:=M;
  130. End;
  131. End;
  132.  
  133. { Вывод сообщения об ошибке }
  134. Procedure mVesaErrorMessage;
  135. Begin
  136. mSetVGAMode;
  137. WriteLn('VesaError:',VesaError);
  138. Halt(1);
  139. End;
  140.  
  141. { Узнаем логический адресс }
  142. Procedure mSetVMemory;
  143. var Tmp1,Tmp2 :Word;
  144. Begin
  145. Vbe_VideoMem:=MapPhysicalToLinear(VESAModeInfo.PhysBasePtr,4096*1024);
  146. If Vbe_VideoMem=0 then VESAError=4;
  147. VideoMem:=Vbe_VideoMem;
  148. End;
  149. end.

Download this code: mvbe.pas ]]> http://mikhail.krivyy.com/1999/07/05/salute-pascal/feed/ 1 Плавный переход одного изображения в другое http://mikhail.krivyy.com/1999/06/22/two-pictures/ http://mikhail.krivyy.com/1999/06/22/two-pictures/#comments Tue, 22 Jun 1999 13:36:40 +0000 mike http://mike.nov.ru/2006/09/20/88/ Скачать в архиве (ZIP;317Kb);

  1. - DEMO.DESIGN (2:5032/7.32) -------------- DEMO.DESIGN -
  2. Msg : 1 из 59 Scn
  3. From : Lubarsky Oleg V. 2:5020/400 Срд 16 Июн 99 12:46
  4. To : All Чтв 17 Июн 99 00:46
  5. Subj : Re: Плавный переход одного изображения в другое.
  6. --------------------------------------------------------
  7. From: "Lubarsky Oleg V." <drlove@impuls.zhitomir.ua>
  8.  
  9. AlexMc пишет в сообщении <929442601@p122.f98.n5055.z2.ftn> ...
  10. А> В демах, (особенно на AMIGA) часто используется сабж.
  11. А> Пpичем эффект такой: одно изобpажение постепенно гаснет,
  12. А> а дpугое пpоявляется. Как сделать?
  13. Вариант 1:
  14. Линейно интерполировать каждую компоненту (R1,G1,B1) цвета пиксела,
  15. одного изображения, в соответстующие ему (R2,G2,B2) другого изображения,
  16. результат и тыкать на экран:
  17. R = R1 + k*(R2 - R1);
  18. G = G1 + k*(G2 - G1);
  19. B = B1 + k*(B2 - B1);
  20. 0 <= k <= 1
  21.  
  22. Вариант 2:
  23. Рисовать вторую картинку поверх второй с использованием альфа-канала,
  24. постепенно уменьшая прозрачность второго изображения.
  25. Что в принципе одно и тоже :)
  26. Bye!
  27. Best regards, respectfully yours <Dr.L0V>...
  28. --- ifmail v.2.14dev3
  29. * Origin: Unknown (2:5020/400)
  30.  

Download this code: twopic.txt


Угораздило меня прочитать это сообщение….ну не мог же я его оставить без внимания. Родилось вот это (TMTPAS):

twopic.pas

  1. program BLUR;
  2.  
  3. uses Crt,mVBE;
  4.  
  5. var Scr,Scr2 :Array[0..192000] of Byte; {Виртуальный видео-буффер}
  6. F :File;
  7. RSize,X :DWord;
  8.  
  9. Procedure Print2Buf(K:Word); {Копирование виртуального видео-буфера в реальный}
  10. var I,S:DWord;
  11. Begin
  12. { R=R1+k*(R2-R1); }
  13. { G=G1+k*(G2-G1); }
  14. { B=B1+k*(B2-B1); }
  15. { 0<=k<=1 }
  16. For I:=1 to 192000 do
  17. mem[VBE_VideoMem+I]:=Scr[I]+round(((Scr2[I]-Scr[I])*K) shr 8);
  18. End;
  19.  
  20. Begin
  21. {Инициалтзация 320x200x24}
  22. mVESAInit;If VesaError<>0 then mVesaErrorMessage;
  23. mInitVESAMode($410F);If VesaError<>0 then mVesaErrorMessage;
  24. mSetVESAMode($410F);If VesaError<>0 then mVesaErrorMessage;
  25. mSetVMemory;If VesaError<>0 then mVesaErrorMessage;
  26. {Чтение BMP'эхи}
  27. Assign(F,'april.bmp');
  28. Reset(F);
  29. Seek(F,54);
  30. BlockRead(F,Scr,192000,RSize);
  31. Close(F);
  32. {Чтение BMP'эхи}
  33. Assign(F,'february.bmp');
  34. Reset(F);
  35. Seek(F,54);
  36. BlockRead(F,Scr2,192000,RSize);
  37. Close(F);
  38. Print2Buf(1);
  39. ReadKey;
  40. X:=1;
  41. Repeat
  42. Print2Buf(X);
  43. X:=X+1;
  44. Until (Keypressed) or (X>255);
  45. ReadKey;
  46. mSetVGAMode;
  47. WriteLn(' ¦ Coded by Misha Krivij 1999');
  48. End.

Download this code: twopic.pas

mvbe.pas

  1. unit mVBE;
  2.  
  3. interface
  4.  
  5. uses DPMILib;
  6.  
  7. (* VBE info block structure *)
  8. type TVbeInfo = record
  9. VbeSignature : DWord;
  10. VbeVersion : Word;
  11. OemStringPtr : DWord;
  12. Capabilities : DWord;
  13. VideoModePtr : DWord;
  14. TotalMemory : Word;
  15. OEMSoftwareRev : Word;
  16. OEMVendorNamePtr : DWord;
  17. OEMProductNamePtr : DWord;
  18. OEMProductRevPtr : DWord;
  19. Reserved : array [0..221] of Byte;
  20. OEMData : array [0..255] of Byte;
  21. end;
  22.  
  23. TVbeModeInfo = record
  24. ModeAttributes : Word;
  25. WinAAttributes : Byte;
  26. WinBAttributes : Byte;
  27. WinGranularity : Word;
  28. WinSize : Word;
  29. WinASegment : Word;
  30. WinBSegment : Word;
  31. WinFuncPtr : Pointer;
  32. BytesPerScanLine : Word;
  33. XResolution : Word;
  34. YResolution : Word;
  35. XCharSize : Byte;
  36. YCharSize : Byte;
  37. NumberOfPlanes : Byte;
  38. BitsPerPixel : Byte;
  39. NumberOfBanks : Byte;
  40. MemoryModel : Byte;
  41. BankSize : Byte;
  42. NumberOfImagePages : Byte;
  43. Reserved : Byte;
  44. RedMaskSize : Byte;
  45. RedFieldPosition : Byte;
  46. GreenMaskSize : Byte;
  47. GreenFieldPosition : Byte;
  48. BlueMaskSize : Byte;
  49. BlueFieldPosition : Byte;
  50. RsvdMaskSize : Byte;
  51. RsvdFieldPosition : Byte;
  52. DirectColorModeInfo: Byte;
  53. PhysBasePtr : DWord;
  54. OffScreenMemOffset : DWord;
  55. OffScreenMemSize : Word;
  56. Reserved2 : Array [0..205] of Byte;
  57. end;
  58.  
  59. var VesaError :Byte;
  60. Regs :TRmRegs;
  61. VESAInfo :TVBEInfo;
  62. VESAModeInfo :TVBEModeInfo;
  63. VideoMem,VBE_VideoMem :DWord;
  64.  
  65. Procedure mVESAInit;
  66. Procedure mInitVESAMode(Mode:Word);
  67. Procedure mSetVESAMode(Mode:Word);
  68. Procedure mSetVGAMode;
  69. Function mPutVESAMode(X,Y,BPP:Word):Word;
  70. Procedure mVesaErrorMessage;
  71. Procedure mSetVMemory;
  72.  
  73. implementation
  74.  
  75. { Инициализация VESA }
  76. Procedure mVESAInit;
  77. Begin
  78. VesaError:=0;
  79. ClearRmRegs(Regs);
  80. Regs.AX:=$4F00;
  81. Regs.ES:=Buf_16;
  82. RealModeInt($10,Regs);
  83. Move(Pointer(Buf_32)^,VESAInfo,256);
  84. if (Regs.AX<>$004F) or (VESAInfo.VbeSignature<>$41534556) then VesaError=1;
  85. End;
  86.  
  87. { Инициализация графического режима VESA }
  88. Procedure mInitVESAMode(Mode:Word);
  89. Begin
  90. VesaError:=0;
  91. ClearRmRegs(Regs);
  92. Regs.ES:=Buf_16;
  93. Regs.ax:=$4F01;
  94. Regs.di:=$0000;
  95. Regs.cx:=Mode;
  96. RealModeInt($10,Regs);
  97. Move(Pointer(Buf_32)^,VESAModeInfo,256);
  98. if (Regs.AX<>$004F) or (VESAModeInfo.PhysBasePtr=0) then VESAError:=2;
  99. End;
  100.  
  101. { Установка графического режима VESA }
  102. Procedure mSetVESAMode(Mode:Word);
  103. Begin
  104. VesaError:=0;
  105. ClearRmRegs(Regs);
  106. Regs.AX:=$4F02;
  107. Regs.BX:=Mode;
  108. RealModeInt($10,Regs);
  109. if (Regs.AX<>$004F) then VESAError:=3;
  110. End;
  111.  
  112. { Установка стандартного режима EGA }
  113. Procedure mSetVGAMode;
  114. Begin
  115. ClearRmRegs(Regs);
  116. Regs.AX:=$0003;
  117. RealModeInt($10,Regs);
  118. End;
  119.  
  120. Function mPutVESAMode(X,Y,BPP:Word):Word;
  121. var M:Word;
  122. Begin
  123. For M:=$4100 to $4200 do
  124. Begin
  125. mInitVESAMode(M);
  126. If (VesaModeInfo.XResolution=X) and
  127. (VesaModeInfo.YResolution=Y) and
  128. (VesaModeInfo.BitsPerPixel=BPP) and
  129. (VesaError=0) then mPutVESAMode:=M;
  130. End;
  131. End;
  132.  
  133. { Вывод сообщения об ошибке }
  134. Procedure mVesaErrorMessage;
  135. Begin
  136. mSetVGAMode;
  137. WriteLn('VesaError:',VesaError);
  138. Halt(1);
  139. End;
  140.  
  141. { Узнаем логический адресс }
  142. Procedure mSetVMemory;
  143. var Tmp1,Tmp2 :Word;
  144. Begin
  145. Vbe_VideoMem:=MapPhysicalToLinear(VESAModeInfo.PhysBasePtr,4096*1024);
  146. If Vbe_VideoMem=0 then VESAError=4;
  147. VideoMem:=Vbe_VideoMem;
  148. End;
  149. end.

Download this code: mvbe.pas ]]> http://mikhail.krivyy.com/1999/06/22/two-pictures/feed/ 1 Крутилки-вращалки http://mikhail.krivyy.com/1999/03/25/bmp-vesa-view/ http://mikhail.krivyy.com/1999/03/25/bmp-vesa-view/#comments Thu, 25 Mar 1999 16:36:02 +0000 mike http://mike.nov.ru/1999/03/25/bmp-vesa-view/ Тут приведены исходники всяких крутилок-вращалок. Написано очень давно, с целью разобраться с языком СИ. Достаточно красивый эффект получается если экспериментировать с вращаемым изображением.

В архиве находятся файлы rotate1.cpp-rotate6.cpp. Здесь приведены лишь два последних. Rotate5.cpp написан на СИ, а в rotate6.cpp внутренний цикл на ассемблере — разница в скорости очевидна.

11.jpg
Скриншот

rotate4.cpp

  1. #include <stdio.h>
  2. #include <conio.h>
  3. #include <alloc.h>
  4. #include <process.h>
  5. #include <math.h>
  6.  
  7. //################### Изменить один цвет палитры ############################
  8. void palette(unsigned char N,unsigned int R,unsigned int G,unsigned int B)
  9. {
  10. asm {
  11. mov al, [N]
  12. mov dx, 0x3C8
  13. out dx, al
  14. inc dx //DX = 3C9h (Pal DATA REG)
  15. mov ax, [R]
  16. out dx, al //красная составляющая
  17. mov ax, [G]
  18. out dx, al //зеленая составляющая
  19. mov ax, [B]
  20. out dx, al //синяя составляющая
  21. }
  22. }
  23.  
  24. void PutPixel(unsigned int X,unsigned int Y,unsigned char Color)
  25. {
  26. asm {
  27. mov ax, [Y]
  28. mov dx, 320
  29. imul dx
  30. add ax, [X]
  31. mov di, ax
  32. push es
  33. mov ax, 0xA000
  34. mov es, ax
  35. mov al,[Color]
  36. stosb
  37. pop es
  38. }
  39. }
  40.  
  41. void main(void)
  42. {
  43. FILE *file1;
  44. char *str;
  45. char *filename;
  46. int I,J,I1,J1;
  47. int X,Y,Z,size;
  48. float A,sina,cosa;
  49.  
  50. filename="A.BMP";
  51. if ((str = (char *) malloc(10000)) == NULL) printf("Память у вас скончалась :(((\n");
  52. if ((file1 = fopen(filename,"rb")) == NULL) fprintf(stderr,"Файл не найден :((((");
  53. size=fread(str,54,1,file1);
  54. size=fread(str,1024,1,file1);
  55. asm mov ax,0x0013
  56. asm int 0x10
  57. for (I=0;I<256;I++) palette(I,str[I*4+2]>>2,str[I*4+1]>>2,str[I*4+0]>>2);
  58. size=(fread(str,1,10000,file1));
  59. fclose(file1);
  60. A=0;
  61. do
  62. {
  63. for (I=0;I<100;I++)
  64. {
  65. for (J=0;J<100;J++)
  66. {
  67. I1=I-50;
  68. J1=J-50;
  69. sina=sin(A);
  70. cosa=1-tan(A)-sina;
  71. X=100+I1*sina-J1*cosa;
  72. Y=100+I1*cosa+J1*sina;
  73. Z=0;
  74. if ((X<320) && (Y<200) && (X>1) && (Y>1)) PutPixel(X+Z,Y+Z,str[J*100+I]);
  75. }
  76. }
  77. A=A+0.017;
  78. }
  79. while (!kbhit());
  80. asm mov ax,0x0003
  81. asm int 0x10
  82.  
  83. free(str);
  84. }

Download this code: rotate4.cpp

rotate5.cpp

  1. #include <stdio.h>
  2. #include <conio.h>
  3. #include <alloc.h>
  4. #include <process.h>
  5. #include <math.h>
  6. #include <dos.h>
  7.  
  8. //################### Изменить один цвет палитры ############################
  9. void palette(unsigned char N,unsigned int R,unsigned int G,unsigned int B)
  10. {
  11. asm {
  12. mov al, [N]
  13. mov dx, 0x3C8
  14. out dx, al
  15. inc dx //DX = 3C9h (Pal DATA REG)
  16. mov ax, [R]
  17. out dx, al //красная составляющая
  18. mov ax, [G]
  19. out dx, al //зеленая составляющая
  20. mov ax, [B]
  21. out dx, al //синяя составляющая
  22. }
  23. }
  24.  
  25. void main(void)
  26. {
  27. FILE *file1;
  28. char Color;
  29. char *str;
  30. char *filename;
  31. int I,J,I1,J1,DDX,DDY;
  32. int X,Y,Z,size,deltaX,deltaY;
  33. float A,sina,cosa;
  34.  
  35. filename="A.BMP";
  36. if ((str = (char *) malloc(10000)) == NULL) printf("Память у вас скончалась :(((\n");
  37. if ((file1 = fopen(filename,"rb")) == NULL) fprintf(stderr,"Файл не найден :((((");
  38. fread(str,54,1,file1);
  39. fread(str,1024,1,file1);
  40. asm mov ax,0x0013
  41. asm int 0x10
  42. for (I=0;I<256;I++) palette(I,str[I*4+2]>>2,str[I*4+1]>>2,str[I*4+0]>>2);
  43. fread(str,1,10000,file1);
  44. fclose(file1);
  45. deltaY=100;
  46. deltaX=100;
  47. DDX=1;
  48. DDY=1;
  49. A=0;
  50. do
  51. {
  52. sina=sin(A);
  53. cosa=1-tan(A)-sin(A);
  54. for (I=0;I<100;I++)
  55. {
  56. for (J=0;J<100;J++)
  57. {
  58. I1=I-50;
  59. J1=J-50;
  60. X=I1*sina-J1*cosa;
  61. Y=I1*cosa+J1*sina;
  62. Color=str[J*100+I];
  63. asm {
  64. mov ax, [Y]
  65. add ax, [deltaX]
  66. or ax, ax
  67. jl NoPlot;
  68. cmp ax, 200
  69. jg NoPlot;
  70. mov dx, 320
  71. imul dx
  72. mov dx, [X]
  73. add dx, [deltaY]
  74. or dx, dx
  75. jl NoPlot;
  76. cmp dx, 319
  77. jg NoPlot;
  78. add ax, dx
  79. mov di, ax
  80. push es
  81. mov ax, 0xA000
  82. mov es, ax
  83. mov al,[Color]
  84. mov [es:di],al
  85. pop es
  86. }
  87. NoPlot:
  88. }
  89. }
  90. A=A+0.02;
  91. deltaX=deltaX+DDX;
  92. deltaY=deltaY+DDY;
  93. if (deltaX>150) DDX=-1;
  94. if (deltaY>270) DDY=-1;
  95. if (deltaX<50) DDX=1;
  96. if (deltaY<50) DDY=1;
  97.  
  98. }
  99. while (!kbhit());
  100.  
  101. asm mov ax,0x0003
  102. asm int 0x10
  103.  
  104. free(str);
  105. }

Download this code: rotate5.cpp ]]> http://mikhail.krivyy.com/1999/03/25/bmp-vesa-view/feed/ 0