Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  795 1717 (N45E15 L=285)   483     48        3 ( 762/1697- 831/1738)  -8.1 E18-E11 N43-N47
      2 1236 1635 (N36W19 L=320)   953    275        0 (1089/1613-1348/1655)  -9.0 W08-W27 N33-N37
      3 1651 1601 (N32W55 L=356)   535    114        0 (1596/1569-1701/1620) -21.8 W49-W59 N29-N33
      4  674 1543 (N32E23 L=278)   956    194        0 ( 578/1520- 768/1562)  -7.6 E30-E15 N30-N33
      5 1668 1475 (N23W50 L=350)  1198    227        5 (1617/1419-1745/1538) -58.0 W45-W57 N19-N27
      6 1042 1464 (N25W03 L=304)  1530    423        2 ( 854/1353-1198/1521) -31.0 E09-W12 N16-N29
      7 1589 1368 (N17W40 L=340)  1770    469        6 (1443/1247-1765/1495) -32.5 W30-W52 N08-N25
      8 1278 1387 (N19W18 L=318)   419    130        0 (1241/1331-1315/1445)  54.5 W15-W21 N15-N22
      9 1812 1349 (N15W61 L=  1)   386     57        0 (1792/1328-1829/1382)  53.1 W58-W63 N13-N17
     10  908 1335 (N17E06 L=294)   226    116        0 ( 894/1283- 944/1375)  71.6 E06-E03 N13-N19
     11  301 1236 (N14E49 L=251)  1653    278        4 ( 245/1157- 369/1343) -40.6 E57-E42 N09-N21
     12 1336 1290 (N12W21 L=321)   448    139        2 (1273/1248-1386/1327) -35.5 W16-W23 N09-N14
     13 1400  885 (S12W23 L=323)  1582    412        1 (1326/ 735-1500/1061)  68.2 W18-W29 S21-S01
     14  716  823 (S13E20 L=280)   336    119        0 ( 689/ 777- 745/ 872)  63.4 E22-E17 S15-S09
     15  996  745 (S19E03 L=297)   379    164        0 ( 980/ 672-1037/ 804)  69.4 E04-W00 S23-S15
     16 1588  732 (S22W37 L=338)   238     50        1 (1561/ 703-1606/ 760)  45.0 W35-W38 S23-S20
     17  744  606 (S27E21 L=279)   473    130        1 ( 702/ 547- 781/ 671)  48.8 E25-E17 S30-S22
     18 1387  540 (S34W24 L=324)  1158    282        2 (1274/ 478-1481/ 635)  32.7 W15-W30 S38-S27
     19  996  447 (S39E05 L=295)   545    135        0 ( 945/ 425-1063/ 477) -20.6 E09-W00 S40-S36
     20  660  396 (S41E34 L=266)   570    114        2 ( 599/ 372- 711/ 416)  -5.7 E39-E29 S42-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