Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1578 1612 (N21W56 L=236)   784    209        0 (1519/1583-1660/1644) -33.7 W51-W62 N17-N24
      2 1704 1524 (N13W61 L=242)   504     65        0 (1664/1509-1741/1542) -11.3 W56-W66 N11-N13
      3 1165 1452 (N24W20 L=200)   283    137        0 (1101/1441-1236/1468) -29.7 W16-W24 N22-N26
      4 1558 1384 (N10W42 L=222)   281     42        1 (1531/1368-1585/1400) -33.7 W40-W43 N08-N10
      5  883 1233 (N19E03 L=177)  1030    447        3 ( 733/1105-1059/1319)   7.4 E14-W09 N15-N21
      6 1694 1161 (S06W44 L=224)   519    111        0 (1632/1134-1745/1191) -40.6 W39-W47 S08-S02
      7  306 1097 (N25E46 L=134)   375     80        1 ( 282/1055- 336/1134)  53.1 E48-E42 N23-N27
      8 1716  781 (S28W39 L=219)  5090    786        7 (1515/ 516-1863/1126)  34.0 W18-W58 S40-S12
      9 1237 1050 (N01W12 L=192)   666    131        3 (1188/ 981-1267/1107) -90.0 W10-W14 S03-N04
     10  177  910 (N17E63 L=117)  3944    326        8 ( 130/ 782- 224/1076) -90.0 E70-E56 N09-N27
     11 1392 1005 (S06W20 L=200)   371    151        1 (1362/ 959-1444/1074) -90.0 W18-W22 S09-S01
     12 1495 1027 (S07W27 L=207)   265    107        1 (1456/ 980-1518/1056)  31.0 W23-W28 S09-S05
     13 1620  994 (S13W34 L=214)   333     56        0 (1592/ 973-1651/1015)  14.0 W32-W36 S13-S11
     14  242  925 (N17E55 L=125)   819    116        0 ( 215/ 869- 269/ 973) -90.0 E57-E51 N13-N19
     15 1391  852 (S14W16 L=196)   635    176        1 (1346/ 788-1463/ 887)   7.1 W12-W20 S17-S12
     16 1175  796 (S12W03 L=183)   217     59        0 (1145/ 769-1200/ 831) -63.4 W01-W03 S13-S09
     17  607  748 (S01E31 L=149)   928    217        0 ( 524/ 668- 677/ 828) -70.0 E34-E28 S06-N05
     18 1365  589 (S29W09 L=189)   323    107        0 (1350/ 550-1391/ 649)  81.9 W07-W10 S32-S25
     19 1082  616 (S20E07 L=173)   231     49        1 (1065/ 593-1102/ 646) -90.0 E08-E05 S21-S17
     20  303  553 (S06E63 L=117)   920    128        2 ( 258/ 531- 371/ 590) -20.0 E68-E55 S07-S02
     21  548  458 (S16E46 L=134)  1717    381        4 ( 452/ 346- 663/ 581)  19.0 E62-E33 S21-S11
     22  829  422 (S25E29 L=151)  2141    524        3 ( 617/ 288-1038/ 524)   5.7 E52-E12 S29-S22
     23  332  443 (S13E68 L=112)  1390    137        3 ( 299/ 389- 364/ 512)  36.0 E76-E59 S16-S08
  

    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