Howdy,
I've tried everything I can think of to get Quicktime to open with no luck. Help please. I have mathematical CAD models which I generate from parametric equations using Vectorscript. That part is fine. I wish to iterate the process and send a frame by frame to a Qt movie file. I can't find any example documentation. Might be a scope issue. The script compiles just fine but doesn't make a movie. What am I missing? Both variables Q and R are returning a value of 0 in the message pane. The object rotates as planned on the Vectorworks screen.
I am running VW 2008 on an Apple G5.
Cheers,
Mike
PROCEDURE LisRotate; {$DEBUG}
{Rotate an Object Set3DRot}
CONST MaxIndex = 12; {# iterations }
VAR
twisteeH: HANDLE; {object to be rotated}
irot, jrot, krot: REAL;
a, Q, R, S: INTEGER;
Rot:STRING;
FUNCTION QTInitialize :INTEGER;
BEGIN
END; {Q}
FUNCTION QTOpenMovieFile (Rot:STRING) :INTEGER;
BEGIN
END; {R}
BEGIN {A. start of procedure}
Q:= QTInitialize;
R:= QTOpenMovieFile (Rot);
twisteeH := LActLayer;
irot := 1; {degrees axes to be rotated}
jrot :=2;
krot := 3;
a := 1;
WHILE
a < MaxIndex DO BEGIN {B. While}
Set3Drot (twisteeH, irot, jrot, krot, 0,0,0);
ResetBBox(twisteeH);
Projection(0,0,9.76,-4.88,4.88,4.88,-4.88);
SetView(#-45.0d,#-35.26438968275d,#-30.0d,0,0,0);
RedrawAll;
QTWriteFrame ®; { Add frame to movie}
a:= a+1; {iterate}
END; {B. While}
Message ('R value is:' , R:2, 'Q value is:' , Q:2);
QTCloseMovieFile ®;
END; {A.}
Run(LisRotate);
