logo: rr: re-arrange a bit

This commit is contained in:
Vince Weaver 2021-08-04 01:00:02 -04:00
parent 1907caf2c4
commit b4852bf33e
1 changed files with 77 additions and 79 deletions

View File

@ -1,80 +1,3 @@
TO ROLL
SPLITSCREEN
PU
SETPOS [-80 -70]
SETH 90
CT
SETCURSOR [8 20]
PR [NEVER GONNA GIVE YOU UP]
TOOT 262 10
FD 14
TOOT 294 10
FD 28
TOOT 349 10
FD 21
TOOT 294 10
FD 21
TOOT 440 15
FD 35
TOOT 440 15
FD 28
TOOT 392 30
CT
SETCURSOR [8 20]
SETPOS [-80 -70]
PR [NEVER GONNA LET YOU DOWN]
TOOT 262 10
FD 14
TOOT 294 10
FD 28
TOOT 349 10
FD 21
TOOT 294 10
FD 21
TOOT 392 15
FD 28
TOOT 392 15
FD 28
TOOT 349 15
CT
SETCURSOR [1 20]
SETPOS [-128 -70]
PR [NEVER GONNA RUN AROUND AND DESERT YOU]
TOOT 262 10
FD 14
TOOT 294 10
FD 28
TOOT 349 10
FD 21
TOOT 294 10
FD 21
TOOT 349 20
FD 28
TOOT 392 10
FD 7
TOOT 330 15
FD 42
TOOT 294 5
TOOT 262 20
FD 28
TOOT 262 10
FD 14
TOOT 392 20
FD 35
TOOT 349 40
END
TO RR
RICK
ROLL
END
TO G :X :Y
MAKE "XY SENTENCE :X :Y
SETHEADING TOWARDS :XY
SETPOS :XY
END
TO RICK
CS
FULLSCREEN
@ -253,6 +176,81 @@ PD
FILL
END
TO ROLL
SPLITSCREEN
PU
SETPOS [-80 -70]
SETH 90
CT
SETCURSOR [8 20]
PR [NEVER GONNA GIVE YOU UP]
TOOT 262 10
FD 14
TOOT 294 10
FD 28
TOOT 349 10
FD 21
TOOT 294 10
FD 21
TOOT 440 15
FD 35
TOOT 440 15
FD 28
TOOT 392 30
CT
SETCURSOR [8 20]
SETPOS [-80 -70]
PR [NEVER GONNA LET YOU DOWN]
TOOT 262 10
FD 14
TOOT 294 10
FD 28
TOOT 349 10
FD 21
TOOT 294 10
FD 21
TOOT 392 15
FD 28
TOOT 392 15
FD 28
TOOT 349 15
CT
SETCURSOR [1 20]
SETPOS [-128 -70]
PR [NEVER GONNA RUN AROUND AND DESERT YOU]
TOOT 262 10
FD 14
TOOT 294 10
FD 28
TOOT 349 10
FD 21
TOOT 294 10
FD 21
TOOT 349 20
FD 28
TOOT 392 10
FD 7
TOOT 330 15
FD 42
TOOT 294 5
TOOT 262 20
FD 28
TOOT 262 10
FD 14
TOOT 392 20
FD 35
TOOT 349 40
END
TO G :X :Y
MAKE "XY SENTENCE :X :Y
SETHEADING TOWARDS :XY
SETPOS :XY
END
TO RR
RICK
ROLL
END
MAKE "STARTUP [RR]