gilsp( https://github.com/baku89/glisp ) 用スクリプトです。多角形をUIとして使う習作

sketch_dec-06-2020_20-44-19.glisp.glisp

; controllers
(def G0 (ngon [1 1.8125] 137 11))
(def G1 (ngon [3 0.8125] 106 7))
(def G2 (ngon [9 -4.1875] 74 8))
(def G3 (ngon [8 -1.1875] 46 5))

; coordinates of the nth vertex
(defn fv [s n] (nth s (inc n)))
; number of vertices
(defn fc [s] (dec (count s)))
; center of the ngon
(defn fo [s] (vec2/scale
  (apply vec2/+ (drop 1 s)) (/ 1 (fc s))))
; radius of the ngon
(defn fr [s] (vec2/dist (fo s) (fv s 0)))
; angle from the center of the nth vertex
(defn ft [s n]
	(vec2/angle (vec2/- (fv s n) (fo s))))
; length of one side of the ngon
(defn fd [s] (vec2/dist (fv s 0) (fv s 1)))

:start-sketch
(background "#fff")

(style (stroke "#888" 8)
	(for [G [G0 G1 G2 G3]]
		(let [r (/ (fd G) 3)]
  	(for [n (range (fc G))]
    	(circle (fv G n) r)
  	))))