Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1244 1600 (N37E03 L=301)  1080    174        3 (1193/1513-1288/1672) -45.0 E08-W02 N32-N41
      2  961 1510 (N23E17 L=287)  1144    433        2 ( 833/1351-1070/1666) -26.6 E31-E05 N15-N30
      3 1637 1623 (N55W36 L=340)   764     73        0 (1611/1592-1674/1647)  29.7 W31-W45 N51-N59
      4  386  895 (S27E39 L=265)  1404    365        1 ( 289/ 766- 525/ 967)  37.3 E49-E28 S37-S20
      5  184  863 (S33E64 L=240)  1267    117        9 ( 150/ 808- 224/ 922) -81.9 E69-E57 S37-S30
      6  866  626 (S31W01 L=305)  1092    296        0 ( 720/ 609- 995/ 654)  29.4 E08-W08 S35-S26
      7 1119  579 (S27W19 L=323)   266     36        0 (1102/ 553-1140/ 601)  71.6 W17-W19 S28-S25
      8 1334  472 (S27W37 L=341)   854    141        0 (1305/ 402-1366/ 534) -56.3 W34-W40 S31-S22
      9 1423  514 (S22W41 L=345)   297     35        0 (1402/ 498-1445/ 534)   0.0 W38-W43 S22-S20
     10  641  328 (S61E08 L=296)  1471    256        2 ( 558/ 262- 736/ 403) -11.3 E20-W06 S64-S56
     11 1436  351 (S31W54 L=358)  1147    251        1 (1335/ 309-1528/ 390)  14.0 W44-W64 S33-S28
     12  973  255 (S54W29 L=333)   557    122        0 ( 936/ 216- 992/ 313) -59.0 W24-W32 S58-S48
     13  908  221 (S60W28 L=332)   507     24        1 ( 887/ 197- 929/ 245) -14.0 W24-W32 S61-S57
  

    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