Программа 25

Программа 25.1

100 'ПРОГРАММА СКЕЛЕТОНИЗАЦИИ
110 'Пиксели объекта имеют значение 0 (чёрный цвет)
120 'Пиксели фона имеют значение 255 (белый цвет)
130 '
140 DIM X%[149,149] 'X%[ , ] хранит обрабатываемое изображение
150 '
160 GOSUB XXXX 'Предполагаемая подпрограмма загрузки X%[ , ]
170 '
180 FOR ITER% = 0 TO 5 'Цикл из 6 итераций
190 '
200 FOR R% = 1 TO 148 'Цикл по каждому пикселю изображения.
210 FOR C% = 1 TO 148 'Подпрограмма 5000 (Программа 25.2) указывает, какой
220 GOSUB 5000 'пиксель можно изменить с чёрного на белый,
230 NEXT C% 'помечая такие пиксели значением 1.
240 NEXT R%
250 '
260 FOR R% = 0 TO 149 'Цикл по каждому пикселю изображения, изменяющий
270 FOR C% = 0 TO 149 'цвет помеченных пикселей с чёрного на белый.
280 IF X%(R%,C%) = 1 THEN X%(R%,C%) = 255
290 NEXT C%
300 NEXT R%
310 '
320 NEXT ITER%
330 '
340 END