Home
last modified time | relevance | path

Searched +refs:posn +refs:set +refs:point (Results 1 – 25 of 278) sorted by relevance

12345678910>>...12

/dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/graphics/
H A Dgraphics-posn-less-unit.rkt184 (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 Dgraphics-posn-less-unit.rkt121 (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 Dvc-dispatcher.el181 (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 Dchat-noir-literate.rkt384 (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 Dimage-more.rkt57 (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 Ddefine-struct.scrbl90 @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 Dimage.scrbl5 (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 Dess-inf.el191 (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 Dess-utils.el165 (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 Dimage.rkt16 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 Dstructure.scrbl25 (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 Dmouse.el1504 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 Dimage.rkt17 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 Dmouse.el1882 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 Dreduce-mode.el428 (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 Dprocs.rkt115 … (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 Dpp.sl249 %% 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 Depix.el.in75 ;; 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 DSoGuiPlaneViewer.cpp.in36 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 DSoGuiExaminerViewer.cpp.in45 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 Dtpseval.red44 % << 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 Dwordorder4.g21 # 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 DSoGuiPlaneViewer.cpp.in46 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 DSoGuiExaminerViewer.cpp.in55 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 Dwxpanel.rkt81 (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 …]

12345678910>>...12