home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Bonus / WSTAR2 / DISK4 / DROPCAP.WM_ / DROPCAP.bin
Encoding:
Text File  |  1994-02-28  |  8.0 KB  |  81 lines
  1. REM Description:  Add a drop cap to the current paragraph
  2. REM Filename:  dropcap.wmc
  3. REM Created by: Steven Wylie - 11/08/93
  4.  
  5. REM Can't run if no document open
  6. IF GetDocName$() = "" THEN
  7.     MESSAGE "Please create a new document or open an existing document first."
  8.     STOP
  9. ENDIF
  10.  
  11. REM Can't run in a graphic or table frame
  12. frameType% = GetFrameType()
  13. IF frameType% <> 0 THEN
  14.     Message "The current frame must be a text frame."
  15.     STOP
  16. ENDIF
  17.  
  18. REM Can't run in frame mode
  19. ret% = ViewEditMode(1)
  20. IF ret% = 2 THEN
  21.     ret% = ViewEditMode(2)
  22.     BEEP
  23.     STOP
  24. ENDIF
  25.  
  26. REM Change the value of bold% to 0 if you don't want a bold drop cap.
  27. dropBold% = 1
  28.  
  29. REM Get the current style information
  30. GetStyleFont typeFace$, size%, lineHeight%, bold%, italic%, underline%, strikeout%, hidden%, placeUnderline%, strikeoutChar$
  31.  
  32. REM Use double the line height to calculate the drop cap height.
  33. dropSize% = lineHeight% * 2
  34.  
  35. REM The drop cap line height is 75% of the drop cap size.
  36. dropLineHeight% = dropSize% * 75 / 100
  37.  
  38. DefineStyle , 1
  39. DefineStyleDropCap typeFace$, dropSize%, dropLineHeight%, dropBold%, , , 1, 
  40. EndDefineStyle 1
  41.  
  42. 
  43. *****  WARNING *****
  44. This is a WSWin macro file.
  45. Subsequent data is binary information and should not be modified.
  46. # MF # 1.0None762570359╥=
  47. 8àêë
  48. âêçèâ
  49. 8ìî
  50. ïìÄÅ
  51. 8    
  52. 8    æÉÆ
  53. 8 âÉöâ
  54. 8ûò
  55. ïûùÿ
  56. 8
  57. 8¢Ç
  58. ܢ֣
  59. 8
  60. âÖ₧ƒâ
  61. 8á₧
  62. ÜáÖí
  63. 8
  64. 8
  65. 8óÇ
  66. 8úñѪº¿⌐¬½¼¡«
  67. 8"»ª₧
  68. 8"%│»▒░│▓
  69. 8%'╢Ç
  70. ┤╢╖
  71. 8'(╣Ç╕ñ»░ó╣║
  72. 8()╝Ç╗╝╜└~;F┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐.G .G .G  .G -.G 5.G ;.G A.G N.G ^.G     l.G
  73. z.G ê.G û.G ñ.G ▓.G ╢.G ╣.G ╜.G └.G ┬.G ─.G ╞.G ╔.G ╠.G ╧.G ╥.G ╘.G ╓.G ┌.G ▄.G ▐.G α.G  Γ.G !Σ.G "Θ.G #∞.G $≡.G %⌡.G &ⁿ.G '/G (
  74. /G )/G */G +/G ,"/G -(/G .-/G /3/G 06/G 1;/G 2@/G 3B/G 4E/G 5J/G 6N/G 7T/G 8Y/G 9`/G :g/G ;l/G <o/G =w/G >y/G ?{/G @/G Aê/G Bî/G CÅ/G Dù/G E₧/G Fú/G G¡/G H┤/G I╣/G J╜/G K┬/G L╟/G M═/G N╤/G O╒/G P▄/G Qπ/G RΩ/G S≡/G T≈/G U0G V0G W0G X$0G Y10G Z:0G [G0G \P0G ]X0G ^`0G _h0G `q0G av0G b{0G cÇ0G dç0G eÄ0G fö0G g¢0G h¥0G ió0G j¿0G k«0G l╡0G m╛0G n╟0G o╦0G p╙0G q╫0G r▄0G sΓ0G tΦ0G uε0G v⌠0G w∙0G x■0G y1G z1G {1G |1G }'P  'P+'P+    'P'P'P  'P 'P
  75. ë,'P  H1'P+      4'P      9'P     >'P  HC'PçK'P+      Ä'P      ô'P  ÿ'P     ¥'P          ¿'Pç╡'P     ║'P  ÿ┐'P  ÿ─'P+      ε'P      ≤'P  °'P     ■'P          'Pç'P  'P     'P  ⁿ!'P+  #'P  ⁿ('P  .'P     4'P          >'PA
  76. K'P
  77.           U'P          ['P          g'P          m'P          u'P          Ç'P          ï'P          ô'P          ú'P
  78.           ▓'P      ╕'P          ┬'P          ╥'P+  K╒'P+  d┘'P  ▀'PAδ'P  ±'P  ≈'P     ²'PA'P  'P     O'PA!+'P  1'P     7'P9'P????01CANCELERRORNUM[T1]
  79. GETDOCNAME$[L1]""[T2][T3][L2]MESSAGE"Please create a new document or open an existing document first."[T4][T5][T6]FRAMETYPE%GETFRAMETYPE[T7][L3][L4]"The current frame must be a text frame."[T8][T9][T10]RET%VIEWEDITMODE[T11][T12][L5]2[L6][T13][T14]DROPBOLD%GETSTYLEFONTTYPEFACE$SIZE%LINEHEIGHT%BOLD%ITALIC%UNDERLINE%STRIKEOUT%HIDDEN%PLACEUNDERLINE%STRIKEOUTCHAR$[T15]DROPSIZE%DROPLINEHEIGHT%75100[T16]DEFINESTYLE[T17][T18][T19]DEFINESTYLEDROPCAP[T20][T21]ENDDEFINESTYLE[T22][T23]
  80. 
  81.