| OCR Text |
Show procedure rqdofC(P, dof, Constr) BEGIN END IF dof = 2 THEN IF Constr = pos(P, _) THEN fail IF Constr = vector(P,Q,J OR vector(Q,P, j THEN rqdofP(Q,2) IF Constr = dist(P,Q,J OR dist(Q,P,j THEN rqdofP(Q,1) IF Constr = slope(P,Q,j OR slope(Q,P,_) THEN rqdofP(Q,1) IF Constr = angle(P,Q,R,j OR angle(Q,P,R,j OR angle(Q,R,P,j THEN rqdofP(Q,1) and rqdofP(R,O) OR rqdofP(R,1) and rqdofP(Q,O) ELSIF dof = 1 THEN IF Constr = pos(P, _) THEN fail IF Constr = vector(P,Q, _) OR vector(Q,P,j THEN rqdofP(Q,1) IF Constr = dist(P,Q, _) OR dist(Q,P, _) THEN rqdofP(Q,O) IF Constr = slope(P,Q,j OR slope(Q,P,j THEN rqdofP(Q,O) IF Constr = angle(P,Q,R,j OR angle(Q,P,R,j OR angle(Q,R,P,j THEN rqdofP(Q,O) and rqdofP(R,O) ELSIF dof = 0 THEN succeed 11 . |