Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  891 1846 (N63W31 L= 71)   806     88        2 ( 858/1809- 921/1888)  12.5 W24-W42 N59-N65
      2  852 1784 (N59W20 L= 60)   318     54        1 ( 824/1766- 880/1804) -36.9 W16-W22 N56-N60
      3 1238 1727 (N40W42 L= 82)   296     45        0 (1215/1704-1264/1751)  63.4 W40-W43 N37-N41
      4  691 1718 (N60E01 L= 39)   533     94        2 ( 651/1685- 741/1742)   0.0 E05-W04 N58-N62
      5 1531 1710 (N28W63 L=103)   553     49        0 (1506/1687-1560/1733) -56.3 W59-W65 N26-N29
      6 1624 1621 (N21W63 L=103)   388     71        0 (1603/1585-1640/1652)  45.0 W60-W64 N18-N22
      7 1432 1546 (N23W42 L= 82)  1446    374        2 (1234/1500-1570/1615) -43.3 W33-W50 N17-N33
      8 1759 1388 (N04W59 L= 99)   867    152        2 (1735/1318-1781/1475)  45.0 W56-W65 N00-N08
      9 1233 1252 (N13W18 L= 58)   253     99        0 (1215/1208-1247/1302)  68.2 W15-W19 N11-N16
     10 1062 1236 (N17W08 L= 48)   894    300        4 ( 976/1182-1146/1288) -29.1 W02-W12 N14-N21
     11 1877 1259 (S06W67 L=106)   501     58        1 (1855/1237-1902/1286) -31.0 W63-W70 S08-S05
     12  508 1220 (N30E28 L= 12)   342     93        0 ( 461/1206- 556/1237)  -7.1 E31-E23 N29-N31
     13 1183 1181 (N11W13 L= 53)   204     81        1 (1163/1157-1210/1222) -90.0 W11-W14 N09-N13
     14 1271 1162 (N07W17 L= 57)   258     87        0 (1229/1145-1297/1191) -33.7 W15-W19 N06-N08
     15  913 1154 (N17E03 L= 37)   397    150        0 ( 837/1141- 992/1166) -29.7 E07-W01 N13-N19
     16  387 1127 (N27E39 L=  1)   796    204        0 ( 291/1103- 489/1159) -18.4 E48-E30 N23-N31
     17 1183  895 (S05W05 L= 45)   444    120        0 (1132/ 872-1228/ 933)   9.5 W02-W08 S05-S03
     18  934  735 (S07E12 L= 27)  1031    394        2 ( 877/ 598-1031/ 850)  47.5 E15-E04 S15-S02
     19  475  390 (S17E57 L=342)  2366    307        3 ( 449/ 267- 505/ 533)  32.7 E75-E46 S26-S08
     20  765  464 (S19E32 L=  8)  1072    285        1 ( 653/ 421- 887/ 522) -31.6 E36-E23 S24-S13
     21 1537  492 (S41W19 L= 59)   771    108        2 (1489/ 459-1584/ 519)   6.3 W14-W23 S42-S38
     22 1143  255 (S45E19 L= 21)  1886    326        4 (1022/ 171-1289/ 342)   7.9 E33-E04 S49-S42
  

    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