Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  783 1644 (N30E33 L= 98)   413     75        1 ( 752/1604- 802/1675) -38.7 E36-E30 N27-N31
      2  529 1531 (N17E46 L= 85)   580     93        1 ( 490/1501- 566/1559)  -7.1 E50-E42 N14-N18
      3  774 1451 (N17E26 L=106)   599    180        2 ( 709/1410- 856/1472)  26.6 E29-E21 N14-N20
      4 1375 1386 (N27W14 L=145)   509     87        1 (1348/1338-1395/1428) -71.6 W11-W15 N24-N30
      5  883 1395 (N16E17 L=114)   215     38        1 ( 864/1379- 907/1416) -18.4 E18-E15 N15-N17
      6  544 1166 (S04E32 L= 99)   269     72        3 ( 517/1134- 575/1200)  76.0 E34-E30 S06-S02
      7  605  978 (S14E24 L=107)   239     45        0 ( 590/ 951- 619/1008) -56.3 E25-E23 S15-S12
      8  496  835 (S25E30 L=101)  1051    262        3 ( 403/ 769- 565/ 935)  51.8 E37-E25 S31-S17
      9 1724  641 (S08W59 L=190)   401     47        1 (1707/ 610-1740/ 666) -31.0 W56-W61 S09-S06
     10 1354  531 (S23W34 L=166)   635     96        2 (1319/ 501-1395/ 576) -80.5 W31-W38 S26-S20
     11 1582  531 (S18W51 L=183)   327     76        0 (1556/ 498-1599/ 568) -78.7 W50-W53 S20-S15
     12  710  451 (S46E08 L=123)  1258    220        2 ( 611/ 428- 820/ 476)  15.5 E17-W01 S49-S41
     13 1091  187 (S56W44 L=175)  1359    106        2 (1048/ 146-1131/ 232) -45.0 W38-W53 S61-S50
  

    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