Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  837 1864 (N66W23 L= 42)   661     48        0 ( 817/1824- 853/1896)  29.7 W17-W31 N61-N70
      2 1144 1829 (N50W43 L= 61)   683    121        0 (1092/1783-1189/1869)   9.5 W34-W52 N47-N51
      3  746 1815 (N65W07 L= 25)   590     59        2 ( 722/1778- 764/1843)  45.0 W03-W11 N60-N68
      4  863 1748 (N54W13 L= 32)   562    101        0 ( 813/1715- 916/1779)   4.8 W07-W19 N52-N55
      5 1038 1696 (N44W23 L= 42)   561    101        1 (1010/1653-1064/1745)  36.9 W18-W27 N40-N47
      6  808 1695 (N51W06 L= 24)   263     52        0 ( 777/1683- 843/1707) -31.0 W03-W08 N49-N53
      7 1304 1585 (N29W35 L= 53)   651    156        0 (1255/1545-1372/1637) -69.4 W33-W37 N24-N32
      8 1393 1394 (N15W32 L= 50)   229     44        1 (1371/1369-1410/1424)  33.7 W30-W33 N13-N16
      9 1435 1338 (N11W32 L= 51)   616    144        0 (1405/1279-1467/1399)  50.2 W28-W35 N08-N14
     10  753 1338 (N28E09 L=  9)   389    128        1 ( 693/1286- 794/1368) -45.0 E12-E06 N24-N31
     11 1107 1327 (N19W12 L= 31)   549    210        0 (1010/1287-1200/1364) -37.9 W07-W17 N14-N23
     12  940 1280 (N20W01 L= 20)   295    128        0 ( 887/1254-1002/1309) -50.2 E01-W04 N17-N23
     13  218 1081 (N25E56 L=322)   432     49        0 ( 200/1052- 239/1112) -53.1 E58-E53 N22-N26
     14  216  925 (N15E59 L=320)  1310    160        1 ( 164/ 871- 274/1001) -45.0 E64-E53 N11-N20
     15  187  867 (N12E64 L=315)   934    128        3 ( 156/ 826- 229/ 919) -78.7 E68-E58 N10-N15
     16 1346  888 (S11W15 L= 33)   350    130        0 (1283/ 869-1402/ 914) -23.2 W11-W18 S13-S09
     17 1709  646 (S37W40 L= 58)   377     21        0 (1688/ 625-1729/ 669) -51.3 W37-W42 S39-S34
     18  635  561 (S14E36 L=343)   508    102        1 ( 619/ 499- 650/ 613)  60.3 E38-E32 S17-S10
     19 1121  355 (S40E13 L=  5)  1428    296        2 (1020/ 263-1225/ 454)  19.2 E25-E02 S44-S35
     20 1385  237 (S61W04 L= 22)   430     27        0 (1366/ 218-1409/ 255)  11.3 W01-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