home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
graphics
/
aim_xtra
/
prak2.aim
< prev
next >
Wrap
Text File
|
1988-04-06
|
806b
|
33 lines
* read image in
readf A:\PRAK2.IM,A
* set color display in color mode
don,3
* set timer on
ton
* clear all bitplanes of image B
clear,B
* threshold image
thresh A,B,1,230
* invert image to get white objects on black background.
invert 1,B
* make some copies.
bcopy 1,2,B,B
bcopy 1,3,B,B
bcopy 1,4,B,B
* erode and propagate to remove small objects
erosion 5,1,6,0,B
propag 500,1,2,8,0,B
* exor to remove them, what remains are the big objects; the capacitors.
exor 1,4,4,B
* make a copy
bcopy 4,2,B,B
* take the skeleton with endpixel condition.
skelet 100,2,0,B
* select the branchpoints in the skeletons
vertices 2,0,B
* Propagate to obtain components with branchpoints; the transistors.
propag 500,2,4,8,0,B
* exor to remove them
exor 2,4,4,B