Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  797 1833 (N43E46 L= 75)   524    121        1 ( 754/1817- 840/1848)   7.1 E50-E41 N42-N44
      2  456 1660 (N22E59 L= 61)  1419    353        4 ( 390/1590- 494/1749) -76.0 E65-E55 N16-N28
      3 1353 1647 (N45W06 L=127)  1202    220        2 (1332/1561-1382/1732) -75.1 W02-W09 N38-N53
      4  880 1673 (N33E28 L= 92)   336     61        1 ( 853/1652- 901/1697)  76.0 E29-E26 N31-N35
      5 1615 1596 (N51W33 L=154)   690    124        2 (1568/1566-1659/1619)  15.3 W27-W38 N48-N53
      6  540 1549 (N17E46 L= 75)   473    143        1 ( 519/1494- 568/1617) -63.4 E47-E42 N13-N21
      7  676 1562 (N21E36 L= 84)   267     82        3 ( 643/1539- 719/1591)  36.9 E38-E33 N18-N22
      8  939 1565 (N27E20 L=101)   282     42        0 ( 911/1551- 972/1583)  14.0 E21-E17 N25-N28
      9  627 1511 (N16E37 L= 83)   352    129        0 ( 599/1481- 663/1555) -26.6 E40-E34 N14-N18
     10  706 1520 (N19E33 L= 88)   266     65        1 ( 679/1503- 732/1540)  56.3 E34-E30 N17-N20
     11  943 1379 (N16E13 L=107)   446    124        2 ( 926/1317- 960/1437) -50.2 E15-E10 N12-N19
     12 1702 1332 (N33W39 L=160)   322    103        1 (1659/1311-1742/1359)   0.0 W35-W43 N32-N34
     13  215 1210 (S10E62 L= 59)   923    150        1 ( 186/1161- 246/1261) -80.5 E65-E58 S12-S06
     14 1269 1228 (N14W10 L=130)   360     66        2 (1235/1201-1300/1257)  36.9 W07-W11 N12-N16
     15  280 1216 (S08E55 L= 66)   515     47        1 ( 255/1187- 306/1238)  71.6 E57-E52 S09-S06
     16 1099 1064 (N01W03 L=124)   193     25        1 (1078/1044-1125/1084)  26.6 W02-W04 N00-N02
     17 1720 1005 (N13W45 L=166)   389     58        1 (1697/ 975-1747/1033)  59.0 W43-W47 N10-N15
     18  616  773 (S27E20 L=101)   304     79        0 ( 576/ 755- 650/ 796)  31.0 E22-E17 S28-S24
     19 1133  764 (S15W13 L=133)   191     39        0 (1108/ 752-1164/ 779)  14.0 W10-W14 S16-S14
     20 1663  511 (S16W59 L=180)   933    160        3 (1625/ 464-1698/ 543) -80.5 W54-W62 S19-S13
     21 1320  276 (S40W48 L=168)   899    165        1 (1248/ 261-1392/ 294)  20.0 W42-W53 S42-S37
  

    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