Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - xband

Pages: [1]
1
QB64 Discussion / Re: Font Clipping
« on: July 15, 2019, 02:18:09 pm »
ah ok, fortunately i was able to find a different font with a similar style that didn't clip. thanks.

2
QB64 Discussion / Font Clipping
« on: July 15, 2019, 02:02:33 pm »
Some fonts are getting cut off at the top using _PRINTSTRING. It happens with consolas and a handful of other fonts.

Is this a bug?

Code: QB64: [Select]
  2. DIM mscreen AS INTEGER
  3. DIM rootpath AS STRING
  4. DIM fontfile AS STRING
  5. DIM fonthandle AS INTEGER
  6.  
  7. DIM xoffset AS INTEGER
  8. DIM yoffset AS INTEGER
  9.  
  10. DIM CH(1 TO 72) AS STRING
  12. FOR i = 1 TO 63
  13.     CH(i) = CHR$(33 + i)
  15. CH(64) = "{"
  16. CH(65) = "|"
  17. CH(66) = "}"
  18. CH(67) = "~"
  19. CH(68) = CHR$(30)
  20. CH(69) = CHR$(31)
  21. CH(70) = CHR$(16)
  22. CH(71) = CHR$(17)
  23. CH(72) = CHR$(1)
  24.  
  25.  
  26. rootpath = ENVIRON$("SYSTEMROOT")
  27. fontfile = "consola.ttf"
  28. fonthandle = _LOADFONT(fontfile, 60, "MONOSPACE")
  29.  
  30. mscreen = _NEWIMAGE(1024, 1024, 32)
  31. SCREEN mscreen
  32.  
  33. _FONT fonthandle, mscreen
  34. xoffset = 0
  35. yoffset = 0
  36.  
  37. '_CLEARCOLOR _RGB(0, 0, 0), mscreen
  39.  
  41.     CLS , _RGB(30, 30, 30)
  42.     '===============
  43.     xoffset = 0
  44.     yoffset = 0
  45.     FOR i = 1 TO 72
  46.         _PRINTSTRING (xoffset, yoffset), CH(i)
  47.         xoffset = xoffset + 64
  48.         IF xoffset > 960 THEN
  49.             xoffset = 0
  50.             yoffset = yoffset + 64
  51.         END IF
  52.     NEXT
  53.     '===============
  54.     _LIMIT 60
  55.     _DISPLAY
  57.  
  58.  
  59.  

Pages: [1]