Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1062 1751 (N38E22 L=101)  1165    211        1 ( 994/1679-1153/1787)  72.9 E24-E17 N30-N43
      2 1518 1487 (N34W18 L=140)   562     93        0 (1487/1443-1548/1529) -33.7 W15-W21 N31-N36
      3 1012 1310 (N08E08 L=114)   509    168        1 ( 951/1274-1099/1335)  32.0 E11-E03 N06-N11
      4 1702 1290 (N28W36 L=158)   639     96        2 (1669/1241-1734/1335) -33.7 W32-W39 N25-N30
      5  510 1211 (S09E35 L= 87)   367    122        0 ( 471/1159- 534/1265)  74.1 E36-E33 S12-S05
      6  664 1099 (S12E22 L=100)   408    102        1 ( 631/1061- 705/1141)  63.4 E23-E20 S14-S08
      7  925 1071 (S07E07 L=115)   606    180        2 ( 871/1022- 960/1140) -39.8 E10-E03 S09-S03
      8  838 1041 (S11E11 L=111)   216     50        0 ( 812/1015- 861/1064)  56.3 E11-E09 S12-S09
      9 1826  942 (N12W54 L=176)   479    125        1 (1784/ 913-1878/ 965)  26.6 W50-W60 N09-N14
     10 1865  847 (N09W62 L=184)   391     72        1 (1850/ 816-1882/ 892) -45.0 W59-W64 N07-N10
     11 1010  869 (S16W03 L=125)   546    237        1 ( 915/ 852-1127/ 887)  24.4 E02-W09 S18-S12
     12 1804  849 (N07W55 L=177)   353     73        0 (1789/ 822-1829/ 878) -26.6 W52-W58 N05-N08
     13 1177  782 (S16W15 L=137)   228     95        1 (1127/ 769-1222/ 798)  21.8 W12-W17 S17-S14
     14 1844  768 (N04W63 L=185)   391     25        1 (1823/ 747-1864/ 786)   9.5 W59-W65 N02-N05
     15 1154  694 (S21W17 L=139)   238    131        0 (1098/ 675-1194/ 733)  45.0 W13-W18 S23-S18
     16 1669  589 (S11W55 L=177)   494    112        0 (1640/ 534-1699/ 632) -80.5 W53-W56 S14-S08
     17 1725  559 (S11W62 L=184)   366     67        0 (1707/ 530-1750/ 592)  90.0 W60-W63 S12-S08
     18 1135  549 (S30W21 L=143)   245     52        0 (1103/ 530-1160/ 565) -14.0 W19-W23 S30-S28
     19 1667  470 (S17W63 L=185)  1413    196        2 (1564/ 437-1741/ 495)  25.2 W55-W72 S21-S13
     20 1430  365 (S31W52 L=174)   675     63        2 (1391/ 341-1460/ 398)  36.9 W49-W55 S32-S28
  

    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