# bp_chair.obj

# the infamous barcelona chair
# modelled (or should I say subjected to
# a fourier transform) by
# Matiu Carr, October 1994

void            metal           stainless
0
0
5       .96 .96 .96 .96 0

!xform -rz 180 -t 0 -.245 .175 -a 2 -my bp_stool_leg.obj
!xform -t 0 -.245 .8 -a 2 -my bp_chair_leg.obj

!genbox stainless joint1 .025 .475 .006 -r .001 \
        |xform -t -.25 -.2375 .344

!genbox stainless joint2 .006 .475 .025 -r .001 \
        |xform -t .394 -.2375 .775

void            plastic         leather
0
0
5       .7 .6 .5 .05 .05

!gensurf leather back \
        '-.25+.65*cos((7*PI/4)+(s*PI/4))' \
        '-.25+.5*t' \
        '.8+.8*sin((7*PI/4)+(s*PI/4))' \
        32 1 -s

!gensurf leather front \
        '-.25+(.01*sin(12*PI*s)+.6)*cos((7*PI/4)+(s*PI/4))' \
        '-.25+.5*t' \
        '.8+(.01*sin(12*PI*s)+.8)*sin((7*PI/4)+(s*PI/4))' \
        96 1 -s

leather         cylinder        head
0
0
7       .375 -.25 .8
        .375 .25 .8
        .025

leather         ring            headend1
0
0
8       .375 -.25 .8
        0 -1 0
        0 .025

leather         ring            headend2
0
0
8       .375 .25 .8
        0 1 0
        0 .025

!gensurf leather this_side \
        '-.25+(.65*cos((7*PI/4)+(s*PI/4))-(.01*sin(12*PI*s)+.6)*cos((7*PI/4)+(s*PI/4)))*t+(.01*sin(12*PI*s)+.6)*cos((7*PI/4)+(s*PI/4))' \
        '-.25' \
        '.8+(.8*sin((7*PI/4)+(s*PI/4))-(.01*sin(12*PI*s)+.8)*sin((7*PI/4)+(s*PI/4)))*t+(.01*sin(12*PI*s)+.8)*sin((7*PI/4)+(s*PI/4))' \
        96 4 -s

!gensurf leather that_side \
        '-.25+(.65*cos((7*PI/4)+(s*PI/4))-(.01*sin(12*PI*s)+.6)*cos((7*PI/4)+(s*PI/4)))*t+(.01*sin(12*PI*s)+.6)*cos((7*PI/4)+(s*PI/4))' \
        '.25' \
        '.8+(.8*sin((7*PI/4)+(s*PI/4))-(.01*sin(12*PI*s)+.8)*sin((7*PI/4)+(s*PI/4)))*t+(.01*sin(12*PI*s)+.8)*sin((7*PI/4)+(s*PI/4))' \
        96 4 -s

leather         cylinder        bend
0
0
7       .1897705 -.25 .2544475
        .1897705 .25 .2544475
        .025

leather         ring            bendend1
0
0
8       .1897705 -.25 .2544475
        0 -1 0
        0 .025

leather         ring            bendend2
0
0
8       .1897705 .25 .2544475
        0 1 0
        0 .025

leather         cylinder        end
0
0
7       -.25 -.25 .375
        -.25 .25 .375
        .025

leather         ring            endend1
0
0
8       -.25 -.25 .375
        0 -1 0
        0 .025

leather         ring            endend2
0
0
8       -.25 .25 .375
        0 1 0
        0 .025

!gensurf leather upper \
        '-.25+.4397709*s' \
        '-.25+.5*t' \
        '.005*sin(s*8*PI)+.33972375+.06027625*cos(s*PI)' \
        32 1 -s

!gensurf leather lower \
        '-.25+.4397709*s' \
        '-.25+.5*t' \
        '.28972375+.06027625*cos(s*PI)' \
        32 1 -s

!gensurf leather this_side \
        '-.25+.4397709*s' \
        '-.25' \
        '((.005*sin(s*8*PI)+.33972375+.06027625*cos(s*PI))-(.28972375+.06027625*cos(s*PI)))*t+(.28972375+.06027625*cos(s*PI))' \
        32 2 -s

!gensurf leather that_side \
        '-.25+.4397709*s' \
        '.25' \
        '((.005*sin(s*8*PI)+.33972375+.06027625*cos(s*PI))-(.28972375+.06027625*cos(s*PI)))*t+(.28972375+.06027625*cos(s*PI))' \
        32 2 -s

# bp_chair_leg.obj
# the long leg of the
# barcelona chair

!gensurf stainless lower \
        '-.25+.65*cos((3*PI/2)+(s*PI/2))' \
        '-.0125+.025*t' \
        '.8*sin((3*PI/2)+(s*PI/2))' \
        32 1 -s

!gensurf stainless upper \
        '-.25+.65*cos((3*PI/2)+(s*PI/2))' \
        '-.0125+.025*t' \
        '.005+.8*sin((3*PI/2)+(s*PI/2))' \
        32 1 -s

!gensurf stainless this_side \
        '-.25+.65*cos((3*PI/2)+(s*PI/2))' \
        '-.0125' \
        '.8*sin((3*PI/2)+(s*PI/2))+.005*t' \
        32 2 -s

!gensurf stainless this_side \
        '-.25+.65*cos((3*PI/2)+(s*PI/2))' \
        '.0125' \
        '.8*sin((3*PI/2)+(s*PI/2))+.005*t' \
        32 2 -s

# bp_stool_leg.obj
# the leg

!gensurf stainless lowerface \
        '-.25+.5*s' \
        '.0125-.025*t' \
        '.175*sin((PI*s)-(PI/2))' \
        32 1 -s

!gensurf stainless upperface \
        '-.25+.5*s' \
        '-.0125+.025*t' \
        '.005+.175*sin((PI*s)-(PI/2))' \
        32 1 -s

!gensurf stainless this_side \
        '-.25+.5*s' \
        '-.0125' \
        '.175*sin((PI*s)-(PI/2))+t*.005' \
        32 2 -s

!gensurf stainless this_side \
        '-.25+.5*s' \
        '.0125' \
        '.175*sin((PI*s)-(PI/2))+t*.005' \
        32 2 -s