ridley/examples/sdf-vase2.clj at main · vipenzo/ridley · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
(resolution :n 512)
(def n 4)
(def base-side 60)
(def off 15.9)
(def period (/ base-side n))

(def spessore 4)
(def H 90)

(def solid (sdf-rounded-box base-side base-side H 6))
(def interno (sdf-move
              (sdf-rounded-box (- base-side spessore) (- base-side spessore) (+ H (* spessore 3)) 6)
              0 0 spessore))
(def cap1 (sdf-move
           (sdf-rounded-box base-side base-side 10 6)
           0 0 (/ H 2)))
(def cap2 (sdf-move
           (sdf-rounded-box base-side base-side 10 6)
           0 0 (- (/ H 2))))

(def raggio-tubi (/ spessore 2.5))
(defn cut [m]
  (sdf-intersection
   m
   solid))

(def bx (cut (sdf-bars :x period raggio-tubi off off)))
(def by (cut (sdf-bars :y period raggio-tubi off off)))
(def bz (cut (sdf-bars :z period raggio-tubi off off)))
(def bars (sdf-blend (sdf-blend bx by 2) bz 2))
(def tutto
  (sdf-difference
   (sdf-blend
    (sdf-blend bars cap1 2)
    cap2
    2)
   interno))

(register AA tutto)