Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

More changes for rename to (box2d-lite edges)

  • Loading branch information...
commit 9e93958ede91aed53cb44ead6b69b089a209fffc 1 parent a97f625
@dharmatech authored
View
2  arbiter.sls
@@ -34,7 +34,7 @@
(box2d-lite util math)
(box2d-lite vec)
(box2d-lite body)
- (box2d-lite feature-pair)
+ (box2d-lite edges)
(box2d-lite contact)
(box2d-lite collide)
(box2d-lite world-parameters))
View
2  clip-segment-to-line.sls
@@ -9,7 +9,7 @@
(box2d-lite vec)
(box2d-lite edge-numbers)
(box2d-lite clip-vertex)
- (box2d-lite feature-pair))
+ (box2d-lite edges))
(define (clip-segment-to-line v-out v-in normal offset clip-edge)
View
2  clip-vertex.sls
@@ -20,7 +20,7 @@
(import (rnrs)
(box2d-lite util define-record-type)
(box2d-lite vec)
- (box2d-lite feature-pair)
+ (box2d-lite edges)
)
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
View
2  collide.sls
@@ -12,7 +12,7 @@
(box2d-lite edge-numbers)
(box2d-lite contact)
(box2d-lite clip-vertex)
- (box2d-lite feature-pair)
+ (box2d-lite edges)
(box2d-lite compute-incident-edge)
(box2d-lite clip-segment-to-line))
View
2  compute-incident-edge.sls
@@ -11,7 +11,7 @@
(box2d-lite vec)
(box2d-lite mat)
(box2d-lite clip-vertex)
- (box2d-lite feature-pair)
+ (box2d-lite edges)
(box2d-lite edge-numbers))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
View
2  contact.sls
@@ -37,7 +37,7 @@
(import (rnrs)
(box2d-lite util define-record-type)
(box2d-lite vec)
- (box2d-lite feature-pair))
+ (box2d-lite edges))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
View
1  edges.sls
@@ -23,7 +23,6 @@
flip)
(import (rnrs)
- (srfi :27 random-bits)
(box2d-lite util define-record-type)
(box2d-lite edge-numbers))
View
76 feature-pair.sls
@@ -1,76 +0,0 @@
-
-(library (box2d-lite feature-pair)
-
- (export make-edges
-
- edges-in-edge-1
- edges-out-edge-1
- edges-in-edge-2
- edges-out-edge-2
-
- edges-in-edge-1-set!
- edges-out-edge-1-set!
- edges-in-edge-2-set!
- edges-out-edge-2-set!
-
- is-edges
- import-edges
-
- create-edges
-
- edges-equal?
-
- flip)
-
- (import (rnrs)
- (srfi :27 random-bits)
- (box2d-lite util define-record-type)
- (box2d-lite edge-numbers))
-
- ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
- (define-record-type++ edges
- is-edges
- import-edges
- (fields (mutable in-edge-1)
- (mutable out-edge-1)
- (mutable in-edge-2)
- (mutable out-edge-2))
- (methods))
-
- (define (create-edges)
- (make-edges NO-EDGE NO-EDGE NO-EDGE NO-EDGE))
-
- ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
- (define (edges-equal? a b)
-
- (is-edges a)
- (is-edges b)
-
- (and (equal? a.in-edge-1 b.in-edge-1)
- (equal? a.out-edge-1 b.out-edge-1)
- (equal? a.in-edge-2 b.in-edge-2)
- (equal? a.out-edge-2 b.out-edge-2)))
-
- ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
- (define (flip e)
-
- (is-edges e)
-
- (let ((tmp e.in-edge-1))
-
- (e.in-edge-1! e.in-edge-2)
-
- (e.in-edge-2! tmp))
-
- (let ((tmp e.out-edge-1))
-
- (e.out-edge-1! e.out-edge-2)
-
- (e.out-edge-2! tmp)))
-
- ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
- )
Please sign in to comment.
Something went wrong with that request. Please try again.