Fibonacci word/fractal: Difference between revisions
m
→{{header|Phix}}
SqrtNegInf (talk | contribs) m (→{{header|Sidef}}: Fix link: Perl 6 --> Raku) |
|||
Line 1,258:
=={{header|Phix}}==
Output matches Fig 1 (at the top of the page)
{{libheader|Phix/pGUI}}
<lang Phix>-- demo\rosetta\FibonacciFractal.exw
include pGUI.e
Line 1,293 ⟶ 1,291:
cdCanvasSetForeground(cddbuffer, CD_GREEN)
return IUP_DEFAULT
end function
Line 1,309 ⟶ 1,302:
dlg = IupDialog(canvas, "RESIZE=NO")
IupSetAttribute(dlg, "TITLE", "Fibonacci Fractal")
IupCloseOnEscape(dlg)
IupSetCallback(canvas, "ACTION", Icallback("redraw_cb"))
| |||