Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  397 1602 (N13E60 L=253)  1525    245        5 ( 358/1538- 443/1686) -51.3 E64-E52 N08-N18
      2  367 1496 (N05E57 L=256)   389    107        2 ( 339/1482- 402/1517)   0.0 E60-E52 N04-N06
      3  907 1406 (N11E17 L=296)   863    241        4 ( 834/1302- 968/1501) -31.6 E23-E10 N06-N15
      4  174 1118 (S20E62 L=251)  2254    519        5 (  88/1028- 309/1171)  26.6 E70-E49 S25-S15
      5  829 1056 (S10E12 L=301)   270     90        0 ( 795/1030- 852/1103)  68.2 E13-E10 S12-S07
      6  521 1018 (S19E30 L=283)   904    309        1 ( 406/ 949- 640/1102)  -9.0 E39-E20 S22-S16
      7  269  972 (S27E50 L=263)  1457    428        5 ( 155/ 924- 383/1051)  27.8 E61-E40 S31-S20
      8  823  879 (S20E08 L=305)   408    118        0 ( 758/ 838- 866/ 906)  -7.1 E12-E04 S21-S19
      9 1812  853 (N07W56 L=  9)   341     61        0 (1801/ 824-1825/ 892) -45.0 W54-W58 N05-N08
     10 1345  853 (S08W23 L=335)   239     38        1 (1325/ 830-1367/ 879)  90.0 W21-W23 S09-S06
     11 1098  814 (S17W10 L=323)   239     77        1 (1057/ 783-1136/ 851) -18.4 W06-W12 S17-S15
     12 1562  694 (S10W42 L=355)   900    241        1 (1493/ 606-1651/ 795)  74.1 W39-W44 S16-S02
     13  611  707 (S36E18 L=295)   248     61        0 ( 577/ 689- 646/ 730)   0.0 E20-E15 S36-S34
     14 1464  335 (S32W54 L=  7)  2198    445        3 (1310/ 286-1581/ 374)  15.6 W41-W66 S35-S28
  

    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