; ----------------------------------------------------------------------------- ; (Point_translate_XY this dx dy) ; ----------------------------------------------------------------------------- ; 点 this に対して X方向に dx、Y方向に dy だけ離れた位置の点を生成する汎用の関数。 ; ----------------------------------------------------------------------------- (define (Point_translate_XY this dx dy) (range (plus (car this) dx) (plus (cadr this))) )