Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  806 1432 (N23E13 L=357)   250     91        0 ( 770/1401- 848/1462)  38.7 E15-E10 N20-N24
      2  220 1320 (N18E61 L=310)  3325    255       12 ( 167/1202- 320/1411) -85.9 E69-E49 N10-N24
      3  562 1096 (N03E29 L=342)   503    133        0 ( 517/1050- 608/1150)  39.8 E31-E25 N00-N05
      4  358  833 (S12E46 L=325)   824    226        1 ( 312/ 754- 419/ 939) -67.4 E48-E41 S17-S05
      5  165  733 (S17E71 L=300)   905     78        2 ( 129/ 696- 202/ 761) -21.8 E78-E66 S19-S15
      6 1698  602 (S29W52 L= 63)   830    168        3 (1637/ 524-1734/ 676) -84.3 W47-W55 S34-S24
      7 1317  644 (S27W19 L= 30)   232     78        0 (1281/ 631-1359/ 658)   9.5 W16-W22 S27-S25
      8  982  603 (S29E04 L=  7)   194     77        0 ( 939/ 589-1018/ 617)  11.3 E06-E01 S29-S27
      9  391  471 (S35E56 L=315)  1110    137        2 ( 326/ 438- 463/ 502)   7.8 E68-E46 S37-S33
     10  546  403 (S41E44 L=327)   424    103        1 ( 492/ 384- 590/ 427)   8.7 E50-E37 S42-S39
     11 1277  348 (S48W21 L= 32)  1144    202        3 (1192/ 306-1356/ 391) -15.5 W12-W30 S51-S44
     12 1580  360 (S47W55 L= 66)   493     34        1 (1551/ 339-1606/ 375)   0.0 W50-W59 S48-S45
     13 1057  342 (S48W01 L= 12)   300     44        1 (1038/ 319-1083/ 368) -45.0 W00-W03 S50-S45
     14  665  226 (S57E47 L=324)   595     66        0 ( 634/ 213- 703/ 247)   0.0 E52-E40 S58-S54
  

    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