136 lines
2.4 KiB
Text
136 lines
2.4 KiB
Text
INCLUDE "H6:RGB2GRAY.ACT" ;from task Grayscale image
|
|
|
|
PROC DecodeSize(CHAR ARRAY s BYTE POINTER width,height)
|
|
BYTE i
|
|
|
|
width^=ValB(s)
|
|
i=1
|
|
WHILE i<=s(0) AND s(i)#32
|
|
DO
|
|
s(i)=32
|
|
i==+1
|
|
OD
|
|
height^=ValB(s)
|
|
RETURN
|
|
|
|
PROC LoadHeader(RgbImage POINTER img
|
|
CHAR ARRAY format BYTE dev)
|
|
CHAR ARRAY line(255)
|
|
BYTE header,size,max,width,height
|
|
|
|
header=0 size=0 max=0
|
|
WHILE max=0
|
|
DO
|
|
InputSD(dev,line)
|
|
IF line(0)>0 AND line(1)#'# THEN
|
|
IF header=0 THEN
|
|
IF SCompare(format,format)#0 THEN
|
|
Break()
|
|
FI
|
|
header=1
|
|
ELSEIF size=0 THEN
|
|
DecodeSize(line,@width,@height)
|
|
IF width=0 OR height=0 THEN
|
|
Break()
|
|
FI
|
|
img.w=width img.h=height
|
|
size=1
|
|
ELSEIF max=0 THEN
|
|
max=ValB(line)
|
|
IF max#255 THEN
|
|
Break()
|
|
FI
|
|
FI
|
|
FI
|
|
OD
|
|
RETURN
|
|
|
|
PROC LoadPPM6(RgbImage POINTER img CHAR ARRAY path)
|
|
BYTE dev=[1],x,y
|
|
RGB c
|
|
|
|
Close(dev)
|
|
Open(dev,path,4)
|
|
LoadHeader(img,"P6",dev)
|
|
FOR y=0 TO img.h-1
|
|
DO
|
|
FOR x=0 TO img.w-1
|
|
DO
|
|
c.r=GetD(dev)
|
|
c.g=GetD(dev)
|
|
c.b=GetD(dev)
|
|
SetRgbPixel(img,x,y,c)
|
|
OD
|
|
OD
|
|
Close(dev)
|
|
RETURN
|
|
|
|
PROC SaveHeader(GrayImage POINTER img
|
|
CHAR ARRAY format BYTE dev)
|
|
|
|
PrintDE(dev,format)
|
|
PrintBD(dev,img.w)
|
|
PutD(dev,32)
|
|
PrintBDE(dev,img.h)
|
|
PrintBDE(dev,255)
|
|
RETURN
|
|
|
|
PROC SavePPM2(RgbImage POINTER img CHAR ARRAY path)
|
|
BYTE dev=[1],x,y,c
|
|
|
|
Close(dev)
|
|
Open(dev,path,8)
|
|
SaveHeader(img,"P2",dev)
|
|
FOR y=0 TO img.h-1
|
|
DO
|
|
FOR x=0 TO img.w-1
|
|
DO
|
|
c=GetGrayPixel(img,x,y)
|
|
PrintBD(dev,c)
|
|
IF x=img.w-1 THEN
|
|
PutDE(dev)
|
|
ELSE
|
|
PutD(dev,32)
|
|
FI
|
|
OD
|
|
OD
|
|
Close(dev)
|
|
RETURN
|
|
|
|
PROC Load(CHAR ARRAY path)
|
|
CHAR ARRAY line(255)
|
|
BYTE dev=[1]
|
|
|
|
Close(dev)
|
|
Open(dev,path,4)
|
|
WHILE Eof(dev)=0
|
|
DO
|
|
InputSD(dev,line)
|
|
PrintE(line)
|
|
OD
|
|
Close(dev)
|
|
RETURN
|
|
|
|
PROC Main()
|
|
BYTE ARRAY rgbdata(300),graydata(100)
|
|
RgbImage rgbimg
|
|
GrayImage grayimg
|
|
CHAR ARRAY path2="D:PPM2.PPM"
|
|
CHAR ARRAY path6="D:PPM6.PPM"
|
|
|
|
Put(125) PutE() ;clear the screen
|
|
InitRgbImage(rgbimg,0,0,rgbdata)
|
|
InitRgbToGray()
|
|
|
|
PrintF("Loading %S...%E%E",path6)
|
|
LoadPPM6(rgbimg,path6)
|
|
|
|
PrintF("Converting RGB to grayscale...%E%E")
|
|
InitGrayImage(grayimg,rgbimg.w,rgbimg.h,graydata)
|
|
RgbToGray(rgbimg,grayimg)
|
|
|
|
PrintF("Saving %S...%E%E",path2)
|
|
SavePPM2(grayimg,path2)
|
|
PrintF("Loading %S...%E%E",path2)
|
|
Load(path2)
|
|
RETURN
|