File:  [NeXTSTEP 3.3 examples] / Examples / PostScript / Stanford.eps
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 17:49:00 2018 UTC (8 years, 1 month ago) by root
Branches: NeXT, MAIN
CVS tags: NeXTSTEP33, HEAD
Sample Programs from NeXSTEP 3.3

%!PS-Adobe-2.0 EPSF-2.0
%%Title: Stanford.eps
%%Creator: B. Reid
%%Pages: 0 1
%%BoundingBox: 100 20 600 750
%%EndComments

% A simplified version of the ~1980 Stanford campus. 
% A non-PostScript version of this file was used 
% in the various graphics classes at Stanford.
% The file was converted to PostScript by B. Reid.
%
% Note that this conversion process demonstrates
% one way you can get PostScript to use data files that
% are not in PostScript format. The data in the original
% file uses the "L" or "P" commands to display lines or
% filled polygons. "L" commands are followed by four numbers
% (the x and y for endpoints), the "P" commands are followed
% by the number of points and that many vertices. 
% This program defines two PostScript functions "P" and "L"
% which simply swallow the required number of tokens that
% follow them. The "ct" function is used to read the next
% number from the file.
%
% Of course, one can always use a script or some program to
% convert such data files to PostScript instead. That is
% usually a better choice, especially when many such data
% files are involved.
%
% Finally, please do not use this map as a reference to
% Stanford campus; the campus has grown considerably
% since this map was drawn. The map also does not
% include the Medical School & associated buildings.
%

% Read the next token from the current program file.
% Assumes we have a token.
/ct {
	currentfile token pop
} def

% L swallows two vertices from the file and draws a line.
/L {
	ct ct moveto ct ct lineto stroke
} def 

% P swallows a polygon and draws it.
/P {
	/npts ct def
 	newpath ct ct moveto npts 1 sub 
  	{ct ct lineto} repeat
  	closepath gsave 0.8 setgray fill grestore stroke
} def

% Finally change orientation so the data fills the page.
% Assumes 8.5 x 11, standard letter size page.
90 rotate 
792 -612 translate
-0.5 0.5 scale

% And the data.
 
L 1499  656 1473  665
L 1473  665 1447  666
L 1447  666 1216  665
L 1216  665 1194  670
L 1194  670 1182  682
L 1182  682 1176  697
L 1176  697 1171  714
L 1171  714 1173  812
L 1173  812 1171  851
L 1171  851 1167  885
L 1167  885 1158  911
L 1158  911 1145  931
P 4
 1499  596 1490  597 1491  613 1499  612
P 4
 1480  590 1468  590 1469  616 1480  616
P 4
 1423  624 1413  624 1413  642 1421  641
L  564  394  566  280
L  566  280  492  208
L  492  208  447  233
L  447  233  409  239
L  409  239  337  229
L  337  229  285  229
L  285  229  248  244
L  248  244  227  263
L  227  263  219  286
L  219  286  219  387
L  219  387  564  393
L  192  599  201  597
L  201  597  205  279
L  205  279  211  258
L  211  258  233  238
L  233  238  265  221
L  265  221  326  214
L  326  214  364  220
L  364  220  420  226
L  420  226  466  205
L  466  205  478  196
L  478  196  472  189
L  461  780  458  615
L  458  615  219  612
L  219  612  217  628
P 4
 1391  616 1390  627 1408  626 1408  617
P 4
 1368  629 1378  631 1378  614 1369  611
L  565  824  567  620
L  567  620  469  617
L  469  617  471  798
P 4
 1390  635 1390  647 1406  646 1406  635
P 4
 1380  635 1364  635 1364  643 1382  644
P 8
 1313  567 1301  567 1300  572 1289  570 1286  595 1318  594 1320  582 1313  581
P 19
 1373  483 1364  482 1362  496 1356  496 1355  482 1342  481 1343  504 1373  505
 1373  531 1367  531 1368  552 1397  552 1397  523 1381  525 1380  507 1389  505
 1389  495 1379  493 1374  498
P 8
 1363  449 1350  448 1350  463 1343  461 1342  475 1374  477 1375  464 1365  463
P 4
 1362  514 1362  535 1332  535 1333  516
P 8
 1314  520 1296  519 1297  527 1309  528 1308  534 1297  534 1296  541 1315  542
P 20
 1331  457 1323  457 1321  482 1315  481 1315  471 1298  470 1296  478 1307  478
 1307  483 1298  482 1298  494 1307  491 1308  497 1297  499 1298  507 1315  507
 1315  488 1322  489 1324  499 1333  499
L  754  919  755  725
L  755  725  576  722
L  576  722  575  838
L  844  624  827  656
L  827  656  825  693
L  825  693  835  742
L  835  742  772  715
L  772  715  759  713
L  759  713  577  708
L  577  708  577  620
L  577  620  644  621
L  644  621  656  632
L  656  632  672  633
L  672  633  686  629
L  686  629  692  619
L  692  619  843  624
P 5
 1212  248 1211  259 1195  259 1195  248 1211  248
P 24
 1276  195 1215  195 1214  187 1199  187 1198  194 1137  193 1138  203 1166  201
 1169  234 1180  234 1181  263 1191  262 1192  222 1178  223 1179  202 1231  204
 1230  224 1220  225 1217  263 1224  261 1227  233 1242  233 1243  205 1276  205
P 10
 1246  575 1201  573 1201  588 1209  588 1211  614 1220  614 1220  608 1234  608
 1234  614 1244  614
P 14
 1200  503 1200  515 1223  516 1223  533 1201  532 1201  547 1223  547 1224  551
 1269  550 1269  534 1240  534 1240  516 1246  516 1246  503
P 10
 1166  438 1157  439 1158  463 1150  463 1151  543 1142  545 1143  556 1176  555
 1176  542 1170  542
L  471  524  469  602
L  469  602  647  606
L  647  606  654  597
L  654  597  668  593
L  668  593  687  600
L  687  600  692  607
L  692  607 1067  612
P 8
 1160  371 1136  371 1136  413 1156  412 1158  432 1179  431 1180  394 1159  394
P 16
 1126  461 1087  462 1086  524 1081  525 1082  540 1128  540 1126  514 1115  515
 1114  523 1102  523 1103  508 1127  509 1128  487 1103  488 1103  472 1127  472
P 8
 1127  436 1089  437 1087  455 1102  456 1103  448 1111  450 1111  455 1129  455
P 8
 1138  561 1127  560 1125  579 1113  579 1113  589 1151  589 1151  580 1139  579
P 16
 1016  855 1016  874 1008  876 1009  885 1015  888 1016  908 1040  910 1039  899
 1033  901 1033  887 1040  885 1040  874 1033  874 1033  863 1039  861 1038  854
L  502  199  569  266
L  569  266  580  279
L  580  279  580  406
L  580  406  218  402
L  218  402  215  598
L  215  598  454  601
L  454  601  455  524
P 8
 1077  825 1076  906 1063  905 1063  913 1075  915 1076  936 1090  937 1088  824
P 4
 1144  748 1144  763 1115  764 1113  748
L  888  265 1007  267
L 1007  267 1007  176
L 1007  176  990  141
P 8
 1119  390 1089  390 1090  424 1110  424 1110  413 1099  413 1100  402 1117  402
P 4
 1109  302 1110  348 1159  348 1161  303
P 18
 1068  168 1058  166 1051  191 1058  193 1062  186 1092  194 1090  203 1100  206
 1102  196 1115  199 1115  211 1120  211 1126  186 1120  184 1117  194 1107  190
 1108  180 1074  172
P 4
 1077  757 1078  767 1027  765 1029  758
P 4
 1100  734 1069  735 1070  745 1098  745
L 1070  613 1074  357
L 1074  357 1090  352
L 1090  352 1089  281
L 1089  281  889  276
L 1315  262 1288  271
L 1288  271 1269  273
L 1269  273 1021  268
L 1021  268 1020  172
L 1020  172  997  126
L  997  126  972   90
P 4
 1095  727 1091  727 1091  730 1095  730
P 4
 1100  711 1070  710 1069  721 1100  723
P 4
 1096  702 1091  703 1092  707 1096  707
P 4
 1069  688 1069  699 1101  699 1102  687
P 16
 1026  694 1027  700 1034  699 1035  707 1029  707 1029  729 1034  729 1033  737
 1012  739 1011  729 1014  729 1015  706 1010  707 1010  697 1016  698 1016  694
P 8
 1023  634 1025  660 1051  660 1052  680 1013  681 1012  656 1002  656 1002  634
P 6
 1005  298  994  298  994  303  998  304  999  310 1006  310
P 8
 1085  304 1073  303 1072  317 1066  317 1064  335 1026  335 1027  350 1084  349
L 1498  641 1481  650
L 1481  650 1458  653
L 1458  653 1444  578
L 1444  578 1412  493
L 1412  493 1388  446
L 1388  446 1371  426
L 1371  426 1342  409
L 1342  409 1304  399
L 1304  399 1211  396
L 1211  396 1167  356
L 1167  356 1100  354
L 1100  354 1102  281
L 1102  281 1280  286
L 1280  286 1320  273
P 12
 1047  369 1047  402 1052  403 1051  413 1046  412 1047  431 1065  430 1064  411
 1061  409 1061  403 1067  403 1066  369
P 17
 1067  446 1022  446 1021  469 1048  470 1048  490 1034  489 1026  501 1035  511
 1046  507 1046  533 1022  533 1021  558 1065  559 1066  535 1059  534 1061  470
 1067  469
L 1446  655 1438  597
L 1438  597 1400  491
L 1400  491 1377  447
L 1377  447 1338  416
L 1338  416 1312  408
L 1312  408 1286  407
L 1286  407 1284  601
L 1284  601 1274  621
L 1274  621 1271  652
L 1271  652 1446  656
P 4
 1027  423 1028  435 1037  433 1037  422
P 4
  990  367  990  391 1034  392 1034  368
P 12
  945  296  943  326  959  328  958  346 1001  347 1001  313  989  315  989  295
  996  295  995  283  959  283  960  296
P 12
  889  306  888  343  943  346  943  336  924  336  924  333  901  333  901  326
  908  326  909  317  897  318  898  306
P 8
  924  281  924  299  914  298  915  293  899  293  898  300  888  301  890  280
P 8
  951  135  935  145  933  141  939  138  935  132  919  143  932  162  958  145
L 1198  655 1190  632
L 1190  632 1190  455
L 1190  455 1178  451
L 1178  451 1178  615
L 1178  615 1080  612
L 1080  612 1081  363
L 1081  363 1165  364
L 1165  364 1204  405
L 1204  405 1273  406
L 1273  406 1274  594
L 1274  594 1263  633
L 1263  633 1261  653
L 1261  653 1209  652
L 1209  652 1198  657
P 4
  991  204  992  216 1003  215 1002  204
P 12
  892  201  898  211  893  214  902  227  911  211  923  211  919  201  925  200
  928  203  933  198  927  190  919  186
L 1186  657 1171  669
L 1171  669 1163  687
L 1163  687 1158  720
L 1158  720 1159  807
L 1159  807  998  803
L  998  803  997  701
L  997  701  983  702
L  983  702  969  717
L  969  717  922  740
L  922  740  930  688
L  930  688  929  659
L  929  659  914  626
L  914  626 1178  632
L 1178  632 1186  656
L 1124  940 1146  914
L 1146  914 1159  882
L 1159  882 1162  846
L 1162  846 1161  816
L 1161  816  997  811
L  997  811  998  934
P 4
  966  225  959  226  960  236  969  236
P 8
  947  230  940  233  942  238  914  244  916  252  946  246  947  253  956  248
L  897  641  860  641
L  860  641  852  647
L  852  647  842  669
L  842  669  840  700
L  840  700  849  736
L  849  736  862  762
L  862  762  878  770
L  878  770  889  766
L  889  766  905  745
L  905  745  917  703
L  917  703  915  657
L  915  657  898  639
P 71
  985  413  930  413  930  424  947  425  948  418  959  419  960  428  969  429
  970  451  976  452  977  463  945  463  947  453  931  452  929  461  921  462
  921  452  900  452  899  462  889  462  888  453  900  441  881  423  861  439
  872  454  870  460  858  461  858  451  835  450  833  459  828  460  827  450
  812  450  809  459  781  460  779  448  788  448  791  426  801  425  802  417
  811  417  811  423  827  423  826  410  774  409  775  487  803  487  803  499
  776  498  774  579  874  581  874  575  863  575  864  526  873  526  873  519
  813  518  813  467  946  470  946  520  880  518  878  526  893  527  893  575
  885  576  886  582  983  583  983  502  954  502  954  491  985  491
P 4
  938  367  939  390  978  391  979  366
P 8
  889  364  888  371  899  371  898  380  889  380  889  388  927  388  928  365
P 8
  845  375  847  388  781  388  781  379  788  379  786  367  802  366  805  374
P 6
  872  363  830  363  829  371  853  372  852  388  873  389
P 4
  822  358  810  359  811  368  823  366
P 18
  845  292  815  291  814  282  794  281  791  289  788  290  787  329  793  331
  793  344  815  344  815  331  844  331  844  326  854  327  854  318  865  317
  865  307  855  306
P 12
  866  209  852  213  856  224  842  228  851  273  863  273  865  260  877  261
  877  245  865  247  860  231  872  228
P 8
  714  635  714  655  706  655  706  675  714  675  713  700  744  700  744  635
L  891  773  878  775
L  878  775  865  771
L  865  771  878  789
L  878  789  893  772
P 12
  723  519  708  519  708  523  693  523  694  558  701  560  700  552  706  552
  707  561  717  561  717  533  724  533
P 4
  744  566  703  566  704  578  745  577
P 40
  744  412  735  412  735  422  718  421  718  412  710  412  710  458  714  458
  714  470  673  469  672  479  664  478  662  467  650  467  649  458  635  459
  633  450  620  450  620  459  605  459  605  497  621  497  620  502  635  502
  636  508  646  507  648  511  661  510  661  502  667  502  670  510  724  511
  724  450  734  449  735  460  742  460  744  452  748  451  748  424  744  422
P 6
  751  361  733  360  731  368  740  367  740  378  751  378
P 5
  787  226  766  228  766  247  787  249  793  237
L  858  781  841  754
L  841  754  835  758
L  835  758  773  729
L  773  729  771  779
L  771  779  855  782
P 4
  779  196  786  213  709  239  707  219
P 16
  739  260  708  259  708  282  718  281  718  298  685  298  685  324  719  325
  718  332  724  332  726  327  747  328  747  295  729  293  729  282  739  282
P 4
  710  191  717  201  707  208  699  198
P 4
  734  184  741  195  750  189  744  179
P 4
  732  156  738  165  729  172  721  162
P 4
  611  801  587  802  587  820  612  819
L  982  782  982  727
L  982  727  947  744
L  947  744  921  755
L  921  755  898  782
L  898  782  982  783
P 6
  592  759  577  759  577  782  586  782  585  771  590  771
P 20
  677  639  656  638  656  643  649  644  648  652  652  652  652  668  641  668
  640  686  650  687  651  693  677  693  678  688  689  685  690  668  680  669
  680  654  683  653  683  643  677  644
P 4
  657  539  657  565  682  564  682  539
P 4
  639  564  638  576  596  575  595  565
P 4
  639  535  639  547  596  547  594  533
P 20
  650  374  636  374  636  396  644  397  644  413  637  414  637  432  649  432
  650  419  663  419  663  432  674  432  674  412  668  414  668  396  675  396
  674  374  663  374  663  387  651  386
P 8
  628  300  613  299  604  308  589  308  588  344  601  345  611  337  629  337
P 12
  680  248  652  249  653  258  631  258  631  248  603  247  602  288  629  289
  629  278  649  278  648  288  678  289
P 4
  651  223  631  224  631  243  652  242
P 4
  690  167  682  173  688  182  696  177
P 4
  662  153  671  163  679  155  670  147
P 4
  643  135  651  143  659  135  650  128
L  863  871  863  790
L  863  790  772  788
L  772  788  772  870
L  772  870  861  871
P 4
  611  191  619  200  628  193  620  185
P 4
  600  202  593  210  600  218  608  211
P 4
  592  171  601  179  609  169  601  163
L  983  871  983  790
L  983  790  894  790
L  894  790  892  871
L  892  871  984  872
P 4
  572  179  564  185  573  193  580  186
P 5
  553  172  545  175  550  183  556  179  552  175
P 20
  534  755  492  755  491  771  484  770  484  753  477  752  476  785  479  784
  480  797  493  798  494  785  528  786  530  799 
 541  799  540  787  547  786
  546  771  528  770  528  766  534  765
P 4
  534  717  535  742  549  742  549  718
P 12
  522  640  505  640  504  648  498  649  498  670  527  672  528  666  535  667
  534  657  529  658  531  649  524  650
P 8
  484  504  483  540  479  540  478  574  545  574  546  541  543  542  543  504
P 22
  502  337  477  338  476  376  549  376  549  338  540  339  540  333  523  334
  523  321  539  322  540  317  552  317  552  272  518  272  518  305  510  305
  511  272  476  271  476  316  489  316  488  321  502  321
L  862  936  862  886
L  862  886  772  884
L  772  884  771  931
P 16
  525  431  536  433  536  442  541  442  541  470  537  472  536  479  525  480
  525  493  546  491  547  480  553  481  553  438  549  438  549  421  524  421
P 16
  500  431  511  430  510  421  487  421  486  438  483  438  482  473  486  474
  486  490  510  490  509  480  501  480  501  475  496  474  497  439  500  439
P 6
  394  539  394  574  431  574  432  566  405  565  406  539
L  891  937  892  884
L  892  884  982  887
L  982  887  983  935
P 24
  412  442  410  476  401  477  400  494  412  493  411  530  419  530  421  504
  434  504  435  508  441  509  441  487  437  488  435  494  421  493  422  476
  434  475  434  485  441  485  441  464  435  463  435  466  421  465  421  442
P 24
  362  450  340  450  340  443  355  441  356  421  364  423  366  443  382  442
  382  421  390  421  390  442  404  442  405  451  382  451  383  464  379  466
  378  479  382  477  381  488  364  487  363  479  369  478  367  465  363  464
P 88
  332  346  325  346  324  373  329  374  326  381  316  381  316  375  291  375
  290  370  284  371  283  373  271  374  271  348  263  348  263  335  270  336
  269  339  285  340  285  334  301  335  301  340  306  339  306  324  301  323
  300  328  289  330  287  324  271  324  270  329  263  329  264  317  271  316
  271  293  282  292  284  296  290  295  289  291  317  291  316  283  329  282
  330  289  323  291  324  307  330  306  331  324  348  325  350  310  357  308
  357  289  352  290  351  281  365  282  364  293  388  293  390  297  395  297
  394  293  407  293  407  317  417  316  417  330  406  330  404  326  391  326
  391  330  380  330  379  326  373  327  374  341  378  339  378  335  391  335
  392  341  406  341  408  335  416  336  416  351  408  351  405  374  367  373
  366  382  349  383  350  375  356  375  357  346  349  347  349  355  335  353
P 9
  176  370  166  377  152  361  130  364  127  354  150  349  160  328  169  331
  160  350
  
showpage
  

unix.superglobalmegacorp.com

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