Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  800 1647 (N33E22 L=132)   625    114        2 ( 750/1618- 857/1680)  -7.1 E25-E17 N30-N35
      2  358 1548 (N24E54 L=100)   453     79        1 ( 343/1511- 381/1578) -78.7 E55-E51 N21-N26
      3  278 1460 (N18E59 L= 95)   581    238        0 ( 249/1406- 307/1521) -38.7 E64-E54 N14-N22
      4 1833 1350 (N24W57 L=211)   666    193        1 (1789/1334-1886/1365)   5.2 W52-W63 N22-N25
      5  235 1262 (N05E58 L= 96)  1393    213        3 ( 204/1154- 269/1351)  79.7 E61-E55 S01-N10
      6  799 1252 (N07E15 L=139)   407     81        1 ( 780/1202- 828/1295) -59.0 E16-E13 N04-N09
      7  170 1263 (N05E66 L= 88)   464    107        2 ( 151/1231- 190/1293) -33.7 E69-E62 N03-N07
      8 1666 1064 (N03W41 L=195)   321     91        1 (1624/1039-1701/1086) -15.9 W37-W44 N02-N04
      9  270 1020 (S09E52 L=103)   885    186        1 ( 212/ 995- 332/1058)  16.7 E57-E46 S10-S06
     10 1665  847 (S09W44 L=198)   850    206        5 (1621/ 766-1707/ 931)  74.7 W41-W46 S14-S03
     11 1198  782 (S18W13 L=167)   185     72        0 (1169/ 746-1226/ 822) -36.9 W10-W14 S20-S15
     12 1040  605 (S30W05 L=159)   359     82        1 ( 997/ 578-1087/ 642)  38.7 W02-W07 S32-S27
     13 1618  350 (S40W59 L=213)   533    143        0 (1591/ 339-1659/ 365)  18.4 W55-W61 S41-S38
  

    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