% DunnCamera.Jam
(
dunncircle) {{ % dunncircle -- draw white circle on black background for light measurements
.black .setcolor
-0 0 1024 1024 .maskrectangle
.white .setcolor
512 370 200 200 .v2sub .moveto 512 370 200 200 .v2add 512 370 200 200 .v2sub .arcto .maskfilltrajectory
}.cvx .dosaveall
} .cvx .def
(
calibrationdata) {
.erase
.black .setcolor
(Xerox/PressFonts/Helvetica-mrr) .findfont 60 .scalefont .setfont
192 664 .setxy (Dunn Camera Settings) .show
72 544 .setxy (Ektachrome 64 f/5.6) .show
72 444 .setxy (Exposure switches: B5 C5 D5 E5) .show
72 344 .setxy (Brightness: R 5.87 G 5.86 B 5.84) .show
72 244 .setxy (Contrast: R 1.72 G 1.74 B 1.82) .show
72 144 .setxy (August 12, 1986 9:38:05 pm PDT) .show
}.cvx .def
(
calibrationdata) {
.erase
.black .setcolor
(Xerox/PressFonts/Helvetica-mrr) .findfont 60 .scalefont .setfont
192 664 .setxy (Dunn Camera Settings) .show
72 544 .setxy (Ektachrome 64 f/5.6) .show
72 444 .setxy (Exposure switches: B5 C5 D5 E5) .show
72 344 .setxy (Brightness: R 5.87 G 5.86 B 5.84) .show
72 244 .setxy (Contrast: R 1.72 G 1.74 B 1.82) .show
72 144 .setxy (August 12, 1986 9:38:05 pm PDT) .show
}.cvx .def
(
calibrationdata) {
.erase
.black .setcolor
(Xerox/PressFonts/Helvetica-mrr) .findfont 60 .scalefont .setfont
192 664 .setxy (Dunn Camera Settings) .show
72 544 .setxy (Ektachrome 64 f/5.6) .show
72 444 .setxy (Exposure switches: B5 C5 D5 E5) .show
72 344 .setxy (Brightness: R 5.22 G 5.26 B 5.14) .show
72 244 .setxy (Contrast: R 3.99 G 4.02 B 3.99) .show
72 144 .setxy (August 12, 1986 10:--:-- pm PDT) .show
}.cvx .def
(
calibrationdata) {
.erase
.black .setcolor
(Xerox/PressFonts/Helvetica-mrr) .findfont 60 .scalefont .setfont
192 664 .setxy (Dunn Camera Settings) .show
72 544 .setxy (Ektachrome 64 f/5.6) .show
72 444 .setxy (Exposure switches: B5 C5 D5 E5) .show
72 344 .setxy (Brightness: R 5.22 G 5.26 B 5.14) .show
72 244 .setxy (Contrast: R 2.86 G 2.86 B 2.86) .show
72 144 .setxy (August 12, 1986 11:--:-- pm PDT) .show
}.cvx .def
(
calibrationdata) {
.erase
.black .setcolor
(Xerox/PressFonts/Helvetica-mrr) .findfont 60 .scalefont .setfont
192 664 .setxy (Dunn Camera Settings) .show
72 544 .setxy (Ektachrome 64 f/5.6) .show
72 444 .setxy (Exposure switches: B7 C5 D5 E5) .show
72 344 .setxy (Brightness: R 5.22 G 5.26 B 5.14) .show
72 244 .setxy (Contrast: R 1.72 G 1.74 B 1.82) .show
72 144 .setxy (August 13, 1986 11:34:58 am PDT) .show
}.cvx .def
(
calibrationdata) {
.erase
.black .setcolor
(Xerox/PressFonts/Helvetica-mrr) .findfont 60 .scalefont .setfont
192 664 .setxy (Dunn Camera Settings) .show
72 544 .setxy (Ektachrome 64 f/5.6) .show
72 444 .setxy (Exposure switches: B5 C5 D5 E5) .show
72 344 .setxy (Brightness: R 5.22 G 5.26 B 5.14) .show
72 244 .setxy (Contrast: R 3.53 G 3.53 B 3.53) .show
72 144 .setxy (August 13, 1986 12:19:34 pm PDT) .show
}.cvx .def
(
calibrationdata) {
.erase
.black .setcolor
(Xerox/PressFonts/Helvetica-mrr) .findfont 60 .scalefont .setfont
192 664 .setxy (Dunn Camera Settings) .show
72 544 .setxy (Ektachrome 64 f/5.6) .show
72 444 .setxy (Exposure switches: B5 C5 D5 E5) .show
72 344 .setxy (Brightness: R 4.20 G 4.20 B 4.38) .show
72 244 .setxy (Contrast: R 2.95 G 3.01 B 2.98) .show
72 144 .setxy (March 30, 1987 4:45:33 pm PST) .show
}.cvx .def
(
note) { % <text> note
.blue .setcolor
0 0 400 50 .maskrectangle
.white .setcolor
(Xerox/PressFonts/Helvetica-mrr) .findfont 30 .scalefont .setfont
30 10 .setxy .show
}.cvx .def
(
colorboxes) {
(box) {}.cvx .def
.red .setcolor box
.green .setcolor box
.yellow .setcolor box
.cyan .setcolor box
.magenta .setcolor box
.black .setcolor box
.white .setcolor box
}.cvx .def
(
colorbars) {
(barY) 250 .def
(barX) 0 .def
(barW) 1024 8 .div .def
(bar) {
barX barY barX barW .add 1024 .maskrectangle
(barX) barX barW .add .def
}.cvx .def
.red bar
.green bar
.blue bar
.yellow bar
.cyan bar
.magenta bar
.black bar
.white bar
(barW) 1024 128 .div .def
(barX) 0 .def
(greyIndex) 1 .def
128 {
greyIndex .getmapvalue .rgbcolor .setcolor
barX 0 barX barW .add barY .maskrectangle
(barX) barX barW .add .def
(greyIndex) greyIndex 2 .add .def
}.cvx .rept
}.cvx .def