Text only | Text with Images

Schneider / Amstrad CPC Forum

Amstrad / Schneider CPC => Programmierung => Topic started by: Devilmarkus on 15. February 2021, 11:56:59

Title: Valentineliner
Post by: Devilmarkus on 15. February 2021, 11:56:59
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
Text only | Text with Images