Yin and yang: Difference between revisions
Added uBasic/4tH version
m (→{{header|Rust}}: dependencies formatting) |
(Added uBasic/4tH version) |
||
Line 1,136:
EndIf</lang>
==={{header|uBasic/4tH}}===
<lang>Proc _YinYang (18)
End
_YinYang
Param (1)
Local (2)
For b@ = -a@ To a@
For c@ = -2*a@ To 2*a@
Print Chr(FUNC(_Pixel (c@, b@, a@)));
Next
Print
Next
Return
_Circle
Param (4)
Local (1)
e@ = ((a@/2) * (a@/2)) + ((b@-c@) * (b@-c@))
Return ((d@ * d@) + 1 > e@)
_Pixel
Param (3)
If FUNC(_Circle (a@, b@, -c@ / 2, c@ / 6)) Then Return (Ord ("#"))
If FUNC(_Circle (a@, b@, c@ / 2, c@ / 6)) Then Return (Ord ("."))
If FUNC(_Circle (a@, b@, -c@ / 2, c@ / 2)) Then Return (Ord ("."))
If FUNC(_Circle (a@, b@, c@ / 2, c@ / 2)) Then Return (Ord ("#"))
If FUNC(_Circle (a@, b@, 0, c@)) Then Return (Iif (a@ < 0, Ord ("."), Ord ("#")))
Return (Ord (" "))</lang>
==={{header|VBA}}===
<lang vb>Private Sub yinyang(Top As Integer, Left As Integer, Size As Integer)
| |||