Autor Thema: Valentineliner  (Gelesen 432 mal)

0 Mitglieder und 1 Gast betrachten dieses Thema.

Offline Devilmarkus

Valentineliner
« am: 15. Februar 2021, 11:56:59 »
Für nächstes Jahr ;)

10 MODE 2:M=313:P=50:J=1:INK 0,0:INK 1,6:FOR I=0 TO 1.55 STEP 0.00055:J=-J:PLOT 160+ABS(P*(J*I+3)),300-P*(2+I^0.01*ABS(COS(I))^0.5*COS(M*I)-I^0.3),1:NEXT
Größer:
10 MODE 2:M=313:P=100:J=1:INK 0,0:INK 1,6:FOR I=0 TO 1.55 STEP 0.00025:J=-J:PLOT 20+ABS(P*(J*I+3)),360-P*(2+I^0.01*ABS(COS(I))^0.5*COS(M*I)-I^0.3),1:NEXT
« Letzte Änderung: 15. Februar 2021, 12:08:41 von Devilmarkus »
https://cpcwiki.de
Dein Deutsches CPCWiki!