type Clip_Type is ( Passive, OneWay, Wall, Slope_45_Up_Floor, Slope_45_Up_Ceiling, Slope_45_Down_Floor, Slope_45_Down_Ceiling, Slope_22_Up_Floor_Thin, Slope_22_Up_Floor_Wide, Slope_22_Up_Ceiling_Wide, Slope_22_Up_Ceiling_Thin, Slope_22_Down_Floor_Wide, Slope_22_Down_Floor_Thin, Slope_22_Down_Ceiling_Thin, Slope_22_Down_Ceiling_Wide );
INSTANT_ACCELERATION : constant Float;
procedure Clip_Downward
( | clip | : Clip_Type; |
size | : Positive; | |
x, y | : Natural; | |
adjustY | : out Integer ); |
procedure Clip_Upward
( | clip | : Clip_Type; |
size | : Positive; | |
x, y | : Natural; | |
adjustY | : out Integer ); |
procedure To_Clip_Type
( | str | : String; |
clip | : out Clip_Type; | |
valid | : out Boolean ); |