Routines

[turiqwalrus]

nice
once that's optimized, I'll switch from 0.5.3
(and once I finally read the newest commands list )

[Darl181]

Another one

How feasible would it be to make xoring lines/circles?  I just got a freaking huge optimization in Essence but it requires that whatever draws to the buffer inverts its pixels :|
(the explosions are lines+a circle and the blitz gun is made of lines as well)

[aeTIos]

Who would like a search routine?

[MGOS]

Does someone know a short and fast routine for a broke / dotted line?

[Michael_Lee]

I don't know if you could call it either short or fast, but I did once make a variant on a line-drawing algorithm that can also do dotted lines at arbitrary intervals:
http://www.omnimaga.org/index.php?topic=1532.msg84372#msg84372

I deliberately added a 'Pause' in there, and constructed in such a way so that it would always radiate outwards (I was making a raycaster thing at the time), so it could definitely be optimized.

[MGOS]

Thanks, that's good enough for my purposes.

I found a pixel-wise xor (or / and) function for sprites, to invert a sprite if it is on dark background.

Code: Select All | Copy To Clipboard

1 2 3 4 5 6

pt-Get(X,Y)->W For(I,0,7) {W+I} xor ({sprite+I})->{W+I} End Pt-Off(X,Y,W)

[Keoni29]

Thanks, that's good enough for my purposes.

I found a pixel-wise xor (or / and) function for sprites, to invert a sprite if it is on dark background.

Code: Select All | Copy To Clipboard

1 2 3 4 5 6

pt-Get(X,Y)->W For(I,0,7) {W+I} xor ({sprite+I})->{W+I} End Pt-Off(X,Y,W)

That might come in handy for monochrome games

[MGOS]

That might come in handy for monochrome games

Yeah, I needed it for a cursor in my program, which got undesiredly invisible if you moved to a black area.

[calc84maniac]

Thanks, that's good enough for my purposes.

I found a pixel-wise xor (or / and) function for sprites, to invert a sprite if it is on dark background.

Code: Select All | Copy To Clipboard

1 2 3 4 5 6

pt-Get(X,Y)->W For(I,0,7) {W+I} xor ({sprite+I})->{W+I} End Pt-Off(X,Y,W)

Is something wrong with Pt-Change(X,Y,sprite)?

[aeTIos]

^That.

[MGOS]

Is something wrong with Pt-Change(X,Y,sprite)?

Yeah, else I wouldn't have posted this. The Pt-Change function inverts also white pixels, which isn't desired.
My routine only inverts if the background-pixel AND the sprite-pixel are black.

[aeTIos]

Aha.

[Builderboy]

Is something wrong with Pt-Change(X,Y,sprite)?

Yeah, else I wouldn't have posted this. The Pt-Change function inverts also white pixels, which isn't desired.
My routine only inverts if the background-pixel AND the sprite-pixel are black.

Actually looking at your code, it looks like your routine and Pt-Change() will do exactly the same things.  All Pt-Change is, is an XOR sprite display, which is exactly what you wrote

[MGOS]

Is something wrong with Pt-Change(X,Y,sprite)?

Yeah, else I wouldn't have posted this. The Pt-Change function inverts also white pixels, which isn't desired.
My routine only inverts if the background-pixel AND the sprite-pixel are black.

Actually looking at your code, it looks like your routine and Pt-Change() will do exactly the same things.  All Pt-Change is, is an XOR sprite display, which is exactly what you wrote

Ok, I tried it out and it's actually the same. But the routine stays usefull for ANDing sprites and maybe XORing with different buffers

[jacobly]

Due to multiple requests, I wrote an axe clock library, LIBCLOCK. See CLOCKTST for example code.

Axe Code Function on calculators with a clock (function on calculators without a clock).

Main functions:
ClkOf() Turns the clock off (does nothing).
ClkOn() Turns the clock on (does nothing).
IsClk() Returns 1 if the clock is on, 0 if off (returns 0).
°A:GetDT() Gets the current date and time. Sets 6 consecutive variables, or 6 consecutive words, starting at the passed in address.  In this example, A = year, B = month, C = day, D = hour, E = minute, F = second (returns midnight of January 1, 1997). Do not pass in °r₁.
SetDT(year,month,day,hour,minute,second) Sets the current date and time (does nothing relatively slowly).
DOfWk(year,month,day) Returns the day of the week of the specified date, 1 = Sunday, ..., 7 = Saturday.

Low level functions:
°A:GetRT() Gets the current raw time. Sets 2 consecutive variables, or 2 consecutive words, starting at the passed in address.  In this example, AB = seconds since January 1, 1997 (AB = 0).
°A:SetRT() Sets the current raw time.  Uses 2 consecutive variables, or 2 consecutive words, starting at the passed in address (does nothing).

Bonus functions:
Mul21(r₁,r₂,r₃) Multiplies r₁r₂ by r₃ and stores the result in r₁r₂.
Div21(r₁,r₂,r₃) Divides r₁r₂ by r₃ and stores the result in r₁r₂, and the remainder in r₄. Edit: I think r₃ must be < 256.