Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  676 1817 (N44E46 L=167)   430     55        0 ( 662/1783- 690/1848) -41.2 E51-E42 N40-N47
      2 1612 1669 (N48W44 L=257)  1030     96        1 (1569/1635-1646/1701) -68.2 W37-W49 N44-N50
      3  843 1600 (N28E20 L=193)   322     31        1 ( 816/1576- 866/1624)  71.6 E21-E18 N26-N29
      4  861 1535 (N24E17 L=196)   311     59        2 ( 838/1506- 889/1566) -53.1 E18-E15 N21-N25
      5  556 1488 (N17E37 L=176)   443     80        0 ( 528/1449- 583/1520) -38.7 E40-E34 N15-N19
      6 1565 1354 (N22W31 L=245)  1700    376        0 (1397/1244-1677/1447) -23.2 W18-W40 N16-N25
      7  916 1406 (N16E11 L=202)   373     81        2 ( 880/1373- 956/1438) -11.3 E13-E08 N14-N17
      8 1861 1317 (N26W62 L=275)  2057    158        5 (1809/1237-1904/1380) -41.2 W55-W70 N21-N30
      9  322 1255 (N01E50 L=163)   450     92        0 ( 288/1236- 359/1281)   9.5 E53-E47 N00-N03
     10  696 1199 (N01E22 L=192)   686    204        0 ( 649/1118- 752/1278) -45.0 E25-E17 S03-N05
     11  374 1023 (S12E43 L=171)   378    121        0 ( 348/ 961- 399/1071)  66.8 E44-E41 S16-S09
     12  491  828 (S23E33 L=180)   257     43        0 ( 468/ 806- 520/ 851) -33.7 E35-E30 S24-S21
     13 1103  812 (S17W07 L=221)   510    225        0 (1011/ 786-1216/ 837)  22.6 W02-W14 S19-S14
     14  831  640 (S31E08 L=206)   717    144        2 ( 776/ 589- 890/ 678)  45.0 E11-E04 S35-S28
     15 1633  501 (S27W56 L=269)  3414    437        2 (1462/ 399-1801/ 625)  46.4 W45-W67 S37-S16
  

    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