Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1490 1776 (N34W62 L= 42)   722    122        0 (1467/1741-1514/1812)  59.0 W60-W64 N31-N36
      2 1404 1557 (N26W41 L= 21)   630     87        1 (1364/1535-1444/1582) -18.4 W37-W43 N23-N27
      3 1772 1457 (N08W67 L= 47)  2763    376        3 (1669/1316-1819/1545) -86.2 W59-W74 N00-N15
      4 1428 1406 (N17W35 L= 15)   477    104        1 (1374/1379-1478/1427) -39.8 W32-W38 N14-N19
      5 1867 1130 (S12W61 L= 41)  1487    306        7 (1824/1075-1917/1182)   8.7 W55-W69 S15-S09
      6  838 1137 (N18E08 L=332)   204     82        0 ( 794/1118- 875/1159) -45.0 E10-E05 N16-N20
      7  409 1070 (N24E38 L=301)   791    234        1 ( 345/ 986- 497/1151) -55.3 E42-E33 N17-N30
      8 1677 1073 (S08W41 L= 21)   457    137        2 (1660/1006-1702/1135)  45.0 W38-W44 S11-S05
      9  842 1034 (N12E10 L=330)   722    236        0 ( 726/ 967- 962/1095) -49.8 E16-E04 N05-N18
     10 1008  879 (S01E05 L=335)   277     87        1 ( 956/ 864-1053/ 903)   0.0 E07-E01 S01-N00
     11  268  819 (N12E56 L=283)   853    185        1 ( 212/ 780- 330/ 848) -24.4 E62-E51 N08-N13
     12  985  723 (S09E10 L=330)   663    273        1 ( 851/ 657-1090/ 790) -45.0 E16-E05 S14-S02
     13  684  505 (S15E35 L=305)  2147    425        4 ( 630/ 358- 741/ 656)  50.2 E45-E28 S23-S05
     14  935  389 (S29E24 L=316)   370    105        0 ( 915/ 345- 959/ 429)  39.8 E27-E21 S31-S26
  

    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