Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1269 1637 (N34W37 L=181)   292     43        1 (1250/1609-1295/1656)  11.3 W34-W39 N32-N35
      2 1447 1633 (N28W49 L=193)  1175    200        2 (1342/1612-1552/1652) -29.7 W41-W56 N23-N32
      3 1706 1486 (N12W60 L=204)   799    103        2 (1662/1450-1746/1526) -66.8 W57-W63 N08-N15
      4 1175 1417 (N25W20 L=164)   762    269        1 (1031/1383-1284/1455) -34.7 W12-W26 N20-N29
      5 1808 1137 (S10W54 L=198)   983    128        2 (1770/1092-1858/1191) -63.4 W51-W58 S13-S05
      6  659 1101 (N20E20 L=124)  1156    326        2 ( 522/1040- 795/1179) -43.0 E27-E12 N13-N27
      7 1866 1066 (S16W59 L=202)  2217    248        4 (1774/ 987-1923/1164)   7.4 W47-W70 S19-S11
      8  175  974 (N22E64 L= 80)   546    112        0 ( 147/ 925- 199/1024) -49.4 E67-E60 N18-N25
      9 1929  983 (S23W67 L=211)   853     88        1 (1892/ 955-1951/1018)   0.0 W60-W72 S24-S21
     10 1075  906 (S01E00 L=143)   348    126        0 (1048/ 862-1111/ 941)  33.7 E02-W02 S02-N01
     11 1545  785 (S21W25 L=168)   725    130        1 (1502/ 729-1585/ 844)  35.5 W21-W28 S23-S17
     12  806  664 (S08E22 L=122)   234    106        0 ( 796/ 609- 817/ 712)  71.6 E23-E19 S11-S05
     13  396  650 (S00E50 L= 94)   450    104        0 ( 379/ 608- 420/ 706)  80.5 E51-E48 S03-N03
     14  995  612 (S16E12 L=131)   619    129        2 ( 940/ 559-1042/ 667)  76.0 E15-E09 S19-S11
     15 1442  599 (S29W14 L=158)   776    147        2 (1390/ 548-1476/ 657)  26.6 W09-W17 S32-S25
     16 1571  560 (S37W23 L=167)   298     62        0 (1544/ 532-1591/ 592)  36.9 W20-W25 S38-S34
     17  639  472 (S16E39 L=105)   484     91        1 ( 622/ 426- 660/ 520)  50.2 E42-E36 S18-S12
     18  733  451 (S19E34 L=110)   549    147        4 ( 704/ 383- 752/ 518)  56.3 E37-E30 S23-S14
     19  885  223 (S39E39 L=105)  1757    197        1 ( 805/ 172- 942/ 297)  22.8 E49-E30 S42-S34
     20 1369  263 (S54E00 L=143)   401     46        0 (1338/ 250-1398/ 277) -36.9 E02-W02 S56-S51
  

    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