Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1516 1519 (N23W47 L= 65)  1233    370        1 (1377/1467-1680/1572) -36.4 W39-W58 N15-N29
      2 1243 1419 (N25W24 L= 42)   585    178        2 (1198/1333-1281/1493)  36.0 W18-W29 N20-N28
      3  894 1323 (N27E01 L= 17)   898    328        0 ( 809/1190- 968/1437) -77.5 E04-W00 N18-N36
      4 1830 1302 (N02W66 L= 83)  1347    182        2 (1780/1222-1879/1374) -73.3 W61-W69 S04-N06
      5  777 1136 (N19E13 L=  5)   282     99        1 ( 725/1112- 816/1157) -38.7 E15-E10 N16-N20
      6  218  959 (N17E61 L=317)  1048    229        0 ( 203/ 843- 240/1045)  76.0 E62-E57 N10-N22
      7 1775  950 (S16W49 L= 67)   320     71        0 (1732/ 938-1810/ 966)  -7.1 W44-W52 S17-S14
      8 1666  760 (S25W37 L= 54)   517    107        0 (1651/ 707-1682/ 811)  81.9 W35-W38 S28-S21
      9  824  723 (S06E18 L=360)   281    123        0 ( 796/ 679- 872/ 759)  18.4 E20-E14 S08-S04
     10  799  500 (S20E27 L=351)   672    249        1 ( 692/ 474- 870/ 557)   8.1 E34-E20 S21-S16
     11 1043  479 (S26E12 L=  6)   564    181        1 ( 973/ 436-1126/ 525)   9.5 E17-E05 S28-S24
     12  646  237 (S37E57 L=321)   546     51        0 ( 634/ 206- 660/ 264)  35.5 E62-E52 S39-S34
     13 1354  205 (S64W03 L= 21)   596     58        1 (1332/ 181-1379/ 232)  23.2 E01-W06 S67-S58
  

    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