animatecircles.pl

PRl教学程序 PRl教学程序 PRl教学程序

go:-
    Circles=[C1,C2,C3,C4,C5],
    cgCircles(Circles),
    Colors=[red,black,green,blue,gray],

    setColor(Circles,Colors),
    cgStartRecordAnimation(animateCircles),
    member(Circle,Circles),
    cgCleanDefaultWindow,
    cgShow(Circle),
    cgSleep(1000),
    fail.
go:-
    cgStopRecord.

setColor([],[]).
setColor([Circle|Circles],[Color|Colors]):-
    Circle^color #= Color,
    setColor(Circles,Colors).