Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1419 1631 (N42W38 L=217)   321     72        0 (1382/1616-1452/1644)  -9.5 W34-W40 N40-N43
      2 1673 1502 (N31W56 L=236)   543     95        2 (1632/1481-1721/1521) -20.6 W52-W61 N28-N32
      3 1235 1490 (N33W17 L=197)   357     76        0 (1201/1463-1272/1515) -36.9 W15-W19 N31-N34
      4  238 1312 (N22E63 L=116)   645     85        3 ( 209/1274- 275/1337)  45.0 E67-E58 N20-N23
      5  550 1293 (N22E32 L=147)   686    167        1 ( 496/1230- 593/1322) -56.3 E35-E28 N17-N23
      6 1263 1246 (N17W16 L=195)   410    137        0 (1216/1194-1305/1301) -54.5 W13-W18 N13-N20
      7  389 1214 (N17E44 L=135)   303     53        2 ( 369/1192- 412/1239) -56.3 E45-E41 N15-N18
      8  897 1054 (N06E08 L=171)   316     88        0 ( 855/1039- 946/1068)   0.0 E10-E04 N05-N07
      9 1110  865 (S06W05 L=184)   809    195        2 (1027/ 798-1176/ 928) -45.0 W00-W08 S10-S01
     10 1519  873 (S07W32 L=211)   272     59        0 (1501/ 850-1543/ 906) -56.3 W30-W33 S08-S05
     11  701  821 (S08E21 L=158)   371    168        1 ( 654/ 779- 766/ 875) -35.5 E23-E16 S10-S04
     12 1564  774 (S14W35 L=215)   640    163        0 (1510/ 726-1590/ 845)  60.3 W31-W37 S16-S09
     13 1617  803 (S12W39 L=219)   340     50        0 (1596/ 774-1632/ 829) -53.1 W37-W40 S14-S10
     14  259  740 (S13E59 L=121)  1212    210        1 ( 233/ 651- 293/ 822)  57.5 E64-E53 S18-S07
     15  791  692 (S16E16 L=163)   475    167        2 ( 710/ 662- 847/ 714)  -6.3 E21-E12 S17-S14
     16 1142  594 (S24W06 L=186)  1272    269        1 (1056/ 497-1240/ 680)  45.0 W00-W12 S30-S18
     17  743  657 (S18E20 L=160)   256     85        1 ( 701/ 643- 784/ 673)   9.5 E22-E16 S19-S17
     18 1550  601 (S25W36 L=216)   545    157        0 (1503/ 543-1601/ 660)  53.1 W33-W39 S29-S21
     19  864  602 (S22E12 L=167)   379     50        3 ( 827/ 580- 894/ 625) -14.0 E14-E10 S23-S20
     20 1591  567 (S28W41 L=220)   499    179        0 (1518/ 522-1657/ 617)  24.4 W35-W46 S30-S25
     21 1607  495 (S34W45 L=225)   473     94        0 (1575/ 464-1640/ 541)  59.0 W42-W47 S36-S30
     22 1010  227 (S54E06 L=173)   606     68        2 ( 988/ 197-1035/ 263) -81.9 E07-E03 S57-S49
     23 1130  203 (S58W07 L=186)  1123    115        0 (1082/ 177-1178/ 237) -26.6 W01-W13 S61-S53
     24 1224  187 (S61W20 L=199)   689     70        1 (1209/ 157-1241/ 225) -78.7 W16-W25 S65-S55
  

    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