When loading the data set, the 'EXpand 3' card was used. The drawing was generated on the B/W screen device:

Gen Devc * 1
Trs Expa 1
Gen View 1
{ shade }  

Set Write 15
Set Inscr 4
Mgn Inscr -1.5
Brd Inscr 4
{ pattn / w / 3Dim }

Set ColOth 4
Mdf Fourier 8 .3
{ fourr }
{ quick / hyper }

a strong perspective distortion and a fixed scale factor were used:

Set View 12
Mgn Model 3
Set ColOth 4
Mdf Fourier 3 .5
{ fourr }
{ varyZ }

Set ColOth 1
{ fourr / vertic }
{ cupBS / shadow }

Gen Cups
Kll Screen 3
Set Xlim .3 1
{ shade }
Set Xlim 0 .3
{ varyZ / uni }

Def $ nn
{ lines / $ / relief }

Mdf Fourier 6 .3
Set ColOth 7
{ fourr }
Xqt Stars
Mdf Shadow 1 100
{ shade }

Mgn Model .8
Brd Lines 0
Set ColOth 13 3
Xqt Region ! 1 A
Kil Screen 3
{ varyZ / simple }
 

Set ColOth 1
{ fourr / horiz }
Set ColOth 6
{ fourr / p / a }
{ cupBS / beside }

Set ColOth 4
Mdf Fourier .7 .5
{ fourr }
{ varyZ }
Mgn Inscr -1.5
Set Inscr 4
Brd Inscr 6 1
Wrt Symbol  # (C H

Set ColOth 7
{ fourr / ellipt }
Set ColOth 1
{ fourr / p / a }
{ varyZ / cups }