flags.pl

来自「PRl教学程序 PRl教学程序 PRl教学程序」· PL 代码 · 共 28 行

/********************************************************************
    Constraint-based Graphical Programming in B-Prolog
    %
    Animate flags
*********************************************************************/
:-include('antiguabarbuda').
:-include('china').
:-include('japan').
:-include('usa').
:-write('type animate to start'),nl.

animate:-
    animate([antigua,china,japan,usa]).

animate(Countries):-
    cgStartRecordAnimation(flags),
    member(Country,Countries),
    Call=..[Country,Frame],
    call(Call),
    cgPack(Frame),
    cgResize(Frame,NFrame,300,300),
    cgCleanDefaultWindow,
    cgShow(NFrame),
    cgSleep(1000),
    fail.
animate(Countries):-
    cgStopRecord.