Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  611 1759 (N67E33 L=196)   524     55        0 ( 583/1738- 642/1777)  -4.8 E38-E26 N65-N69
      2  981 1614 (N45W10 L=239)   359     56        1 ( 946/1585-1007/1636)   0.0 W07-W13 N42-N46
      3 1748 1547 (N21W75 L=303)   941     69        1 (1731/1514-1765/1579)   9.5 W70-W82 N19-N22
      4 1612 1413 (N18W49 L=278)  1760    411        1 (1448/1349-1803/1463) -26.6 W37-W66 N09-N24
      5 1327 1328 (N19W25 L=254)   338    142        1 (1300/1269-1349/1380)  74.1 W22-W27 N15-N22
      6 1035 1323 (N24W06 L=235)   228    127        0 ( 981/1311-1095/1338) -14.0 W02-W10 N22-N26
      7  506 1195 (N25E32 L=197)  1507    349        2 ( 400/1069- 556/1303) -69.4 E41-E28 N16-N32
      8  669 1203 (N23E20 L=209)   258     95        0 ( 632/1179- 715/1235) -33.7 E22-E16 N21-N25
      9 1617 1154 (N03W40 L=269)   651    149        2 (1593/1086-1636/1225)  69.4 W38-W42 S01-N07
     10 1314 1156 (N09W20 L=249)   378    166        1 (1250/1122-1388/1179)  -6.3 W15-W24 N07-N10
     11  448  658 (S07E45 L=184)   625    188        0 ( 367/ 606- 521/ 706) -35.0 E50-E40 S11-S03
     12  657  609 (S13E31 L=198)   256     72        0 ( 632/ 594- 692/ 637) -53.1 E32-E28 S14-S10
     13  530  499 (S19E44 L=184)   304     76        0 ( 505/ 467- 557/ 528)  29.7 E48-E41 S20-S16
     14  900  398 (S31E21 L=207)  1193    360        1 ( 777/ 309-1015/ 513)  22.6 E34-E10 S37-S24
     15  677  378 (S29E39 L=190)   303     92        0 ( 647/ 334- 706/ 415)  33.7 E43-E34 S32-S26
  

    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