Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1551 1648 (N25W57 L= 82)  4140    499        5 (1361/1532-1764/1716) -29.5 W41-W72 N13-N31
      2 1533 1529 (N19W47 L= 72)   874    217        0 (1439/1482-1615/1560) -32.5 W40-W52 N14-N22
      3 1789 1471 (N09W68 L= 93)   584     52        0 (1775/1441-1810/1506)  31.0 W64-W71 N07-N10
      4  220 1220 (N32E56 L=329)  1844    270        5 ( 136/1112- 300/1293) -29.1 E74-E46 N23-N38
      5 1760 1233 (S03W53 L= 78)   395     59        1 (1739/1208-1785/1259)  21.8 W50-W55 S04-S01
      6 1825 1147 (S09W57 L= 82)  2247    273        5 (1751/1083-1878/1219)  33.7 W48-W63 S13-S05
      7 1381 1109 (S00W22 L= 47)   443    141        1 (1318/1074-1437/1133)  -7.1 W17-W25 S02-N01
      8  230 1046 (N21E55 L=330)   462     89        0 ( 182/1027- 272/1067) -16.7 E60-E50 N19-N22
      9 1083  914 (S04W01 L= 26)  1451    449        3 ( 961/ 743-1200/1053) -73.3 E03-W03 S16-N05
     10 1399  980 (S08W20 L= 45)   493     78        2 (1353/ 941-1440/1008)  -9.5 W17-W23 S10-S05
     11  512  960 (N11E32 L=353)   590    160        2 ( 435/ 939- 592/ 995) -26.6 E37-E26 N07-N14
     12 1366  904 (S11W17 L= 42)   319    106        2 (1336/ 866-1402/ 944) -90.0 W15-W18 S14-S09
     13 1439  879 (S15W21 L= 46)   259    118        0 (1393/ 842-1473/ 926)  26.6 W17-W23 S15-S12
     14 1564  725 (S27W27 L= 52)  1444    257        1 (1477/ 679-1671/ 798) -25.0 W21-W36 S30-S20
     15  728  735 (S06E24 L=  1)   316     52        1 ( 703/ 712- 751/ 761) -76.0 E25-E22 S08-S04
     16  854  721 (S10E17 L=  8)   405     91        3 ( 822/ 685- 879/ 759) -90.0 E18-E15 S12-S07
     17 1362  591 (S30W10 L= 36)  1635    352        6 (1303/ 433-1419/ 752)  80.1 W04-W13 S41-S18
     18  689  647 (S11E29 L=356)   518    105        4 ( 641/ 610- 740/ 685) -51.3 E30-E25 S13-S07
     19  616  598 (S12E35 L=350)   508     97        1 ( 575/ 560- 666/ 627)  -9.5 E37-E31 S13-S10
     20  619  446 (S21E42 L=343)  3126    547        5 ( 442/ 334- 798/ 576)   8.1 E66-E24 S25-S16
     21 1236  331 (S46E06 L= 20)  2323    295        6 (1145/ 251-1342/ 431)  16.7 E15-W05 S50-S39
  

    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