DIRECTORY IO, Matrix3d, Print3d, Rope, Vector3d;Print3dImpl: CEDAR PROGRAMIMPORTS IO EXPORTS Print3d~ BEGINROPE: TYPE ~ Rope.ROPE;Pair: PUBLIC PROC [stream: IO.STREAM, p: Vector3d.Pair, name: ROPE _ NIL] ~ {IF stream = NIL THEN RETURN;IF name = NIL THEN stream.PutF["%f\t%f\n", IO.real[p.x], IO.real[p.y]]ELSE stream.PutF["%g\t[%6.3f\t%6.3f]\n", IO.rope[name], IO.real[p.x], IO.real[p.y]];};Triple: PUBLIC PROC [stream: IO.STREAM, p: Vector3d.Triple, name: ROPE _ NIL] ~ {IF stream = NIL THEN RETURN;IF name = NIL THEN stream.PutF["%f\t%f\t%f\n", IO.real[p.x], IO.real[p.y], IO.real[p.z]]ELSE stream.PutF["%g\t[%6.3f\t%6.3f\t%6.3f]\n", IO.rope[name], IO.real[p.x], IO.real[p.y], IO.real[p.z]];};Quad: PUBLIC PROC [stream: IO.STREAM, q: Vector3d.Quad, name: ROPE _ NIL] ~ {IF stream = NIL THEN RETURN;IF name # NIL THEN stream.PutF["%g: [%f\t%f\t%f\t%f]\n", IO.rope[name], IO.real[q.x], IO.real[q.y], IO.real[q.z], IO.real[q.w]]ELSE stream.PutF["%6.3f\t%6.3f\t%6.3f\t%6.3f\n", IO.real[q.x], IO.real[q.y], IO.real[q.z], IO.real[q.w]];};Matrix: PUBLIC PROC [stream: IO.STREAM, m: Matrix3d.Matrix, name: ROPE _ NIL] ~ {IF stream = NIL THEN RETURN;IF name # NIL THEN stream.PutF["%g\n", IO.rope[name]];FOR i: NAT IN [0..3] DOstream.PutF["%6.3f\t%6.3f\t%6.3f\t%6.3f\n", IO.real[m[i][0]], IO.real[m[i][1]], IO.real[m[i][2]], IO.real[m[i][3]]];ENDLOOP;};END.   Д  Print3dImpl.mesaCopyright c 1984 by Xerox Corporation.  All rights reserved.Bloomenthal, February 25, 1986 11:09:19 am PST Э╩  Ш ЪЬЩJЪЬ
╧mЬ1Щ<JЩ.JШ JЪ╧k	ЬЮЬ$Ш0JШ ЧЪ╨blЬЮЬЮШJЪЮЬЮЬШJЪЮЬШJЪЬЮШJШ JЪЮЬЮЬЮЬШJШ Ъ╧nЬЮЬЮЬ
ЮЬЮЬЮЬЮЬШMJЪЮЬ
ЮЬЮЬЮЬШJЪ
ЮЬЮЬЮЬЮЬЮЬШFJЪЮЬ%ЮЬЮЬЮЬШTJЪЬШJШ ЧЪаЬЮЬЮЬ
ЮЬЮЬЮЬЮЬШQJЪЮЬ
ЮЬЮЬЮЬШJЪЮЬЮЬЮЬЮЬЮЬЮЬШXJЪ
ЮЬ,ЮЬЮЬЮЬЮЬШiJЪЬШJШ ЧЪаЬЮЬ
ЮЬЮЬЮЬЮЬШMJЪЮЬ
ЮЬЮЬЮЬШJЪЮЬЮЬЮЬ'ЮЬЮЬЮЬЮЬЮЬШJЪ
ЮЬ-ЮЬЮЬЮЬЮЬШiJШJШ ЧЪаЬЮЬ
ЮЬЮЬЮЬЮЬШQJЪЮЬ
ЮЬЮЬЮЬШJЪЮЬЮЬЮЬЮЬШ6ЪЮЬЮЬЮЬЮШJЪ	Ь,ЮЬЮЬЮЬЮЬШtJЪЮЬШЧJЪЬШJШ ЧЧJЪЮЬШJШ JШ Ч ЕЧ    n  q  