Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  737 1741 (N34E44 L=266)   914    160        3 ( 697/1685- 796/1797) -19.4 E53-E36 N30-N37
      2  535 1629 (N21E52 L=258)   796    159        2 ( 500/1565- 563/1696) -33.7 E60-E47 N16-N25
      3 1355 1647 (N46W06 L=316)   628    110        1 (1315/1615-1399/1672)   0.0 W01-W09 N42-N47
      4  584 1560 (N18E44 L=267)   428    134        0 ( 539/1504- 615/1615)  90.0 E44-E42 N13-N22
      5  411 1559 (N14E59 L=252)   437     47        1 ( 385/1536- 428/1585)  56.3 E60-E55 N12-N16
      6  719 1515 (N18E32 L=278)   318     77        3 ( 684/1486- 746/1538)  -9.5 E35-E29 N16-N19
      7 1727 1223 (N27W43 L=354)   717     80        1 (1704/1176-1747/1272) -81.9 W41-W45 N23-N30
      8 1261 1198 (N12W09 L=320)   239     86        0 (1241/1163-1284/1244) -45.0 W07-W11 N10-N15
      9 1838 1156 (N26W56 L=  7)   967    164        2 (1791/1091-1886/1214) -19.7 W50-W64 N23-N28
     10  503 1105 (S10E34 L=277)   362     84        1 ( 472/1089- 544/1134) -11.3 E35-E30 S11-S09
     11 1816  866 (N08W59 L=  9)   460     56        0 (1799/ 831-1835/ 895) -76.0 W56-W60 N06-N10
     12  405  768 (S33E37 L=273)   429     79        2 ( 370/ 734- 442/ 804)  35.5 E40-E33 S36-S30
     13 1239  599 (S22W25 L=335)   258     98        1 (1222/ 561-1260/ 650) -33.7 W21-W27 S24-S19
     14  579  571 (S42E20 L=291)  1271    292        3 ( 458/ 545- 708/ 599)  17.7 E31-E09 S45-S37
     15 1515  562 (S17W45 L=355)   318     62        2 (1494/ 534-1538/ 586) -56.3 W42-W46 S18-S15
  

    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