Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1382 1487 (N30W32 L=299)   355     40        0 (1353/1459-1414/1510) -53.1 W30-W33 N27-N31
      2 1612 1380 (N19W46 L=313)   435     79        0 (1577/1358-1649/1413) -45.0 W44-W48 N17-N21
      3 1732 1233 (N08W52 L=319)  1384    208        3 (1690/1134-1776/1309)  84.8 W49-W56 N02-N13
      4  805 1269 (N23E11 L=255)   621    193        0 ( 720/1207- 879/1307) -31.0 E17-E07 N18-N25
      5  352 1144 (N19E46 L=221)  1955    437        5 ( 249/1037- 469/1269) -41.6 E56-E36 N11-N27
      6  225 1024 (N12E59 L=208)   463    121        1 ( 192/ 980- 245/1056) -38.7 E62-E56 N09-N13
      7 1721 1003 (S05W47 L=314)   327     82        0 (1695/ 969-1749/1030)  21.8 W44-W49 S07-S03
      8 1405  685 (S20W21 L=288)  2089    354        3 (1269/ 559-1492/ 839)  41.4 W10-W27 S27-S11
      9  425  730 (S07E44 L=223)   767    200        2 ( 386/ 692- 471/ 777) -39.8 E46-E40 S09-S03
     10  574  704 (S10E33 L=234)   410    116        1 ( 544/ 658- 596/ 755)  71.6 E35-E31 S12-S06
     11  739  648 (S15E23 L=244)   614    228        2 ( 655/ 614- 828/ 687)  14.0 E28-E16 S16-S12
     12  508  641 (S13E39 L=228)   513     55        2 ( 479/ 604- 529/ 678)  59.0 E41-E37 S15-S10
     13  300  579 (S17E61 L=206)   681    110        3 ( 274/ 539- 320/ 612) -68.2 E63-E58 S19-S14
  

    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