Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1530 1653 (N25W55 L=197)   719    110        2 (1465/1633-1583/1674) -35.5 W50-W59 N22-N27
      2 1484 1618 (N25W49 L=191)   374     83        0 (1445/1590-1523/1640) -45.0 W46-W50 N21-N26
      3 1473 1522 (N20W42 L=185)   903    247        1 (1370/1490-1588/1554) -13.2 W34-W51 N16-N22
      4 1304 1385 (N17W26 L=168)   728    192        2 (1284/1297-1325/1485)  55.0 W23-W30 N11-N21
      5  995 1416 (N27W09 L=151)   221     57        0 ( 965/1399-1028/1433) -45.0 W07-W10 N25-N28
      6 1737 1299 (N00W52 L=195)  1230    192        1 (1674/1210-1774/1368) -90.0 W49-W54 S04-N05
      7  771 1323 (N27E07 L=135)   418     93        1 ( 737/1292- 802/1365)  18.4 E10-E04 N25-N29
      8 1817 1094 (S13W53 L=195)  8908      0       21 (1718/ 786-1925/1351)  60.5 W40-W70 S30-N00
      9  863 1177 (N16E05 L=137)   208     37        0 ( 833/1161- 887/1195)  53.1 E07-E03 N15-N17
     10  190 1064 (N25E59 L= 83)  2179    340        4 (  83/ 940- 288/1162) -25.8 E81-E49 N16-N32
     11  367 1036 (N20E41 L=101)  1118    285        0 ( 309/ 949- 487/1128) -51.8 E45-E33 N12-N26
     12 1640 1059 (S10W37 L=180)   338     81        1 (1611/1024-1671/1092)  21.8 W34-W40 S11-S08
     13 1138  795 (S11W01 L=143)  3098    820        3 ( 891/ 540-1276/1064)  36.9 E20-W12 S20-N03
     14 1668  746 (S29W34 L=177)   301     98        0 (1630/ 728-1705/ 778)  -9.5 W31-W37 S30-S27
     15  385  636 (S03E51 L= 92)  1316    320        3 ( 269/ 555- 503/ 757) -49.4 E57-E44 S09-N05
     16 1362  644 (S26W10 L=152)  1636    452        1 (1158/ 541-1534/ 746)   4.2 E04-W23 S27-S23
     17 1878  706 (S40W61 L=203)   674     82        0 (1859/ 678-1908/ 731) -76.0 W57-W69 S41-S37
     18  603  620 (S08E35 L=107)   350     61        0 ( 584/ 589- 627/ 664)  78.7 E36-E34 S10-S05
     19  288  563 (S05E64 L= 78)  1264    116        1 ( 247/ 507- 318/ 613)  74.1 E67-E60 S09-S02
     20  616  478 (S17E40 L=102)   364     93        0 ( 568/ 465- 663/ 495) -31.0 E42-E37 S18-S15
  

    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