#!/bin/sh
exec rep "$0" "$@"
!#
;; see sawfish/src/x.c for interfaces

(require 'sawfish.client)
(sawfish-client-eval
 '(progn
    (require 'sawfish.wm.util.x)

    (setq gc (x-create-gc 'root `((foreground . ,(get-color "white")))))
    (x-draw-line 'root gc '(0 . 768) '(50 . 718))
    (x-draw-string 'root gc '(50 . 738) "foobar" (get-font "6x13"))
    (let loop ((i 0))
         (when (< i 1000)
           (x-draw-string
            'root
            gc
            `(,(random 1024) . ,(random 768))
            (format nil "%d" i)
            (get-font "6x13"))
           (loop (1+ i))))
    (x-destroy-gc gc)))