Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  862 1879 (N73W31 L= 74)   744     88        0 ( 839/1840- 886/1915)  14.9 W22-W52 N67-N77
      2 1254 1817 (N50W54 L= 98)   417     51        0 (1232/1786-1274/1845)  13.0 W47-W60 N48-N51
      3 1457 1648 (N32W52 L= 95)   398     94        0 (1439/1604-1486/1683)  16.7 W47-W57 N30-N33
      4  926 1319 (N27W01 L= 44)   740    334        1 ( 835/1183-1001/1432)  36.3 E07-W08 N20-N32
      5 1328 1355 (N19W27 L= 70)   218     95        0 (1286/1329-1373/1373)  -9.5 W23-W29 N18-N20
      6  551 1241 (N29E27 L= 17)   559    189        0 ( 516/1144- 571/1321) -76.0 E29-E25 N23-N35
      7 1736 1190 (S01W51 L= 94)   749    150        3 (1691/1129-1783/1254) -69.4 W47-W53 S05-N03
      8 1625 1104 (S02W39 L= 83)   340     87        0 (1586/1070-1655/1129) -51.3 W36-W41 S05-N00
      9  682 1068 (N16E20 L= 24)   216     88        0 ( 658/1030- 703/1105)  45.0 E22-E17 N14-N18
     10  432 1016 (N18E39 L=  5)   251     97        0 ( 397/ 978- 460/1056) -51.3 E41-E36 N15-N20
     11 1440  788 (S16W20 L= 64)   397    166        1 (1384/ 747-1514/ 834)  11.3 W15-W25 S17-S15
     12 1348  597 (S26W11 L= 54)   347     71        1 (1329/ 560-1362/ 644)  71.6 W09-W12 S28-S22
     13  496  505 (S14E48 L=356)   685    111        2 ( 454/ 467- 528/ 561)  60.3 E52-E45 S17-S10
     14  723  381 (S27E37 L=  7)  1264    261        1 ( 622/ 329- 846/ 438)   2.7 E47-E25 S29-S24
     15  448  419 (S20E58 L=345)   579     95        1 ( 398/ 395- 486/ 433) -20.6 E63-E54 S21-S18
  

    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