[comp.sources.misc] v16i010: sipp 2.0 - a library for 3D graphics, Part06/06

kent@sparky.IMD.Sterling.COM (Kent Landfield) (01/03/91)

Submitted-by: ingwa@isy.liu.se (Inge Wallin)
Posting-number: Volume 16, Issue 10
Archive-name: sipp2.0/part06

#!/bin/sh
# This is part 06 of sipp-2.0
# ============= demo/tpt_spout.bez ==============
if test ! -d 'demo'; then
    echo 'x - creating directory demo'
    mkdir 'demo'
fi
if test -f 'demo/tpt_spout.bez' -a X"$1" != X"-c"; then
	echo 'x - skipping demo/tpt_spout.bez (File already exists)'
else
echo 'x - extracting demo/tpt_spout.bez (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'demo/tpt_spout.bez' &&
# Bezier patches for teapot spout
X
bezier_patches:
X
vertices: 42
vertex_list:
X    4.250000E-01    3.187500E-01    0.000000E+00
X    6.500000E-01    3.187500E-01    0.000000E+00
X    5.750000E-01    4.875000E-01    0.000000E+00
X    6.750000E-01    5.625000E-01    0.000000E+00
X    7.000000E-01    5.812500E-01    0.000000E+00
X    7.250000E-01    5.812500E-01    0.000000E+00
X    7.000000E-01    5.625000E-01    0.000000E+00
X    4.250000E-01    3.187500E-01    1.650000E-01
X    6.500000E-01    3.187500E-01    1.650000E-01
X    5.750000E-01    4.875000E-01    6.250000E-02
X    6.750000E-01    5.625000E-01    6.250000E-02
X    7.000000E-01    5.812500E-01    6.250000E-02
X    7.250000E-01    5.812500E-01    3.750000E-02
X    7.000000E-01    5.625000E-01    3.750000E-02
X    4.250000E-01    1.125000E-01    1.650000E-01
X    7.750000E-01    1.687500E-01    1.650000E-01
X    6.000000E-01    4.687500E-01    6.250000E-02
X    8.250000E-01    5.625000E-01    6.250000E-02
X    8.812500E-01    5.859375E-01    6.250000E-02
X    8.625000E-01    5.906250E-01    3.750000E-02
X    8.000000E-01    5.625000E-01    3.750000E-02
X    4.250000E-01    1.125000E-01    0.000000E+00
X    7.750000E-01    1.687500E-01    0.000000E+00
X    6.000000E-01    4.687500E-01    0.000000E+00
X    8.250000E-01    5.625000E-01    0.000000E+00
X    8.812500E-01    5.859375E-01    0.000000E+00
X    8.625000E-01    5.906250E-01    0.000000E+00
X    8.000000E-01    5.625000E-01    0.000000E+00
X    4.250000E-01    1.125000E-01   -1.650000E-01
X    7.750000E-01    1.687500E-01   -1.650000E-01
X    6.000000E-01    4.687500E-01   -6.250000E-02
X    8.250000E-01    5.625000E-01   -6.250000E-02
X    8.812500E-01    5.859375E-01   -6.250000E-02
X    8.625000E-01    5.906250E-01   -3.750000E-02
X    8.000000E-01    5.625000E-01   -3.750000E-02
X    4.250000E-01    3.187500E-01   -1.650000E-01
X    6.500000E-01    3.187500E-01   -1.650000E-01
X    5.750000E-01    4.875000E-01   -6.250000E-02
X    6.750000E-01    5.625000E-01   -6.250000E-02
X    7.000000E-01    5.812500E-01   -6.250000E-02
X    7.250000E-01    5.812500E-01   -3.750000E-02
X    7.000000E-01    5.625000E-01   -3.750000E-02
X
patches:   4
patch_list:
X
22 23 24 25
15 16 17 18
X 8  9 10 11
X 1  2  3  4
X
X 1  2  3  4
36 37 38 39
29 30 31 32
22 23 24 25
X
25 26 27 28
18 19 20 21
11 12 13 14
X 4  5  6  7
X
X 4  5  6  7
39 40 41 42
32 33 34 35
25 26 27 28
SHAR_EOF
chmod 0644 demo/tpt_spout.bez ||
echo 'restore of demo/tpt_spout.bez failed'
Wc_c="`wc -c < 'demo/tpt_spout.bez'`"
test 2358 -eq "$Wc_c" ||
	echo 'demo/tpt_spout.bez: original size 2358, current size' "$Wc_c"
fi
exit 0

-- 
Inge Wallin               | Thus spake the master programmer:               |
                          |      "After three days without programming,     |
ingwa@isy.liu.se          |       life becomes meaningless."                |
                          | Geoffrey James: The Tao of Programming.         |


exit 0 # Just in case...
-- 
Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
Sterling Software, IMD           UUCP:     uunet!sparky!kent
Phone:    (402) 291-8300         FAX:      (402) 291-4362
Please send comp.sources.misc-related mail to kent@uunet.uu.net.