Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  731 1740 (N37E41 L=170)  1402    275        3 ( 638/1694- 827/1778)   0.0 E50-E32 N34-N38
      2  932 1616 (N32E21 L=191)   933    156        2 ( 855/1578-1013/1652)   4.4 E27-E14 N30-N33
      3 1099 1558 (N32E08 L=204)   405    104        0 (1061/1523-1153/1580)  50.2 E09-E04 N29-N35
      4  568 1431 (N13E38 L=174)   258     62        0 ( 537/1405- 592/1463)  68.2 E39-E36 N10-N15
      5  434 1416 (N09E48 L=164)   300     75        1 ( 415/1398- 457/1442) -26.6 E49-E45 N08-N10
      6  324 1388 (N06E57 L=155)   435    124        2 ( 287/1369- 364/1402)  15.9 E60-E52 N04-N06
      7  234 1327 (N01E65 L=147)   569    110        0 ( 212/1301- 260/1351)   0.0 E68-E60 N00-N02
      8 1746 1036 (N14W48 L=259)  1023    192        2 (1678/ 959-1791/1091) -24.4 W41-W53 N10-N17
      9  712 1012 (S09E18 L=194)   363    147        1 ( 644/ 990- 775/1050)  35.5 E22-E14 S10-S05
     10  238 1014 (S18E55 L=157)   371    100        0 ( 209/ 995- 269/1028)  18.4 E57-E51 S19-S16
     11 1197  780 (S13W15 L=227)   320     83        2 (1168/ 744-1227/ 804) -26.6 W13-W18 S14-S10
     12 1503  716 (S10W37 L=248)   264     87        0 (1485/ 680-1526/ 762) -38.7 W34-W39 S11-S07
     13  944  647 (S26W03 L=215)   320     81        1 ( 906/ 629- 990/ 676)  21.8 W01-W06 S27-S24
  

    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