Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1339 1774 (N55W38 L=133)   536     50        1 (1311/1748-1368/1794)  16.7 W33-W43 N52-N57
      2  889 1443 (N30E09 L= 86)  1224    277        3 ( 787/1364-1000/1520) -29.4 E17-E01 N24-N35
      3 1640 1461 (N29W49 L=144)  2229    305        3 (1497/1429-1787/1505)   1.6 W35-W71 N27-N31
      4  237 1336 (N22E64 L= 31)  1540    126        5 ( 171/1295- 283/1375)  -3.0 E76-E57 N19-N24
      5  226 1045 (N04E58 L= 37)   513     84        0 ( 186/1020- 273/1063)  18.4 E63-E53 N02-N05
      6  259  994 (N01E54 L= 41)   429     52        0 ( 240/ 964- 274/1032)  56.3 E56-E52 N00-N03
      7  583  922 (S02E28 L= 67)   212     60        0 ( 568/ 895- 600/ 950) -90.0 E29-E26 S04-N00
      8 1712  863 (S08W47 L=142)   384     64        0 (1694/ 835-1740/ 886)  45.0 W45-W49 S09-S06
      9  842  706 (S16E12 L= 83)   584    144        0 ( 791/ 651- 886/ 766)  49.4 E15-E08 S19-S11
     10 1592  652 (S21W40 L=135)   864    272        2 (1486/ 589-1700/ 719)  23.6 W31-W48 S24-S17
     11 1647  632 (S23W45 L=140)   297    115        0 (1625/ 579-1681/ 660)  80.5 W43-W48 S26-S20
     12 1226  395 (S39W15 L=110)  1030    240        4 (1115/ 349-1319/ 443)  18.4 W06-W21 S42-S34
     13 1284  199 (S59W30 L=125)   558     35        0 (1261/ 182-1308/ 223)  -7.1 W26-W35 S61-S55
  

    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