Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1246 1672 (N39W15 L=165)   682    210        0 (1162/1642-1346/1691)  -4.1 W08-W22 N36-N40
      2  366 1617 (N34E54 L= 96)  2112    305        5 ( 319/1561- 427/1673) -20.6 E63-E47 N29-N38
      3  241 1398 (N19E59 L= 91)   663    158        2 ( 217/1353- 260/1441) -50.2 E62-E56 N15-N21
      4  270 1314 (N13E54 L= 96)   627    145        3 ( 244/1272- 306/1355)  59.0 E56-E50 N10-N15
      5  733 1263 (N10E18 L=132)   201    108        0 ( 704/1219- 762/1313) -51.3 E20-E16 N07-N12
      6  637 1243 (N08E24 L=126)   282    110        0 ( 583/1231- 688/1253)  -8.1 E28-E21 N07-N09
      7  611 1092 (S01E26 L=125)   353     76        3 ( 572/1057- 641/1133) -71.6 E28-E23 S02-N01
      8  333 1028 (S04E46 L=105)   321     67        1 ( 307/1004- 359/1057) -21.8 E48-E43 S05-S02
      9  266 1023 (S05E52 L= 99)   364     55        1 ( 245/1000- 290/1048) -26.6 E53-E49 S05-S03
     10 1577  793 (S16W37 L=188)  1065    285        2 (1465/ 675-1656/ 905)  53.7 W30-W42 S23-S08
     11 1386  855 (S13W23 L=174)   520     94        2 (1334/ 821-1429/ 894)  33.7 W19-W25 S14-S10
     12  278  705 (S24E54 L= 97)  1053    203        2 ( 231/ 650- 332/ 752)  24.4 E59-E48 S27-S20
     13  593  573 (S33E30 L=121)   769    213        3 ( 513/ 536- 670/ 620)  21.0 E36-E23 S35-S29
  

    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