; Создать новое изображение
(define (di-make-image x y)
  (let* 
    (
      (iname (car (gimp-image-new x y RGB)))
      (lname (car (gimp-layer-new iname x y RGB-IMAGE "Background" 100  NORMAL-MODE))))
    (gimp-image-add-layer iname lname -1)
    (gimp-edit-clear lname)
    (list iname lname)))

; Нарисовать один блок из диаграммы
(define (di-block pos col text iname lname)
  (gimp-rect-select iname 0 (* pos 30) 250 30 REPLACE FALSE 0)
  (gimp-context-set-foreground (list col col col))
  (gimp-edit-fill lname 0)
  (gimp-selection-none iname)
  (gimp-context-set-foreground (list (+ col 30) (+ col 30) (+ col 30)))
  (gimp-text-fontname iname lname 5 (+ (* pos 30) 5) text 0 TRUE 20 1 "Times New Roman"))

; Сделать диаграмму
(define (di-panel)
  (let*
    (
      (image (di-make-image 250 330)))

; Generated by newLISP
(di-block 0 0 "United States: 46,443" (car image) (cadr image))
(di-block 1 22 "Japan: 32,817" (car image) (cadr image))
(di-block 2 44 "Russia: 15,039" (car image) (cadr image))
(di-block 3 66 "Mexico: 13,542" (car image) (cadr image))
(di-block 4 88 "Brazil: 10,456" (car image) (cadr image))
(di-block 5 110 "Algeria: 6,855" (car image) (cadr image))
(di-block 6 132 "Indonesia: 4,149" (car image) (cadr image))
(di-block 7 154 "India: 2,932" (car image) (cadr image))
(di-block 8 176 "Sudan: 2,376" (car image) (cadr image))
(di-block 9 198 "Bangladesh: 1,470" (car image) (cadr image))
(di-block 10 220 "Afghanistan: 870" (car image) (cadr image))

    (gimp-image-merge-visible-layers (car image) 0)
    (gimp-display-new (car image))))