[Axe] Plasma

:.PLASMA
:.by KKI+MAT
:.Full
:.Precalculs
:det(256)→C
:For(A,0,255)
:	127+cos(A*256/32)→{A+C}
:End
:0→Θ
:Repeat getKey(15)
:	L6-1→P+12→Q
:	Θ+1^32→Θ
:	{Θ*2+24+C}/40→D
:	{Θ+C}/32→E
:	.Lignes
:	0→Y
:	Lbl YH
:	.Precalculs
:	{Y+E+C}→M
:	.Colonnes
:	0→X
:	Lbl XW
:	.Couleur
:	M+{X+D+C}
:	+{X+Y+D+E/2+Θ+C}→Z
:	.Init/Decale
:	!If X^4
:		P+++12→Q
:	0→{P}:0→{Q}
:Else
:	{P}*4→{P}
:	{Q}*4→{Q}
:End
:If Z≤192
:	{P}+3→{P}
:{Q}+3→{Q}
:ElseIf Z≤384
:	{P}++
:{Q}+2→{Q}
:ElseIf Z≤576
:	{P}++
:End
:If X++-48
:	Goto XW
:End
:If Y++-32
:	P+12→P+12→Q
:Goto YH
:End
:DispGraph
:.Output(0,0,A►Dec,{A+S}►Dec
:End