Draw a clock: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 267: | Line 267: | ||
=={{header|Amazing Hopper}}== |
=={{header|Amazing Hopper}}== |
||
{{Trans|bbcbasic}} |
{{Trans|bbcbasic}} |
||
{{Trans|bacon}} |
|||
"Clock" dibujado en modo texto con Hopper-Jambo. |
"Clock" dibujado en modo texto con Hopper-Jambo. |
||
[[File:Captura_de_pantalla_de_2022-10-11_01-10-51.png|200px|thumb|right|Caption]] |
[[File:Captura_de_pantalla_de_2022-10-11_01-10-51.png|200px|thumb|right|Caption]] |
||
| Line 306: | Line 307: | ||
Color back '0' |
Color back '0' |
||
Draw a line (xp, yp, #(xp+(hs*sin(d2r(lasth)))), |
Draw a line (xp, yp, #(xp+(hs*sin(d2r(lasth)))), \ |
||
#(yp+(hs*cos(d2r(lasth)))) ) |
|||
Draw a line (#(xp |
Draw a line (#(xp-1), #(yp-1), #(xp+(hs*sin(d2r(lasth)))),\ |
||
#(yp+(hs*cos(d2r(lasth)))) ) |
|||
Draw a line (#(xp+1), #(yp+1), #(xp+(hs*sin(d2r(lasth)))),\ |
|||
#(yp+(hs*cos(d2r(lasth)))) ) |
|||
Draw a line (xp, yp, #(xp+(ms*sin(d2r(lastm)))), |
Draw a line (xp, yp, #(xp+(ms*sin(d2r(lastm)))), \ |
||
#(yp+(ms*cos(d2r(lastm)))) ) |
|||
Draw a line (#(xp-1), #(yp-1), #(xp+(ms*sin(d2r(lastm)))),\ |
|||
#(yp+(ms*cos(d2r(lastm)))) ) |
|||
Draw a line (xp, yp, #(xp+(ss*sin(d2r(lasts)))), |
Draw a line (xp, yp, #(xp+(ss*sin(d2r(lasts)))), \ |
||
#(yp+(ss*cos(d2r(lasts)))) ) |
|||
Let ( lasts := #(s*6-90) ) |
Let ( lasts := #(s*6-90) ) |
||
| Line 320: | Line 327: | ||
Color back '15' |
Color back '15' |
||
Draw a line (xp, yp, #(xp+(hs*sin(d2r(lasth)))), |
Draw a line (xp, yp, #(xp+(hs*sin(d2r(lasth)))), \ |
||
#(yp+(hs*cos(d2r(lasth)))) ) |
|||
Draw a line (#(xp |
Draw a line (#(xp-1), #(yp-1), #(xp+(hs*sin(d2r(lasth)))),\ |
||
#(yp+(hs*cos(d2r(lasth)))) ) |
|||
Draw a line (#(xp+1), #(yp+1), #(xp+(hs*sin(d2r(lasth)))),\ |
|||
#(yp+(hs*cos(d2r(lasth)))) ) |
|||
Color back '3' |
Color back '3' |
||
Draw a line (xp, yp, #(xp+(ms*sin(d2r(lastm)))), |
Draw a line (xp, yp, #(xp+(ms*sin(d2r(lastm)))),\ |
||
#(yp+(ms*cos(d2r(lastm)))) ) |
|||
Draw a line (#(xp-1), #(yp-1), #(xp+(ms*sin(d2r(lastm)))),\ |
|||
#(yp+(ms*cos(d2r(lastm)))) ) |
|||
Color back '13' |
Color back '13' |
||
Draw a line (xp, yp, #(xp+(ss*sin(d2r(lasts)))), |
Draw a line (xp, yp, #(xp+(ss*sin(d2r(lasts)))), \ |
||
#(yp+(ss*cos(d2r(lasts)))) ) |
|||
Return |
Return |
||