《元氏掖庭记》：程一宁，是元顺帝的宠妃。未得顺帝宠幸曾在春夜登翠鸾楼，斜倚栏杆吹玉龙之笛，其中一词云：兰径香销玉辇踪，梨花不忍负春风。绿窗深锁无人自见，碾朱砂养守宫。
顺帝忽然在月下听了这首词曲，便问宫人：“这是什么人在吹笛？”
有知道的人回答说：“是程才人吹的。”
顺帝虽然明白词意所指，但也没有召幸她。等到第二天晚上，皇上又旧地重游，又听程才人唱道：
牙床锦被绣芙蓉，金鸭香消宝帐重。
竹叶羊车来别院，何人空听景阳钟。
接着又唱道：
淡月轻寒透碧纱，窗屏睡梦听啼鸦。
春风不管愁深浅，日日开门扫落花。
歌中音语咽塞，情极悲怆。皇上对宫人说：“闻此歌声，哪个人能不悲伤，深宫中有人愁怅如此，谁能知道呢！”
随后，皇帝便乘着御车往程才人的住所驶去。程才人见宝炬簇拥圣上而来，遂快步奔到门外，磕头俯伏。顺帝用手把她扶起，说：“若不是你玉笛中自道其意，朕怎么能到这里！”
说着，携手至柏香堂。皇帝命令宝光天禄厨设开颜宴，进兔丝之膳食，翠涛之醇酒；雩仙乐部坊奏起了鸿韶之乐，跳起了朱戚之舞，鸣奏起关雎之曲。席间，顺帝笑着对程一宁说：“今夜花好月明，情圆意聚，这都是玉笛的功劳，可封它为圆聚侯。”
自此以后，顺帝对程才人宠爱日拢遂改“翠鸾楼”为“奉御楼”，改“柏香堂”为“天怡堂”；