GGScraps.tioga Last edited by Bier on July 29, 1985 1:26:59 pm PDT Pieces of code which will probably never be used again, but you never know. <> <<>> <> <> <> <> <> <> <<];>> <<};>> <<>> <> <> <> <> <> <> <> <<[joint, d2] _ GGObjects.NearestJoint[traj, worldPt, tolerance];>> <> <> <> <> <<};>> <> < {>> <> <<[joint, d2guess] _ GGObjects.NearestJoint[traj2, worldPt, tolerance];>> <> <> <> <> <> <<};>> <<};>> <> <<};>> < {result _ NIL};>> <> <<};>> <<>> <<>> <<>> <> <> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <> < {>> <> <> <> <> <> <> <<};>> <> <<};>> < {index _ -1; d2 _ 0.0};>> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <> <<};>> <<>> <> <> <> <> <<[indexes, distancesSquared] _ NearJoints[traj, testPoint, tolerance];>> <> <> <<}>> <> <> <> <> <> <> <<};>> <<};>> <<>> <> <> <> <> <<[near, howNearGuess] _ IsNearTraj[children.first, testPoint, tolerance];>> <> <> < {>> <> <> <<[nearGuess, howNearGuess] _ IsNearTraj[children2.first, testPoint, tolerance];>> <> <> <<};>> < {>> <> <<}; >> <> <<};>> <<>> <> <> <> <> <> < {>> <<[near, howNearGuess] _ IsNearOutline[outline, testPoint, tolerance];>> <> <<};>> < {>> <<[near, howNearGuess] _ IsNearCluster[subCluster, testPoint, tolerance];>> <> <<};>> < ERROR;>> <> < {>> <> <> <> < {>> <<[nearGuess, howNearGuess] _ IsNearOutline[outline, testPoint, tolerance];>> <> <<};>> < {>> <<[nearGuess, howNearGuess] _ IsNearCluster[subCluster, testPoint, tolerance];>> <> <<};>> < ERROR;>> <> <<};>> < {>> <> <<};>> <> <<};>> <<>> <<>> <> <> <> <> <> <<[union, newMinusOld] _ CombineSequencesOpen[new, old];>> <> <> <<};>> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<>> <> <> <> <> <> <> <<};>> <> <> <> <> <> <<};>> <> <> < {>> <> <> <> <> <<}>> <> <> <> <<};>> <<};>> <> <> <> <> <> <> <> <<};>> <> <> <> <> <<};>> <> <> <> <> <<};>> <> <> <> <<}>> <> <> < {>> <> <> <> <> <<}>> <> <> <> <> <<}>> <> <> <> <<};>> <<};>> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<>> <> <> <> <> <> <> <<};>> <> <> <> <> <> <<};>> <> <> < {>> <> <> <> <> <<}>> <> <> <> <<};>> <<};>> <> <> <> <> <> <> <> <<};>> <> <> <> <> <<};>> <> <> <> <> <<};>> <> <> <> <<}>> <> <> < {>> <> <> <> <> <<}>> <> <> <> <> <<}>> <> <> <> <<};>> <<};>> <> <<};>> <<>> <<>> <> <> <> <> <> <> <> <> <<};>> <<>> <<>> <> <> < GGObjects.HiJoint[traj] OR end > GGObjects.HiJoint[traj] OR end < -1 THEN ERROR;>> <> <> <> <<}>> <> <> <> <> <<};>> <> <> <> <> <> <<]];>> <<};>> <> <> <