Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  636 1753 (N33E47 L= 94)   783    126        0 ( 624/1696- 649/1823) -37.6 E55-E42 N28-N38
      2 1451 1692 (N47W18 L=160)   398     52        1 (1420/1670-1482/1708)  33.7 W15-W21 N44-N49
      3 1005 1679 (N34E16 L=126)   280     55        0 ( 969/1667-1036/1693)  26.6 E18-E13 N32-N35
      4  474 1617 (N20E52 L= 89)   417     88        0 ( 440/1585- 516/1648)  59.0 E54-E50 N18-N23
      5  696 1575 (N21E33 L=109)   664    133        0 ( 650/1542- 779/1600)  12.5 E35-E26 N18-N22
      6  515 1550 (N16E45 L= 97)   336    103        0 ( 500/1495- 536/1596) -66.8 E46-E42 N12-N19
      7  801 1527 (N19E24 L=118)   252     67        0 ( 777/1503- 818/1551)  76.0 E25-E22 N17-N21
      8 1269 1495 (N26W06 L=147)   456     94        1 (1253/1456-1289/1545)  90.0 W04-W07 N23-N30
      9 1440 1446 (N27W18 L=160)   283     87        0 (1414/1403-1462/1488) -51.3 W16-W20 N24-N29
     10  712 1452 (N13E27 L=114)   238     61        2 ( 679/1432- 745/1465)  26.6 E29-E25 N11-N14
     11 1817 1111 (N16W53 L=194)  1031    191        2 (1799/ 990-1837/1189) -71.6 W50-W55 N08-N20
     12 1007 1072 (S04E02 L=140)   276     92        0 ( 962/1051-1052/1090)  36.9 E04-W00 S06-S02
     13 1864 1007 (N11W59 L=201)  1274    150        3 (1844/ 939-1892/1083) -63.4 W56-W63 N07-N15
     14  642 1035 (S13E23 L=118)   346    146        0 ( 592/ 969- 686/1062)  60.3 E25-E20 S17-S10
     15  727 1008 (S13E17 L=124)   264     69        0 ( 704/ 975- 744/1038)  90.0 E19-E15 S14-S10
     16  435  857 (S26E37 L=105)   642    156        3 ( 366/ 805- 483/ 905) -21.8 E42-E32 S28-S24
     17 1085  827 (S17W07 L=149)   384    139        0 (1005/ 799-1142/ 857)  35.5 W03-W10 S20-S14
     18  383  734 (S35E42 L=100)   348     41        0 ( 356/ 711- 413/ 756)  -9.5 E44-E38 S36-S33
     19 1710  581 (S16W59 L=201)  1085    257        2 (1650/ 493-1739/ 670) -65.6 W54-W65 S22-S11
     20 1169  587 (S29W19 L=161)  1121    330        2 (1015/ 535-1305/ 621)   8.1 W08-W29 S32-S26
     21  581  538 (S45E24 L=118)  1174    191        4 ( 495/ 511- 680/ 568)  16.4 E32-E15 S47-S41
     22 1251  451 (S36W30 L=172)   497     93        0 (1214/ 421-1306/ 477)  63.4 W27-W32 S38-S32
     23 1669  387 (S28W73 L=215)   792     54        0 (1647/ 362-1693/ 412)   0.0 W68-W80 S28-S26
     24  865  350 (S53W05 L=147)   289     33        1 ( 844/ 329- 883/ 377)  90.0 W03-W07 S55-S50
     25  650  273 (S67E20 L=122)   499     56        0 ( 614/ 251- 678/ 292)  -5.7 E26-E14 S68-S65
  

    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