|
Revision 1, 2.2 kB
(checked in by krobillard, 3 years ago)
|
|
Import orca & thune.
|
| Line | |
|---|
| 1 | ORCA [ |
|---|
| 2 | title: "Show font" |
|---|
| 3 | ] |
|---|
| 4 | |
|---|
| 5 | quad: [ |
|---|
| 6 | verts [ |
|---|
| 7 | 0 0 0 |
|---|
| 8 | 0 1 0 |
|---|
| 9 | 1 1 0 |
|---|
| 10 | 1 0 0 |
|---|
| 11 | ] |
|---|
| 12 | uvs [ |
|---|
| 13 | 0 0 |
|---|
| 14 | 0 1 |
|---|
| 15 | 1 1 |
|---|
| 16 | 1 0 |
|---|
| 17 | ] |
|---|
| 18 | colors [ |
|---|
| 19 | 255.0.0 |
|---|
| 20 | 0.255.0 |
|---|
| 21 | 0.0.255 |
|---|
| 22 | 128.128.128 |
|---|
| 23 | ] |
|---|
| 24 | |
|---|
| 25 | quads cv [0 0 1 1 2 2 3 3] |
|---|
| 26 | |
|---|
| 27 | ;surf [ color-map <PNG> ] |
|---|
| 28 | ;quads v0 [ 0 0 1 1 2 2 3 3 ] |
|---|
| 29 | ;surf [ diffuse 255.255.100 ] |
|---|
| 30 | |
|---|
| 31 | ;255.255.100 |
|---|
| 32 | ;quads v [ 0 1 2 3 ] |
|---|
| 33 | ] |
|---|
| 34 | |
|---|
| 35 | ;show: func [file [file!]] |
|---|
| 36 | ;[ |
|---|
| 37 | ;font-img: to-image font |
|---|
| 38 | ;font-img: %chicago.png |
|---|
| 39 | ;font-img: make-texfont file 20 |
|---|
| 40 | |
|---|
| 41 | ;img: load %wait.png |
|---|
| 42 | ;poke quad/6 2 img |
|---|
| 43 | list: compile-gl quad |
|---|
| 44 | posA: make matrix! none |
|---|
| 45 | |
|---|
| 46 | text-pos: make vec3! [0 50 0] |
|---|
| 47 | loop: 0 |
|---|
| 48 | |
|---|
| 49 | ;list: compile-gl reduce ['sprite %wait.png] |
|---|
| 50 | |
|---|
| 51 | font: make-texfont #fontA |
|---|
| 52 | ;%data/Chicago.ttf 20 |
|---|
| 53 | %data/arial.ttf 20 |
|---|
| 54 | |
|---|
| 55 | text: compile-gl [ |
|---|
| 56 | font #fontA |
|---|
| 57 | 50.255.80 text "Hello world^/Another line.^/" |
|---|
| 58 | 50.110.255 text "^/Blue text. P. T," |
|---|
| 59 | ] |
|---|
| 60 | |
|---|
| 61 | loop-rp: render-prog #loop-rp [ |
|---|
| 62 | |
|---|
| 63 | ;call [255.255.255 font #fontA pen 0x40 text "Loops: "] |
|---|
| 64 | ;font #fontA |
|---|
| 65 | ;pen current |
|---|
| 66 | ;text :loop |
|---|
| 67 | ;call [text " (pen test)"] |
|---|
| 68 | |
|---|
| 69 | 255.255.255 |
|---|
| 70 | font #fontA |
|---|
| 71 | pen 0x40 |
|---|
| 72 | text "Loops: " |
|---|
| 73 | text :loop |
|---|
| 74 | text " (pen test)" |
|---|
| 75 | ] |
|---|
| 76 | |
|---|
| 77 | quad-rp: render-prog #quad-rp compose [ |
|---|
| 78 | push |
|---|
| 79 | scale 256 |
|---|
| 80 | ;translate -0.5 -0.5 -2 |
|---|
| 81 | push (posA) |
|---|
| 82 | call (list) |
|---|
| 83 | pop |
|---|
| 84 | pop |
|---|
| 85 | ] |
|---|
| 86 | |
|---|
| 87 | display/window 640x480 |
|---|
| 88 | exec make widget [ |
|---|
| 89 | key-down: key-handler [ |
|---|
| 90 | esc [quit] |
|---|
| 91 | #"q" [quit] |
|---|
| 92 | up [ |
|---|
| 93 | rotate posA y-axis 2.0 |
|---|
| 94 | ] |
|---|
| 95 | down [ |
|---|
| 96 | rotate posA y-axis -2.0 |
|---|
| 97 | ] |
|---|
| 98 | ] |
|---|
| 99 | mouse-wheel: mouse-handler [ |
|---|
| 100 | rotate posA y-axis dy * 0.05 |
|---|
| 101 | ] |
|---|
| 102 | render: [ |
|---|
| 103 | ;viewport self none |
|---|
| 104 | ortho-view self none none |
|---|
| 105 | |
|---|
| 106 | render-state 'solid |
|---|
| 107 | call quad-rp |
|---|
| 108 | |
|---|
| 109 | render-state font |
|---|
| 110 | ;render-state 'solid |
|---|
| 111 | call text |
|---|
| 112 | ;render-text text-pos loop |
|---|
| 113 | call loop-rp |
|---|
| 114 | |
|---|
| 115 | loop: loop + 1 |
|---|
| 116 | ] |
|---|
| 117 | ] |
|---|
| 118 | ;] |
|---|
| 119 | |
|---|
| 120 | ;halt |
|---|
| 121 | |
|---|
| 122 | ;eof |
|---|
