Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1698 1493 (N15W61 L=274)  1103    181        2 (1660/1407-1731/1564)  59.0 W55-W66 N09-N19
      2  331 1423 (N46E49 L=163)   457     84        2 ( 295/1405- 374/1445)  -9.5 E55-E43 N44-N47
      3 1477 1263 (N09W33 L=246)   430    122        0 (1446/1223-1521/1315) -80.5 W31-W34 N06-N12
      4  449 1269 (N34E34 L=179)   331    130        0 ( 397/1227- 496/1291) -29.1 E39-E30 N30-N35
      5 1425 1040 (S01W23 L=236)  1248    437        1 (1306/ 870-1543/1143)  18.4 W12-W33 S08-N03
      6 1758  968 (S15W46 L=259)  1370    254        1 (1718/ 871-1826/1029)  35.0 W42-W54 S20-S11
      7  327  951 (N16E48 L=165)   336     92        1 ( 291/ 927- 372/ 966)   0.0 E51-E43 N15-N17
      8  983  760 (S07E08 L=204)   242    103        1 ( 952/ 722-1019/ 804) -80.5 E09-E06 S09-S03
      9 1171  771 (S11W03 L=215)   357     99        2 (1120/ 748-1222/ 793)   0.0 W00-W05 S11-S09
     10  924  736 (S07E12 L=201)   424    109        1 ( 904/ 686- 951/ 786)  80.5 E14-E10 S10-S04
     11  409  753 (N04E45 L=168)   317     65        2 ( 376/ 737- 439/ 771)   0.0 E47-E42 N02-N04
     12 1077  639 (S16E06 L=207)  1125    371        7 ( 934/ 499-1183/ 735)  22.8 E18-W02 S22-S12
     13 1324  680 (S20W10 L=223)   216     51        0 (1310/ 650-1341/ 705)  45.0 W08-W11 S21-S18
     14  541  644 (S05E39 L=174)   491    123        1 ( 513/ 602- 566/ 692)  51.3 E40-E36 S07-S02
     15  692  596 (S11E30 L=183)   226     37        1 ( 671/ 573- 712/ 617)  71.6 E31-E28 S12-S09
     16  647  548 (S13E35 L=178)   623    125        2 ( 612/ 499- 689/ 604) -82.9 E36-E32 S16-S08
     17  546  514 (S13E43 L=170)  1499    197        9 ( 482/ 448- 616/ 586) -78.7 E48-E37 S17-S07
     18  542  438 (S18E48 L=165)  1633    316        6 ( 445/ 393- 660/ 482)   5.2 E58-E36 S21-S14
     19  742  336 (S29E38 L=174)  1094    300        1 ( 659/ 253- 859/ 446)  20.3 E51-E24 S34-S23
     20  491  340 (S24E60 L=153)  6663    258       13 ( 393/ 226- 576/ 421)  46.7 E79-E50 S35-S18
  

    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