Press 'Z' for a New Triangle
There should be a simpler way to do this without scanning pixels on the screen.
Let me think ...
Here, try this:
See source to examine method I am using or
To load this cart in Pico-8 in immediate mode type,
load #tri
And I'm certain there's an even simpler way to do this, especially for those who have posted 3D games in the past.
Well, I get by with a little help from my friends. You know the tune ? :)
It is the truth, however. Years ago someone showed me how to draw a line from x1,y1 to x2,y2. And the code I wrote HERE:
https://www.lexaloffle.com/bbs/?pid=116827#p
Makes use of that.
So I gave it some thought and wondered what would happen if I drew a line for all the vertices from x2,y2 to x3,y3 using a ramp of x1,y1 ?
And it works ! Well, sorta ... It leaves little holes if the thickness of the line drawn is just 1 is why I overlap it with x+1 beside it.
Here now, this is something we can all find useful. Fully documented code showing how to draw a line between two points both x1,y1 and x2,y2.
Here is the source-code instead of loading it up if you choose.
-- simple draw line with dots -- written by dw817 (10-27-22) -- start a loop repeat -- clear screen cls() -- choose integer x1-coordinate x1=rnd(128)\1 -- choose integer y1-coordinate y1=rnd(116)\1+12 -- choose integer x2-coordinate x2=rnd(128)\1 -- choose integer y2-coordinate y2=rnd(116)\1+12 -- Show them as red and blue -- dots pset(x1,y1,8) pset(x2,y2,12) -- visually show the coords for -- the starting point ?"1=("..x1..","..y1..")",0,0,6 -- visually show the coords for -- the ending point ?"2=("..x2..","..y2..")" -- get distance of x-points distx=x1-x2 -- get distance of y-points disty=y1-y2 -- get abs distance of x-points absdistx=abs(distx) -- get abs distance of y-points absdisty=abs(disty) -- pick the biggest absolute -- distance of both points=max(1,max(absdistx,absdisty)) -- calculate the slope for x slopex=distx/points -- calculate the slope for y slopey=disty/points -- set our plotter x to x1 drawx=x1 -- set our plotter y to y1 drawy=y1 -- loop to draw dots for i=0,points do -- draw dot only if it is not -- the first one so our red -- pixel will still appear if i>0 then pset(drawx,drawy,13) end -- next point for drawx plot drawx=drawx-slopex -- next point for drawy plot drawy=drawy-slopey -- give a tiny pause to see flip() -- end of our drawing loop end -- loop forever until forever |
Thank you, @PotatoImaginator. Yet I know there are some other Piconians that could run rings around both of us.
I wish they would appear and post some truly genius compact triangle-drawing sourcecode we could both understand and learn from.
Actually drawing a filled POLYGON would be even better.
I bookmarked https://www.lexaloffle.com/bbs/?tid=31478 a while back. Maybe it'll help.
I've never got round to drawing triangles in anger yet.
[Please log in to post a comment]