Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  465 1662 (N37E59 L=302)  2068    154        5 ( 427/1593- 504/1739) -17.4 E80-E48 N32-N42
      2  674 1604 (N35E34 L=327)  1620    274        3 ( 570/1563- 803/1639)   9.0 E41-E22 N31-N37
      3  661 1426 (N23E29 L=332)   523    189        0 ( 612/1352- 685/1518) -85.2 E30-E27 N17-N29
      4  572 1455 (N24E36 L=324)   307     80        0 ( 561/1416- 583/1502) -80.5 E37-E34 N21-N27
      5 1260 1394 (N27W12 L= 13)   365    127        0 (1223/1351-1315/1425)  33.7 W10-W16 N23-N28
      6 1733 1303 (N24W51 L= 51)   443    111        0 (1715/1250-1752/1354) -80.5 W49-W51 N21-N27
      7 1476 1190 (N15W28 L= 28)   237     96        0 (1430/1180-1521/1207)   0.0 W24-W31 N14-N16
      8 1786 1082 (N11W54 L= 54)   586    138        1 (1761/1003-1813/1136) -63.4 W51-W56 N06-N14
      9 1175 1033 (N03W09 L= 10)   195     60        0 (1141/1021-1216/1045)  14.0 W06-W11 N02-N04
     10 1462  987 (N03W28 L= 28)   433    165        0 (1406/ 944-1531/1011)  20.6 W24-W32 N00-N04
     11  171  902 (S14E65 L=295)  1402    171        5 ( 134/ 841- 204/ 971) -49.4 E71-E60 S17-S10
     12  256  861 (S16E55 L=306)   419     46        1 ( 242/ 832- 276/ 890) -63.4 E56-E52 S17-S13
     13 1774  698 (S13W59 L= 59)  3220    386        3 (1650/ 589-1861/ 853)  50.2 W50-W66 S20-S02
     14  451  588 (S32E39 L=321)  1147    198        1 ( 386/ 509- 536/ 637)  30.1 E49-E30 S38-S27
  

    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