Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  933 1791 (N38E35 L=153)   642    134        1 ( 881/1736- 972/1844) -17.4 E44-E28 N34-N40
      2  405 1671 (N16E69 L=119)  1516     90        1 ( 374/1639- 452/1703)  45.0 E80-E63 N13-N18
      3  488 1661 (N17E58 L=130)   402     56        0 ( 469/1627- 500/1689) -29.7 E62-E54 N14-N18
      4 1475 1579 (N42W12 L=200)   342    106        0 (1446/1531-1503/1621) -29.7 W08-W15 N38-N43
      5  648 1283 (S02E29 L=159)  1250    301        4 ( 577/1143- 736/1415) -38.7 E37-E20 S08-N04
      6 1564 1181 (N19W27 L=215)   896    225        0 (1494/1081-1626/1238) -22.6 W21-W33 N14-N20
      7 1630  866 (N03W40 L=228)   356    104        0 (1611/ 818-1655/ 914) -38.7 W38-W43 N01-N05
      8  758  719 (S31E07 L=181)   999    328        0 ( 627/ 655- 893/ 790)  48.8 E14-W00 S38-S22
      9 1703  759 (N00W50 L=238)   403     57        1 (1673/ 740-1728/ 781)   0.0 W47-W52 S01-N02
     10 1180  741 (S17W17 L=205)  1072    322        0 (1031/ 711-1331/ 770)  34.5 W09-W25 S22-S11
     11 1253  467 (S30W34 L=222)  1379    280        1 (1131/ 440-1393/ 504)  25.2 W24-W41 S33-S23
     12  482  405 (S63E28 L=159)   456     22        0 ( 463/ 383- 503/ 430) -90.0 E32-E24 S65-S60
     13  569  378 (S62E15 L=173)   493     58        0 ( 545/ 349- 593/ 411) -51.3 E18-E10 S64-S58
     14 1482  339 (S29W60 L=248)   635     62        1 (1463/ 301-1509/ 371) -18.4 W55-W64 S30-S26
  

    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