Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  756 1711 (N33E39 L= 52)  1828    509        5 ( 723/1498- 798/1843) -51.3 E48-E26 N19-N44
      2  413 1643 (N21E62 L= 29)  2433    372        6 ( 371/1567- 452/1704) -31.6 E69-E54 N16-N24
      3 1225 1588 (N37E02 L= 89)   636    147        1 (1180/1515-1260/1649) -53.1 E06-W02 N32-N40
      4 1714 1465 (N43W42 L=133)   995    138        3 (1684/1414-1745/1519) -82.9 W39-W45 N39-N47
      5 1086 1408 (N21E06 L= 85)   562    189        0 (1036/1349-1128/1439) -23.2 E08-E01 N18-N23
      6 1054 1315 (N15E05 L= 86)   239    115        2 (1007/1274-1083/1344) -31.0 E08-E03 N12-N16
      7  529 1315 (N03E37 L= 54)   240     94        0 ( 485/1293- 572/1341)  31.0 E39-E34 N01-N05
      8 1643 1227 (N24W35 L=126)   442    126        1 (1613/1167-1683/1266)  74.1 W33-W38 N20-N27
      9 1238 1200 (N12W08 L= 99)   313    122        2 (1193/1164-1262/1253) -68.2 W05-W10 N10-N15
     10 1374 1224 (N17W16 L=107)   218     54        0 (1361/1183-1390/1251) -63.4 W15-W17 N14-N18
     11 1646 1064 (N14W38 L=129)   528     84        2 (1612/1035-1679/1098)  59.0 W35-W40 N11-N16
     12  433  888 (S24E35 L= 56)   366     89        1 ( 397/ 862- 463/ 912)  45.0 E37-E33 S25-S21
     13 1158  449 (S34W25 L=116)   349     74        0 (1126/ 427-1199/ 468)  53.1 W22-W28 S35-S31
  

    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