Examples for Aniomagic's Sparkle

gistfile1.scm

; 常に繰り返す
(always
  ; ここに繰り返す処理を書く
)

; 条件判断
(always
  (if (条件)
    (条件に合致した時に行われる処理)
  )
)

; 条件判断
(always
  (if (条件)
    (条件に合致した時に行われる処理)
    (条件に合致しない時に行われる処理)
  )
)

; センサの値を使った条件判断
(always
  (if (> sensor n)
    (センサの値がnより大きい時に行われる処理)
    (センサの値がn以下の時に行われる処理)
  )
)

; センサの値を使った条件判断
(always
  (if (< sensor n)
    (センサの値がnより小さい時に行われる処理)
    (センサの値がn以上の時に行われる処理)
  )
)

; 右方向にフェード
(always
  (right 2)
)

; 左右にフェード
(always
  (right 2)(left 2)
)

; インとアウトを繰返す
(always
  (in 2)(out 2)
)

; 繰り返して行う処理を関数として定義し、
; 関数を呼び出すことで重複なくコードを書くことができる
(define (change-speed s)
  (left s)(right s)
)

(always
  (change-speed 1/2)
)

; タッチしている時は素早くtwinkle
; そうでない時はゆっくりtwinkle
(always
  (if (touched)
    (twinkle 1/2)
    (twinkle 10)
  )
)

; タッチしている時は素早くtwinkle
; そうでない時はゆっくりinとout
(always
  (if (touched)
    (twinkle 1/2)
    ((in 2)(out 2))
  )
)

; タッチしている時は左右に
; そうでない時はゆっくりtwinkle
(always
  (if (touched)
    ((left 1/2)(right 1/2))
    (twinkle 2)
  )
)

; センサの値が3より大きければtwinkleで素早く点滅
; 何もない時はcenterだけゆっくりと点滅
(always
  (if (> sensor 3)
    (repeat 4 (twinkle 1/4))
    (center 1)
  )
)

; タッチされている時はtwinkleで素早く変化
; センサの値が3より大きければ左右に大きく変化
; 何もない時はcenterだけゆっくりと点滅
(always
  (if (> sensor 3)
    (repeat 2 (right 1/4)(left 1/4))
    (if (touched)
      (twinkle 1/4)
      (center 1)
    )
  )
)

; 再帰関数を定義する
(define (reps n)
  (
    (repeat n (left 1)) (wait 5)
    (reps (+1 n))
  )
)