DIRECTORY Real USING [SqRt]; Vector3: CEDAR DEFINITIONS IMPORTS Real ~ BEGIN VEC: TYPE ~ RECORD[x, y, z: REAL]; Add: PROC[a, b: VEC] RETURNS[VEC]; InlineAdd: PROC[a, b: VEC] RETURNS[VEC] ~ INLINE { RETURN[[a.x+b.x, a.y+b.y, a.z+b.z]] }; Sub: PROC[a, b: VEC] RETURNS[VEC]; InlineSub: PROC[a, b: VEC] RETURNS[VEC] ~ INLINE { RETURN[[a.x-b.x, a.y-b.y, a.z-b.z]] }; Neg: PROC[a: VEC] RETURNS[VEC]; InlineNeg: PROC[a: VEC] RETURNS[VEC] ~ INLINE { RETURN[[-a.x, -a.y, -a.z]] }; Mul: PROC[a: VEC, s: REAL] RETURNS[VEC]; InlineMul: PROC[a: VEC, s: REAL] RETURNS[VEC] ~ INLINE { RETURN[[a.x*s, a.y*s, a.z*s]] }; Div: PROC[a: VEC, s: REAL] RETURNS[VEC]; InlineDiv: PROC[a: VEC, s: REAL] RETURNS[VEC] ~ INLINE { RETURN[[a.x/s, a.y/s, a.z/s]] }; SqrMag: PROC[a: VEC] RETURNS[REAL]; InlineSqrMag: PROC[a: VEC] RETURNS[REAL] ~ INLINE { RETURN[a.x*a.x+a.y*a.y+a.z*a.z] }; Mag: PROC[a: VEC] RETURNS[REAL]; InlineMag: PROC[a: VEC] RETURNS[REAL] ~ INLINE { RETURN[Real.SqRt[InlineSqrMag[a]]] }; Dot: PROC[a, b: VEC] RETURNS[REAL]; InlineDot: PROC[a, b: VEC] RETURNS[REAL] ~ INLINE { RETURN[a.x*b.x+a.y*b.y+a.z*b.z] }; Cross: PROC[a, b: VEC] RETURNS[VEC]; Unit: PROC[a: VEC] RETURNS[VEC]; InlineUnit: PROC[a: VEC] RETURNS[VEC] ~ INLINE { RETURN[InlineDiv[a, InlineMag[a]]] }; END. vVector3.mesa Michael Plass, August 4, 1982 11:58 am Doug Wyatt, July 3, 1984 12:27:42 pm PDT Vector sum, a+b. Vector difference, a-b. Vector complement, -a. Product of vector a and scalar s. Equivalent to Mul[a, 1/s]. Square of the magnitude of a. Magnitude of a. Dot (inner) product of a and b. Cross (outer) product of a and b. Unit vector in the direction of a. ʘšœ ™ Jšœ&™&Jšœ(™(J™—šÏk ˜ Jšœœ˜J˜—Jšœ œ ˜Jšœ˜ Jšœ˜J˜Jšœœœ œ˜"J˜Jš Ïnœœœœœ˜"šž œœœœœœœ ˜YJ™J˜—Jš žœœœœœ˜"šž œœœœœœœ ˜YJ™J˜—Jš žœœœœœ˜šž œœœœœœœ˜MJ™J˜—Jš žœœœœœœ˜(šž œœœœœœœœ˜YJ™!J˜—Jš žœœœœœœ˜(šž œœœœœœœœ˜YJ™J˜—Jš žœœœœœ˜#šž œœœœœœœ˜VJ™J˜—Jš žœœœœœ˜ šž œœœœœœœ˜VJ™J™—Jš žœœœœœ˜#šž œœœœœœœ˜VJ™J˜—š žœœœœœ˜$J™!J˜—Jš žœœœœœ˜ šž œœœœœœœ˜VJ™"J˜—Jšœ˜—…—ü x