Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  829 1859 (N66W22 L= 41)   757     62        2 ( 802/1818- 850/1891)  45.0 W16-W28 N61-N71
      2 1138 1827 (N50W43 L= 62)   749    135        0 (1081/1775-1188/1871)   8.1 W32-W53 N47-N51
      3  748 1814 (N65W07 L= 26)   593     64        0 ( 730/1776- 767/1847)  41.2 W03-W13 N61-N68
      4  681 1766 (N63E04 L= 15)   401     33        0 ( 656/1748- 702/1784)   8.1 E07-W00 N60-N64
      5  857 1746 (N54W13 L= 32)   626     96        1 ( 809/1713- 909/1774)   0.0 W07-W18 N52-N55
      6 1031 1692 (N44W23 L= 42)   553     93        1 (1007/1649-1058/1740)  32.0 W18-W26 N40-N47
      7 1299 1578 (N28W34 L= 53)   758    172        0 (1245/1540-1379/1637) -66.0 W32-W37 N24-N33
      8 1383 1380 (N15W30 L= 49)   292     60        1 (1361/1348-1404/1412)  53.1 W29-W32 N12-N16
      9  743 1335 (N28E10 L=  9)   403    126        1 ( 684/1286- 786/1364) -50.2 E13-E07 N24-N31
     10 1095 1322 (N19W12 L= 30)   604    201        0 ( 998/1283-1184/1359) -41.6 W06-W15 N14-N23
     11 1420 1322 (N11W31 L= 50)   427     70        0 (1394/1284-1456/1353)  21.8 W28-W33 N08-N11
     12  941 1272 (N20W01 L= 20)   229     84        0 ( 900/1252- 989/1288) -53.1 W00-W03 N17-N21
     13  216 1075 (N24E57 L=322)   443     82        1 ( 197/1029- 246/1109) -45.0 E59-E53 N21-N26
     14  212  925 (N16E59 L=320)  1327    165        3 ( 161/ 868- 269/ 995) -42.0 E65-E53 N11-N20
     15  170  883 (N14E66 L=313)   717    135        0 ( 150/ 842- 196/ 958) -60.3 E68-E63 N11-N18
     16 1820  893 (S24W52 L= 71)   426     54        1 (1790/ 872-1851/ 917) -26.6 W48-W56 S26-S22
     17 1328  879 (S12W14 L= 33)   329    117        0 (1274/ 863-1383/ 901) -18.4 W11-W17 S13-S09
     18  630  568 (S13E36 L=343)   468     95        0 ( 613/ 517- 651/ 611)  50.2 E38-E33 S16-S10
     19 1118  356 (S39E14 L=  5)  1495    295        3 (1017/ 262-1219/ 453)  20.0 E25-E03 S44-S35
     20 1379  237 (S61W03 L= 22)   472     39        0 (1358/ 220-1406/ 253)   9.5 W00-W06 S63-S59
  

    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