Valentineliner

Started by Devilmarkus, 15. February 2021, 11:56:59

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

Devilmarkus

15. February 2021, 11:56:59 Last Edit: 15. February 2021, 12:08:41 by Devilmarkus
Für nächstes Jahr ;)

Code Select
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:
Code Select
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
https://cpcwiki.de
Dein Deutsches CPCWiki!
Print
Go Up Pages1
User actions