Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1301 1812 (N43W58 L= 78)   584     64        0 (1277/1778-1323/1836)  16.7 W53-W63 N40-N44
      2 1639 1539 (N16W59 L= 79)   459    108        0 (1597/1504-1671/1578) -80.5 W57-W60 N13-N19
      3 1380 1554 (N26W40 L= 60)   310    117        0 (1328/1543-1436/1565) -20.6 W36-W44 N23-N27
      4 1285 1459 (N23W29 L= 49)   393     74        1 (1252/1435-1309/1490)  11.3 W26-W31 N21-N25
      5 1095 1427 (N27W16 L= 36)   203     54        0 (1079/1399-1116/1453)  45.0 W14-W18 N25-N28
      6 1808 1325 (S00W63 L= 83)   796     97        0 (1765/1308-1864/1344) -12.1 W57-W71 S02-N01
      7 1030 1221 (N17W06 L= 25)   753    241        1 ( 978/1122-1108/1312)  30.3 W00-W12 N13-N20
      8  824 1242 (N24E06 L= 14)   238     78        0 ( 787/1226- 871/1263) -45.0 E07-E03 N22-N26
      9  667 1139 (N22E18 L=  1)   618    223        0 ( 557/1087- 743/1171) -36.0 E25-E14 N17-N25
     10  422 1042 (N22E38 L=342)   619    164        5 ( 400/ 994- 463/1134) -71.6 E39-E35 N19-N28
     11  172 1040 (N27E65 L=315)   509     83        1 ( 154/ 990- 193/1076) -59.0 E68-E62 N23-N28
     12 1734  948 (S18W43 L= 63)   876    211        2 (1645/ 923-1839/ 973) -20.2 W35-W54 S22-S14
     13 1365  895 (S10W16 L= 36)   372     94        1 (1335/ 848-1394/ 939)  38.7 W13-W18 S11-S07
     14  486  858 (N10E37 L=343)   262     90        0 ( 466/ 823- 517/ 896) -68.2 E37-E35 N07-N12
     15  227  779 (N10E63 L=317)   672     96        1 ( 204/ 741- 257/ 830) -63.4 E65-E60 N07-N13
     16  882  573 (S15E21 L=359)   571    204        0 ( 848/ 489- 928/ 655)  38.7 E25-E15 S19-S11
     17  752  498 (S17E31 L=349)   292    116        1 ( 701/ 477- 809/ 516) -38.7 E33-E28 S18-S14
     18  654  423 (S19E41 L=338)   467    112        0 ( 635/ 376- 683/ 473)  56.3 E43-E37 S22-S16
     19  948  380 (S30E25 L=355)   706    130        1 ( 906/ 325- 998/ 415)  21.8 E30-E20 S32-S27
     20  600  360 (S22E50 L=330)   608     46        1 ( 578/ 332- 623/ 395)  68.2 E52-E46 S24-S19
  

    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