Sharing Code Between Programs

[Didier Lachieze]

Any reason to have these defined as CAS programs while they don’t use any CAS function?

I would rather define them as PPL programs and with EXPORT they would be callable from other programs :

Code:

#pragma mode( separator(.,;) integer(h32) )

EXPORT DrawShiftMark()
BEGIN
 LOCAL c2:=RGB(0,255,255);
 FILLPOLY_P(G0,{{2,7},{2,3},{1,3},{3,1},{5,3},{4,3},{4,7}},c2);
 PIXON_P(G0,11,2,c2);
 LINE_P(G0,8,1,10,1,c2);
 LINE_P(G0,7,2,7,3,c2);
 LINE_P(G0,8,4,10,4,c2);
 LINE_P(G0,11,5,11,6,c2);
 LINE_P(G0,8,7,10,7,c2);
 PIXON_P(G0,7,6,c2);
END;

EXPORT ClearShiftMark()
BEGIN
 LOCAL x_left:=1;
 LOCAL x_right:=11;
 LOCAL y_top:=1;
 LOCAL y_bottom:=7;
 LOCAL Y;
 FOR Y FROM y_top TO y_bottom DO
  LOCAL bg:=GETPIX_P(G0,x_right+1,Y);
  LINE_P(G0,x_left,Y,x_right,Y,bg);
 END;
END;