Advertisement
Guest User

epiciclo móvil

a guest
May 30th, 2015
329
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. | v circle ex1 ex2 line retweets reach diameter radious  origin |
  2.  
  3. diameter := 60.
  4. origin := (100@100).
  5. radious := diameter / 2.
  6. v := RTView new.
  7.  
  8. circle := (RTEllipse new size: diameter; borderColor: Color black; color: Color transparent) element.
  9. ex1 := RTBox element.
  10. ex2 := RTBox element.
  11. circle translateTo: origin.
  12. ex1 translateTo: ((radious negated @ 0) + circle center).
  13. ex2 translateTo: (radious @ 0) + circle center.
  14. line := (RTLine new; color: Color black) edgeFrom: ex1 to: ex2.
  15. v add: circle; add: line.
  16.  
  17. retweets := (RTLabel text: 5) element.
  18. reach := (RTLabel text: '3.1k') element.
  19. v add: retweets; add: reach.
  20. retweets translateTo: (0 @ -12) + circle center.
  21. reach translateTo: (0 @ 12) + circle center.
  22. v.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement