0

我正在用 Jess 语言制作俄罗斯方块游戏，并且我已经制作了这个算法来旋转 T 块。

(defrule rotateTPiece
?g<-(piece (id 4) (x1 ?x1) (y1 ?y1)
                  (x2 ?x2) (y2 ?y2)
                  (x3 ?x3) (y3 ?y3)
                  (x4 ?x4) (y4 ?y4))
=>
(bind ?lowerx (min ?x1 ?x2 ?x3 ?x4))
(bind ?lowery (min ?y1 ?y2 ?y3 ?y4))

(modify ?g  
(x1 (- ?x1 ?lowerx)) (y1 (- ?y1 ?lowery)) 
(x2 (- ?x2 ?lowerx)) (y2 (- ?y2 ?lowery)) 
(x3 (- ?x3 ?lowerx)) (y3 (- ?y3 ?lowery))
(x4 (- ?x4 ?lowerx)) (y4 (- ?y4 ?lowery)))  

(modify ?g  
(x1 ?y1) (y1 (- 1 (- ?x1 1))) 
(x2 ?y2) (y2 (- 1 (- ?x2 1)))
(x3 ?y3) (y3 (- 1 (- ?x3 1)))
(x4 ?y4) (y4 (- 1 (- ?x4 1))))

(modify ?g
    (x1 (+ ?x1 ?lowerx)) (y1 (+ ?y1 ?lowery))
    (x2 (+ ?x2 ?lowerx)) (y2 (+ ?y2 ?lowery))
    (x3 (+ ?x3 ?lowerx)) (y3 (+ ?y3 ?lowery))
    (x4 (+ ?x4 ?lowerx)) (y4 (+ ?y4 ?lowery)))

(focus VISUAL))

在第一次修改中，我将片段平移到原点，然后修改它以进行旋转，然后将其平移到初始位置。我不知道为什么，但这不起作用。

4

1 回答 1

0

插槽绑定是按值进行的，因此 ?x1 是指输入右侧时插槽 x1 中的值。替换第一次和第二次修改，使用模式

(bind ?tx1 (- ?x1 ?lowerx))

和

(bind ?ux1 ?tx1)

最后的修改变成

(modify ?g
(x1 (+ ?ux1 ?lowerx)) ... )
于 2014-04-01T06:27:20.947 回答