Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  674 1672 (N40E39 L=124)   587    105        1 ( 634/1630- 708/1710) -26.6 E46-E34 N36-N42
      2  446 1613 (N32E58 L=106)   669     83        2 ( 423/1574- 471/1659) -28.6 E63-E52 N29-N35
      3 1302 1581 (N41W15 L=179)   773    157        3 (1241/1543-1372/1626) -15.3 W10-W21 N38-N43
      4  682 1437 (N23E28 L=135)   780    196        2 ( 641/1362- 743/1526)  85.2 E30-E26 N18-N30
      5 1531 1213 (N18W32 L=195)   242    120        0 (1511/1163-1565/1268) -56.3 W30-W34 N14-N21
      6  314  866 (S16E49 L=114)  3642    495        6 ( 204/ 657- 425/1044)  42.1 E71-E39 S31-S03
      7 1721  722 (S11W54 L=217)   511     77        0 (1706/ 676-1735/ 766) -71.6 W51-W55 S13-S07
      8 1280  742 (S14W19 L=183)   331     87        0 (1238/ 727-1327/ 762)   9.5 W16-W22 S14-S12
      9 1653  698 (S13W48 L=211)   603    160        3 (1599/ 664-1707/ 760)  54.5 W43-W52 S15-S08
     10 1685  582 (S20W56 L=219)   369     55        0 (1662/ 560-1708/ 611) -23.2 W52-W59 S21-S18
     11 1255  546 (S27W21 L=185)   389    120        1 (1200/ 514-1305/ 578)  39.8 W18-W24 S29-S23
     12 1638  498 (S26W56 L=219)  1638    185        2 (1550/ 464-1710/ 538)  19.7 W48-W64 S29-S23
     13 1306  437 (S34W29 L=192)   833    186        0 (1233/ 410-1386/ 483)  26.6 W23-W33 S36-S29
     14  461  432 (S46E45 L=118)   513     51        3 ( 431/ 407- 494/ 458)  20.0 E50-E39 S48-S43
  

    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