Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1053 1622 (N29E17 L=340)  1283    453        2 (1004/1455-1119/1768) -46.5 E25-E07 N17-N39
      2  584 1695 (N21E51 L=305)   571     87        1 ( 558/1668- 614/1733) -68.2 E54-E48 N19-N24
      3  917 1619 (N25E25 L=332)   593    129        4 ( 861/1594- 969/1642)  33.7 E27-E21 N21-N27
      4 1569 1564 (N43W21 L= 18)  1032    217        1 (1497/1484-1657/1631) -16.4 W13-W30 N39-N46
      5  954 1539 (N20E19 L=338)   393    148        1 ( 933/1450- 981/1586) -66.0 E21-E15 N15-N24
      6 1375 1502 (N31W07 L=  4)   510    144        0 (1341/1430-1394/1558) -49.4 W03-W09 N26-N34
      7 1740 1391 (N38W40 L= 36)   359     62        1 (1717/1368-1768/1416)  -9.5 W37-W43 N36-N39
      8 1654 1284 (N27W32 L= 29)   711    256        0 (1581/1177-1717/1371) -25.0 W24-W39 N22-N30
      9  160 1060 (S25E67 L=290)  1259    226        3 ( 135/ 947- 186/1146)  85.2 E70-E62 S31-S19
     10 1819 1065 (N20W51 L= 48)   592    141        0 (1776/1004-1843/1125) -24.0 W45-W55 N17-N22
     11  463  947 (S25E33 L=324)   392    138        1 ( 397/ 908- 522/ 981)  41.2 E38-E29 S29-S22
     12  975  740 (S24W05 L=  2)   531    234        0 ( 863/ 675-1070/ 770)  47.7 W00-W10 S30-S19
     13  328  733 (S42E45 L=312)   457    136        0 ( 265/ 710- 390/ 748)  17.4 E53-E37 S44-S39
  

    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