QB64.org Forum

Active Forums => Programs => Topic started by: bplus on March 05, 2018, 03:50:40 pm

Title: M for QBic by Fellippe mod by bplus
Post by: bplus on March 05, 2018, 03:50:40 pm

In case QBic1 does not make mistake in his business:

Here is mod of Fellippe's code that does split M into 2 colors AND bonus scales it!

Code: QB64: [Select]

1. 'a fancy M:
2. 'fellippe 2018-02-23 for QBic1, bplus mod to color M half and half
3. DATA -1,-1,-1,-1,-1,-1,-1,-1,0,0
4. DATA -1,-1,-1,-1,-1,-1,-1,-1,0,0
5. DATA -1,0,0,0,0,0,0,-1,0,0
6. DATA -1,0,0,0,0,0,0,-1,0,0
7. DATA -1,0,0,0,0,0,0,-1,0,0
8. DATA -1,-1,0,0,-1,-1,-1,-1,0,0
9. DATA -1,-1,-1,0,0,-1,-1,-1,0,0
10. DATA -1,-1,-1,-1,0,0,-1,-1,0,0
11. DATA -1,-1,-1,-1,-1,0,0,-1,0,0
12. DATA -1,-1,-1,-1,-1,-1,0,-1,0,0
13. DATA -1,-1,-1,-1,-1,0,0,-1,0,0
14. DATA -1,-1,-1,-1,0,0,-1,-1,0,0
15. DATA -1,-1,-1,0,0,-1,-1,-1,0,0
16. DATA -1,-1,0,0,-1,-1,-1,-1,0,0
17. DATA -1,0,0,0,0,0,0,-1,0,0
18. DATA -1,0,0,0,0,0,0,-1,0,0
19. DATA -1,0,0,0,0,0,0,-1,0,0
20. DATA -1,-1,-1,-1,-1,-1,-1,-1,0,0
21. DATA -1,-1,-1,-1,-1,-1,-1,-1,0,0
22. DATA 0,0,0,0,0,0,0,0,0,0
23.  
24.  
25. DIM img(1 TO 20, 1 TO 10) AS _BYTE
26. FOR i = 1 TO 20
27.     FOR j = 1 TO 10
28.         READ img(i, j)
29.     NEXT
30. NEXT
31.  
32. SCREEN 12
33. scale = 1
34. DO
35.     myColor = myColor + 1
36.     IF myColor > 15 THEN myColor = 1: scale = scale + 1
37.     IF scale > 30 THEN CLS: scale = 1
38.     FOR i = 1 TO 19
39.         FOR j = 1 TO 8
40.             IF img(i, j) = 0 THEN
41.                 IF i <= 10 THEN LINE (i * scale, j * scale)-STEP(scale, scale), myColor, BF ELSE LINE (i * scale, j * scale)-STEP(scale, scale), 16 - myColor, BF
42.             ELSE
43.                 LINE (i * scale, j * scale)-STEP(scale, scale), 15, BF
44.             END IF
45.         NEXT
46.     NEXT
47.     _DISPLAY
48.     _LIMIT 20
49. LOOP
50.  
51.  

Qbic might like it?

Text Only | Text with Attachments