Van egy kis gondom, hátha valaki tudja a megoldást, mert én már a fától nem látom az erdőt... :)
A program lefut, teszi amit kell, de a fenti hibát dobja a végén.
A problémás kódrészlet:
(define...
...
...
(let* (
(greyvalue 0)
)
(set! greyvalue (cadr (gimp-drawable-get-pixel (car (gimp-image-get-active-layer image)) 0 0)))
(if (< (aref greyvalue 3) 127)
(
(gimp-image-remove-layer image (car (gimp-image-get-active-layer image)))
)
(
(gimp-image-remove-layer image (car (gimp-image-get-active-layer image)))
(gimp-invert (car (gimp-image-get-active-layer image)))
)
)
(gimp-equalize (car (gimp-image-get-active-layer image)) TRUE)
(gimp-context-pop)
(gimp-image-undo-group-end image)
(gimp-displays-flush)
)
)
Megoldás:
(if (feltételek)
(begin
(then-funkciók)
)
(begin
(else-funkciók)
)
)
Hozzászólások
nem ertek hozza, valaki magyarazza el, de az if elott miert van ((?
Véletlenül duplán zárójeleztem az if-et, de már kijavítottam. A hiba ugyanúgy fennáll.
A gimp-displays-flush már nem fut le a végén, de a műveleteket mindet elvégzi.
-
"Attempting to break SpeedLock can damage your sanity"