MVLib - Short Writeup - Version 4.0
Example Number 44 - Colours palette 10-12
This example allows to visualize the color palette 10, 11 and 12, showing the corrispondence between colours and indexes.
The fortran code is available here and the complete script running the code is available here.
Previous Example List of Examples Next Example
MVLib Home Page 
	implicit none
	character title*32 ; integer pal,ncol,i ; real x,y
	call mvsetflags('Size delle scritte',18.0)
	do pal=10,12
	   call mvsetflags('Palette di colori',float(pal))
	   call checkifgksisopen
	   call mvgetiflags(54,ncol)
	   do i=0,ncol
	      x=0.2 ; if (i.gt.40) x=0.4
	      y=0.9-i*0.02 ; if (i.gt.40) y=0.9-(i-40)*0.02
	      call mvsetflags('Colore Titoli',float(i))
	      write(title,'(a,i2)') 'Colour ',i
	      call scrivisulplot(title,x,y)
	   enddo
	   call mvsetflags('Colore Titoli',1.0)
	   write(title,'(a,i2)') 'Palette ',pal
	   call displayexample('example44',title,' ')
	enddo
	end