Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  713 1820 (N38E47 L= 87)  1135     99        2 ( 681/1778- 759/1867) -19.7 E54-E40 N34-N41
      2 1224 1840 (N53E08 L=126)   529     87        1 (1190/1810-1265/1857)  54.5 E10-E04 N48-N56
      3  735 1548 (N18E29 L=105)  2054    469        6 ( 615/1398- 886/1703)  73.7 E33-E24 N07-N31
      4 1124 1649 (N33E08 L=126)   251     96        1 (1070/1637-1170/1668)  26.6 E11-E05 N31-N35
      5 1253 1607 (N33W02 L=136)   311     82        1 (1224/1583-1292/1633) -14.0 W00-W04 N31-N34
      6  890 1394 (N12E15 L=119)   264    128        0 ( 854/1341- 920/1441) -45.0 E18-E12 N08-N13
      7 1879 1277 (N29W59 L=193)  1628    201        3 (1818/1194-1937/1342) -18.4 W51-W69 N26-N32
      8 1309 1293 (N14W11 L=145)   194    103        1 (1264/1263-1342/1331)  51.3 W08-W12 N11-N16
      9 1482 1251 (N16W23 L=157)   444    112        1 (1434/1216-1523/1289) -15.9 W18-W25 N13-N17
     10  111 1161 (S12E75 L= 59)   689     53        2 (  86/1134- 132/1183)  -9.5 E81-E69 S13-S10
     11 1827 1153 (N19W52 L=186)   362     32        0 (1810/1132-1848/1178) -11.3 W49-W54 N18-N20
     12  528 1118 (S11E32 L=102)   347    119        1 ( 487/1073- 566/1172)  66.8 E33-E30 S13-S06
     13 1554 1041 (N05W31 L=165)   673    214        0 (1539/ 940-1568/1148) -65.6 W28-W33 N00-N11
     14  920 1086 (S06E07 L=127)   300    188        0 ( 850/1045-1012/1110)  32.0 E10-E01 S09-S03
     15 1926 1032 (N16W66 L=200)   797     73        1 (1904/ 997-1944/1071)  78.7 W62-W69 N13-N18
     16  806  870 (S20E10 L=124)   269     95        3 ( 779/ 819- 835/ 906)  71.6 E11-E08 S23-S17
     17 1203  849 (S13W14 L=148)   469    271        2 (1106/ 793-1301/ 893)  35.0 W09-W20 S18-S10
     18  716  836 (S24E15 L=119)   248     79        0 ( 678/ 817- 764/ 859)   0.0 E17-E11 S24-S22
     19 1547  748 (S11W38 L=172)   359    111        1 (1521/ 698-1564/ 797) -63.4 W35-W40 S14-S08
     20 1646  722 (S10W46 L=180)   602    146        3 (1595/ 676-1676/ 795)  90.0 W43-W48 S13-S05
     21  469  722 (S35E32 L=102)   785    109        2 ( 412/ 691- 526/ 750)  21.8 E37-E27 S37-S32
     22 1806  710 (S06W61 L=195)   465     98        2 (1764/ 667-1832/ 736) -12.5 W55-W64 S07-S03
     23 1545  558 (S21W46 L=180)  1082    332        0 (1412/ 524-1688/ 653)  43.0 W37-W52 S26-S12
     24 1389  372 (S36W46 L=180)   707     84        4 (1355/ 342-1427/ 405)  59.0 W40-W49 S38-S33
  

    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