<commit_before>(defpackage :image-transform-demo
  (:use :cl)
  (:export :image-transform-demo))

(in-package :image-transform-demo)

(clim:define-application-frame image-transform-demo ()
  ((image :initarg :image
          :accessor image-transform-demo/image))
  (:panes (image-demo :application
                      :display-function 'display-image-demo
                      :incremental-redisplay t)
          (rot-slider :slider
                      :value 0
                      :show-value t
                      :orientation :horizontal
                      :min-value 0
                      :max-value (* pi 2)
                      :value-changed-callback #'slider-updated-callback
                      :drag-callback #'slider-updated-callback)
          (x-slider :slider
                    :value 0
                    :show-value t
                    :orientation :horizontal
                    :min-value 0
                    :max-value 200
                    :value-changed-callback #'slider-updated-callback
                    :drag-callback #'slider-updated-callback)
          (y-slider :slider
                    :value 0
                    :show-value t
                    :orientation :horizontal
                    :min-value 0
                    :max-value 200
                    :value-changed-callback #'slider-updated-callback
                    :drag-callback #'slider-updated-callback)
          (scale-slider :slider
                        :value 1
                        :show-value t
                        :orientation :horizontal
                        :min-value 0.1
                        :max-value 5
                        :value-changed-callback #'slider-updated-callback
                        :drag-callback #'slider-updated-callback)
          (x-skew-slider :slider
                         :value 0
                         :show-value t
                         :orientation :horizontal
                         :min-value -1
                         :max-value 1
                         :value-changed-callback #'slider-updated-callback
                         :drag-callback #'slider-updated-callback)
          (y-skew-slider :slider
                         :value 0
                         :show-value t
                         :orientation :horizontal
                         :min-value -1
                         :max-value 1
                         :value-changed-callback #'slider-updated-callback
                         :drag-callback #'slider-updated-callback))
  (:layouts (default (clim:vertically (:width 1000 :height 900)
                       (14/20 image-demo)
                       (1/20 rot-slider)
                       (1/20 x-slider)
                       (1/20 y-slider)
                       (1/20 scale-slider)
                       (1/20 x-skew-slider)
                       (1/20 y-skew-slider)))))
<commit_msg>Better layout for transform demo<commit_after>(defpackage :image-transform-demo
  (:use :cl)
  (:export :image-transform-demo))

(in-package :image-transform-demo)

(clim:define-application-frame image-transform-demo ()
  ((image :initarg :image
          :accessor image-transform-demo/image))
  (:panes (image-demo :application
                      :display-function 'display-image-demo
                      :scroll-bars :both
                      :incremental-redisplay t)
          (rot-slider :slider
                      :value 0
                      :show-value-p nil
                      :orientation :horizontal
                      :min-value 0
                      :max-value (* pi 2)
                      :value-changed-callback #'slider-updated-callback
                      :drag-callback #'slider-updated-callback)
          (x-slider :slider
                    :value 0
                    :show-value-p nil
                    :orientation :horizontal
                    :min-value 0
                    :max-value 200
                    :value-changed-callback #'slider-updated-callback
                    :drag-callback #'slider-updated-callback)
          (y-slider :slider
                    :value 0
                    :show-value-p nil
                    :orientation :horizontal
                    :min-value 0
                    :max-value 200
                    :value-changed-callback #'slider-updated-callback
                    :drag-callback #'slider-updated-callback)
          (scale-slider :slider
                        :value 1
                        :show-value-p nil
                        :orientation :horizontal
                        :min-value 0.1
                        :max-value 5
                        :value-changed-callback #'slider-updated-callback
                        :drag-callback #'slider-updated-callback)
          (x-skew-slider :slider
                         :value 0
                         :show-value-p nil
                         :orientation :horizontal
                         :min-value -1
                         :max-value 1
                         :value-changed-callback #'slider-updated-callback
                         :drag-callback #'slider-updated-callback)
          (y-skew-slider :slider
                         :value 0
                         :show-value-p nil
                         :orientation :horizontal
                         :min-value -1
                         :max-value 1
                         :value-changed-callback #'slider-updated-callback
                         :drag-callback #'slider-updated-callback))
  (:layouts (default (clim:vertically ()
                       (14/20 (clim:labelling (:label "Test Image"
					       :align-x :center
					       :label-alignment :top)
				image-demo))
		       (clim:horizontally ()
			 (clim:vertically ()
			   (1/20 (clim:labelling (:label "Rotate")
				   rot-slider))
			   (1/20 (clim:labelling (:label "Translate X")
				   x-slider)))
			 (clim:vertically ()
			   (1/20 (clim:labelling (:label "Translate Y")
				   y-slider))
			   (1/20 (clim:labelling (:label "Scale")
				   scale-slider)))
			 (clim:vertically ()
			   (1/20 (clim:labelling (:label "Skew X")
				   x-skew-slider))
			   (1/20 (clim:labelling (:label "Skew Y")
				   y-skew-slider))))))))

{'fraction_non_alphanumeric': 0.09782090027039923, 'fraction_numerical': 0.015428662319071099, 'mean_word_length': 1.0711462450592886, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '649629', 'n_tokens_mistral': 1721, 'n_tokens_neox': 1462, 'n_words': 316}