Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  952 1728 (N37E28 L=300)  1135    238        1 ( 909/1632-1007/1822) -31.0 E39-E19 N31-N43
      2  651 1690 (N26E47 L=281)   894    175        2 ( 613/1616- 698/1761) -25.2 E56-E39 N22-N30
      3 1505 1697 (N56W18 L=346)  1798    223        3 (1421/1651-1580/1730)  27.8 W09-W29 N47-N61
      4  178  997 (S25E64 L=264)  1482    199        4 ( 126/ 910- 242/1064)  38.2 E74-E55 S31-S20
      5  524  750 (S33E26 L=302)   678    198        1 ( 433/ 723- 631/ 771)  23.6 E33-E17 S35-S28
      6 1042  604 (S27W13 L=341)   584    126        0 (1012/ 540-1076/ 661) -83.7 W11-W14 S32-S23
      7 1409  531 (S21W39 L=  7)   269     76        2 (1384/ 499-1438/ 565) -78.7 W37-W41 S23-S18
      8 1262  456 (S30W34 L=  2)   310    138        0 (1222/ 426-1312/ 511) -11.3 W28-W38 S31-S27
      9  357  465 (S60E52 L=276)   515     30        1 ( 334/ 447- 381/ 487)   8.7 E59-E46 S61-S56
     10 1383  465 (S26W41 L=  9)   293    104        0 (1331/ 447-1429/ 487)  45.0 W38-W43 S28-S23
     11  420  431 (S61E42 L=287)   966    118        1 ( 387/ 394- 465/ 480) -63.4 E48-E33 S63-S55
     12  521  372 (S62E26 L=303)   879     62        1 ( 491/ 336- 553/ 410) -56.3 E31-E21 S65-S58
     13  701  329 (S59E01 L=327)   573     81        1 ( 663/ 311- 746/ 353)  12.5 E05-W04 S61-S56
     14  884  221 (S61W27 L=355)   602     74        0 ( 864/ 186- 911/ 256) -24.8 W21-W34 S63-S57
     15 1212  215 (S47W53 L= 21)   441     45        0 (1198/ 184-1225/ 246) -20.0 W47-W58 S49-S45
  

    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