Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1568 1628 (N44W50 L= 45)   896     96        0 (1524/1592-1608/1663) -39.8 W46-W53 N41-N47
      2  728 1530 (N34E25 L=331)   463     92        1 ( 704/1485- 753/1568) -39.8 E27-E21 N31-N36
      3 1035 1459 (N30E01 L=354)   594    248        0 ( 940/1395-1119/1502) -24.4 E07-W05 N26-N33
      4 1711 1468 (N32W57 L= 52)   642     72        0 (1675/1439-1736/1493) -18.4 W52-W60 N30-N34
      5 1458 1437 (N30W31 L= 26)   427    178        1 (1380/1391-1525/1469) -10.3 W24-W35 N27-N32
      6 1020 1383 (N25E02 L=354)   430    217        0 ( 936/1312-1093/1435) -38.7 E07-W03 N20-N28
      7  584 1295 (N18E31 L=325)   269     55        1 ( 559/1268- 609/1319) -26.6 E32-E28 N16-N19
      8  212 1271 (N14E65 L=290)  1152    101        1 ( 189/1219- 239/1318) -71.6 E69-E61 N10-N16
      9 1306 1194 (N14W17 L= 13)   243     78        0 (1276/1169-1336/1224) -36.9 W15-W19 N12-N15
     10  913  966 (S01E07 L=349)   248     95        0 ( 864/ 944- 954/ 984) -21.8 E09-E04 S02-N00
     11 1807  892 (S04W58 L= 53)  1496    247        3 (1765/ 768-1842/ 977) -59.7 W52-W62 S11-N01
     12  762  895 (S06E16 L=339)   284     91        1 ( 742/ 852- 780/ 941)  90.0 E17-E14 S08-S03
     13  638  877 (S08E24 L=331)   580    178        1 ( 595/ 801- 678/ 935)  53.1 E27-E21 S12-S04
     14 1222  813 (S10W13 L=  8)   602    214        0 (1166/ 730-1287/ 890) -51.3 W09-W17 S14-S04
     15 1047  650 (S21W03 L=358)   835    179        2 ( 990/ 582-1092/ 729) -78.7 W00-W06 S25-S15
     16  816  702 (S18E12 L=343)   312    168        0 ( 753/ 675- 900/ 724)   5.7 E16-E06 S20-S16
     17 1156  675 (S19W10 L=  5)   724    165        4 (1108/ 596-1190/ 723) -54.5 W06-W12 S23-S15
     18  545  536 (S31E34 L=321)  1335    243        2 ( 495/ 484- 644/ 618) -31.0 E37-E26 S34-S25
     19  266  579 (S30E65 L=290)  2032    103        2 ( 213/ 552- 312/ 605)   9.2 E87-E56 S32-S27
     20  928  555 (S28E05 L=350)   873    188        4 ( 844/ 513- 996/ 601)  31.0 E10-W00 S30-S24
     21 1621  493 (S31W51 L= 46)  1429    237        4 (1525/ 443-1706/ 539)  25.0 W42-W58 S34-S27
  

    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