Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  388 1568 (N46E57 L=286)   649     65        0 ( 359/1534- 411/1590) -20.0 E63-E52 N43-N48
      2 1434 1449 (N27W34 L= 17)   329    102        2 (1381/1431-1487/1470) -23.2 W30-W38 N24-N28
      3  685 1373 (N30E20 L=323)  1346    378        2 ( 546/1243- 806/1453) -36.9 E32-E11 N21-N36
      4  254 1198 (N22E57 L=286)   567    131        1 ( 219/1139- 278/1254)  69.4 E60-E54 N17-N25
      5  736 1174 (N17E17 L=326)   262     87        0 ( 707/1141- 772/1204)  36.9 E18-E14 N15-N18
      6 1671 1140 (N05W45 L= 27)   795    181        2 (1613/1093-1740/1192)  18.4 W39-W51 N02-N06
      7 1841  994 (S07W60 L= 42)  1063    249        2 (1790/ 876-1864/1090)  53.1 W53-W63 S13-S01
      8  868  880 (S02E11 L=332)   229    108        1 ( 818/ 846- 902/ 910) -36.9 E13-E08 S04-N00
      9 1500  735 (S18W28 L= 11)   293    101        0 (1490/ 690-1514/ 793) -80.5 W27-W29 S20-S14
     10  349  766 (S05E49 L=293)   308     51        1 ( 323/ 745- 373/ 783) -33.7 E51-E47 S06-S04
     11  739  722 (S10E21 L=322)   558    104        2 ( 706/ 672- 765/ 770)  56.3 E23-E18 S13-S07
     12  298  592 (S17E61 L=281)  2328    325        3 ( 262/ 460- 352/ 695)  59.5 E70-E52 S26-S09
     13  862  664 (S15E14 L=329)   225     75        1 ( 829/ 643- 899/ 689) -26.6 E15-E11 S16-S13
     14 1107  669 (S17W02 L=344)   206     76        0 (1065/ 656-1143/ 688)  14.0 E01-W03 S17-S16
     15 1834  661 (S29W65 L= 48)   724     47        0 (1807/ 642-1863/ 681) -13.0 W59-W72 S31-S27
     16 1190  588 (S24W06 L=349)   643    158        1 (1153/ 526-1245/ 656)  48.8 W03-W10 S27-S19
     17 1512  544 (S31W30 L= 13)  1183    180        3 (1440/ 491-1576/ 603)  20.0 W24-W35 S34-S28
     18 1605  496 (S37W41 L= 24)  1292    274        3 (1491/ 459-1712/ 566)  10.8 W29-W52 S38-S33
     19  407  480 (S25E55 L=288)   461     72        0 ( 395/ 439- 423/ 511)  32.0 E59-E51 S27-S22
     20 1219  315 (S46W07 L=350)  2123    318        3 (1140/ 219-1311/ 407)  38.2 W00-W14 S56-S38
     21 1156  371 (S40W02 L=345)   341     56        2 (1126/ 351-1184/ 393) -36.9 W00-W04 S41-S37
     22  621  291 (S41E47 L=296)   895    101        0 ( 590/ 250- 658/ 334)  25.0 E55-E40 S45-S37
  

    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