Navy Time

[Richard Frost]

Yarrr.  Ahoy.  A clock for Captain Fishsticks.

Code: QB64: [Select]

1. _TITLE "Navy Time"
2. $EXEICON:'boat2.ico'
3.  
4. DEFINT A-Z
5. DIM a(11, 1)
6. SCREEN 12 '                                           640*480*16
7. FOR i = 1 TO 11: READ t$, a(i, 0), a(i, 1): NEXT i '  angles
8. q = 41: q2 = 16
9. man = 1: w$ = SPACE$(6)
10.  
11. begin:
12. t$ = TIME$
13. MID$(t$, 3) = " ": MID$(t$, 6) = " " '                no colons in military time
14. t2$ = t$
15. LOCATE 28, 37: PRINT t$;
16. t$ = MID$(t$, 1, 2) + MID$(t$, 4, 2) + MID$(t$, 7, 2)
17. FOR i = 6 TO 1 STEP -1
18.     c$ = MID$(t$, i, 1): lc$ = MID$(w$, i, 1)
19.     IF c$ = lc$ THEN EXIT FOR '                       unchanged digit
20.     dx = INSTR("1234567890", c$) - (c$ = "0")
21.     IF ctype = 0 THEN
22.         x1 = 60 + (i - 1) * 104: y1 = 200
23.         LINE (x1 - 52, 150)-(x1 + 52, 250), 0, BF
24.     ELSE
25.         x1 = 230 + ((i - 1) MOD 2) * 160
26.         y1 = 80 + ((i - 1) \ 2) * 140
27.         LINE (x1 - 80, y1 - 60)-(x1 + 80, y1 + 60), 0, BF
28.     END IF
29.     FOR j = 0 TO 1
30.         de = a(dx, j) - 90 '                          degrees
31.         IF man THEN
32.             CIRCLE (x1, y1 - 6), 4, 15
33.             LINE (x1 - 6, y1)-(x1 + 6, y1 + 20), 15, B
34.         END IF
35.         x2 = x1 + (j - .5) * (20 - (ctype = 1) * 20)
36.         x3 = x2 + q * COS(_D2R(de))
37.         y2 = y1 + q * SIN(_D2R(de))
38.         LINE (x2, y1)-(x3, y2), 15 '                  arms
39.         IF j = 0 THEN s = 1 ELSE s = -1
40.         IF (j = 1) AND (INSTR("89", c$)) THEN s = -s
41.         FOR a = 1 TO 3 '                              flags
42.             de = de - 90 * s
43.             x4 = x3 + q2 * COS(_D2R(de))
44.             y4 = y2 + q2 * SIN(_D2R(de))
45.             LINE -(x4, y4), 15
46.             IF a = 1 THEN '                           save for diagonal
47.                 sx = x4: sy = y4
48.                 td = de - 45 * s
49.                 rx = x3 + (q2 \ 2) * COS(_D2R(td)) '  to paint red
50.                 ry = y2 + (q2 \ 2) * SIN(_D2R(td))
51.             END IF
52.             IF a = 3 THEN
53.                 td = de - 45 * s
54.                 yx = x3 + (q2 \ 2) * COS(_D2R(td)) '  to paint yellow
55.                 yy = y2 + (q2 \ 2) * SIN(_D2R(td))
56.             END IF
57.             x3 = x4: y2 = y4
58.         NEXT a
59.         LINE -(sx, sy), 15 '                          diagonal
60.         PAINT (rx, ry), 4, 15 '                       red
61.         PAINT (yx, yy), 14, 15 '                      yellow
62.     NEXT j
63. NEXT i
64. w$ = t$ '                                             was
65. DO: _LIMIT 10
66.     i$ = INKEY$
67.     IF LEN(i$) THEN
68.         IF INSTR(CHR$(13) + " bm", i$) THEN man = 1 - man: w$ = SPACE$(6)
69.         IF i$ = "t" THEN '                            3 rows of 2
70.             ctype = ctype XOR 1
71.             IF ctype = 0 THEN
72.                 q = 41: q2 = 16
73.             ELSE
74.                 q = 58: q2 = 24
75.             END IF
76.             CLS: w$ = SPACE$(6)
77.         END IF
78.         IF i$ = CHR$(27) THEN END '                   Esc to quit
79.     END IF
80. LOOP UNTIL TIME$ <> t2$
81. GOTO begin
82.  
83. DATA 1,225,180,2,270,180,3,315,180,4,0,180,5,180,45,6,180,90
84. DATA 7,180,135,8,270,225,9,225,315,j,0,90,0,225,0
85.  

[bplus]

reply message:
 

Hey but yours are hand drawn, very cool!

[Richard Frost]

Since someone asked for a version with a date, here she be.

Yarrr.  The format B+ came up with is much prettier.  I will consult a genetic enginner,
get me some graphics designer genes.

Code: QB64: [Select]

1. _TITLE "Navy Time" '                                  with date
2. $EXEICON:'boat2.ico'
3.  
4. DEFINT A-Z
5. DIM a(11, 1)
6. SCREEN 12 '                                           640*480*16
7. FOR i = 1 TO 11: READ t$, a(i, 0), a(i, 1): NEXT i '  angles
8. q = 28: q2 = 14
9. man = 1: w$ = SPACE$(6)
10.  
11. begin:
12. CLS
13. FOR pass = 0 TO 1
14.     IF pass THEN t$ = TIME$ ELSE t$ = DATE$
15.     t$ = LEFT$(t$, 2) + MID$(t$, 4, 2) + MID$(t$, 7, 4 - pass * 2)
16.     LOCATE 26 + pass * 2, 40 - LEN(t$) \ 2: PRINT t$;
17.     FOR i = 1 TO LEN(t$)
18.         c$ = MID$(t$, i, 1)
19.         dx = INSTR("1234567890", c$) - (c$ = "0")
20.         x1 = 40 + (i - 1) * 80 + pass * 72
21.         y1 = 160 + pass * 120
22.         FOR j = 0 TO 1
23.             de = a(dx, j) - 90 '                          degrees
24.             IF man THEN
25.                 CIRCLE (x1, y1 - 6), 4, 7
26.                 LINE (x1 - 3, y1)-(x1 + 3, y1 + 20), 7, B
27.             END IF
28.             x2 = x1 + (j - .5) * 20
29.             x3 = x2 + q * COS(_D2R(de))
30.             y2 = y1 + q * SIN(_D2R(de))
31.             LINE (x2, y1)-(x3, y2), 15 '                  arms
32.             IF j = 0 THEN s = 1 ELSE s = -1
33.             IF (j = 1) AND (INSTR("89", c$)) THEN s = -s
34.             FOR a = 1 TO 3 '                              flags
35.                 de = de - 90 * s
36.                 x4 = x3 + q2 * COS(_D2R(de))
37.                 y4 = y2 + q2 * SIN(_D2R(de))
38.                 LINE -(x4, y4), 15
39.                 IF a = 1 THEN '                           save for diagonal
40.                     sx = x4: sy = y4
41.                     td = de - 45 * s
42.                     rx = x3 + (q2 \ 2) * COS(_D2R(td)) '  to paint red
43.                     ry = y2 + (q2 \ 2) * SIN(_D2R(td))
44.                 END IF
45.                 IF a = 3 THEN
46.                     td = de - 45 * s
47.                     yx = x3 + (q2 \ 2) * COS(_D2R(td)) '  to paint yellow
48.                     yy = y2 + (q2 \ 2) * SIN(_D2R(td))
49.                 END IF
50.                 x3 = x4: y2 = y4
51.             NEXT a
52.             LINE -(sx, sy), 15 '                          diagonal
53.             PAINT (rx, ry), 4, 15 '                       red
54.             PAINT (yx, yy), 14, 15 '                      yellow
55.         NEXT j
56.     NEXT i
57. NEXT pass
58.  
59. _DISPLAY
60.  
61. t$ = TIME$
62. DO: _LIMIT 10
63.     i$ = INKEY$
64.     IF LEN(i$) THEN
65.         IF INSTR(CHR$(13) + " bm", i$) THEN man = 1 - man: w$ = SPACE$(6)
66.         IF i$ = CHR$(27) THEN END '                   Esc to quit
67.     END IF
68. LOOP UNTIL TIME$ <> t$
69. GOTO begin
70.  
71. DATA 1,225,180,2,270,180,3,315,180,4,0,180,5,180,45,6,180,90
72. DATA 7,180,135,8,270,225,9,225,315,j,0,90,0,225,0
73.  

[bplus]

B+ just modified [banned user]'s code and images, thanks [banned user]!

[bplus]

Have you guys considered putting a space between digits or flag a space signal as Date and Time are normally formatted?

[Richard Frost]

Nice change, [banned user], but a primary responsibility of a signalman is to smack himself in the nose. 

Spaces between digits would necessitate smaller critters, and I'll have to put on my glasses.  The
original version does have the option to tell time with 3 rows of 2 characters each - "t".

T.  T is for turtle.  - Officer Barbrady, Southpark, on seeing Cartman crucified

[Richard Frost]

Wut?