Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1433 1794 (N45W65 L=351)  1904    138        1 (1387/1732-1461/1851)  11.7 W56-W85 N40-N47
      2  814 1754 (N60W00 L=287)   533     37        0 ( 790/1725- 836/1787)  56.3 E02-W03 N57-N63
      3 1346 1569 (N33W35 L=322)  2480    427        4 (1222/1493-1546/1650) -43.3 W27-W47 N23-N41
      4 1573 1591 (N28W56 L=342)   334     53        0 (1546/1568-1598/1614) -63.4 W54-W57 N26-N30
      5  433 1445 (N42E40 L=247)  1657    319        5 ( 283/1402- 563/1485)  -9.7 E61-E26 N37-N46
      6 1762 1366 (N11W60 L=347)   463     55        1 (1741/1336-1788/1396) -76.0 W57-W62 N08-N12
      7 1092 1097 (N10W05 L=292)   653    194        1 (1019/1029-1163/1157) -55.0 W01-W08 N04-N14
      8 1865 1037 (S10W61 L=347)   431     46        0 (1853/1007-1875/1069)  63.4 W59-W62 S12-S08
      9  346  983 (N14E46 L=240)   286     87        1 ( 301/ 951- 380/1009)  15.9 E50-E43 N12-N15
     10 1469  871 (S11W24 L=311)   280     98        0 (1440/ 828-1512/ 902)  31.0 W22-W27 S12-S09
     11 1620  625 (S30W34 L=321)  2314    426        1 (1469/ 523-1746/ 781)  20.6 W21-W45 S35-S22
     12 1307  584 (S25W10 L=297)   342     87        0 (1259/ 569-1351/ 609)  -8.1 W06-W13 S26-S24
     13  466  480 (S19E50 L=236)  1415    259        3 ( 393/ 387- 548/ 578) -78.7 E52-E46 S26-S11
     14  914  240 (S44E29 L=258)  3264    441        4 ( 750/ 174-1111/ 325)   9.7 E51-E09 S48-S40
  

    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