このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1257481818/90 
#  始点 
#  x=cos(t) 
#  y=sin(t) 
# 
#  終点 
#  x=cos(t+dt) 
#  y=sin(t+dt) 
# 
#  で線を描き、t=t+dtで疑似円を描いています。 
# 
#  長方形や楕円を、任意の角度に傾けるにはどのようにすれば良いのでしょうか? 
# 

疑似円を描く(_半径) :- 
    疑似円座標をならびに得る(_半径,L), 
    疑似円を描く(L). 

疑似円を描く([[X1,Y1],[X2,Y2]]) :- 線分の描写(X1,Y1,X2,Y2). 
疑似円を描く([[X1,Y1],[X2,Y2]|R]) :- 
    線分の描写(X1,Y1,X2,Y2), 
    疑似円を描く(R). 

疑似円座標をならびに得る(_半径,L) :- 
    _2π is 2 * pi, 
    _dt is _2π / 100, 
    疑似円座標をならびに得る(0.0,_2π,_dt,_半径,L). 

疑似円座標をならびに得る(_t_1,_t_2,_dt,_,[]) :- _t_1 > _t_2,!. 
疑似円座標をならびに得る(_t_1,_t_2,_dt,_半径,[[X,Y]|R]) :- 
    X is _半径 * cos(_t_1), 
    Y is _半径 * sin(_t_1), 
    _t_3 is t_1 + _dt, 
    疑似円座標をならびに得る(_t_3,_t_2,_dt,_半径,R).  /* ここも直しました *