Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

FEAT: switch pair! from integer! to float32! #4049

Open
wants to merge 21 commits into
base: master
Choose a base branch
from
Open

FEAT: switch pair! from integer! to float32! #4049

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
21 commits
Select commit Hold shift click to select a range
2dda6e3
FEAT: preliminary use float32! in pair!
qtxie Sep 21, 2019
fb16334
FIX: blank output in CLI console.
qtxie Sep 21, 2019
9d58f59
FEAT: support float pair in runtime lexer.
qtxie Sep 21, 2019
0ceb544
FIX: compiling error on non-Windows backend.
qtxie Sep 21, 2019
4d9ba4b
FEAT: use float32! pair! for window gui
bitbegin Sep 23, 2019
aee7654
FIX: use struct by value
bitbegin Sep 23, 2019
ba676a6
FEAT: use float32! pair! for macos view
bitbegin Sep 23, 2019
c882b60
FEAT: use more float32! as arguments
bitbegin Sep 24, 2019
7d919f5
FIX: align-faces does not allow float! for its max-sz argument
bitbegin Sep 24, 2019
dedbdaa
FIX: use float! instead of integer! for `as float32!`
bitbegin Sep 24, 2019
1b51180
FIX: get pos-x/pos-y error
bitbegin Sep 24, 2019
660879a
FIX: comment too large integer! to pair! test
bitbegin Sep 24, 2019
6461b59
FIX: export red/pair/push-int
bitbegin Sep 24, 2019
ee9dcac
FIX: comment issues on pair! test
bitbegin Sep 24, 2019
6658931
FIX: compare pair! not right
bitbegin Sep 24, 2019
65934a7
FIX: view [return] crashes.
qtxie Sep 24, 2019
3e65ecf
TESTS: fix image tests due to pair! internal changes.
qtxie Sep 24, 2019
dcb6918
Merge pull request #7 from qtxie/pair2
bitbegin Sep 24, 2019
383c256
TEST: pair! test issues
bitbegin Sep 24, 2019
4995508
FIX: use as float32! 2.0 to avoid auto to float!
bitbegin Sep 24, 2019
5e4a0e9
FIX: pass error argument
bitbegin Sep 25, 2019
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
FEAT: use float32! pair! for macos view
  • Loading branch information
@bitbegin
bitbegin committed Sep 24, 2019
commit ba676a62c00f3f5fc09c0676889d1d6a94031a55
20 changes: 10 additions & 10 deletions modules/view/backends/macOS/delegates.reds
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -647,8 647,8 @@ text-will-selection: func [
sel: as red-pair! (get-face-values self) FACE_OBJ_SELECTED
either zero? len2 [sel/header: TYPE_NONE][
sel/header: TYPE_PAIR
sel/x: idx2 1
sel/y: idx2 len2
sel/x: as float32! idx2 1
sel/y: as float32! idx2 len2
]

make-event self 0 EVT_SELECT
Expand Down Expand Up @@ -1022,8 1022,8 @@ win-did-resize: func [
v: objc_msgSend [self sel_getUid "contentView"]
rc: objc_msgSend_rect [v sel_getUid "frame"]
sz: (as red-pair! get-face-values self) FACE_OBJ_SIZE ;-- update face/size
sz/x: as-integer rc/w
sz/y: as-integer rc/h
sz/x: rc/w
sz/y: rc/h
]

win-live-resize: func [
Expand All @@ -1046,8 1046,8 @@ win-did-move: func [
][
rc: as NSRect! (as int-ptr! self) 2
sz: (as red-pair! get-face-values self) FACE_OBJ_OFFSET ;-- update face/offset
sz/x: as-integer rc/x
sz/y: screen-size-y - as-integer (rc/y rc/h)
sz/x: rc/x
sz/y: (as float32! screen-size-y) - (rc/y rc/h)
make-event self 0 EVT_MOVE
]

Expand Down Expand Up @@ -1431,9 1431,9 @@ hit-test: func [
]
w: IMAGE_WIDTH(img/size)
h: IMAGE_HEIGHT(img/size)
ratio: (as float32! w) / (as float32! sz/x)
ratio: (as float32! w) / sz/x
x: as-integer pt/x * ratio
ratio: (as float32! h) / (as float32! sz/y)
ratio: (as float32! h) / sz/y
y: as-integer pt/y * ratio
pixel: OS-image/get-pixel img/node y * w x
if pixel >>> 24 = 0 [v: 0]
Expand Down Expand Up @@ -1485,12 1485,12 @@ draw-rect: func [
paint-background ctx clr/array1 x y width height
]
if TYPE_OF(img) = TYPE_IMAGE [
CG-draw-image ctx OS-image/to-cgimage img 0 0 size/x size/y
CG-draw-image ctx OS-image/to-cgimage img 0 0 as integer! size/x as integer! size/y
]
case [
sym = base [render-text ctx vals as NSSize! (as int-ptr! self) 8]
sym = rich-text [
pos/x: 0 pos/y: 0
pos/x: as float32! 0.0 pos/y: as float32! 0.0
draw-text-box null :pos get-face-obj self yes
]
true []
Expand Down
Loading