| /dports/lang/racket/racket-8.3/share/pkgs/deinprogramm/teachpack/deinprogramm/sdp/ |
| H A D | image.rkt | 3 (all-from-out lang/posn)
5 pulled-point angle side-count step-count
6 posn real-valued-posn
10 (require lang/posn)
21 (define pulled-point (signature pulled-point (predicate pulled-point?)))
25 (define posn (signature posn (predicate posn?))) function
26 (define real-valued-posn (signature real-valued-posn (predicate real-valued-posn?)))
|
| /dports/lang/racket/racket-8.3/share/pkgs/games/chat-noir/ |
| H A D | chat-noir-literate.rkt | 363 point to the given posn, returning @racket['∞] if the posn is not in the
379 (indicating the fixed point)
1130 <circle-at-point>
1207 The @racket[circle-at-point] function returns a @racket[posn] when
1213 @chunk[<circle-at-point>
1241 20 at that point.
2053 (test (point-in-this-circle? (make-posn 0 0)
2057 (test (point-in-this-circle? (make-posn 0 0) 0 0)
2092 (test (circle-at-point (list (make-cell (make-posn 0 0) #f))
2096 (test (circle-at-point (list (make-cell (make-posn 0 0) #f)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/graphics/tests/ |
| H A D | sixlib.rktl | 18 ;; test posn selectors
21 (posn-x (make-posn 1 0))
22 (posn-y (make-posn 0 1)))])
31 ((draw-line v) (make-posn 0 0) (make-posn 100 100))
32 ((draw-line v) (make-posn 100 0) (make-posn 0 100))
47 (f (list (make-posn 0 0) (make-posn 40 0) (make-posn 20 40)) (make-posn 20 20)))]
110 [for-each-point
119 (for-each-point
124 (for-each-point
186 (((draw-pixmap-posn pixmap-filename) view-port) (make-posn 0 0))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/frtime/demos/ |
| H A D | growing-points.rkt | 26 ;; The maximum size a growing point can grow.
27 (define max-point-size (make-slider "Max Point Size" 2 30 20))
29 ;; create-growing-point : number -> line
30 ;; Define one growing point. A point's size is such that it
34 (define (create-growing-point num)
39 [d (distance x y (posn-x mouse-pos) (posn-y mouse-pos))]
40 [pt-size (if (< d (- max-point-size 2))
41 (- max-point-size d)
43 (make-circle (make-posn x y)
45 (make-rgb (/ pt-size max-point-size) 0 0))))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/graphics/ |
| H A D | graphics-posn-less-unit.rkt | 933 (make-object mred:point% (posn-x p) (posn-y p)))
1009 (viewport-dc viewport) draw-point
1013 draw-point
1082 (error 'get-color-pixel "specified point is out-of-range"))
1092 (error 'get-pixel "specified point is out-of-range"))
1116 posn? posn "posn"
1176 [(label point)
1178 [(posn? point) (open-viewport label (posn-x point) (posn-y point))]
1179 [(and (list? point) (= (length point) 2))
1180 (open-viewport label (car point) (cadr point))]
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/frtime/animation/ |
| H A D | graphics-posn-less-unit.rkt | 783 (make-object gui:point% (posn-x p) (posn-y p)))
859 (viewport-dc viewport) draw-point
863 draw-point
948 (error 'get-color-pixel "specified point is out-of-range"))
958 (error 'get-pixel "specified point is out-of-range"))
982 posn? posn "posn"
1042 [(label point)
1044 [(posn? point) (open-viewport label (posn-x point) (posn-y point))]
1045 [(and (list? point) (= (length point) 2))
1046 (open-viewport label (car point) (cadr point))]
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/2htdp/private/ |
| H A D | image-more.rkt | 468 image1 (posn-x posn) (posn-y posn) image2 'middle 'middle)))
474 image1 (posn-x posn) (posn-y posn) image2 x-place y-place)))
518 (make-point (posn-x p) (posn-y p))]
1046 (make-point (posn-x p) (posn-y p))
1129 [(posn? p) (posn-x p)]
1133 [(posn? p) (posn-y p)]
1238 ; polar->posn : R+ R -> (posn R R)
1279 (list (make-posn 0 0) (make-posn c 0) (polar->posn b A)))
1290 (list (make-posn 0 0) (make-posn c 0) (polar->posn b A)))))
1310 (list (make-posn 0 0) (make-posn c 0) (polar->posn b A))))
[all …]
|
| H A D | img-err.rkt | 13 real-valued-posn?
20 lang/posn
158 [(point-count)
273 (andmap posn? arg))
288 (andmap (or/c posn? pulled-point?) arg))
292 (andmap (or/c pulled-point? real-valued-posn?) arg)
303 (andmap posn? arg))
378 (define (real-valued-posn? arg)
379 (and (posn? arg)
380 (real? (posn-x arg))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
| H A D | define-struct.scrbl | 141 (struct point (x y) #:inspector #f)
142 (point 3 5)
166 (struct prefab-point (x y) #:prefab)
167 (prefab-point 1 2)
168 (prefab-point? #s(prefab-point 1 2))
295 (posn? (posn 1 2))
296 (posn-y (posn 1 2))
297 (posn-z (posn 1 2))
356 (posn? (make-posn 1 2))
357 (posn-y (make-posn 1 2))
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/vc/ |
| H A D | vc-dispatcher.el | 219 (move-marker m (point)))
396 (unless (eq (point) (point-min))
398 (setq new-window-start (point))
458 (defun vc-position-context (posn)
464 (list posn
466 (buffer-substring posn
467 (min (point-max) (+ posn 100)))))
487 (- (point) (length context-string))))))))
489 (defun vc-context-matches-p (posn context)
493 (end (+ posn len)))
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/vc/ |
| H A D | vc-dispatcher.el | 166 (set-marker (process-mark p) (point))))))))
212 (move-marker m (point)))
386 (unless (eq (point) (point-min))
388 (setq new-window-start (point))
448 (defun vc-position-context (posn)
454 (list posn
456 (buffer-substring posn
457 (min (point-max) (+ posn 100)))))
477 (- (point) (length context-string))))))))
479 (defun vc-context-matches-p (posn context)
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/ |
| H A D | button.el | 317 (prog1 (point) (insert label))
318 (point)
390 (prog1 (point) (insert label))
391 (point)
470 (let ((posn (event-start pos)))
471 (with-current-buffer (window-buffer (posn-window posn))
472 (if (posn-string posn)
474 (button-activate (posn-string posn) t)
475 (push-button (posn-point posn) t))))
524 (setq opoint (point)))
[all …]
|
| H A D | mouse.el | 1609 (click-pt (posn-point posn))
1610 (window (posn-window posn))
1699 (let ((posn (event-start click)))
1703 (if (numberp (posn-point posn))
1714 (let ((posn (event-start click))
1718 (if (numberp (posn-point posn))
1719 (setq beg (posn-point posn)))
1862 (click-pt (posn-point posn))
1863 (window (posn-window posn))
2053 (posn-set-point posn)
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/ |
| H A D | pixel-scroll.el | 411 (push (point) pos-list)
434 (point)))
445 (point)))))
494 (while (when-let ((posn (posn-at-point)))
499 (point)))
536 (posn (posn-at-x-y 0 (+ (window-tab-line-height)
539 (point (posn-point posn))
543 (point))))
544 (when (> (point) up-point)
547 (when-let* ((posn (posn-at-point up-point))
[all …]
|
| H A D | button.el | 324 (prog1 (point) (insert label))
325 (point)
400 (prog1 (point) (insert label))
401 (point)
484 (let ((posn (event-start pos)))
485 (with-current-buffer (window-buffer (posn-window posn))
486 (let* ((str (posn-string posn))
491 (push-button (posn-point posn) t)))))
528 (if (setq button (button-at (point)))
545 (setq opoint (point)))
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/progmodes/ |
| H A D | bug-reference.el | 109 (while (and (< (point) end-line)
129 (list (if (integerp last-command-event) (point) last-command-event)))
132 (let ((posn (event-start pos)))
133 (with-current-buffer (window-buffer (posn-window posn))
134 (bug-reference-push-button (posn-point posn) t)))
|
| /dports/math/reduce/Reduce-svn5758-src/packages/matrix/ |
| H A D | matpri2.red | 50 posn!* := orig!*;
67 scalar column!-s!-point,maxleng,element!-leng;
87 column!-s!-point :=
91 column!-s!-point := append(list 3,column!-s!-point);
101 <<posn!* := nth(column!-s!-point,n);
255 os := posn!*;
261 posn!* := orgnum + os + 1;
265 posn!* := os;
268 posn!* := orgden + os + 1;
282 n := posn!* - orig!*;
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/htdp-doc/teachpack/2htdp/scribblings/ |
| H A D | image.scrbl | 5 (except-in lang/htdp-beginner posn make-posn posn? posn-x posn-y image?)
154 and going to the point (@racket[x2],@racket[y2]).
175 (@racket[x1],@racket[y1]), and ending at the point
180 as it reaches the final point, respectively.
379 is more, then the triangle will point down.
745 @defproc*[([(polygon [vertices (listof (or/c real-valued-posn? pulled-point?))]
749 [(polygon [vertices (listof (or/c real-valued-posn? pulled-point?))]
1390 as it reaches the final point, respectively.
1867 @defstruct[pulled-point ([lpull real?]
1873 The @racket[pulled-point] struct defines a point with
[all …]
|
| /dports/lang/kawa/kawa-3.1.1/gnu/kawa/io/ |
| H A D | PrettyWriter.java | 295 private int posnIndex (int posn) in posnIndex() argument
297 return posn - bufferOffset; in posnIndex()
305 private int posnColumn (int posn) in posnColumn() argument
1277 if (posn >= endPosn) in indexColumn()
1999 int point; field in PrettyWriter.GapBuffer
2006 this.point = 0; in GapBuffer()
2017 return point; in getPoint()
2026 if (point + 1 >= buffer.length) in add()
2030 buffer[point++] = ch; in add()
2057 if (point + n >= buffer.length) in addUpTo()
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/emacs-lisp/ |
| H A D | backtrace.el | 304 (let ((posn (or pos (point))))
305 (if (or (= (point-min) posn)
306 (not (eq (backtrace-get-index posn)
307 (backtrace-get-index (1- posn)))))
308 posn
309 (previous-single-property-change posn 'backtrace-index nil (point-min)))))
390 (let ((pos (point))
411 ((/= (point) end)
587 (pos (point))
690 beg (point)
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/emacs-lisp/ |
| H A D | backtrace.el | 304 (let ((posn (or pos (point))))
305 (if (or (= (point-min) posn)
306 (not (eq (backtrace-get-index posn)
307 (backtrace-get-index (1- posn)))))
308 posn
309 (previous-single-property-change posn 'backtrace-index nil (point-min)))))
390 (let ((pos (point))
411 ((/= (point) end)
587 (pos (point))
692 beg (point)
[all …]
|
| /dports/x11-toolkits/p5-Tk/Tk-804.035/pTk/ |
| H A D | ptkCanvGroup.c | 313 TranslateGroup(canvas, itemPtr, newX - groupPtr->posn[0], newY - groupPtr->posn[1]);
514 groupPtr->header.x1 = groupPtr->posn[0];
515 groupPtr->header.y1 = groupPtr->posn[1];
755 groupPtr->posn[0] = originX + scaleX*(groupPtr->posn[0] - originX);
756 groupPtr->posn[1] = originY + scaleY*(groupPtr->posn[1] - originY);
800 groupPtr->posn[0] += deltaX;
801 groupPtr->posn[1] += deltaY;
889 double point[2]; local
897 && Tk_CanvasGetCoordFromObj(interp, canvas, objv[0], &point[0]) == TCL_OK
921 point[0] = strtod(p, &end);
[all …]
|
| /dports/graphics/xfig/xfig-3.2.8a/src/ |
| H A D | u_search.c | 240 for (point = point->next; point != NULL; point = point->next) { in next_line_found()
241 x2 = point->x; in next_line_found()
285 for (point = point->next; point != NULL; point = point->next) { in next_spline_found()
862 text_search(int x, int y, int *posn) in text_search() argument
867 if (active_layer(t->depth) && in_text_bound(t, x, y, posn, False)) in text_search()
883 in_text_bound(F_text *t, int x, int y, int *posn, Boolean extra) in in_text_bound() argument
929 *posn = xr-x1; in in_text_bound()
930 if (*posn < 0) in in_text_bound()
931 *posn = 0; in in_text_bound()
932 else if (*posn > text_length(t)) in in_text_bound()
[all …]
|
| /dports/math/moab/fathomteam-moab-7bde9dfb84a8/src/moab/ |
| H A D | ElemEvaluator.hpp | 27 … const double *posn, const double *verts, const int nverts, const int ndim,
85 const double *posn, const double *verts, const int nverts,
150 … ErrorCode reverse_eval(const double *posn, double iter_tol, double inside_tol, double *params,
195 ErrorCode find_containing_entity(Range &entities, const double *point,
217 ErrorCode find_containing_entity(EntityHandle ent_set, const double *point,
479 …inline ErrorCode ElemEvaluator::reverse_eval(const double *posn, const double iter_tol, const doub… in reverse_eval() argument
484 posn, vertPos[0].array(), numVerts, in reverse_eval()
517 … inline ErrorCode ElemEvaluator::find_containing_entity(EntityHandle ent_set, const double *point, in find_containing_entity() argument
526 …else return find_containing_entity(entities, point, iter_tol, inside_tol, containing_ent, params, … in find_containing_entity()
|
| /dports/math/moab/fathomteam-moab-7bde9dfb84a8/src/LocalDiscretization/ |
| H A D | ElemEvaluator.cpp | 19 const double *posn, const double *verts, const int nverts, in evaluate_reverse() argument
27 const CartVect *cvposn = reinterpret_cast<const CartVect*>(posn); in evaluate_reverse()
117 …ErrorCode ElemEvaluator::find_containing_entity(Range &entities, const double *point, const double… in find_containing_entity() argument
128 rval = reverse_eval(point, iter_tol, inside_tol, params, &is_inside); in find_containing_entity()
|