Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  398 1500 (N33E52 L=195)   587     92        1 ( 377/1453- 418/1542) -56.3 E55-E49 N30-N36
      2  831 1456 (N31E14 L=234)   452    133        0 ( 780/1429- 907/1488) -21.8 E17-E07 N29-N33
      3 1462 1370 (N24W31 L=278)   637    239        1 (1377/1279-1518/1426) -52.1 W25-W34 N18-N28
      4  311 1189 (N13E51 L=196)   943    140        1 ( 283/1124- 336/1255)  90.0 E54-E49 N08-N17
      5 1642 1033 (N03W41 L=288)   654    204        1 (1615/ 952-1665/1111) -71.6 W39-W43 S02-N07
      6  374  908 (S04E44 L=203)   414    156        1 ( 348/ 858- 394/ 988)  66.8 E46-E42 S07-N00
      7  173  888 (S06E67 L=180)  1264    170        2 ( 138/ 819- 214/ 967) -48.4 E71-E61 S10-S01
      8  527  753 (S13E33 L=214)   597    144        2 ( 467/ 716- 576/ 801)  29.1 E38-E29 S15-S10
      9  263  650 (S21E62 L=185)  1735    231        2 ( 236/ 558- 329/ 729)  33.0 E70-E50 S28-S15
     10  849  691 (S17E12 L=236)   411    171        2 ( 772/ 655- 902/ 712) -20.6 E16-E08 S19-S15
     11  627  587 (S24E28 L=219)  1040    183        3 ( 584/ 499- 684/ 647)  45.0 E33-E23 S30-S20
     12 1699  562 (S28W54 L=301)  1815    251        3 (1581/ 483-1768/ 625)  25.2 W44-W61 S33-S23
     13  567  369 (S41E42 L=206)  1756    177        2 ( 498/ 332- 657/ 419)  11.3 E51-E31 S44-S36
  

    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