line - 需要定义一个覆盖另一条线的单线来为我的井字游戏创建一个 X

Question

我正在使用 Racket 画一条线来覆盖另一条线，为 tictactoe 游戏创建斧头。
任何帮助或建议将不胜感激。

;part1 draws a  circle
(define (singlecircle)(circle 20 "outline" (pensetup "red" 3)))

;part1.2 defines omark, overlays singlecircle on top of the whitebox using voerlay function
(define (omark) (overlay (singlecircle)(whitebox)))

;part1.3 calls omark, will draw a single red circle
(omark)



;part2.1
(define (singleline)(line 30 30 "blue"))
;part2.2

(define (flipsingleline)(flip-horizontal -30 (singleine "blue" -30)))

;part2.3
(define (xlines)(overlay (singleline)(flipsingleine)))

;part2.4
(define (xmark)(overlay (xlines)(whitebox)))
(xmark)



;part3

(define (wholeboard)
  (beside (omark)(omark)(omark))
(above (omark)(omark)(omark)))

标签： linerackettic-tac-toe