Added fireballs.

ueforth/examples/heart_game.fs

@@ -0,0 +1,153 @@
+#! /usr/bin/env ueforth
+
+\ Copyright 2022 Bradley D. Nelson
+\
+\ Licensed under the Apache License, Version 2.0 (the "License");
+\ you may not use this file except in compliance with the License.
+\ You may obtain a copy of the License at
+\
+\     http://www.apache.org/licenses/LICENSE-2.0
+\
+\ Unless required by applicable law or agreed to in writing, software
+\ distributed under the License is distributed on an "AS IS" BASIS,
+\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+\ See the License for the specific language governing permissions and
+\ limitations under the License.
+
+grf also structures
+640 480 window
+
+1 31 lshift 1- constant max-random
+0 value seed
+: random ( n -- )
+  seed max-random */
+  seed 7127 + 7919 * max-random mod to seed
+;
+
+10000 constant entity-limit
+struct EntityStruct
+  ptr field ->x
+  ptr field ->y
+  ptr field ->vx
+  ptr field ->vy
+  ptr field ->kind
+  ptr field ->step
+
+0 constant DEAD
+1 constant HEART-GOAL
+2 constant FIRE
+3 constant SPARK
+4 constant ARROW
+
+create entity-array entity-limit EntityStruct * allot
+: entity ( n -- a ) EntityStruct * entity-array + ;
+0 value entity-count
+
+: nix ( n -- )
+  entity entity-count 1- entity swap EntityStruct cmove
+  entity-count 1- to entity-count
+;
+
+: cleanup
+  0 begin dup entity-count < while
+    dup entity ->kind @ DEAD = if
+      dup nix
+    else
+      1+
+    then
+  repeat
+;
+
+: new ( -- n )
+  entity-count entity EntityStruct erase
+  entity-count dup 1+ to entity-count
+;
+
+: draw-one { e } e ->kind @ { kind }
+  HEART-GOAL kind = if
+    $ff0000 128 random dup 8 lshift + + to color
+    e ->x @ 100 / e ->y @ 100 / e ->step @ heart
+    exit
+  then
+  FIRE kind = if
+    $222222 to color
+    e ->x @ 100 / 4 - e ->y @ 100 / 4 - 8 8 box
+    exit
+  then
+  SPARK kind = if
+    $ff7700 128 random 8 lshift + to color
+    e ->x @ 100 / 4 - e ->y @ 100 / 4 - 8 8 box
+    exit
+  then
+  ARROW kind = if
+    exit
+  then
+;
+
+: draw
+  $003300 to color 0 0 width height box
+  entity-count 0 ?do i entity draw-one loop
+  flip
+;
+
+: random-spark { e }
+  new entity { s }
+  SPARK s ->kind !
+  e ->x @ s ->x !
+  e ->y @ s ->y !
+  e ->vx @ 200 random 100 - + s ->vx !
+  e ->vy @ 200 random 200 - + s ->vy !
+  0 s ->step !
+;
+
+: tick-one { e }
+  e ->vy @ 4 + e ->vy !
+  e ->vx @ e ->x @ + e ->x !
+  e ->vy @ e ->y @ + e ->y !
+  e ->y @ height 100 * > if DEAD e ->kind ! then
+  e ->kind @ { kind }
+  FIRE kind = if
+    e random-spark
+  then
+  SPARK kind = if
+    1 e ->step +!
+    e ->step @ 10 > if DEAD e ->kind ! then
+  then
+;
+
+: tick   entity-count 0 ?do i entity tick-one loop ;
+
+: random-heart { e }
+  HEART-GOAL e ->kind !
+  width 100 * random e ->x !
+  height 100 * random e ->y !
+  2000 random 1000 - e ->vx !
+  2000 random 2000 - e ->vy !
+  20 random 20 + e ->step !
+;
+
+: random-fire { e }
+  FIRE e ->kind !
+  width 100 * random e ->x !
+  height 100 * random e ->y !
+  200 random 100 - e ->vx !
+  200 random 200 - e ->vy !
+  20 random 20 + e ->step !
+;
+
+: init
+  10 for new entity random-heart next
+  10 for new entity random-fire next
+;
+
+: run
+  begin
+    PRESSED event = if init then
+    poll
+    draw
+    tick
+    cleanup
+  FINISHED event = until
+  bye
+;
+run

ueforth/examples/httpd_sample.fs

@@ -1,5 +1,19 @@
 #! /usr/bin/env ueforth
 
+\ Copyright 2022 Bradley D. Nelson
+\
+\ Licensed under the Apache License, Version 2.0 (the "License");
+\ you may not use this file except in compliance with the License.
+\ You may obtain a copy of the License at
+\
+\     http://www.apache.org/licenses/LICENSE-2.0
+\
+\ Unless required by applicable law or agreed to in writing, software
+\ distributed under the License is distributed on an "AS IS" BASIS,
+\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+\ See the License for the specific language governing permissions and
+\ limitations under the License.
+
 also httpd
 
 : handle-index