Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1576 1521 (N27W49 L= 84)   570     80        0 (1536/1480-1605/1563) -71.6 W47-W50 N23-N29
      2  968 1413 (N31W02 L= 37)   238     95        0 ( 926/1399-1015/1435)   9.5 W00-W06 N30-N31
      3 1800 1384 (N13W65 L=100)   692    187        1 (1763/1362-1834/1419)   5.2 W60-W71 N12-N14
      4  544 1311 (N30E29 L=  6)  1806    379        1 ( 388/1262- 703/1367)   0.0 E42-E17 N27-N32
      5  318 1171 (N23E48 L=347)   556    102        0 ( 300/1118- 336/1219) -80.5 E49-E46 N19-N25
      6 1122 1176 (N14W08 L= 43)   669    142        3 (1059/1144-1195/1213) -26.6 W04-W12 N11-N16
      7 1463  817 (S13W25 L= 60)   282    104        0 (1429/ 789-1506/ 865)  26.6 W22-W28 S14-S10
      8  518  772 (S03E36 L=359)   998    171        1 ( 472/ 683- 556/ 861) -78.7 E37-E34 S08-N02
      9  764  756 (S07E20 L= 15)   619    159        2 ( 683/ 718- 841/ 783) -24.0 E24-E15 S09-S04
     10 1597  691 (S24W34 L= 69)   920    162        2 (1527/ 636-1659/ 735)  20.0 W28-W39 S26-S21
     11  505  630 (S12E40 L=355)   936    174        4 ( 460/ 568- 550/ 689)  45.0 E45-E36 S15-S08
     12  695  463 (S25E32 L=  4)   466    165        2 ( 648/ 402- 737/ 510)  31.0 E37-E27 S29-S21
     13  560  287 (S38E53 L=343)  1129    208        2 ( 530/ 252- 591/ 333)  63.4 E58-E49 S41-S33
  

    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