Print

Print


Hi all,

How can I change a Color Palette for saving and loading (the same for both)
bitmap for identical result?

Help me, plaese...

Dne út 2. říjen 2001 12:05 jste napsal(a):
> Hello All
> I have problems with simple example (at end of message).
> I am using Microsoft Fortran Power station 4.0
> I compiled it in msdos prompt with fl32 and  /MW option. The
> loaded colors is diferent than saved :-(  (try it or I can send picture
> with my result to your home adress) Where is problem?

Example:

      use msflib
      integer (2) status
      integer ic(8)
      data ic/#FF0000,#00FF00,#0000FF,#FFFFFF,#000000,#00FFFF,#FF00FF,#FFFF00/
      ires=setbkcolor(15)
      call clearscreen($gclearscreen)
      do i=1,8
      ix=i*50
      ires=setcolorrgb(ic(i))
      status=ellipse($gfillinterior,int2(40+ix),int2(55),int2(70+ix),int2(85))
      ires=saveimage('image',39+ix,54,71+ix,86)
      ires=loadimage('image',39+ix,90)
      enddo
      end

--
Pavel Houdek

Student of Czech Technical University in Prague
Faculty of Mechanical Engineering
Department of Process Engineering U 218
[log in to unmask]
[log in to unmask]