Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1564 1493 (N21W48 L=330)   823    142        2 (1507/1464-1616/1516) -35.5 W43-W52 N18-N23
      2 1105 1460 (N31W16 L=298)   506    115        2 (1070/1407-1139/1501) -82.9 W13-W17 N26-N34
      3 1765 1390 (N09W62 L=344)  1096    144        1 (1725/1320-1806/1447) -77.5 W59-W64 N04-N13
      4  573 1300 (N32E25 L=258)  1222    397        4 ( 514/1172- 647/1445) -65.8 E29-E20 N23-N43
      5 1543 1380 (N15W42 L=324)   958    176        4 (1472/1301-1629/1443) -63.4 W38-W45 N08-N20
      6 1727 1284 (N05W53 L=335)  1418    374        7 (1683/1139-1783/1433)  60.6 W45-W58 S02-N14
      7 1739 1041 (S09W47 L=329)   992    271        0 (1676/ 988-1819/1120) -48.0 W42-W54 S13-S02
      8  906 1090 (N13E06 L=276)   273     88        0 ( 855/1065- 951/1105)   0.0 E09-E02 N12-N14
      9  179 1004 (N19E63 L=220)  3181    445        5 (  96/ 922- 252/1086) -33.7 E72-E54 N13-N23
     10 1353  733 (S17W14 L=296)  1340    329        3 (1272/ 608-1402/ 905)  53.1 W06-W19 S24-S07
     11  424  825 (N06E43 L=240)   378     65        2 ( 396/ 798- 445/ 862) -90.0 E44-E40 N04-N08
     12  448  638 (S06E46 L=236)   699    193        3 ( 376/ 613- 508/ 669)  -5.2 E52-E41 S07-S03
     13  781  449 (S23E29 L=253)   472     83        2 ( 752/ 418- 816/ 476)  18.4 E31-E25 S25-S21
     14 1203  372 (S39E04 L=278)   444     49        2 (1174/ 348-1244/ 392) -11.3 E05-W00 S40-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