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

// das madchen

paper 0

command box p x y s
{
pen p
line x y (x + s) y
line (x + s) y (x + s) (y + s)
line (x + s) (y + s) x (y + s)
line x (y + s) x y
}

command fullbox p x y s
{
pen p
repeat L x (x + s)
{
line L y L (y + s)
}
}

command tiltbox p x y size
{
pen p
repeat s 0 size
{
line (x-s) (y+s) (x+size-s) (y+s+size)
}
}

command tilt_rect_up p x y size length
{
repeat l 0 length
{
tiltbox p (x+l) (y+l) size
}
}

command tilt_rect_down p x y size length
{
repeat l 0 length
{
tiltbox p (x+l) (y-l) size
}
}

command curve p x y w h
{
repeat c 0 h
{
set [(c+x) ((c*c/w)+y)] p
}
}

//left shoulder
fullbox 35 15 70 30
tiltbox 0 15 85 20

// waist
fullbox 40 40 37 30
fullbox 45 32 43 30
tiltbox 0 32 51 6
tiltbox 0 32 50 6

//hips
fullbox 55 43 22 30
box 55 27 21 30
fullbox 45 50 15 30
box 45 23 12 30
tiltbox 0 80 38 15
tiltbox 0 80 39 15

//left leg
box 70 16 6 20
box 65 14 (0-19) 32

//right leg
tiltbox 50 75 (0-4) 15
tiltbox 60 78 (0-15) 17

//left arm
tilt_rect_up 45 5 50 8 15
box 40 3 48 8

//right arm
tilt_rect_down 65 80 75 8 20
fullbox 0 67 72 13
box 70 90 55 8
box 60 83 65 10

//hair
curve 90 20 72 10 20
curve 90 18 68 10 20
curve 90 22 63 8 20
curve 90 21 60 6 20
curve 90 27 60 4 20

//face
curve 50 53 89 4 20