Respond to this messageReturn to Index
Original Message
  • Draw not good for fractals
      • Lisztfr (no login)
      Posted Oct 6, 2010 7:35 AM

      Cannot eliminate the line in order to make it 1 piece... So i have to do it the hard way, with Pythagoras.

      COMMON SHARED B, BY, C

      SCREEN 12

      'INPUT "n "; n
      'INPUT "C "; C

      n = 7

      C = 15

      CONST EQ = .8860254#
      B = 200 ' half edge
      H = (B * 2 * EQ) ' high
      X = 320 ' Sommet 0
      C = 15 ' Color
      BY = 480 - ((480 - (B * 2 * EQ)) / 2) ' Base line

      'Coordinates

      PSET (X - B, BY)
      DRAW "S4 r400 ta30 U400 ta-30 D400"

      PSET (X - B + B / 3, BY - H / 3)
      DRAW "S4 ta60 r133 ta90 U133 ta30 D133"

      END

    Your Name
    Your Email
    (Optional)
    Message Title
    Message Text
    Options Also send responses to my email address