dohyunkim

\documentclass[a4paper]{article}
\usepackage{fontspec, luacode, xcolor}
%\setmainfont{HCR Batang LVT}[Script=Hangul, Language=Korean]
\setmainfont{Linux Libertine O}
%\setmainfont{TeX Gyre Pagella}
%\setmainfont{Source Han Sans K}[Script=Hangul, Language=Korean]
%\setmainfont{NanumMyeongjoOTF YetHangul}[Script=Hangul, Language=Korean]
%\setmainfont{NanumBarunGothicOTF YetHangul}[Script=Hangul, Language=Korean]
\pagestyle{myheadings} \markright{\footnotesize\fontname\font}
\def\tickblue{{\color{blue}\vrule width1pt height.05pt depth.05pt}}

dohyunkim

--
--  This is file `luamplib.lua',
--  generated with the docstrip utility.
--
--  The original source files were:
--
--  luamplib.dtx  (with options: `lua')
--
--  See source file 'luamplib.dtx' for licencing and contact information.
--

dohyunkim

readcsv = readcsv or {}
local readcsv = readcsv

local function readcsvlines (s, sep)
  sep = sep or ','
  s   = s .. "\n"
  s   = s:gsub("[\r\n]+", "\n") -- unix newline
  local curr, t = 1, {{}}
  while true do
    local tt, i, a, c = t[#t], curr

dohyunkim

% see http://www.ktug.org/xe/index.php?document_srl=214192
\def\dofirst#1{\dodofirst#1 \stopdofirst{} }
\def\dodofirst#1 {%
  \ifx\stopdofirst#1%
    \unskip
  \else
    \in@{,#1,}{,a,am,an,of,for,in,on,the,to,with,}%
    \ifin@
    \else
      \expandafter\DoFirst

dohyunkim

%!TEX program = xelatex
\documentclass{article}
\usepackage{polyglossia}
\setmainlanguage{english}
\setotherlanguage{korean}
\newfontfamily\koreanfont{NanumMyeongjo}[Ligatures=TeX]
\usepackage{ucharclasses}
\setTransitionsForCJK{\begingroup\koreanfont
  \XeTeXlinebreaklocale"ko"
  \XeTeXlinebreakpenalty=50

dohyunkim

\documentclass{article}
\makeatletter
\def\gsub#1#2#3{%
  \in@{#2}{#3}\ifin@
    \errhelp{`#3' contains `#2', which is not allowed.}%
    \errmessage{Nested Substitution}%
  \fi
  \in@{#2}{#1}\ifin@
    \def\gsubresult##1#2##2\par{##1#3##2}%
    \def\next{\expandafter\gsub\expandafter{\gsubresult#1\par}{#2}{#3}}%

dohyunkim

\newXeTeXintercharclass \XeTeXcharclassID
\let  \XeTeXcharclassOP \XeTeXcharclassID
\let  \XeTeXcharclassCL \XeTeXcharclassID
\input load-unicode-xetex-classes\relax
\XeTeXcharclass "B7 = \XeTeXcharclassID
\count@="AC00 \loop
  \XeTeXcharclass\count@ = \XeTeXcharclassID
  \ifnum\count@<"D7A3 \advance\count@\@ne
  \repeat
\XeTeXinterchartoks 0    \XeTeXcharclassID = {\LAID}

dohyunkim

local T1toUni = {
  -- removed [0] = 0x0060,
  -- changed 0x27 from 0x2019
  -- changed 0x60 from 0x2018
  -- changed 0x18 nil to 0x2030
          0x00B4, 0x02C6, 0x02DC, 0x00A8, 0x02DD, 0x02DA, 0x02C7,
  0x02D8, 0x00AF, 0x02D9, 0x00B8, 0x02DB, 0x201A, 0x2039, 0x203A,
  0x201C, 0x201D, 0x201E, 0x00AB, 0x00BB, 0x2013, 0x2014, 0x200B,
  0x2030, 0x0131, 0x0237, 0xFB00, 0xFB01, 0xFB02, 0xFB03, 0xFB04,
  0x2423, 0x0021, 0x0022, 0x0023, 0x0024, 0x0025, 0x0026, 0x0027,

dohyunkim

\input luaotfload.sty
\input luamplib.sty
\font\redtr="[lmroman12-bold.otf]:color=ff00007F" at 40pt
\font\bluetr="[lmroman12-bold.otf]:color=0000ff7f" at 40pt
\leavevmode\hbox{\redtr A\kern-0.5em \bluetr B}

\mplibsetformat{metafun}
\mplibcode
beginfig(0);
path p; p:= unitcircle scaled 2cm;

dohyunkim