reccirclerec.pl

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

/********************************************************************
    Constraint-based Graphical Programming in B-Prolog
    %
    draw a rectangle, a circle, and another rectangle in the same row
*********************************************************************/
go:-
    cgRectangle(R1),R1^width #= 50, R1^height #= 50,
    cgCircle(C), C^diameter #= R1^height,
    cgRectangle(R2), R2^size #= R1^size,
    %
    cgSameRow([R1,C,R2]),
    %
    cgStartRecord(recCircleRec),
    cgShow([R1,C,R2]),
    cgStopRecord.