Mercurial > repo
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). * * --------- --------------. | | | | .-----