mas110 exhibition .fundamentals of computational media design.spring 2000.professor john maeda
megan's static pieces . megan's dynamic pieces

 

// a big fish in a small pond
//
// I am contrasting the scale and proportion of objects
// by placing an extra large fish in a obviously small body
// of water. in addition, I am contrasting the colors in the
// water to trick the eye into percieving motion (the
// changes in the shade of the lines mimics light as it
// reflects off water)

paper 0
forever
{

command bigfish p x
{
pen p
// fin
line 45 46 48 46
line 45 45 (45+x) 45
line 45 44 (47+x) 44
line 45 43 (48+x) 43
line 45 42 (50+x) 42
line 45 41 (51+x) 41
line 45 40 (51+x) 40
line 44 39 (52+x) 39
line 43 38 (53+x) 38
line 40 37 (56+x) 37
line 37 36 (58+x) 36
line 33 35 (61+x) 35
// body
line 31 34 (64+x) 34
line 29 33 (66+x) 33
line 27 32 (68+x) 32
line 23 31 (69+x) 31
line 15 30 (71+x) 30
line 17 29 (72+x) 29
line 18 28 (73+x) 28
line 19 27 (73+x) 27
line 20 26 (72+x) 26
line 21 25 (71+x) 25
// tail
line 7 37 20 37
line 8 36 19 36
line 9 35 19 35
line 11 34 18 34
line 12 33 18 33
line 14 32 18 32
line 15 31 18 31
line 14 38 21 38
line 16 39 22 39
line 17 40 23 40
line 18 41 24 41
line 20 42 25 42
line 22 43 26 43
line 24 44 27 44
line 6 38 10 38
line 5 39 9 39
line 4 40 8 40
line 3 41 7 41
line 3 42 5 42
set [3 43] p
}

command smallpond p
{
pen p
line 20 23 82 24
line 50 21 100 22
line 45 19 100 20
line 55 17 100 18
pen (mouse 1 % 77)
line 0 20 50 20
line 0 16 56 16
pen (mouse 2 % 65)
line 0 14 100 14
line 30 12 100 12
pen (mouse 1 % 79)
line 44 8 100 8
pen (mouse 2 % 51)
line 32 22 100 22

pen mouse 2
line 50 20 100 20
pen (mouse 2 % 51)
line 0 18 100 18
pen (mouse 2 % 33)
line 56 16 100 16
line 0 12 30 12
pen (mouse 1 % 79)
line 0 8 64 8
pen (mouse 2 % 49)
line 0 10 100 10
line 0 27 100 27
pen (mouse 2 % 78)
line 0 22 32 22
line 0 25 100 25
}

command land p
{
repeat x 50 100
{
pen (x-65)
line x 28 x 100
}

repeat a 0 100
{
pen p
line a 28 a 30
}
pen p
repeat a 0 30
{
pen p
line 4 a (50-a) 6
line 0 a 4 a
line a 0 a 6
line (a+30) 0 (a+30) 6

line 96 (30 - a) (80-a) 6
line (60+a) 0 (60 +a) 6
line (80+a) 0 (80+a) 10
line 96 a 100 a
}
pen p
set [7 27] p
set [8 27] p
set [92 27] p
set [93 27] p

}

smallpond 35
land 50
bigfish 100 6
}