作業七: 應用 Mouse-1-2-3 配合Time 4 創作 - 水流波動

水流波動(水乳交融?!)


IE執行

//程式碼

size 400 400
paper 10
fast
command rect a b x y c
{
pen c time4 100
line (a-x/2) (b-y/2) (a+x/2) (b-y/2)
}
forever
{
rect mouse1 mouse2 30 20 time4
}

作業六: 應用 Mouse-paint - 自畫像&自由創作

自畫像






謎樣女子

size 400 400

forever
{
set [mouse 1 mouse 2] mouse 3
set [(mouse 1+1) (mouse 2)] mouse 3>
set [(mouse 1>-1) (mouse 2>)] mouse 3>
set [(mouse 1>) (mouse 2>+1)] mouse 3>
set [(mouse 1>) (mouse 2>-1)] mouse 3>
set [(mouse 1>+1) (mouse 2>+1)] mouse 3>
set [(mouse 1>-1) (mouse 2>-1)] mouse 3>
set [(mouse 1>-1) (mouse 2>+1)] mouse 3>
set [(mouse 1>+1) (mouse 2>-1)] mouse 3>

}