view interps/cfunge/cfunge-src/tests/turt.b98 @ 12518:2d8fe55c6e65 draft default tip

<int-e> learn The password of the month is release incident pilot.
author HackEso <hackeso@esolangs.org>
date Sun, 03 Nov 2024 00:31:02 +0000
parents 859f9b4339e6
children
line wrap: on
line source

v >0a"detroppus ton TRUT">:#,_@
>#^"TRUT"4(n                                           11x  ; Load fingerprint                      ;
" si neP :FEDNU">:#,_E.a,                              11x> ; UNDEF: Initial pen state              ;
"=x si noitisoP :FEDNU">:#,_Q."=y",,.a,                11x> ; UNDEF: Initial position               ;
" si gnidaeH :FEDNU">:#,_A.a"seerged">:#,_             11x> ; UNDEF: Initial heading                ;
"( era sdnuoB :FEDNU">:#,_U.."( )",,,..a'),,           11x> ; UNDEF: Bounds                         ;
a7+3*5*N 0C                                            11x> ; Clear with blue. Set pen to black     ;
0H 1P                                                  11x> ; Set direction, pen down.              ;
52*1-F 0P 2F 1P 53*1-F                                 11x> ; Draw first line with a gap in it.     ;
2f+8*8*8*8*8*6*5*1+C 9a*H                              11x> ; Set colour to red and turn to 90 deg. ;
5F 9a*L                                                11x> ; Draw vertical line, turn 90 deg right.;
0C 5F                                                  11x> ; Change to black, draw line.           ;
0P 5B 9a*R aB 1P                                       11x> ; Lift pen Go back and draw first dot.  ;
0P f1+8*8*a*6*C                                        11x> ; Lift pen, Set green.                  ;
005-T 1P                                               11x> ; Teleport to the other dot, pen down.  ;
I a"egami kcehc won ,ENOD">:#,_@                          > ; Print out and quit.                   ;

What the image should look like:

This program should draw a pattern like below.
The * is a dot.
The horizontal (black) line should be 25 units long.
	There should be a gap 2/3rd along the line of 2 units.
Then a red line (5 units long) at a straight angle.
	The specs doesn't say if 90 degrees is upwards or downwards. So either is
	allowed.
	The red should be (#ff0001) (a slight slight blue tint).
Then another (black) line of length 5 at straight angle.
	This should be 90 degrees *right* from the red line.
The dots should be 5 units above the first line.
	In other words one should be at (0,-5) the other at (25,-5).
	Or below, depending on where 90 degrees is.
	The dot at (25,-5) should be black.
	The dot at (0,-5) should be green.
The background should be blue (#0000ff).


*                        *



---------  --------------.
                         |
                         |
                         |
                         |
                         .-----