From 976f92f5faae252a6245b873800d56c44c8a2b05 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Fri, 15 Sep 2023 21:32:40 -0400
Subject: WIP: Stub in GPU into Folk. Doesn't draw yet

---
 virtual-programs/display.folk | 31 +++++++++++++++++++++++++------
 1 file changed, 25 insertions(+), 6 deletions(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/display.folk b/virtual-programs/display.folk
index 674cf1f7..7d4f47b6 100644
--- a/virtual-programs/display.folk
+++ b/virtual-programs/display.folk
@@ -38,8 +38,25 @@ namespace eval ::Display {
 }
 
 On process {
-    source pi/Display.tcl
-    Display::init
+    source pi/Gpu.tcl
+    Gpu::init
+
+    namespace eval Display {
+        proc start {} {}
+
+        proc stroke {points width color} {
+
+        }
+        proc circle {x y radius thickness color} {}
+        proc text {x y scale text radians} {}
+        proc fillTriangle {args} {}
+        proc fillQuad {args} {}
+        proc fillPolygon {args} {}
+        proc image {x y im radians {scale 1.0}} {}
+
+        proc end {} {}
+    }
+
     puts "Display tid: [getTid]"
 
     # TODO: Clean this up. We retract these so that we don't bounce
@@ -77,11 +94,13 @@ On process {
         }
 
         set displayCommands [lmap sublist [lsort -command lcomp $displayList] {lindex $sublist 1}]
+        set renderTime [baretime {
+            Display::start
+            foreach command $displayCommands { {*}$command }
+            Display::end
+        }]
 
-        set renderTime [baretime [list foreach command $displayCommands { {*}$command }]]
-        set commitTime [baretime commitThenClearStaging]
-
-        Commit { Claim the display time is "render $renderTime us + commit $commitTime us ($::stepTime)" }
+        Commit { Claim the display time is "render $renderTime us ($::stepTime)" }
         Step
     }
 }
-- 
cgit v1.2.3