/dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/graphics/ |
H A D | graphics-posn-less-unit.rkt | 184 (set! current-mouse-posn (make-posn x y)) 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")) 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 | 121 (set! current-mouse-pos (make-posn x y)) 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")) 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/editors/emacs/emacs-27.2/lisp/vc/ |
H A D | vc-dispatcher.el | 181 (set (make-local-variable 'vc-parent-buffer-name) 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))))) 479 (defun vc-context-matches-p (posn context) 483 (end (+ posn len))) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/games/chat-noir/ |
H A D | chat-noir-literate.rkt | 384 (test/set (build-bfs-table (empty-world 3) 434 (hash-set dist-table p dist))])]))] 1418 The @racket[test] and @racket[test/set] macros 1438 (define-syntax (test/set stx) 1452 (set! test-count (+ test-count 1)) 1484 (test/set (build-bfs-table 1501 (test/set (build-bfs-table 1520 (test/set (build-bfs-table 1559 (test/set (build-bfs-table 1599 (test/set (build-bfs-table [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/2htdp/private/ |
H A D | image-more.rkt | 57 (send sl set-value 87 (send bdc set-smoothing 'aligned) 90 (send bdc set-bitmap #f) 102 (send sdc set-smoothing 'aligned) 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)] [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
H A D | define-struct.scrbl | 90 @item{@racketidfont{set-}@racket[id]@racketidfont{-}@racket[field-id]@racketidfont{!}, 127 (set-cell-content! a-cell 1) 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)) 304 (set-posn-z! cp 3) 384 (set-apple-seeds! (apple 12 "red") 8) [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?) 15 racket/set 745 @defproc*[([(polygon [vertices (listof (or/c real-valued-posn? pulled-point?))] 749 [(polygon [vertices (listof (or/c real-valued-posn? pulled-point?))] 1611 directory is set to the place where the definitions window is 1757 (for/set ([(clr-str _) (in-hash extra-2htdp/image-colors)] 1763 (set! clr-bytes (bytes-append (list-ref m 1) #" " (list-ref m 2))))) 1771 (sort (set->list 1772 (for/set ([color-name (in-set nice-color-names)]) 1873 The @racket[pulled-point] struct defines a point with [all …]
|
/dports/math/ess/ess-18.10.2/lisp/ |
H A D | ess-inf.el | 191 (set 'default-directory cur-dir) 256 (set 'default-directory cur-dir) 708 (set var val))) 2279 (defun ess-execute-objects (posn) 2288 (let* ((num-arg (if (listp posn) 2289 (if posn -1 1) 2290 (prefix-numeric-value posn))) 2309 (defun ess-execute-attach (dir &optional posn) 2509 (let* ((entry (nth (1- posn) alist)) 2516 (setcdr (cdr entry) (ess-object-names dir posn))) [all …]
|
H A D | ess-utils.el | 165 (set (car pair) (eval (cdr pair)))) 232 (posn 0)) 234 (while (string-match "[^ \t\n]+" line posn) 237 (setq posn (match-end 0))) 504 (set sym (cons kwd (symbol-value sym))) 574 (set hist (cons sel (symbol-value hist)))))) 608 (set (make-local-variable 'company-backends) 618 (set (make-local-variable 'eldoc-idle-delay) 0.1)) 619 (set (make-local-variable 'eldoc-documentation-function) ess-eldoc-function) 794 (let ((overlay (make-overlay (point) (point)))) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/deinprogramm/deinprogramm/DMdA/teachpack/ |
H A D | image.rkt | 16 lang/posn 80 (define (check name p? v desc arg-posn) (check-arg name (p? v) desc arg-posn v)) 82 (define (check-coordinate name val arg-posn) (check name finite-real? val "real" arg-posn)) 90 arg-posn)) 94 arg-posn)) 95 (define (check-image name val arg-posn) (check name image? val "image" arg-posn)) 101 (define (check-mode name val arg-posn) (check name mode? val mode-str arg-posn)) 456 [points (list (make-object point% 0 bottom) 457 (make-object point% right bottom) 458 (make-object point% (/ size 2) 0))]) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/guide/contracts/ |
H A D | structure.scrbl | 25 (require lang/posn) 34 exports a @racket[posn] structure. One of the @racket[posn]s it creates 49 (struct posn (x y)) 53 [p-okay posn?] 54 [p-sick posn?])) 61 @racket[posn?], @racket[posn-x], @racket[posn-y], 62 @racket[set-posn-x!], and @racket[set-posn-y!]. Each function enforces 72 @racket[posn], the contract promises a @racket[posn?] and nothing 82 (require lang/posn) 84 ... (posn-x p-sick) ... [all …]
|
/dports/editors/emacs/emacs-27.2/lisp/ |
H A D | mouse.el | 1504 and set mark at the beginning. 1522 Move point to the end of the inserted text, and set mark at 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)) 1719 (setq beg (posn-point posn))) 1862 (click-pt (posn-point posn)) 1863 (window (posn-window posn)) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/htdp/ |
H A D | image.rkt | 17 lang/posn 91 (define (check name p? v desc arg-posn) (check-arg name (p? v) desc arg-posn v)) 94 (define (check-integer-coordinate name val arg-posn) (check name nii? val "integer" arg-posn)) 98 (define (check-image name val arg-posn) (check name image? val "image" arg-posn)) 104 (define (check-mode name val arg-posn) (check name mode? val mode-str arg-posn)) 516 [points (list (make-object point% 0 bottom) 517 (make-object point% right bottom) 518 (make-object point% (/ size 2) 0))] 568 (cons (make-object point% 629 (let ([p1 (make-object point% [all …]
|
/dports/editors/emacs-devel/emacs-4d1968b/lisp/ |
H A D | mouse.el | 1882 and set mark at the beginning. 1900 Move point to the end of the inserted text, and set mark at 1987 (click-pt (posn-point posn)) 1988 (window (posn-window posn)) 2077 (let ((posn (event-start click))) 2081 (if (numberp (posn-point posn)) 2092 (let ((posn (event-start click)) 2097 (setq beg (posn-point posn))) 2240 (click-pt (posn-point posn)) 2241 (window (posn-window posn)) [all …]
|
/dports/math/reduce/Reduce-svn5758-src/generic/emacs/ |
H A D | reduce-mode.el | 428 (set (make-local-variable 'which-func-mode) nil) 437 (set (make-local-variable 'imenu-generic-expression) 454 (set (make-local-variable 'paragraph-separate) 460 (set (make-local-variable 'comment-start) "% ") 461 (set (make-local-variable 'comment-start-skip) 463 (set (make-local-variable 'comment-column) 40) 464 (set (make-local-variable 'comment-indent-function) 1471 (let ((start (point)) posn 1474 ((setq posn (reduce-back-to-comment-statement-start pattern)) 1476 (goto-char posn) t) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/gui-lib/mred/private/wx/cocoa/ |
H A D | procs.rkt | 115 … (set-box! xb ((if (and all? (zero? num)) + -) (->long (NSPoint-x (NSRect-origin f))))) 119 (set-box! yb (->long (- (+ (NSPoint-y (NSRect-origin f)) 125 (set-box! xb 0)) 127 (set-box! yb 0)) 128 (set-box! yb (+ (unbox yb) (get-menu-bar-height)))) 139 (set-box! xb (->long (NSSize-width (NSRect-size f)))) 140 (set-box! yb (->long (- (NSSize-height (NSRect-size f)) 226 (define posn (tell #:type _NSPoint NSEvent mouseLocation)) 239 (values (make-object point% 240 (->long (NSPoint-x posn)) [all …]
|
/dports/math/reduce/Reduce-svn5758-src/psl/dist/util/ |
H A D | pp.sl | 249 %% This is set by pp by checking (linelength nil). 251 %% *pp-midway-column* : The point at which things should move down instead 272 %% Because psl will set fluid's to nil, we must set the default first, 376 (let ((a (plus2 1 (posn)))) 403 (let ((a (posn))) 414 (let ((b (posn)) 429 (let ((b (posn))) 448 (let ((b (posn))) 486 (let ((a (posn))) 591 (cond ((lessp (posn) lm) [all …]
|
/dports/graphics/epix/epix-1.2.19/ |
H A D | epix.el.in | 75 ;; if auto-mode-alist is set up properly.) 80 ;; if auto-mode-alist is set up properly.) 349 (set-marker (process-mark process) (point-max)) 355 (set-buffer epix-output-buffer) 362 (set-buffer (process-buffer process)) 366 (set-marker (process-mark process) (point)))) 447 (set-buffer epix-output-buffer) 709 label(P(a,b),P(u,v),\"label\",posn); 712 masklabel(P(a,b),P(u,v),\"label\",posn); 966 label(P(a,b),P(u,v),\"label\",posn); [all …]
|
/dports/x11-toolkits/SoXt/SoXt-1.3.0/src/Inventor/Xt/common/viewers/ |
H A D | SoGuiPlaneViewer.cpp.in | 36 the viewpoint set from one of the three principal axes. 75 it's focal point to point along the selected axis (towards negative 224 const SbVec2f posn((float)pos[0] / (float) So@Gui@Max(size[0], (short int)1), local 319 if (posn != prevn) { 321 PRIVATE(this)->panningplane, posn, prevn); 327 if (posn[1] != prevn[1]) { 328 float value = this->getRightWheelValue() + (prevn[1] - posn[1]) * 10.0f; 656 " point [" // coordinates set from code 850 this->super.coords->point.set1Value(0, SbVec3f(0, 0, 0)); 851 this->super.coords->point.set1Value(1, SbVec3f(p[0], p[1], 0)); [all …]
|
H A D | SoGuiExaminerViewer.cpp.in | 45 Here is a complete, stand-alone example that shows how to set up an 106 camera around it's current focal point (the focal point can be 144 camera to home position", the blueprint house for "set new camera 390 PRIVATE(this)->lastmouseposition = posn; 467 PRIVATE(this)->zoomByCursor(posn, prevnormalized); 475 PRIVATE(this)->spin(posn); 529 SbVec3f to = PRIVATE(this)->spinprojector->project(posn); 824 // set new orientation 1108 // still pointing at the same focal point. 1115 // Find global coordinates of focal point. [all …]
|
/dports/math/reduce/Reduce-svn5758-src/packages/tps/ |
H A D | tpseval.red | 44 % << if !*nat and posn!*<20 then orig!*:=posn!*; 77 % if posn!*>55 then terpri!* nil; 87 % << if posn!*>45 then terpri!* nil; 96 % (t,nil,nil,nil,ps!:expansion!-point p,nil); 126 ps!:set!-order(ps,psord); 127 ps!:set!-last!-term(ps,psord-1); 131 <<psord:=0; ps!:set!-last!-term(ps, ps!:max!-order)>> 171 if ps!:expansion!-point ps neq 'ps!:inf then 185 pt := ps!:expansion!-point ps; 313 ps!:set!-term(ps,n,next:=simp!* prepsqxx next); [all …]
|
/dports/math/gap/gap-4.11.0/pkg/kbmag-1.5.9/gap/ |
H A D | wordorder4.g | 21 # made a second set of generators, the monoidGenerators. When 102 # these may not both be the g and h in the argument set of 525 # to it and then set w1 to be the minimum of that and 1. 526 # c1 is set to be dh.c0 if dh.w0>dh.w1, to be dh.c1 if dh.w1>dh.w0 867 # stateList[i] is the set of difference histories corresponding to state i - 868 # the start state corresponds to the empty set 909 # the set Sg of difference histories 1049 # set true after a reduction, but doneSub is reset to false in each loop 1102 # so there's no point in adding dh to the list. 1140 x := Subword(w,posn,posn); [all …]
|
/dports/x11-toolkits/soqt/soqt/src/Inventor/Qt/common/viewers/ |
H A D | SoGuiPlaneViewer.cpp.in | 46 the viewpoint set from one of the three principal axes. 85 it's focal point to point along the selected axis (towards negative 234 const SbVec2f posn((float)pos[0] / (float) So@Gui@Max(size[0], (short int)1), local 329 if (posn != prevn) { 331 PRIVATE(this)->panningplane, posn, prevn); 337 if (posn[1] != prevn[1]) { 338 float value = this->getRightWheelValue() + (prevn[1] - posn[1]) * 10.0f; 666 " point [" // coordinates set from code 860 this->super.coords->point.set1Value(0, SbVec3f(0, 0, 0)); 861 this->super.coords->point.set1Value(1, SbVec3f(p[0], p[1], 0)); [all …]
|
H A D | SoGuiExaminerViewer.cpp.in | 55 Here is a complete, stand-alone example that shows how to set up an 116 camera around it's current focal point (the focal point can be 154 camera to home position", the blueprint house for "set new camera 400 PRIVATE(this)->lastmouseposition = posn; 477 PRIVATE(this)->zoomByCursor(posn, prevnormalized); 485 PRIVATE(this)->spin(posn); 539 SbVec3f to = PRIVATE(this)->spinprojector->project(posn); 834 // set new orientation 1118 // still pointing at the same focal point. 1125 // Find global coordinates of focal point. [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/gui-lib/mred/private/ |
H A D | wxpanel.rkt | 81 (rename-super [super-set-focus set-focus]) 377 ;; is a list of 4 elements, consisting of child's x-posn, 378 ;; y-posn, x-size, y-size (including margins). Items are in same 440 [do-align (lambda (h v set-h set-v) 455 ;; loop for fix-point on x and y scroll 687 ;; posn&size info for each child. 732 [major-posn left-edge] 744 [minor-posn (if (child-minor-stretch 760 (get-x-info major-posn minor-posn) 761 (get-y-info major-posn minor-posn) [all …]
|