Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1221 1843 (N51W55 L=243)   402     42        1 (1202/1819-1239/1866)  18.4 W50-W59 N49-N52
      2  546 1492 (N47E24 L=164)   389    116        0 ( 494/1461- 600/1518)   5.2 E29-E18 N45-N47
      3 1471 1413 (N17W38 L=227)   399    104        1 (1417/1386-1519/1437) -33.7 W35-W41 N15-N20
      4 1733 1207 (S01W50 L=238)  1891    426        0 (1625/1031-1826/1309)  16.3 W36-W61 S08-N03
      5  526 1216 (N29E28 L=161)   667    205        2 ( 431/1173- 609/1248)   0.0 E36-E21 N27-N30
      6 1905 1057 (S15W65 L=254)  3913    216        7 (1844/ 965-1955/1144)  11.8 W56-W80 S19-S11
      7  744 1048 (N15E16 L=173)   810    402        1 ( 583/1010- 898/1099)  -2.7 E26-E05 N11-N17
      8  229 1048 (N24E57 L=131)   935    133        2 ( 177/1016- 287/1087)  -8.7 E63-E50 N21-N26
      9 1511 1000 (S06W28 L=217)   245     74        0 (1486/ 966-1539/1029)  21.8 W25-W30 S07-S05
     10 1328  939 (S05W15 L=204)   262    112        0 (1312/ 892-1349/ 991) -90.0 W14-W16 S07-S01
     11  134  944 (N18E72 L=117)  1544    163        6 ( 105/ 880- 172/ 989)  71.6 E78-E65 N14-N20
     12 1903  942 (S22W63 L=252)   543     52        1 (1881/ 915-1922/ 963) -53.1 W59-W66 S24-S20
     13  193  876 (N14E64 L=125)  1617    186        5 ( 166/ 786- 218/ 962)  84.8 E67-E59 N08-N19
     14 1491  852 (S14W24 L=212)   599    124        3 (1449/ 801-1535/ 888)  18.4 W19-W26 S15-S11
     15  734  864 (N04E20 L=168)   406    125        0 ( 675/ 847- 798/ 876) -15.9 E23-E16 N03-N06
     16  266  821 (N10E56 L=132)   343     80        1 ( 244/ 778- 295/ 852)  33.7 E59-E53 N07-N11
     17 1306  661 (S21W08 L=197)   710    263        0 (1223/ 578-1378/ 767)  31.6 W01-W14 S24-S15
     18  888  724 (S07E15 L=174)   383    113        3 ( 852/ 687- 937/ 761) -59.0 E17-E12 S09-S04
     19 1178  737 (S13W02 L=191)   230     63        0 (1149/ 707-1200/ 759)  18.4 W00-W03 S14-S11
     20  967  725 (S08E10 L=178)   402     94        3 ( 928/ 686- 998/ 753) -53.1 E11-E08 S10-S06
     21  862  616 (S13E19 L=169)  1001    225        5 ( 805/ 563- 947/ 687) -53.1 E22-E15 S16-S08
     22  883  554 (S17E20 L=169)  1448    456        4 ( 699/ 490-1038/ 650)   4.6 E33-E08 S20-S13
     23  341  540 (S08E60 L=128)  1214    119        3 ( 311/ 487- 372/ 593)  28.6 E66-E54 S11-S05
     24  703  375 (S25E39 L=150)   846    208        2 ( 638/ 289- 758/ 456)  85.9 E42-E37 S32-S18
     25 1000  391 (S31E19 L=170)   831    257        1 ( 906/ 300-1086/ 451)  20.2 E29-E10 S35-S27
     26  415  383 (S20E64 L=124)  2103    167        3 ( 377/ 302- 446/ 447)  40.2 E77-E57 S26-S15
     27  661  313 (S29E46 L=142)   558    106        3 ( 635/ 267- 683/ 359)  31.0 E52-E41 S32-S25
     28  603  322 (S27E51 L=138)   797    108        3 ( 574/ 281- 632/ 358)  81.9 E54-E46 S30-S23
  

    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