Return to FlexyCubeWraps.psw CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / AppKit / BackspaceViews / FlexyCube

Sample Programs from NeXSTEP 3.3

defineps drawNeXTCube(float Width, Height, Gray)

1.75 1.25 translate	% => bbox 0 0 55 67
Width 55 div Height 67 div scale

0.4 setlinewidth
Gray setgray

%
%	fill box black
%
gsave
newpath
14.96 0.9075 moveto
0.103 28.8195 lineto
2.827 46.2235 lineto

3.003 47.6385 lineto
34.558 64.4415 lineto
51.397 32.8165 lineto

50.902 31.5785 lineto
45.171 15.8005 lineto
15.597 0.0585 lineto
closepath
0 setgray
fill
grestore

%
%	Outline
%
1 setgray
gsave
newpath
14.96 0.9075 moveto
0.103 28.8195 lineto
2.827 46.2235 lineto

3.003 47.6385 lineto
34.558 64.4415 lineto
51.397 32.8165 lineto

50.902 31.5785 lineto
45.171 15.8005 lineto
15.597 0.0585 lineto
closepath
stroke
grestore

%
%	top face
%
51.397 32.8165 moveto
19.807 16.0485 lineto
3.003 47.6385 lineto
stroke

%
%	left side
%
19.807 16.0485 moveto
16 0.9075 lineto
stroke


%
%	"N"
%
1 .125 0 setrgbcolor
newpath
16.481 52.8035 moveto
18.179 53.6875 lineto
25.467 39.9975 lineto
9.725 43.9955 lineto
14.677 34.6915 lineto
12.767 33.7005 lineto
5.621 47.1085 lineto
21.646 43.0395 lineto
% 16.481 52.8035 lineto
closepath
fill


%
%	"e"
%
1 1 0 setrgbcolor
newpath
37.473 55.1455 moveto
35.53 59.0425 30.596 60.6925 26.74 58.6405 curveto
23.026 56.6595 21.434 51.6715 23.45 47.8865 curveto
25.467 44.1015 30.349 42.4735 34.204 44.4905 curveto
37.211 46.0825 38.697 49.2655 38.379 52.3795 curveto
36.398 52.2025 lineto
36.751 49.7965 35.619 47.3205 33.355 46.1175 curveto
30.632 44.6675 26.811 45.9765 25.361 48.6995 curveto
37.473 55.1455 lineto
closepath
fill

0 setgray

%
%	hole in "e"
%
newpath
27.519 57.1195 moveto
25.113 55.8105 23.946 52.6265 24.618 50.3625 curveto
34.664 55.7045 lineto
34.664 55.7045 lineto
33.073 57.6855 29.924 58.3575 27.519 57.1195 curveto
closepath
fill

% Gray setgray
0 1 0 setrgbcolor

%
%	"X"
%
newpath
19.984 19.1965 moveto
21.894 18.6665 lineto
24.476 27.4045 lineto
33.462 24.8215 lineto
33.992 26.7315 lineto
25.007 29.3145 lineto
27.483 37.8045 lineto
25.573 38.3345 lineto
23.097 29.8445 lineto
14.288 32.3915 lineto
13.722 30.4815 lineto
22.566 27.9345 lineto
19.984 19.1965 lineto
closepath
fill

%
%	"T"
%
1 0 1 setrgbcolor
newpath
41.669 46.5425 moveto
28.403 39.5375 lineto
29.252 37.9105 lineto
35.053 40.9885 lineto
41.244 29.3855 lineto
42.978 30.3045 lineto
36.787 41.9075 lineto
42.518 44.9505 lineto
41.669 46.5425 lineto
closepath
fill

endps

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.