「あ」

0

文字の拡大と縮小による作品

「あ」
http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Scale_3.html

// あ
map=[|v s1 e1 s2 e2| s2+(e2-s2)*((v-s1)/(e1-s1))].
w=screen!width?. h=screen!height?.

n=20.
moji=array! create. mx=array! create. my=array! create. sz=array! create.
[
mx! (!(random(w))(1)(w)(w/-2)(w/2) map) add.
my! (!(random(h))(1)(h)(h/2)(h/-2) map) add.
sz! (random(10)) add.
]! (n) repeat.

i=0.
[i=i+1.
x=mx! (i) get. y=my! (i) get.
c=color! (random(256))(random(256))(random(256)) create.
moji! (label! "あ" create (c! settransparency) fontcolor (1) fontsize (x)(y) position) add.
]! (n) repeat.

s=0. m=1.
timer! create (0.05) interval (60) duration [
s=s+2*m.
[|i|
[s>=200]! then [m=-1] execute.
[s<=0]! then [m=1] execute.
x0=((moji! (i) get)! width?). y0=((moji! (i) get)! height?).
(moji! (i) get)! (s) fontsize.
x1=((moji! (i) get)! width?). y1= ((moji! (i) get)! height?).
(moji! (i) get)! ((x1-x0)/-2)((y1-y0)/2) moveby
]! (n) repeat.
] execute.

Default