home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 6 / corel-draw-6-cd1.iso / draw / symbols.csc < prev   
Text File  |  1995-08-18  |  2KB  |  68 lines
  1. REM Outputs all the symbols from a font
  2. REM Symbols.csc July 12, 1995
  3.  
  4. REM This script outputs all the symbols and their correspondng ID number
  5. REM for the selected symbol library.
  6.  
  7. DIM LibName$(24)        'for all the possiblefonts
  8. LibName(1) = "Animals 1"
  9. LibName(2) = "Animals 2"
  10. LibName(3) = "Charting"
  11. LibName(4) = "Clocks"
  12. LibName(5) = "CommonBullets"
  13. LibName(6) = "GeographicSymbols"
  14. LibName(7) = "HomePlanning"
  15. LibName(8) = "HomePlanning2"
  16. LibName(9) = "Kidnap"
  17. LibName(10) = "LandscapePlanning"
  18. LibName(11) = "Marlett"
  19. LibName(12) = "MorseCode"
  20. LibName(13) = "MS LineDraw"
  21. LibName(14) = "MT Extra"
  22. LibName(15) = "Music"
  23. LibName(16) = "MusicalSymbols"
  24. LibName(17) = "OfficePlanning"
  25. LibName(18) = "Semaphore"
  26. LibName(19) = "Sign Language"
  27. LibName(20) = "Signs"
  28. LibName(21) = "Symbol"
  29. LibName(22) = "SymbolProp BT"
  30. LibName(23) = "Wingdings"
  31. LibName(24) = "ZapfDingbats BT"
  32.  
  33. BEGIN DIALOG SymbolDialog 300, 129, "Drop Symbols"
  34.     LISTBOX  40, 15, 160, 80, LibName$, LibraryID%
  35.     OKBUTTON  220, 15, 60, 20
  36.     CANCELBUTTON  220, 60, 60, 20
  37.     TEXT  25, 102, 286, 21, "Note: Make sure that you have the desired font installed before continuing"
  38. END DIALOG
  39. LibraryID = 1
  40. return% = DIALOG(SymbolDialog)
  41. IF CANCEL THEN STOP
  42.  
  43. WITHOBJECT DRAW
  44. .FileNew
  45. SymbolID& = 33 
  46. PageNumber& = 1
  47.  
  48. DO WHILE SymbolID& < 256                    'For all characters from 33 to 256
  49.    FOR i = 0 TO 62                  '62 characters per page
  50.       row& = INT(i/7) + 1.1
  51.       col& = INT(i MOD 7) + 1.1
  52.       XPos& = FROMINCHES(-4.75 + (1.1*col&))
  53.       Ypos& = FROMINCHES(6.0 - (1.1*row&))
  54.       .DropSymbol LibName$(LibraryID%), SymbolID&, 0, XPos&, YPos&, 0, 200000
  55.       .CreateArtisticText str(SymbolID&)    
  56.       .SetPosition XPos&, YPos&-125000 
  57.       SymbolID& = SymbolID& + 1 
  58.       IF SymbolID = 256 THEN GOTO BreakPt
  59.    NEXT i
  60.    .InsertPages 0, 1
  61.    PageNumber& = PageNumber& + 1
  62.    .SetCurrentPage PageNumber
  63. LOOP
  64.  
  65. BreakPt:
  66. END WITHOBJECT
  67.  
  68.