Lines Matching +refs:point +refs:min
282 ;; The key point point about the algorithm is that, rather than considering
295 ;; has score zero because there is no more any point in playing in it, from
296 ;; both an attacking and a defending point of view.
340 ;; should illustrate the point. If you manage to improve on these values,
441 maxi2 (min 4 maxi)
442 maxj2 (min 4 maxj))
470 (let ((left (min 4 (1- i)))
471 (right (min 4 (- gomoku-board-width i)))
472 (up (min 4 (1- j)))
473 (down (min 4 (- gomoku-board-height j))))
475 (min (max (+ left right) 3) 8)
476 (min (max (+ up down) 3) 8)
477 (min (max (+ (min left up) (min right down)) 3) 8)
478 (min (max (+ (min right up) (min left down)) 3) 8))))
513 (imax (min 0 (- gomoku-board-width x 4)))
514 (jmax (min 0 (- gomoku-board-height y 4))))
519 (gomoku-update-score-in-direction (max imin jmin) (min imax jmax)
523 (min 0 (- x 5)
839 (numberp (posn-point click))
843 (min (max (/ (+ (- (car click)
853 (min (max (/ (+ (- (cdr click)
856 (let ((inhibit-point-motion-hooks t))
884 (setq square (gomoku-point-square))
886 (error "Your point is not on a square. Retry!"))
888 (error "Your point is not on a free square. Retry!"))
984 (defun gomoku-point-y ()
985 "Return the board row where point is."
986 (let ((inhibit-point-motion-hooks t))
987 (1+ (/ (- (count-lines 1 (point)) gomoku-y-offset (if (bolp) 0 1))
990 (defun gomoku-point-square ()
991 "Return the index of the square point is on."
992 (let ((inhibit-point-motion-hooks t))
995 (gomoku-point-y))))
998 "Move point to square number INDEX."
1002 "Move point to square at X, Y coords."
1003 (let ((inhibit-point-motion-hooks t))
1008 "Draw 'X', 'O' or '.' on SQUARE depending on VALUE, leave point there."
1012 (inhibit-point-motion-hooks t))
1018 (1- (point)) (point)
1028 (point 1) opoint
1048 (put-text-property point (point) 'intangible 2))
1053 (append-to-buffer (current-buffer) opoint (point))
1055 (goto-char (point-max))))
1056 (setq point (point))
1059 point (point)
1064 (setq opoint point))
1067 (put-text-property 1 2 'point-entered
1070 (put-text-property point (point) 'intangible 2))
1071 (put-text-property point (point) 'point-entered
1073 (put-text-property (point-min) (point) 'category 'gomoku-mode))
1135 (save-excursion ; Not moving point from last square
1138 (inhibit-point-motion-hooks t))
1147 (delete-region (point) (progn
1149 (point))))
1174 "Move point down one row on the Gomoku board."
1176 (if (< (gomoku-point-y) gomoku-board-height)
1182 "Move point up one row on the Gomoku board."
1184 (if (> (gomoku-point-y) 1)
1190 "Move point North East on the Gomoku board."
1196 "Move point South East on the Gomoku board."
1202 "Move point North West on the Gomoku board."
1208 "Move point South West on the Gomoku board."
1214 "Move point to first square on the Gomoku board row."
1219 "Move point to last square on the Gomoku board row."