Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1241 1881 (N59W61 L= 52)   593     41        1 (1222/1856-1257/1908)   8.5 W52-W72 N57-N60
      2 1180 1855 (N59W47 L= 39)   426     61        1 (1154/1825-1195/1878)  29.1 W43-W53 N55-N60
      3 1632 1612 (N29W63 L= 55)   605     64        0 (1597/1596-1674/1628) -23.2 W59-W67 N27-N30
      4  813 1508 (N40E07 L=345)   583    144        0 ( 789/1430- 842/1574)  63.4 E09-E03 N34-N44
      5 1751 1414 (N15W61 L= 53)   968    149        3 (1685/1392-1817/1438) -14.9 W54-W70 N12-N17
      6  514 1318 (N32E31 L=320)  2172    464        5 ( 331/1219- 705/1419) -26.6 E51-E17 N22-N40
      7  193  934 (N10E63 L=289)  1900    290        1 ( 129/ 817- 246/1064) -49.1 E72-E58 N03-N18
      8 1007  753 (S09E05 L=346)   804    153        2 ( 977/ 683-1040/ 826)  83.7 E07-E02 S13-S04
      9 1250  693 (S17W09 L=  0)   589    253        0 (1203/ 655-1342/ 752)   0.0 W05-W14 S19-S13
     10  529  574 (S14E40 L=311)   894    289        0 ( 465/ 519- 601/ 625) -32.0 E44-E34 S18-S10
     11  456  534 (S16E48 L=304)   393     33        0 ( 432/ 515- 481/ 558) -14.0 E50-E45 S17-S14
     12  751  375 (S31E32 L=320)  1156    243        1 ( 672/ 317- 823/ 478)  27.8 E41-E22 S34-S24
     13  607  284 (S36E51 L=301)   430     59        0 ( 575/ 273- 643/ 293)  -7.1 E54-E46 S37-S35
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y