تصحيح الأخطاء

;; الغرض: علامة عامة للتحكم في مخرجات التصحيح.
(define debug #f)

;; الغرض: علامة عامة للتحكم في مخرجات التصحيح.
(define debug #t)

;; الغرض: إيقاف وضع التصحيح لقسم من الكود.
(define (debug-off)
  (set! debug #f))

;; الغرض: تشغيل وضع التصحيح لقسم من الكود.
(define (debug-on)
  (set! debug #t))

(debug-on)  ;; تمكين المخرجات المطولة

;; منطق السكربت هنا

(debug-off) ;; تعطيل المخرجات المطولة

;; الغرض: عرض رسالة تصحيح.
(define (debug-message . items)
  (when debug (message "> " (apply concat items))))

;; الغرض: إرجاع موضع العنصر في الشجرة أو #f إذا كان العنصر غير صالح
(define (get-item-tree-position image item)
  (if (item-is-valid? item)
    (let ((position (list->item (lumi-image-get-item-position image item))))
      (debug-message "item : " (item-get-name item) " has tree position : " position)
      position)
    #f))

> item: background-layer has tree position : 3

;; الغرض: تحويل أنواع بيانات Scheme المختلفة (قوائم، vectors، أزواج، إلخ)
;;          إلى تمثيل سلسلة.
(define (serialize-item item)
  (cond
    ((and (list? item) (null? item)) "\"\"")          ; قائمة فارغة
    ((and (string? item) (string=? item "")) "\"\"")  ; سلسلة فارغة
    ((list? item) (list->string item))                ; قائمة متداخلة
    ((vector? item)                                   ; معالجة vectors
     (string-append "#("
                    (string-join (map serialize-item (vector->list item)) " ")
                    ")"))
    ((pair? item)                                     ; معالجة الأزواج
     (string-append "("
                    (serialize-item (car item))
                    " . "
                    (serialize-item (cdr item))
                    ")"))
    ((number? item) (number->string item))            ; أرقام
    ((symbol? item) (symbol->string item))            ; رموز
    ((boolean? item) (if item "#t" "#f"))             ; قيم منطقية
    ((string? item) item)                             ; سلاسل
    (else (warning-message "serialize-item: Unsupported item type!" item))))

(serialize-item '(1 2 3))

list:
1
2
3

;; الغرض: دمج عناصر متعددة في سلسلة واحدة.
(define (concat . items)
  (apply string-append (map serialize-item items)))

(concat "Image size: " 1920 "x" 1080)

;; الغرض: تحويل قائمة عناصر إلى سلسلة قابلة للقراءة.
(define (list->string list)
  (if (list? list)
      (string-append "list: \n" (string-join (map serialize-item list) "\n"))
      (warning-message "list->string: Input is not a list!")))

;; الغرض: عرض رسالة تحذير.
(define (warning-message . items)
  (if warning
    (message "Warning: " (apply concat items)))
    #f)

;; الغرض: التحقق من صحة عنصر، إرجاع #t أو #f.
;;          يُصدر تحذيرًا إذا لم يكن العنصر رقمًا.
(define (item-is-valid? item)
  (if (number? item)
      (= (list->item (lumi-item-id-is-valid item)) 1)
      (begin
        (warning-message "item-is-valid?: Expected a number, but received: " item)
        #f)))

(define (call . items)
  (when debug (message "* (" (apply concat items) ")")))

;; الغرض: تطبيق عملية النسيج على قائمة أقنعة المجموعة المعطاة
(define (process-masks groups pattern) (call 'process-masks)
  (for-each
    (lambda (group)
      (let ((mask (add-mask-to-layer group ADD-MASK-WHITE)))
        (message "Process mask : " (item-get-name group))
        (fill-and-adjust-group-mask group mask pattern)
        (lumi-layer-set-opacity group (get 'color-opacity))
        (lumi-item-set-expanded (item-get-parent group) 0)
        (lumi-selection-none (get-image))))
    (ensure-list groups)))

> Recording the plug-in settings
* (convert-gui-settings)
> all-masks : 1
> strokes : 1
> color : 1
> plate-layer : 1
> drawables : #(37)
* (filter-list-for-matching-groups)
> all-masks : #t
> sub-groups of group : root
blue
blue_strokes
blue_colour
yellow
yellow_strokes
yellow_colour
gray
gray_strokes
gray_colour
> groups with identifier in name: _colour
blue_colour
yellow_colour
gray_colour
* (filter-list-for-matching-groups)
> all-masks : #t
> sub-groups of group : root
blue
blue_strokes
blue_colour
yellow
yellow_strokes
yellow_colour
gray
gray_strokes
gray_colour
> groups with identifier in name: _strokes
blue_strokes
yellow_strokes
gray_strokes
* (begin-apply-texture)

Start Apply Texture

> color : #t

Texturing color group masks
> color-pattern : 2655
* (process-masks)
Process mask : blue_colour
* (fill-and-adjust-group-mask)
> Fill-and-adjust : blue_colour mask
> using pattern for fill : 2655
* (apply-color-effect)
> color-contrast : 64
> color-levels-gamma : 10
> levels on drawable: blue_colour mask
>   gamma: 8.2
>   low-in: 0.7278  high-in: 0.9222
>   low-out: 0  high-out: 1
> light-opacity : 6
> light-opacity : 6
* (apply-light-effect)
> apply-light-effect opacity : 6
> from layer : light_blue
> edit-copy light_blue
> edit-paste blue_colour mask
> shade-opacity : 60
> shade-opacity : 60
* (apply-light-effect)
> apply-light-effect opacity : 60
> from layer : shad_blue_opa*5
> edit-copy shad_blue_opa*5
> edit-paste blue_colour mask
* (apply-opaque-effect)
> children in : blue_colour
blue_colour
hue_blue
light_blue
shad_blue_opa*5
base_blue
...
...
...
Finished Apply Texture!