File: ShowColorMap.pcm

package info (click to toggle)
extrema 4.4.4.dfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 19,416 kB
  • ctags: 6,689
  • sloc: cpp: 88,991; sh: 8,229; makefile: 480
file content (23 lines) | stat: -rw-r--r-- 433 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
clear
defaults
window 0
!
cmap='DEFAULT'
inquire 'What colormap would you like to see ('//cmap//')' cmap
set colormap cmap
get colormapsize cSize
!
xmax = int(sqrt(cSize)+0.5)
ymax = xmax
!
scales\commensurate\-messages 0 17 0 17
do j = [0:ymax-1]
 do i = [1:xmax]
  n = i+j*xmax
  if (n>cSize) then goto DONE
  set areafillcolor n
  graph\overlay [i;i+1;i+1;i;i] [ymax-j-1;ymax-j-1;ymax-j;ymax-j;ymax-j-1]
 enddo
enddo
DONE:
return