pouët.net

Go to bottom

Random line of code thread

category: code [glöplog]
Curs Off : Flash Off : Hide On : Cls 0
added on the 2024-12-17 20:00:45 by grip grip
Code:Define constants for the Amiga custom registers
added on the 2025-01-10 16:09:09 by Blueberry Blueberry
We need more activity in this thread. :)
Code: or.w #$0700,sr
added on the 2025-02-16 16:54:34 by Blueberry Blueberry
Code:add sizeof_Metasprite - ((wMetasprites3_Delay - wMetasprites3_PosY)) + 1
added on the 2025-02-16 22:03:18 by DevEd DevEd
Code:// Fix at the later date // ad. Fixing it caused too many errors. Leave it as it is
added on the 2025-02-16 22:05:03 by Suule Suule
Code: if (color.lower != color.upper) lower[block].add((offset, color.lower));
added on the 2025-02-26 19:36:13 by Blueberry Blueberry
Code:ld [hl], (35 + 8) + 10
added on the 2025-02-27 06:00:39 by DevEd DevEd
Code:ocs_to_rgb = lambda c : tuple(((c >> i) & 0x0F) * 0x11 for i in (8, 4, 0))
added on the 2025-02-27 10:50:14 by nicode nicode
Code:(function q() { console.log("(" + q.toString() + ")()") })()
added on the 2025-02-27 10:56:38 by grip grip
Code:var %y $calc(($sin($calc((%dm.c / 24) + (%cnt * 1.5))).deg * 96) + (720 / 2))
added on the 2025-02-27 12:54:42 by lynn lynn
Code:ff=lambda x,n=mp.dps//2:f'{mp.nstr(x,n-(mp.fabs(x)<1),min_fixed=mp.ninf,max_fixed=mp.inf):0{n+1}}'
added on the 2025-02-27 15:18:10 by nicode nicode
Code:minterms = (-1 << (threshold & 7)) & 0xFF;
added on the 2025-03-11 12:08:30 by Blueberry Blueberry
Code:elseif ($right($left($did(11, $did(11).sel).text, 2), 1) == $chr(58)) { cd $did(11, $did(11).sel).text }
added on the 2025-03-11 19:09:16 by lynn lynn
adjtim=(((tim-20)*10)%396)/10
added on the 2025-04-06 20:42:21 by Suule Suule
Code:int maxSprites = min(8, (ddfStart - 0x14) >> 2);
added on the 2025-04-06 20:45:37 by Blueberry Blueberry
calcAllpos
move.l ptrref1,a5
move.l ptrref2,a1
move.w ang1,d0
add d0,d0
add d0,d0
add.w d0,a5
move.w ang2,d0
add d0,d0
add.w d0,d0
add.w d0,a1

move.l ptrref3,a2
move.l ptrref4,a3
move.w ang3,d0
add d0,d0
add d0,d0
add d0,a2
move.w ang4,d0
add d0,d0
add d0,d0
add d0,a3

move.l (a5),a5
move.l (a1),a1
move.l (a2),a2
move.l (a3),a3

move.l codecurefface,a4

move.l ptrConvX,d0
move.l ptrConvY,d1
move.l log,d3

move.w #nbbob-1,d2

moveq #0,d4
move.w seuil,d5
move.l #brabrabra,d7
loopcalcul

move.w d5,d0
add.w (a2)+,d0
add.w (a3)+,d0

move.l d0,a6
move.w (a6),d3 ; y*160

move.w (a5)+,d0
add.w (a1)+,d0

move.l d0,a6
add.w (a6)+,d3
move.w d3,(a4)+ ; effacement offset
move.l (a6)+,(a4)+ ; routine d'effacement

move.l (a6),a6 ; routine d'affichage
move.l d3,a0
exg.l d7,a4
jmp (a6)
brabrabra
exg.l a4,d7
; move.w d5,d0
; add.w (a2)+,d0
; add.w (a3)+,d0
;
; move.l d0,a6
; move.w (a6),d3 ; y*160
;
; move.w (a5)+,d0
; add.w (a1)+,d0
;
; move.l d0,a6
; add.w (a6)+,d3
; addq.w #4,d3
; move.w d3,(a4)+ ; effacement offset
; move.l (a6)+,(a4)+ ; routine d'effacement
;
; move.l (a6),a6 ; routine d'affichage
; move.l d3,a0
;
; jsr (a6)
dbf d2,loopcalcul


lea ang1,a0
lea 8(a0),a1
movem.w (a1),d0-d3

move.w (a0),d4
add.w d0,d4
move.w #511,d5
and d5,d4
move.w d4,(a0)+

move.w (a0),d4
add.w d1,d4
cmp.w #900,d4
blt.s .toto
sub.w #900,d4
.toto move.w d4,(a0)+

move.w (a0),d4
add.w d2,d4
and d5,d4
move.w d4,(a0)+

move.w (a0),d4
add.w d3,d4
cmp.w #900,d4
blt.s .toto2
sub.w #900,d4
.toto2
move.w d4,(a0)+
; maj angle fait

rts
added on the 2025-04-07 00:04:46 by gloky gloky
...thats not 1 line anyways i feel the need to post in this specific kind of threads idk why so here it goes. likely my last post in a long while. anyways.

Code:la $a0, SYSCALL_PRINT_STRING
added on the 2025-04-07 23:12:49 by juanp32 juanp32
Code: return n; /* FIXME FIXME FIXME */
added on the 2025-04-11 00:34:14 by Krill Krill

login

Go to top