Code: Select all

function revFontGetSystemFont
   switch _revFontGetPlatform()
      case "Windows"
         if word 1 of the systemVersion is "NT" and word 2 of the systemVersion >= 5 and "Segoe UI" is among the lines of the fontNames then
            return "Segoe UI"
         else if word 1 of the systemVersion is "NT" and word 2 of the systemVersion >= 5 and "Tahoma" is among the lines of the fontNames then
            return "Tahoma"
         else
            return "MS Sans Serif"
         end if
         break

      case "MacOS X"
         return "Lucida Grande"
         break

      case "Linux"
         return "Helvetica"
         break

      case "iphone"
         return "San Francisco"
         break

      case "android"
         return "Roboto"
         break

   end switch
   -- Default sans-serif font in MacOS
   -- MacOS (El Capitan and newer) San Francisco
   -- MacOS (Yosemite) Helvetica Neue
   -- MacOS (older versions) Lucida Grande
   -- Please note that — although for interface San Francisco is the default
   -- sans-serif font — for web -apple-system will need to be used, as the
   -- sans-serif fallback will display Helvetica instead of San Francisco.
   --(this is one of the quirks I mentioned earlier)

   -- Default sans-serif font in Windows
   -- The difference between Microsoft Sans Serif and MS Sans Serif is that MS Sans Serif was a
   -- bitmap/raster font available in 8, 10, 12, 14, 18, and 24 sizes and Microsoft Sans Serif is a TrueType scalable font.

   -- MS Sans Serif was based on Helvetica and in all versions up to Windows 3.1 it was called Helv.
   --Windows (Vista and newer, including Windows 10) Segoe UI
   -- Windows (XP) Tahoma
   -- Windows (2000) Microsoft Sans Serif
   -- Windows (95, NT, Millennium) MS Sans Serif
   -- Windows (older versions including Windows 3) Helv
   -- Default sans-serif font in Linux: Many Linux users re-configure defaults to other fonts like Inter UI or others.
   -- So it’s almost impossible to accurately mention defaults, except for the Ubuntu distro
   --  which has its own font as default.
   -- Red Hat also has commissioned its own fonts Red Hat Display and Red Hat Text.

   -- Ubuntu - Ubuntu
   -- Red Hat = Red Hat
   -- Other distros (Arch Linux, Debian, Fedora etc.) varies, can be DejaVu Sans, Noto Sans, Liberation Sans etc.

   -- iOS (9 and newer)and iPadOS San Francisco
   -- iOS (8 and older) Helvetica/Helvetica Neue

   -- watchOS = San Francisco Compact
   -- Android (4.0+) Roboto
   -- Android (older versions) Droid Sans
end revFontGetSystemFont

Code: Select all

import snapshot from grc "Oval"