Allegro使用Skill语言实现根据两点p1,p2确定的线段判断是否与bbox构成的矩形相交的函数
/*****************判断两点p1,p2确定的线段是否与bbox构成的矩形相交的算法*******************/defun(isLineIntersectRectangle(p1p2bbox)x1=car(p1)y1=nth(1p1)x2=car(p2)y2=nth(1p2)lineHeight=y1-y2lineWidth=x2-x1xb=car(car(bbox))y