MebesPlotScreen.cm

McCreight, July 1, 1985 12:09:05 pm PDT

run CountedVMImpl

run ImagerPackage

run MebesBitsCedar

← &dc ← MebesBitsCedar.NewDisplayContext[]

← &ltGray ← %Imager.MakeGray[0.2]

← &gray ← %Imager.MakeGray[0.5]

← &centerX ← 8130.0 -- Mebes pixels

← &centerY ← 11500.0 -- Mebes pixels

← &scale ← 1.0

← %MebesBitsCedar.ProcessMebesFile[context: &dc, mebesFileName: "///MPC88ZZ/MPC88ZZ24.AA", centerX: &centerX, centerY: &centerY , scale: &scale, color: &ltGray, last: FALSE]

← %MebesBitsCedar.ProcessMebesFile[context: &dc, mebesFileName: "///MPC88ZZ/MPC88ZZ23.AA", centerX: &centerX, centerY: &centerY , scale: &scale, color: &gray, first: FALSE, last: FALSE]

← %MebesBitsCedar.ProcessMebesFile[context: &dc, mebesFileName: "///MPC88ZZ/MPC88ZZ10.AA", centerX: &centerX, centerY: &centerY , scale: &scale, color: %Imager.black, first: FALSE]