This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/Logtalk/examples/points/SCRIPT
pmoura a21cefd6ca Logtalk 2.12.0 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@494 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-05-28 11:29:37 +00:00

73 lines
1.4 KiB
Plaintext

=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.12.0
Copyright (c) 1998-2002 Paulo Moura. All Rights Reserved.
=================================================================
% let's start with a simple point:
| ?- point::new(Point,[position-(1, 3)]), Point::(print, move(7, 4), print).
p1 @ (1, 3)
p1 @ (7, 4)
Point = p1 ?
yes
% same problem but with bounds on coordinate values:
| ?- bounded_point::new(Point,[position-(1, 3), bounds(x)-(0, 13), bounds(y)-(-7, 7)]), Point::(print, move(7, 4), print).
bounds(x) : 0,13
bounds(y) : -7,7
bp2 @ (1, 3)
bounds(x) : 0,13
bounds(y) : -7,7
bp2 @ (7, 4)
Point = bp2 ?
yes
% same problem but storing the history of coordinate values:
| ?- history_point::new(Point,[position-(1, 3)]), Point::(print, move(7, 4), print).
location history: []
hp3 @ (1, 3)
location history: [(1,3)]
hp3 @ (7, 4)
Point = hp3 ?
yes
% same problem but with bounds on coordinate values and storing past values:
| ?- bounded_history_point::new(Point,[position-(1, 3), bounds(x)-(0, 13), bounds(y)-(-7, 7)]), Point::(print, move(7, 4), print).
bounds(x) : 0,13
bounds(y) : -7,7
location history: []
bhp4 @ (1, 3)
bounds(x) : 0,13
bounds(y) : -7,7
location history: [(1,3)]
bhp4 @ (7, 4)
Point = bhp4 ?
yes
% clean up instances:
| ?- (point, bounded_point, history_point, bounded_history_point)::delete_all.
yes