Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  747 1732 (N33E43 L=267)  1128    168        2 ( 697/1669- 801/1794) -21.3 E53-E35 N29-N37
      2  538 1628 (N21E51 L=259)   952    161        2 ( 504/1564- 567/1703) -29.7 E61-E46 N17-N25
      3 1357 1646 (N46W06 L=316)   700    107        1 (1314/1616-1407/1671)   7.1 W02-W10 N42-N47
      4  587 1559 (N18E43 L=267)   499    129        1 ( 541/1506- 621/1612)  90.0 E44-E42 N13-N21
      5  419 1560 (N14E58 L=252)   484     54        2 ( 392/1539- 457/1577)  36.9 E60-E54 N13-N16
      6 1262 1207 (N13W09 L=319)   324    128        0 (1235/1164-1291/1283) -45.0 W06-W11 N10-N16
      7 1731 1221 (N27W44 L=354)   786     89        1 (1704/1176-1751/1272) -59.0 W41-W45 N24-N30
      8 1838 1159 (N26W56 L=  6)   904    150        1 (1793/1092-1878/1215) -22.6 W50-W62 N23-N29
      9  513 1100 (S11E33 L=277)   452     88        2 ( 474/1078- 566/1126)   0.0 E35-E28 S11-S09
     10 1819  876 (N09W59 L=  9)   679     79        3 (1799/ 836-1851/ 912) -38.7 W55-W62 N06-N11
     11  425  792 (S31E35 L=275)   775    180        3 ( 372/ 731- 475/ 860)  48.0 E40-E31 S36-S26
     12 1241  603 (S22W25 L=335)   306    111        1 (1225/ 559-1266/ 660) -45.0 W22-W27 S24-S18
     13  589  567 (S42E19 L=291)  1484    240        3 ( 486/ 538- 707/ 597)  20.2 E28-E09 S45-S37
     14 1515  559 (S17W45 L=355)   396     96        0 (1474/ 532-1540/ 585)  36.9 W42-W46 S18-S15
     15 1524  374 (S27W59 L=  9)   416     49        0 (1500/ 360-1551/ 397)  26.6 W56-W62 S28-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