Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1231 1644 (N34W33 L=136)   597    127        0 (1164/1621-1295/1665) -11.3 W27-W37 N31-N35
      2  875 1398 (N29W01 L=104)   487    103        0 ( 817/1374- 930/1418) -15.9 E03-W04 N26-N31
      3 1592 1339 (N07W43 L=146)   300     82        0 (1572/1296-1613/1371)  38.7 W40-W45 N04-N08
      4 1753 1227 (S04W52 L=155)  1506    334        2 (1641/1099-1833/1363) -67.2 W47-W56 S13-N06
      5  869 1265 (N21E03 L=100)   242     79        0 ( 845/1226- 903/1299)  36.9 E04-W00 N19-N22
      6 1563 1091 (S06W33 L=136)   742    179        0 (1529/ 998-1585/1182)  73.3 W30-W35 S10-N00
      7  808 1070 (N12E11 L= 92)   269     94        0 ( 758/1054- 857/1086)  -8.1 E14-E07 N11-N12
      8  224 1013 (N21E54 L= 49)  1507    374        2 ( 126/ 989- 327/1046) -14.0 E64-E44 N18-N24
      9  408  962 (N15E39 L= 64)   427    111        1 ( 365/ 909- 437/ 996) -63.4 E42-E37 N11-N17
     10 1226  807 (S13W06 L=109)   340     82        1 (1181/ 780-1274/ 827)   0.0 W02-W09 S13-S11
     11  944  552 (S21E17 L= 86)   543    246        0 ( 917/ 446- 970/ 659)  53.1 E22-E13 S26-S14
     12 1401  590 (S31W12 L=115)   645    104        2 (1374/ 540-1434/ 650)  76.0 W10-W14 S34-S26
     13  365  572 (S07E56 L= 47)  1139    205        2 ( 295/ 539- 454/ 618) -24.8 E61-E48 S09-S03
  

    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