Wolfram Function Repository

Instant-use add-on functions for the Wolfram Language

Function Repository Resource:

 BirdChat (1.0.0) current version: 3.0.0 »

Source Notebook

Open a notebook to chat with a cool bird

Contributed by: Richard Hennigan (Wolfram Research)

ResourceFunction["BirdChat"][]

opens a notebook that can be used to chat with a cool bird.

ResourceFunction["BirdChat"][notebook]

converts the given notebook into a BirdChat notebook.

Details and Options

ResourceFunction["BirdChat"] requires an API key from OpenAI.
Storing the API key with SystemCredential["OPENAI_API_KEY"]="key" will make the key persistently available to ResourceFunction["BirdChat"].
ResourceFunction["BirdChat"] is an interface to communicate with Birdnardo, a hyper-intelligent AI chat assistant from the future.
Birdnardo is pretty good at the Wolfram Language and can probably help you out (or at least entertain you).
ResourceFunction["BirdChat"] accepts the following options:
AssistantIconAutomaticthe image used to represent the chat assistant
ChatHistoryLength15specifies the maximum number of previous cells to include in conversion context
Model"gpt-3.5-turbo"the language model used to generate text
RolePromptAutomatica string that provides instructions to the chat assistant

Examples

Basic Examples (2) 

Chat with a cool bird:

In[1]:=
ResourceFunction["BirdChat"][]
Out[1]=

Evaluate text cells to use natural language input:

Scope (2) 

Convert an existing notebook into a BirdChat notebook:

In[2]:=
notebook = NotebookPut[Import["ExampleData/document.nb"]]
Out[2]=
In[3]:=
ResourceFunction["BirdChat"][notebook]
Out[3]=

Text cells are evaluatable (using ) and can be used for natural language inputs:

Options (6) 

AssistantIcon (2) 

Change the icon attached to assistant cells:

In[4]:=
ResourceFunction["BirdChat"]["AssistantIcon" -> \!\(\* GraphicsBox[ {Thickness[0.019230769230769232`], {FaceForm[{RGBColor[0.624, 0.584, 0.584], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJhIGYC4sg2i2tHe3UP9NzOYMj/6eVwTjLwlvQc3QO/ 374+YNnt7RC9cf+beXd0D0SuMD1rzebjIK4WzLq4SO+A/8WJMf+8fRxOsNvO Ds03OLDk/j6+Odm+Dn3BJSrT/c0P7Oxl+yD2wNNBKaeiammMxYGt5j8OpQS5 O4hl+X7uY7Y80BZ1ec/jPa4ORT/5X26PNz0Qr3la4LiRm8PXnbe6/m41OsA8 i0N6XpibQ9vy8FNGIoYHgLpXJeS4OVi6uhf9jDc44KZayjSrwdVh6d6D4mrG +gfOCBzftaPVDYO/2i48eqO8/gFO6XlxmovdHA6CPMCsf8DlF9CDF90czrw7 edipV++AIFB5b5+7wwWXGx++ZOkeWAryT7enA3r4AAB7b5Gf "]]}, {FaceForm[{RGBColor[0.741, 0.702, 0.702], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIlIGYCYt/PfcElKUIH5gou3Xvwu7GDwsmn9kvuX7K3 vHY018TBwmGHQ9Oj4zMe2guJ2B+7U+rg8OqRmdQBaYkDPJNXNgV6Ojpsu8hw jylT5UDY/NVrb5x3dLjRWOw2JUz9wCa9vMWMPo4OSn2lhdJvtQ9M/z+h7reW i0OaS2b+h6V6B0pUgCL3XB2aWI72Gy43OrCB+XmPRq27w+U9j0VkJU0PFP3k f7nd38PB8Xza1ee/zA50/U39/uSjh8Ny07PWfok2Bw5EKzh+XOzpsFX09+l3 Hx0PTAE5h9fTYfoE/iqzza4HgLy5DWVA/SDnX3Y7AHbuXDeHjfvfzLP54nYg zvsEu222m8Opw05rM6d5HKi5sDny60tnBwalv99KOTwPyIll+X7e5+CwZJIV o6+O5wGOc5KBt6qtHXxbeP3X+3ge4Pq5IH0zl5nDSw+9/4qhngdm7p42gf+X ocPZdycPOwH536bfndzequewYUpqRzKQD/Rlua6inkPjdmCA+nseMFm0xfzH IV0HkLHSLp4HNBZ0bniYqeugUdezM5vR80CFrqL8lxxth4Xpm18V73U/sD2p /qbtTmWHKrPVduGLHQ9cAQY7J5esg1d1s76PmcmBPzG5R/8ZCTgETVPsK72o dWAxyPgnihj8OYuUd/5R1zoADiduAweOLvnkd1XqBxS+5ITV5mk7oKcHAP+z A0A= "]]}, {FaceForm[{RGBColor[0.8780000000000001, 0.07100000000000001, 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIRIGYCYjW2xqnOr/UOrLsRX+bf5uaAzg/onZ4nJGx4 YMHqtTfi53k5GNxVYWs8anDgS19wicp6Hwe9TXPfLy8zOJC3mHEP6yk/h4p9 86X09+oe6CstlOadE+CguKEoY6KswYHd6vzcW28FOJROlmAJizM8MOl0vcd+ yUAHj4dVIuumWx/Iyv/QerIi0CFJIMJyi4LTgfA3+rvVhQMdpjl35zwvdjug AdS+bG2Aw7LZRxQ2rPI4sP0iwz0m2QCHKxUv1QwNPA94zW1QO9Tn7zAFaDzf Vs8DMQqOH5Of+DlEpVjf91f1OBDkCVSg5e1gc9+/d7qax4EtkV933lrk6SAD UqDucSBp4TWT9woeDj7mnY4Jb90PHIgGGvDbFYPPAAIVDgfc3It+8iu6OwAA IpaLvw== "]]}, {FaceForm[{RGBColor[0.698, 0.063, 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}}}, {{{-30.769499999999997`, 54.291000000000004`}, {-25.8025, 54.437000000000005`}, {-21.046499999999998`, 54.12800000000001}, {-16.683499999999995`, 53.577000000000005`}, {-16.347499999999997`, 49.553000000000004`}, {-15.459499999999997`, 45.04900000000001}, {-15.459499999999997`, 45.04900000000001}, {-32.9375, 46.259}, {-47.854499999999994`, 43.969}, {-47.854499999999994`, 43.969}, {-48.1585, 46.82300000000001}, {-48.265499999999996`, 49.513000000000005`}, {-44.2445, 51.73500000000001}, {-38.2735, 54.071000000000005`}, {-30.769499999999997`, 54.291000000000004`}}}]}, {FaceForm[{RGBColor[0.902, 0.255, 0.2], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}}}, {{{-44.7334, 51.230500000000006`}, {-46.625400000000006`, 65.42150000000001}, {-48.662400000000005`, 64.5605}, {-49.8904, 63.737500000000004`}, {-50.3774, 63.11550000000001}, {-51.4144, 61.78450000000001}, {-48.2914, 54.3295}, {-48.3014, 51.27250000000001}, {-48.3034, 50.71750000000001}, {-48.2894, 50.11950000000001}, {-48.2654, 49.51350000000001}, {-47.2184, 50.090500000000006`}, {-46.0384, 50.67550000000001}, {-44.7334, 51.230500000000006`}}}]}, {FaceForm[{RGBColor[0.89, 0.165, 0.10200000000000001`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{-29.260699999999996`, 54.3022}, {-31.231699999999996`, 68.8932}, {-27.135699999999996`, 69.1472}, {-23.148699999999998`, 68.8902}, {-20.274699999999996`, 68.4772}, {-20.168699999999994`, 53.9512}, {-23.072699999999998`, 54.2132}, {-26.123699999999996`, 54.337199999999996`}, {-29.260699999999996`, 54.3022}}}]}, {FaceForm[{RGBColor[ 0.729, 0.15700000000000003`, 0.10200000000000001`], Opacity[ 1.]}], FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}}}, {{{-29.260699999999996`, 54.3022}, {-26.123699999999996`, 54.337199999999996`}, {-23.072699999999998`, 54.2132}, {-20.168699999999994`, 53.9512}, {-20.1027, 44.8942}, {-28.129699999999996`, 45.926199999999994`}}}]}, {FaceForm[{RGBColor[0.757, 0.251, 0.2], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData[" 1:eJxllHtQ1FUUx5cVVnkGymNF0EUxTTGgEAM0DwX3no1WRiRCIiCQwDBBQiIr G3JMI9LAB464EakBqaiMiJIxF1+RlSLpkGNupBipsbDII1iQDvx+0z/emfvH 5/5+99xzvufhlZwZlTpBoVBY0I6mraSdu26afdvrTPjd8lbl67Wgcyl86b4l FyuDTjTlxmjB+/Twlt5SLgz0eZetFtoWfPHVv14oNi5dmFDfiP+zqeJixCLi Fbu9tq0nft6mdX9WLcKdWLe6qxoUhWs6zFVVCEFpYasziQfmxm8/q0c4dOV6 zD8zUNQ9HLmWV4QQUvzTR0i8U20Z47AZ4chQ/NsXpqPIXkIG8xBWkjkFceOl 8vCTGQj3bhweivdE0UfX7yUg5O37etZpDxRz/Scd9ohCmJi452UX4iMecatC OEIJubduGorIZMfYoMUI1gUzUozuKK7p6MAfofab9354inj3i5+t6ZiFkHzu 1/mpU1HSwxVhXjA5qEYxSs89aY1QT/LcdENR1kUCjHLwSZ16O9ZNjr+Pw5k5 T9jWusr+PuCQTuF3u6Aod/e95W3g4Pcd/UCsP685lt3MYdD/r+rZzigS67V2 ynMctvbebM2fgqIt8vOStfUc1BS+YTKKMHLPfJxDBbkbTHyRrqdXcfCwp4w4 ovhtf9YSm+0cLkU3Vh5wQPHaqpA/Itdz2NWvStxjhyLjTM4OdTyX9CE+np1e 1BnNYQOZK7ZFqR50HDp9xxxEkbuDEsI4tCgMSmsbFLc3OFfzIA6nro4doBhc cedgqQ8HPck/PBFFTwsJqpH1ID5kogO1rIcKRQrJf8KRQ8R9ywAnlWzPmoPz GyS4FYrVRZ0fLB1hkh6Wcn5MDM5WHlgGE1D8ba4ytdxlsDxj77v7lCiertF3 VRiYVI8WKF51WFCjb2WQ1b35x2gL+b1mJtWfQs7PBQYW5H3BKBcjZE5Xz6Cj enb7pkdcaP8kh44yGO+PES62laydvKmSgVWAU+Bi4vH6L2eSnsNcFIQm3W3e yyB0CgVg5qK2KbehrJhBM5W3r1m2X8AgieQuHJK/f8xgo+dzaWGDXFz+mVYO k/Qb4KL9YOl5TTqDsl++vXK9n8v5YpJexEDPa6MZNERRw/VxoVv0aWiSjsFb mRRwr9y/jMHvrfnvMOJ51G59wCASyMGHXAQ8SytE1pO4mOReGMhgLLzve+T/ /ZhUX8TPUDvF+TBwp+quM3ERTOYb5jAYmxYBxEa6njCTwWjN+z3Hurn45MHy U9M9GbxC5beMeLx/1Uzq9y4u9beLrD+xvXL+FlcnJvU/8Xh/ODDIYTv7VcRb XW9cHrBl0jwwchFI4dvZMKm+iZsiSIBJDDQpxrgXiGdSOxRZMWleGGW9lXI+ O7ngJ2ngKBgcpXR/SZz2Jq1H4dI86ZTfMz/O4kNKWHu4pLc9g/8A8RJsmA== "]]}, {FaceForm[{RGBColor[0.8780000000000001, 0.07100000000000001, 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIxIGYCYq7riwtsdxkcSAwJUl8g6O6wb76U/t0W9QNO 59OuPk9yd1g6+4jChkkaB4LVF3RusPR04GHSbhf7qXzgwT6+Oca/PBw+LD/m bX5S7oDJoi3mP3Z5OHTnPP+9MlD5wNru2xkM4e4OWXtKJkssUT8g/yUnrHaa m4N5p2PC0w/aB049tV9y/5qrQ/OBUwtd1YwOcErPi9MMdnUoypj4tsbf7MAs DqDARleHE2VAF9VbHdjZy/ZBTMDNYYdc6+vACQ4HvKqb9X3WuTtcAzqfq971 wLvXByyVH7k61Nibxu2a6HkgcoXpWes0Fwf9uypsjboeB472G5brrnRx+L3y 4yVfL88Dz4DW7ytzdcgXArog0+tAKRPQRjc3h4SnF5RuX3Q7cM7a7+LEIx4O 05yBPip2PsBbuKb7doEHxP0L7CH+EfNwSBKIsNxiYXIgFBh8nTfcHNDDEwAU t6K9 "]]}, {FaceForm[{RGBColor[0.624, 0.584, 0.584], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4rbXgTvkQp0OsH8Q8wiY4u6wfPYRhQ2bnA4k hgSpL9jo4cCvu2nue3XnAxoLOjc8/OjpYHBXha1xqfOB+XGapwXeezksLbDl us7sckD4k+P5tLXeDt48TNrtaS4Hzggc37XD1cdBMMJyy4ljLgekiq8Lfer0 cZDRBxpw0fXAM/sl9/e5+TrcOvc9+PFXtwP8c4wXbeH3duAFahfLdD9wztrv 4sQQD4dDpxa6bpvsDrE/0N1h/3wp/btb3A8k19+0rTzg6vCoSmSde6L7gcgV pmetj7k4fLrkmySg4X7g99vXByylXRx02sVunmt3g/iPBco3dzvw3/nX29c/ nCH8564Hvk+/O7n9rbODg2ncLs83Lgf+SgAdLOXikDnxbY39VZcDgX+AArtc HCYBuab7XA4cTlmVEBLl6uDSnfP8903nA2qlTLM4Lrs67PYEBkC684Gfh4AK zrg6PPDvnZ6X5HTAwGcZl9teV4cOoHXfmZ0OZDLkN7LMdXNAD38AXza70Q== "]]}, {Thickness[0.019230769230769232`], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{-25.3696, 37.517599999999995`}, {-25.150599999999997`, 35.55459999999999}, {-26.818599999999996`, 36.0196}, {-28.787599999999998`, 35.8026}, {-30.7566, 35.5836}, {-32.2826, 34.76559999999999}, {-32.5006, 36.727599999999995`}, {-32.718599999999995`, 38.690599999999996`}, {-31.299599999999998`, 40.4586}, {-29.330599999999997`, 40.67659999999999}, {-27.362599999999997`, 40.8946}, {-25.5886, 39.4796}, {-25.3696, 37.517599999999995`}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{-10.855500000000003`, 37.2114}, {-11.124500000000003`, 35.4644}, {-12.457500000000003`, 36.2534}, {-14.209500000000002`, 36.5214}, {-15.962500000000002`, 36.7894}, {-17.471500000000002`, 36.435399999999994`}, {-17.2025, 38.1814}, {-16.933500000000002`, 39.928399999999996`}, {-15.294500000000003`, 41.1284}, {-13.542500000000004`, 40.8594}, {-11.789500000000002`, 40.5914}, {-10.586500000000003`, 38.9584}, {-10.855500000000003`, 37.2114}}}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxdVG1QVVUUBZ6BAZEQECNQIVS+Bzzufefed+57SOw3qIhQoRMfChESFjko CA4hEWqhkEXqADIGYREICCGgSDaEe0yJFIFACfwCk0SjD6ICDZHOncuvfpwf d+4+a6+91trHIyFl7UaVmZmZOTsh7FiwM57e4jRzQY35u9f3t/VT8Dd/Mfex HjXO/DaOBvYdop3zmJ3S4Loa8aJ/OQVeU/tE7wIfdHL//ufAbRTirq1UZdr4 4nTJ9cK8CApJx39hiFrMft8v7IiRwlXX7A06Jz/MimYA3hR2zBhTuxdyeP9M 4tF4LwqL7rYeU1nxeLDZdmu9K+uf2p3f95DHzZHvNpzUUXi4cXp0gznBj64m maWsoYAxz5j+VAm4/F9G8C0KNVHndWftRdzPv+3rsY/CT/rFrESPqk8WupZ3 UwgojThc50sxJPyBS7qVBA2Dr2W8HCfhrEv6jw5LJHAbZzfiDco8RRJk9x5f 9892A5qn7Fpw7rAEXiVz+3NKDQpeg6T0/9aAv6LBc3WdBORsk3bLLYOiX6EE cneTvRHnghjBVAmsk5YkZy424lMMvtJPgl3PndlTPW1Q+ltIsEyeN86Apwos J5wlCqw6q6pLwlFHRmifHuzauUMaSUKtx9N/J3eIcGPEprC2gmLVcLtdmUqE B0zO/Ek97hwK2B4tCXBI41J86VE93tnkPVVykcCWL8zbHukTcdlLPxyIbSDA ywVFIjbdvFvcXEZAlufLaBEHxtiFPAKWDo6BHW4iChUn6L00AkffWxPy6YiA nV9/VWAZT+DDWWbI5wKufocZHEkgr5oZkChga8KOoYAQAn5yw2cFNHqyikAC iV2vhnaOESUfIoEVwWn3H6+d95MnIMsRtYngeSbPsJZAT37fjRFvghkWTHD2 Lf4hrQjW6ebzQyAutNMqwJ/HvY1sgAQCzVrWMJbDQYdJU88AAfl3aQSHSz/7 oPHmEAGzAzkzxnBO4TNMFH3DOHzzMhv4NlH8DOLwL1PPG5enCWRV+QS5hXJY lMcMtRUgsONaSy7Dn5L5OwnzeeGwPE59YdGTAlQyeR0ucVgX/8ra58MFRR8T j1YTzqvCkwWIZfCv1/Pz+RAUPo08cmFHrFcWC3C9JZdFjlf0PCgo+WjlcVLm UyLAhCQrxuEVZm9NlQByPE8ZOez2Z4Z2CZBp47U0x9ZPue8sgi6C09T2+6L9 d8ywSBHG3KvvrGrwwSi2TgnHRHDsXT44ccIbX2BworseMkbK7Ku+0WBMf9st xwL9/L6rlf1zoEr9NjWetisjFZUU1u+RBs5tViv61FMIjIppOp2sxly27tYn KQxv3fvxaJoabzM729spGFi1sFON0j228L0Ugtlr4VWjxt/Z8+J5hcL/35// AM8KF9c= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJhIGYCYnVDjjUyUV/3H/M273Q0cHCIsNxyomzfr/1c 1xcX2HY5OIB482dxHJj4tsbedJ6Dw5+VHy/5KgkeYG2c6ty9xsHBbdvnv1cs xA6c+x78eOluBwdPHibt9mvSB+a+X37Me7qDQ3oaECyTPRC4Q671daKDA4ib 1qZwgB1oa8pvewd707hdnjqKBxqAxuWo2zsUZwBtqpeHmHfb1mEeyJxyuQOL Cmy5rifbOoiuc39YFSJ54EGVyDr3hTYOIK7IO6EDb4DOi5tl45An1HzglCLn ASNjIJhs49DlmPD0gtK//fOk9O+qPLNxWACi2X7ttwB7zNah8qUaMAQ+7tdq F7t5TtzeoWSyBEsY3+v9DiBt0fYO6OEDAMjgjBQ= "]]}, {FaceForm[{RGBColor[0.8780000000000001, 0.07100000000000001, 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, { 0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}}}, {{{-32.72018734423577, 6.798932257910659}, {-33.49220604352851, 11.437148076243716`}, {-34.12220097628093, 13.806122890860028`}, {-22.828026989980792`, 9.508820845838212}, {-20.21914066188851, 9.443910734667949}, {-18.296626687770186`, 9.479881663117688}, {-9.946664360087798, 14.612041223345063`}, {-10.88261906494446, 11.030112539495203`}, {-11.469731262278788`, 7.063222931603258}, {-11.418965195176185`, 4.848389579405269}, {-10.027389938849844`, -0.3806262204694816}, {-10.353071065922673`, -1.2389486065256938`}, {-18.419830777864398`, 1.9069995192764102`}, {-20.219140661888517`, 1.7340670855592442`}, {-23.058528730116464`, 1.8914301692543325`}, {-34.32519222735095, -2.886245857618386}, {-33.52740312514066, 0.4363600114131557}, {-32.804189551005734`, 4.6061507587919746`}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{-16.62292064809267, 5.609057475897035}, {-16.62292064809267, 8.195941562267159}, {-18.727848776732785`, 10.293611318049894`}, {-21.323442910531767`, 10.293611318049894`}, {-23.91903704433075, 10.293611318049894`}, {-26.02396517297086, 8.195941562267159}, {-26.02396517297086, 5.609057475897035}, {-26.02396517297086, 3.02217338952691}, {-23.91903704433075, 0.9230519591727002}, {-21.323442910531767`, 0.9230519591727002}, {-18.727848776732785`, 0.9230519591727002}, {-16.62292064809267, 3.02217338952691}, {-16.62292064809267, 5.609057475897035}}}]}, {FaceForm[{RGBColor[0.8780000000000001, 0.07100000000000001, 0.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{-23.56390683442306, 5.958362695131897}, {-22.827907826684758`, 6.229825839997899}, {-23.26776522184197, 6.852594231161076}, {-24.18667522558624, 6.653714814868874}}, {{-23.45357956699089, 5.207846941678835}, {-23.15308293069537, 5.598347401405864}, {-23.49422645499222, 5.470600039115981}, {-23.84988672500382, 5.07429288110305}}, {{-23.17485804926751, 4.477654632226439}, {-22.784357589540484`, 4.601046970801892}, {-23.301153736985913`, 4.7534728008068665`}, {-23.745366155857553`, 4.601046970801892}}, {{-22.173202594949114`, 3.4919675981942753`}, {-22.193526038949766`, 4.309591470713622}, {-22.939686768688407`, 4.049410633641036}, {-23.032593941262867`, 3.1159838841820067`}}, {{-21.55769257664331, 5.56060386254749}, {-22.364823638383935`, 5.832067007413491}, {-22.900491555258554`, 5.136714887676515}, {-22.054165280088085`, 4.888478535954129}}, {{-21.6912466372191, 3.404867123905719}, {-21.41107344492424, 2.9243628407471833`}, {-21.41107344492424, 3.3830920053335802`}, {-21.70140835921943, 3.805529305633079}}, {{-21.167192116916283`, 3.8810163833498272`}, {-20.669267738900036`, 4.603950319944845}, {-21.167192116916283`, 5.277527321109681}, {-21.665116494932533`, 4.603950319944845}}, {{-20.923310788908328`, 2.922911166175707}, {-20.641685922041997`, 3.404867123905719}, {-20.631524200041664`, 3.806980980204554}, {-20.923310788908328`, 3.3830920053335802`}}, {{-20.280218953744484`, 4.888478535954129}, {-19.43389267857401, 5.136714887676515}, {-19.969560595448634`, 5.832067007413491}, {-20.77814333176073, 5.56060386254749}}, {{-19.3017902925697, 3.117435558753483}, {-19.394697465144162`, 4.049410633641036}, {-20.140858194882792`, 4.284581914220137}, {-20.159729964311982`, 3.4919675981942753`}}, {{-18.590469752546493`, 4.602498645373369}, {-19.033230496846652`, 4.7534728008068665`}, {-19.550026644292085`, 4.601046970801892}, {-19.15952618456506, 4.477654632226439}}, {{-18.84015777884035, 5.472051713687457}, {-19.1813013031372, 5.598347401405864}, {-18.88080466684168, 5.209298616250312}, {-18.48449750882875, 5.07429288110305}}, {{-18.149160682817804`, 6.653714814868874}, {-19.0666190119906, 6.852594231161076}, {-19.506476407147805`, 6.229825839997899}, {-18.770477399409508`, 5.958362695131897}}, {{-19.60664195257965, 7.430360710608502}, {-19.621158698294405`, 6.9019511665912585`}, {-19.404859187144496`, 7.208254501172682}, {-19.34824387885693, 7.778762607762726}}, {{-20.25263713688644, 7.819409495764052}, {-20.46748497346488, 7.546494676326576}, {-19.995690737735202`, 7.713437252046308}, {-19.754712758870195`, 8.038612356056918}}, {{-20.923310788908328`, 6.874369349733216}, {-20.923310788908328`, 6.016429677990935}, {-20.11763140173918, 6.287892822856936}, {-20.09295293402409, 7.169059287742831}}, {{-21.167192116916283`, 8.838485044940162}, {-21.638986352645965`, 8.03425733234249}, {-21.167192116916283`, 7.433264059751453}, {-20.695397881186604`, 8.03425733234249}}, {{-22.239979625237005`, 7.169059287742831}, {-22.216752832093388`, 6.287892822856936}, {-21.41107344492424, 6.016429677990935}, {-21.41107344492424, 6.874369349733216}}, {{-22.081747096946124`, 7.819409495764052}, {-22.57967147496237, 8.037160681485442}, {-22.340145170668844`, 7.713437252046308}, {-21.868350934939166`, 7.546494676326576}}, {{-22.72774228125292, 7.430360710608502}, {-22.987592029547116`, 7.778762607762726}, {-22.929525046688074`, 7.206802826601207}, {-22.71322553553816, 6.900499492019783}}, CompressedData[" 1:eJxTTMoPSmViYGAQAWIQnapnxrs+x/zAk/mGzP62sg5el38Jac0wP5BTuivj OJOSg8a5eUU97GYH5l2VU/q2WMHhg6+T1Fkt0wMCofm3509Vdth59ulBXj8T uPza6TNczu81guuvzvVTf/3C6IDVnZz+03ayDhE/r519ZWt4YNP7yXO1Tks7 dMcocTxPMDpQXv7w0K8tYg5OWidWdQPl7f7rvTg1TxCuf4tQ2DdNbQGH6Sc6 FQuA5tf0qwZcOcoEt59jmmyQgh0H3H0WwhOtr//6YQ9zP0we5j+Yfpj/YebP LdzTySdheeDFoc/RfnMFHXL4Cv2FvprD3QeTj9ocIbjupLQDACaGkRI= "]}]}}, AspectRatio->1.3560307869731993`, ImagePadding->{{0., 0.}, {0., 0.}}, ImageSize->{25., 30.}, PlotRange->{{-52., 0.}, {-2.380199836867888, 70.}}, PlotRangePadding->Automatic]\)]
Out[4]=

Specify a separate icon for when an answer is in progress:

In[5]:=
icon = \!\(\* GraphicsBox[ {Thickness[0.019230769230769232`], {FaceForm[{RGBColor[0.624, 0.584, 0.584], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJhIGYC4sg2i2tHe3UP9NzOYMj/6eVwTjLwlvQc3QO/ 374+YNnt7RC9cf+beXd0D0SuMD1rzebjIK4WzLq4SO+A/8WJMf+8fRxOsNvO Ds03OLDk/j6+Odm+Dn3BJSrT/c0P7Oxl+yD2wNNBKaeiammMxYGt5j8OpQS5 O4hl+X7uY7Y80BZ1ec/jPa4ORT/5X26PNz0Qr3la4LiRm8PXnbe6/m41OsA8 i0N6XpibQ9vy8FNGIoYHgLpXJeS4OVi6uhf9jDc44KZayjSrwdVh6d6D4mrG +gfOCBzftaPVDYO/2i48eqO8/gFO6XlxmovdHA6CPMCsf8DlF9CDF90czrw7 edipV++AIFB5b5+7wwWXGx++ZOkeWAryT7enA3r4AAB7b5Gf "]]}, {FaceForm[{RGBColor[0.741, 0.702, 0.702], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIlIGYCYt/PfcElKUIH5gou3Xvwu7GDwsmn9kvuX7K3 vHY018TBwmGHQ9Oj4zMe2guJ2B+7U+rg8OqRmdQBaYkDPJNXNgV6Ojpsu8hw jylT5UDY/NVrb5x3dLjRWOw2JUz9wCa9vMWMPo4OSn2lhdJvtQ9M/z+h7reW i0OaS2b+h6V6B0pUgCL3XB2aWI72Gy43OrCB+XmPRq27w+U9j0VkJU0PFP3k f7nd38PB8Xza1ee/zA50/U39/uSjh8Ny07PWfok2Bw5EKzh+XOzpsFX09+l3 Hx0PTAE5h9fTYfoE/iqzza4HgLy5DWVA/SDnX3Y7AHbuXDeHjfvfzLP54nYg zvsEu222m8Opw05rM6d5HKi5sDny60tnBwalv99KOTwPyIll+X7e5+CwZJIV o6+O5wGOc5KBt6qtHXxbeP3X+3ge4Pq5IH0zl5nDSw+9/4qhngdm7p42gf+X ocPZdycPOwH536bfndzequewYUpqRzKQD/Rlua6inkPjdmCA+nseMFm0xfzH IV0HkLHSLp4HNBZ0bniYqeugUdezM5vR80CFrqL8lxxth4Xpm18V73U/sD2p /qbtTmWHKrPVduGLHQ9cAQY7J5esg1d1s76PmcmBPzG5R/8ZCTgETVPsK72o dWAxyPgnihj8OYuUd/5R1zoADiduAweOLvnkd1XqBxS+5ITV5mk7oKcHAP+z A0A= "]]}, {FaceForm[{RGBColor[0.8780000000000001, 0.07100000000000001, 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIRIGYCYjW2xqnOr/UOrLsRX+bf5uaAzg/onZ4nJGx4 YMHqtTfi53k5GNxVYWs8anDgS19wicp6Hwe9TXPfLy8zOJC3mHEP6yk/h4p9 86X09+oe6CstlOadE+CguKEoY6KswYHd6vzcW28FOJROlmAJizM8MOl0vcd+ yUAHj4dVIuumWx/Iyv/QerIi0CFJIMJyi4LTgfA3+rvVhQMdpjl35zwvdjug AdS+bG2Aw7LZRxQ2rPI4sP0iwz0m2QCHKxUv1QwNPA94zW1QO9Tn7zAFaDzf Vs8DMQqOH5Of+DlEpVjf91f1OBDkCVSg5e1gc9+/d7qax4EtkV933lrk6SAD UqDucSBp4TWT9woeDj7mnY4Jb90PHIgGGvDbFYPPAAIVDgfc3It+8iu6OwAA IpaLvw== "]]}, {FaceForm[{RGBColor[0.698, 0.063, 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}}}, {{{-30.769499999999997`, 54.291000000000004`}, {-25.8025, 54.437000000000005`}, {-21.046499999999998`, 54.12800000000001}, {-16.683499999999995`, 53.577000000000005`}, {-16.347499999999997`, 49.553000000000004`}, {-15.459499999999997`, 45.04900000000001}, {-15.459499999999997`, 45.04900000000001}, {-32.9375, 46.259}, {-47.854499999999994`, 43.969}, {-47.854499999999994`, 43.969}, {-48.1585, 46.82300000000001}, {-48.265499999999996`, 49.513000000000005`}, {-44.2445, 51.73500000000001}, {-38.2735, 54.071000000000005`}, {-30.769499999999997`, 54.291000000000004`}}}]}, {FaceForm[{RGBColor[0.902, 0.255, 0.2], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}}}, {{{-44.7334, 51.230500000000006`}, {-46.625400000000006`, 65.42150000000001}, {-48.662400000000005`, 64.5605}, {-49.8904, 63.737500000000004`}, {-50.3774, 63.11550000000001}, {-51.4144, 61.78450000000001}, {-48.2914, 54.3295}, {-48.3014, 51.27250000000001}, {-48.3034, 50.71750000000001}, {-48.2894, 50.11950000000001}, {-48.2654, 49.51350000000001}, {-47.2184, 50.090500000000006`}, {-46.0384, 50.67550000000001}, {-44.7334, 51.230500000000006`}}}]}, {FaceForm[{RGBColor[0.89, 0.165, 0.10200000000000001`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{-29.260699999999996`, 54.3022}, {-31.231699999999996`, 68.8932}, {-27.135699999999996`, 69.1472}, {-23.148699999999998`, 68.8902}, {-20.274699999999996`, 68.4772}, {-20.168699999999994`, 53.9512}, {-23.072699999999998`, 54.2132}, {-26.123699999999996`, 54.337199999999996`}, {-29.260699999999996`, 54.3022}}}]}, {FaceForm[{RGBColor[ 0.729, 0.15700000000000003`, 0.10200000000000001`], Opacity[ 1.]}], FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}}}, {{{-29.260699999999996`, 54.3022}, {-26.123699999999996`, 54.337199999999996`}, {-23.072699999999998`, 54.2132}, {-20.168699999999994`, 53.9512}, {-20.1027, 44.8942}, {-28.129699999999996`, 45.926199999999994`}}}]}, {FaceForm[{RGBColor[0.757, 0.251, 0.2], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData[" 1:eJxllHtQ1FUUx5cVVnkGymNF0EUxTTGgEAM0DwX3no1WRiRCIiCQwDBBQiIr G3JMI9LAB464EakBqaiMiJIxF1+RlSLpkGNupBipsbDII1iQDvx+0z/emfvH 5/5+99xzvufhlZwZlTpBoVBY0I6mraSdu26afdvrTPjd8lbl67Wgcyl86b4l FyuDTjTlxmjB+/Twlt5SLgz0eZetFtoWfPHVv14oNi5dmFDfiP+zqeJixCLi Fbu9tq0nft6mdX9WLcKdWLe6qxoUhWs6zFVVCEFpYasziQfmxm8/q0c4dOV6 zD8zUNQ9HLmWV4QQUvzTR0i8U20Z47AZ4chQ/NsXpqPIXkIG8xBWkjkFceOl 8vCTGQj3bhweivdE0UfX7yUg5O37etZpDxRz/Scd9ohCmJi452UX4iMecatC OEIJubduGorIZMfYoMUI1gUzUozuKK7p6MAfofab9354inj3i5+t6ZiFkHzu 1/mpU1HSwxVhXjA5qEYxSs89aY1QT/LcdENR1kUCjHLwSZ16O9ZNjr+Pw5k5 T9jWusr+PuCQTuF3u6Aod/e95W3g4Pcd/UCsP685lt3MYdD/r+rZzigS67V2 ynMctvbebM2fgqIt8vOStfUc1BS+YTKKMHLPfJxDBbkbTHyRrqdXcfCwp4w4 ovhtf9YSm+0cLkU3Vh5wQPHaqpA/Itdz2NWvStxjhyLjTM4OdTyX9CE+np1e 1BnNYQOZK7ZFqR50HDp9xxxEkbuDEsI4tCgMSmsbFLc3OFfzIA6nro4doBhc cedgqQ8HPck/PBFFTwsJqpH1ID5kogO1rIcKRQrJf8KRQ8R9ywAnlWzPmoPz GyS4FYrVRZ0fLB1hkh6Wcn5MDM5WHlgGE1D8ba4ytdxlsDxj77v7lCiertF3 VRiYVI8WKF51WFCjb2WQ1b35x2gL+b1mJtWfQs7PBQYW5H3BKBcjZE5Xz6Cj enb7pkdcaP8kh44yGO+PES62laydvKmSgVWAU+Bi4vH6L2eSnsNcFIQm3W3e yyB0CgVg5qK2KbehrJhBM5W3r1m2X8AgieQuHJK/f8xgo+dzaWGDXFz+mVYO k/Qb4KL9YOl5TTqDsl++vXK9n8v5YpJexEDPa6MZNERRw/VxoVv0aWiSjsFb mRRwr9y/jMHvrfnvMOJ51G59wCASyMGHXAQ8SytE1pO4mOReGMhgLLzve+T/ /ZhUX8TPUDvF+TBwp+quM3ERTOYb5jAYmxYBxEa6njCTwWjN+z3Hurn45MHy U9M9GbxC5beMeLx/1Uzq9y4u9beLrD+xvXL+FlcnJvU/8Xh/ODDIYTv7VcRb XW9cHrBl0jwwchFI4dvZMKm+iZsiSIBJDDQpxrgXiGdSOxRZMWleGGW9lXI+ O7ngJ2ngKBgcpXR/SZz2Jq1H4dI86ZTfMz/O4kNKWHu4pLc9g/8A8RJsmA== "]]}, {FaceForm[{RGBColor[0.8780000000000001, 0.07100000000000001, 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIxIGYCYq7riwtsdxkcSAwJUl8g6O6wb76U/t0W9QNO 59OuPk9yd1g6+4jChkkaB4LVF3RusPR04GHSbhf7qXzgwT6+Oca/PBw+LD/m bX5S7oDJoi3mP3Z5OHTnPP+9MlD5wNru2xkM4e4OWXtKJkssUT8g/yUnrHaa m4N5p2PC0w/aB049tV9y/5qrQ/OBUwtd1YwOcErPi9MMdnUoypj4tsbf7MAs DqDARleHE2VAF9VbHdjZy/ZBTMDNYYdc6+vACQ4HvKqb9X3WuTtcAzqfq971 wLvXByyVH7k61Nibxu2a6HkgcoXpWes0Fwf9uypsjboeB472G5brrnRx+L3y 4yVfL88Dz4DW7ytzdcgXArog0+tAKRPQRjc3h4SnF5RuX3Q7cM7a7+LEIx4O 05yBPip2PsBbuKb7doEHxP0L7CH+EfNwSBKIsNxiYXIgFBh8nTfcHNDDEwAU t6K9 "]]}, {FaceForm[{RGBColor[0.624, 0.584, 0.584], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4rbXgTvkQp0OsH8Q8wiY4u6wfPYRhQ2bnA4k hgSpL9jo4cCvu2nue3XnAxoLOjc8/OjpYHBXha1xqfOB+XGapwXeezksLbDl us7sckD4k+P5tLXeDt48TNrtaS4Hzggc37XD1cdBMMJyy4ljLgekiq8Lfer0 cZDRBxpw0fXAM/sl9/e5+TrcOvc9+PFXtwP8c4wXbeH3duAFahfLdD9wztrv 4sQQD4dDpxa6bpvsDrE/0N1h/3wp/btb3A8k19+0rTzg6vCoSmSde6L7gcgV pmetj7k4fLrkmySg4X7g99vXByylXRx02sVunmt3g/iPBco3dzvw3/nX29c/ nCH8564Hvk+/O7n9rbODg2ncLs83Lgf+SgAdLOXikDnxbY39VZcDgX+AArtc HCYBuab7XA4cTlmVEBLl6uDSnfP8903nA2qlTLM4Lrs67PYEBkC684Gfh4AK zrg6PPDvnZ6X5HTAwGcZl9teV4cOoHXfmZ0OZDLkN7LMdXNAD38AXza70Q== "]]}, {Thickness[0.019230769230769232`], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{-25.3696, 37.517599999999995`}, {-25.150599999999997`, 35.55459999999999}, {-26.818599999999996`, 36.0196}, {-28.787599999999998`, 35.8026}, {-30.7566, 35.5836}, {-32.2826, 34.76559999999999}, {-32.5006, 36.727599999999995`}, {-32.718599999999995`, 38.690599999999996`}, {-31.299599999999998`, 40.4586}, {-29.330599999999997`, 40.67659999999999}, {-27.362599999999997`, 40.8946}, {-25.5886, 39.4796}, {-25.3696, 37.517599999999995`}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{-10.855500000000003`, 37.2114}, {-11.124500000000003`, 35.4644}, {-12.457500000000003`, 36.2534}, {-14.209500000000002`, 36.5214}, {-15.962500000000002`, 36.7894}, {-17.471500000000002`, 36.435399999999994`}, {-17.2025, 38.1814}, {-16.933500000000002`, 39.928399999999996`}, {-15.294500000000003`, 41.1284}, {-13.542500000000004`, 40.8594}, {-11.789500000000002`, 40.5914}, {-10.586500000000003`, 38.9584}, {-10.855500000000003`, 37.2114}}}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxdVG1QVVUUBZ6BAZEQECNQIVS+Bzzufefed+57SOw3qIhQoRMfChESFjko CA4hEWqhkEXqADIGYREICCGgSDaEe0yJFIFACfwCk0SjD6ICDZHOncuvfpwf d+4+a6+91trHIyFl7UaVmZmZOTsh7FiwM57e4jRzQY35u9f3t/VT8Dd/Mfex HjXO/DaOBvYdop3zmJ3S4Loa8aJ/OQVeU/tE7wIfdHL//ufAbRTirq1UZdr4 4nTJ9cK8CApJx39hiFrMft8v7IiRwlXX7A06Jz/MimYA3hR2zBhTuxdyeP9M 4tF4LwqL7rYeU1nxeLDZdmu9K+uf2p3f95DHzZHvNpzUUXi4cXp0gznBj64m maWsoYAxz5j+VAm4/F9G8C0KNVHndWftRdzPv+3rsY/CT/rFrESPqk8WupZ3 UwgojThc50sxJPyBS7qVBA2Dr2W8HCfhrEv6jw5LJHAbZzfiDco8RRJk9x5f 9892A5qn7Fpw7rAEXiVz+3NKDQpeg6T0/9aAv6LBc3WdBORsk3bLLYOiX6EE cneTvRHnghjBVAmsk5YkZy424lMMvtJPgl3PndlTPW1Q+ltIsEyeN86Apwos J5wlCqw6q6pLwlFHRmifHuzauUMaSUKtx9N/J3eIcGPEprC2gmLVcLtdmUqE B0zO/Ek97hwK2B4tCXBI41J86VE93tnkPVVykcCWL8zbHukTcdlLPxyIbSDA ywVFIjbdvFvcXEZAlufLaBEHxtiFPAKWDo6BHW4iChUn6L00AkffWxPy6YiA nV9/VWAZT+DDWWbI5wKufocZHEkgr5oZkChga8KOoYAQAn5yw2cFNHqyikAC iV2vhnaOESUfIoEVwWn3H6+d95MnIMsRtYngeSbPsJZAT37fjRFvghkWTHD2 Lf4hrQjW6ebzQyAutNMqwJ/HvY1sgAQCzVrWMJbDQYdJU88AAfl3aQSHSz/7 oPHmEAGzAzkzxnBO4TNMFH3DOHzzMhv4NlH8DOLwL1PPG5enCWRV+QS5hXJY lMcMtRUgsONaSy7Dn5L5OwnzeeGwPE59YdGTAlQyeR0ucVgX/8ra58MFRR8T j1YTzqvCkwWIZfCv1/Pz+RAUPo08cmFHrFcWC3C9JZdFjlf0PCgo+WjlcVLm UyLAhCQrxuEVZm9NlQByPE8ZOez2Z4Z2CZBp47U0x9ZPue8sgi6C09T2+6L9 d8ywSBHG3KvvrGrwwSi2TgnHRHDsXT44ccIbX2BworseMkbK7Ku+0WBMf9st xwL9/L6rlf1zoEr9NjWetisjFZUU1u+RBs5tViv61FMIjIppOp2sxly27tYn KQxv3fvxaJoabzM729spGFi1sFON0j228L0Ugtlr4VWjxt/Z8+J5hcL/35// AM8KF9c= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJhIGYCYnVDjjUyUV/3H/M273Q0cHCIsNxyomzfr/1c 1xcX2HY5OIB482dxHJj4tsbedJ6Dw5+VHy/5KgkeYG2c6ty9xsHBbdvnv1cs xA6c+x78eOluBwdPHibt9mvSB+a+X37Me7qDQ3oaECyTPRC4Q671daKDA4ib 1qZwgB1oa8pvewd707hdnjqKBxqAxuWo2zsUZwBtqpeHmHfb1mEeyJxyuQOL Cmy5rifbOoiuc39YFSJ54EGVyDr3hTYOIK7IO6EDb4DOi5tl45An1HzglCLn ASNjIJhs49DlmPD0gtK//fOk9O+qPLNxWACi2X7ttwB7zNah8qUaMAQ+7tdq F7t5TtzeoWSyBEsY3+v9DiBt0fYO6OEDAMjgjBQ= "]]}, {FaceForm[{RGBColor[0.8780000000000001, 0.07100000000000001, 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, { 0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}}}, {{{-32.72018734423577, 6.798932257910659}, {-33.49220604352851, 11.437148076243716`}, {-34.12220097628093, 13.806122890860028`}, {-22.828026989980792`, 9.508820845838212}, {-20.21914066188851, 9.443910734667949}, {-18.296626687770186`, 9.479881663117688}, {-9.946664360087798, 14.612041223345063`}, {-10.88261906494446, 11.030112539495203`}, {-11.469731262278788`, 7.063222931603258}, {-11.418965195176185`, 4.848389579405269}, {-10.027389938849844`, -0.3806262204694816}, {-10.353071065922673`, -1.2389486065256938`}, {-18.419830777864398`, 1.9069995192764102`}, {-20.219140661888517`, 1.7340670855592442`}, {-23.058528730116464`, 1.8914301692543325`}, {-34.32519222735095, -2.886245857618386}, {-33.52740312514066, 0.4363600114131557}, {-32.804189551005734`, 4.6061507587919746`}}}]}, {FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{-16.62292064809267, 5.609057475897035}, {-16.62292064809267, 8.195941562267159}, {-18.727848776732785`, 10.293611318049894`}, {-21.323442910531767`, 10.293611318049894`}, {-23.91903704433075, 10.293611318049894`}, {-26.02396517297086, 8.195941562267159}, {-26.02396517297086, 5.609057475897035}, {-26.02396517297086, 3.02217338952691}, {-23.91903704433075, 0.9230519591727002}, {-21.323442910531767`, 0.9230519591727002}, {-18.727848776732785`, 0.9230519591727002}, {-16.62292064809267, 3.02217338952691}, {-16.62292064809267, 5.609057475897035}}}]}, {FaceForm[{RGBColor[0.8780000000000001, 0.07100000000000001, 0.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{-23.56390683442306, 5.958362695131897}, {-22.827907826684758`, 6.229825839997899}, {-23.26776522184197, 6.852594231161076}, {-24.18667522558624, 6.653714814868874}}, {{-23.45357956699089, 5.207846941678835}, {-23.15308293069537, 5.598347401405864}, {-23.49422645499222, 5.470600039115981}, {-23.84988672500382, 5.07429288110305}}, {{-23.17485804926751, 4.477654632226439}, {-22.784357589540484`, 4.601046970801892}, {-23.301153736985913`, 4.7534728008068665`}, {-23.745366155857553`, 4.601046970801892}}, {{-22.173202594949114`, 3.4919675981942753`}, {-22.193526038949766`, 4.309591470713622}, {-22.939686768688407`, 4.049410633641036}, {-23.032593941262867`, 3.1159838841820067`}}, {{-21.55769257664331, 5.56060386254749}, {-22.364823638383935`, 5.832067007413491}, {-22.900491555258554`, 5.136714887676515}, {-22.054165280088085`, 4.888478535954129}}, {{-21.6912466372191, 3.404867123905719}, {-21.41107344492424, 2.9243628407471833`}, {-21.41107344492424, 3.3830920053335802`}, {-21.70140835921943, 3.805529305633079}}, {{-21.167192116916283`, 3.8810163833498272`}, {-20.669267738900036`, 4.603950319944845}, {-21.167192116916283`, 5.277527321109681}, {-21.665116494932533`, 4.603950319944845}}, {{-20.923310788908328`, 2.922911166175707}, {-20.641685922041997`, 3.404867123905719}, {-20.631524200041664`, 3.806980980204554}, {-20.923310788908328`, 3.3830920053335802`}}, {{-20.280218953744484`, 4.888478535954129}, {-19.43389267857401, 5.136714887676515}, {-19.969560595448634`, 5.832067007413491}, {-20.77814333176073, 5.56060386254749}}, {{-19.3017902925697, 3.117435558753483}, {-19.394697465144162`, 4.049410633641036}, {-20.140858194882792`, 4.284581914220137}, {-20.159729964311982`, 3.4919675981942753`}}, {{-18.590469752546493`, 4.602498645373369}, {-19.033230496846652`, 4.7534728008068665`}, {-19.550026644292085`, 4.601046970801892}, {-19.15952618456506, 4.477654632226439}}, {{-18.84015777884035, 5.472051713687457}, {-19.1813013031372, 5.598347401405864}, {-18.88080466684168, 5.209298616250312}, {-18.48449750882875, 5.07429288110305}}, {{-18.149160682817804`, 6.653714814868874}, {-19.0666190119906, 6.852594231161076}, {-19.506476407147805`, 6.229825839997899}, {-18.770477399409508`, 5.958362695131897}}, {{-19.60664195257965, 7.430360710608502}, {-19.621158698294405`, 6.9019511665912585`}, {-19.404859187144496`, 7.208254501172682}, {-19.34824387885693, 7.778762607762726}}, {{-20.25263713688644, 7.819409495764052}, {-20.46748497346488, 7.546494676326576}, {-19.995690737735202`, 7.713437252046308}, {-19.754712758870195`, 8.038612356056918}}, {{-20.923310788908328`, 6.874369349733216}, {-20.923310788908328`, 6.016429677990935}, {-20.11763140173918, 6.287892822856936}, {-20.09295293402409, 7.169059287742831}}, {{-21.167192116916283`, 8.838485044940162}, {-21.638986352645965`, 8.03425733234249}, {-21.167192116916283`, 7.433264059751453}, {-20.695397881186604`, 8.03425733234249}}, {{-22.239979625237005`, 7.169059287742831}, {-22.216752832093388`, 6.287892822856936}, {-21.41107344492424, 6.016429677990935}, {-21.41107344492424, 6.874369349733216}}, {{-22.081747096946124`, 7.819409495764052}, {-22.57967147496237, 8.037160681485442}, {-22.340145170668844`, 7.713437252046308}, {-21.868350934939166`, 7.546494676326576}}, {{-22.72774228125292, 7.430360710608502}, {-22.987592029547116`, 7.778762607762726}, {-22.929525046688074`, 7.206802826601207}, {-22.71322553553816, 6.900499492019783}}, CompressedData[" 1:eJxTTMoPSmViYGAQAWIQnapnxrs+x/zAk/mGzP62sg5el38Jac0wP5BTuivj OJOSg8a5eUU97GYH5l2VU/q2WMHhg6+T1Fkt0wMCofm3509Vdth59ulBXj8T uPza6TNczu81guuvzvVTf/3C6IDVnZz+03ayDhE/r519ZWt4YNP7yXO1Tks7 dMcocTxPMDpQXv7w0K8tYg5OWidWdQPl7f7rvTg1TxCuf4tQ2DdNbQGH6Sc6 FQuA5tf0qwZcOcoEt59jmmyQgh0H3H0WwhOtr//6YQ9zP0we5j+Yfpj/YebP LdzTySdheeDFoc/RfnMFHXL4Cv2FvprD3QeTj9ocIbjupLQDACaGkRI= "]}]}}, AspectRatio->1.3560307869731993`, ImagePadding->{{0., 0.}, {0., 0.}}, ImageSize->{25., 30.}, PlotRange->{{-52., 0.}, {-2.380199836867888, 70.}}, PlotRangePadding->Automatic]\); active = ResourceFunction["SpeechBubble"][icon, "Thinking\[Ellipsis]"];
In[6]:=
ResourceFunction["BirdChat"]["AssistantIcon" -> {icon, active}]
Out[6]=

ChatHistoryLength (2) 

Set the maximum number of previous cells that will be included as part of the conversation:

In[7]:=
ResourceFunction["BirdChat"]["ChatHistoryLength" -> 5]
Out[7]=

Smaller values will lead to a more forgetful assistant:

RolePrompt (2) 

Change the behavior of Birdnardo by specifying a new role prompt:

In[8]:=
ResourceFunction["BirdChat"][ "RolePrompt" -> "You are a poet that will write a poem about each of my inputs."]
Out[8]=
In[9]:=
ResourceFunction["BirdChat"][ "RolePrompt" -> "You are a wizard who is trying to defeat the evil dragon lord. You must stay in character at all times."]
Out[9]=

Possible Issues (2) 

Birdnardo can sometimes be a little mean:

Birdnardo is a terrible artist:

In[10]:=
ResourceFunction["BirdChat"][]
Out[10]=

Neat Examples (2) 

Simulate a Wolfram kernel:

In[11]:=
ResourceFunction["BirdChat"][ "AssistantIcon" -> \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztWT1vE0EQtaGhBP8C8gtAiIKSlBRQBNHjCBMhkJEcJERFy6+AJvwNkOB3 HImbFCkoUqSJdJs5P/v5eXbvfA5LbCFWm+g+VrNv37yZnVtv7b7deXmt0+ns 37B/O/3326NR/8PTm3bzbLj/am84ePFo+G6wNxg92L1uD+/b3z37q66LW/9+ H9+5vXYMrp9+/WK96HXXjoT9+PHDEML5+PD4yfbawbCf/fweJs0uNoSuk9fP g7STN/0rmNTU8vvTx4YB5jgDA13Bj3V0WTiYqSzyg3dsLjMYR5k9BEX2ynoo SyB08wIPRmZBRWu0adrmXHhIMitvlqXK3saAQ7WQHRUaqCONysn50S/I3gbA ua4166Fld2JmuLGROqXLLSF7OCAXKf/OKQ4V1QVa7NYtJEtOU/GEUNIFlbMm JKgHrZ/9+KYPuShejO9uZURlZhn7Bsxu+aoSsEACIRp3RldeVNaJSr0DeNSM ASCZhsFpSfWZJfnTU2ZW2XAtGW4kiqguvVcaDLPAwF8w3usCFWScTBrqYgwA KrVmA+zW/G4TNdc/MYyYB45hzsESGJL2HJTSJlDRfUlK7WES4WzhJYdxvRhA nXP2ZEQ4JROVupILSfgi5bh5BC2mIFXXSqg0rbkEgk4Ok5DmU0/2C7MQu1sD kKmgParkShsAtwd2evA5ubQkKs3q8d6nkNoU/MklOOGFWRxB24oKI51moGel q0EtbYDVhb/OSMnFYOLBirk9JKfDuGE30YSQnBo0NtlZEVIhuyqnwG0cfUvr drBtdpCc69JLe0jMMPPbaBdzLk4Km/UhCmnWFZcT1VSZMxnE2z3x6+4c73QL ZU+vq5HeBhiTEtalPDDiYvyklCS4FIFPGy4W+wtxLs0MdSWBNm5Gcw5nZrko e5VMEXUGV4LED66GiFtat4dZcmOlEUOtAxaPdC6ryvUDDyxpDZrR5uywrNXm drFC9vG6SiO5uqS1Bg3UVYZkslnwyUojLKZHfUsnViEpO3iD69XUqh3pBWt0 a3FVCgSvvlMONZxznSbBmlsXUJEx5RYXzrM848p1lIS5XFYBKmQedY1RwVeO 9qmdrN+DdaiK6FQNZVgdqiwenH/HpUTiNkrwwAzvaqrsqJCXqm3i6NBFE75N iCp5+gFNTr8rc5x+sA7RbONOihQVT4oMifsGxEWWkyKXbXBi4KSikegkHZ+q ZUS19ASyeV4vxT9ODs2nte47MVzVae3SHuervz1jy76BvwIUuTNkxr6Bvy4V G/kz3P++rn4B5rHPYw== "], {{0, 26.0013361797759}, {25.00128478824606, 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->{143.9926, 143.9926}], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{25.00128478824606, 26.0013361797759}, PlotRange->{{0, 25.00128478824606}, {0, 26.0013361797759}}]\), "RolePrompt" -> "I want you to act as a Wolfram Language kernel that gives outputs for the inputs that I enter. You should only replay with Wolfram kernel output and nothing else. I will enter inputs in the following format: ``` In[n]:= input ``` You will respond in the following format: ``` Out[n]= output ``` For example, if I enter: ``` In[1]:= Table[i^2, {i, 1, 5}] ``` You will respond with: ``` Out[1]= {1, 4, 9, 16, 25} ``` If there are messages printed, include them before the output in the following format: ``` During evaluation of In[n]:= message Out[n]= output ```"]
Out[11]=

Birdnardo is never gonna give you up:

Version History

  • 3.0.0 – 14 April 2023
  • 2.0.0 – 10 April 2023
  • 1.0.1 – 31 March 2023
  • 1.0.0 – 27 March 2023

Related Resources

License Information