Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1132 1869 (N56W39 L=349)   901    130        1 (1106/1818-1184/1906)  16.7 W31-W51 N51-N59
      2 1075 1642 (N38W17 L=327)   961    167        1 ( 993/1611-1157/1663) -20.0 W11-W22 N35-N40
      3 1388 1595 (N29W37 L=348)   805    206        1 (1328/1546-1486/1634) -52.1 W33-W43 N23-N32
      4 1360 1497 (N23W31 L=341)   337     88        1 (1325/1471-1404/1519)   9.5 W28-W34 N21-N24
      5 1412 1422 (N18W32 L=342)   213     41        0 (1377/1400-1434/1444)   0.0 W29-W33 N16-N18
      6  772 1407 (N29E09 L=301)  1057    374        0 ( 596/1384- 953/1424) -14.6 E21-W02 N24-N31
      7 1186 1335 (N16W15 L=325)   685    248        0 (1070/1313-1304/1360) -11.3 W08-W23 N14-N18
      8  238 1299 (N31E56 L=254)  1023    155        1 ( 185/1254- 298/1357) -22.4 E65-E48 N27-N35
      9  753 1290 (N21E12 L=298)   322    129        1 ( 687/1271- 815/1305) -20.6 E16-E08 N20-N23
     10  635 1229 (N20E21 L=290)   275     73        0 ( 603/1199- 665/1257) -51.3 E22-E18 N17-N22
     11  698 1179 (N16E17 L=293)   206     56        0 ( 670/1161- 729/1201)  14.0 E18-E14 N14-N16
     12  832 1130 (N11E09 L=301)   323     98        0 ( 786/1092- 868/1167) -59.0 E11-E07 N08-N13
     13 1849 1008 (S14W58 L=  8)   467     73        1 (1823/ 971-1873/1035) -45.0 W55-W61 S16-S12
     14  533  886 (N01E32 L=278)   402    126        0 ( 482/ 847- 585/ 932)  18.4 E36-E27 N00-N03
     15 1883  822 (S27W64 L= 14)  1380    123        0 (1834/ 776-1927/ 878)  17.1 W57-W71 S28-S23
     16 1007  718 (S16E06 L=304)   314     82        2 ( 985/ 677-1037/ 766)  78.7 E08-E04 S18-S13
     17 1122  735 (S17W01 L=311)   407    150        2 (1053/ 706-1180/ 766) -23.2 E03-W04 S18-S14
     18  766  661 (S15E22 L=288)   399    166        1 ( 708/ 617- 845/ 714) -53.1 E24-E18 S19-S11
     19  863  445 (S31E23 L=287)   987    241        0 ( 839/ 331- 904/ 553)  47.1 E29-E16 S39-S24
     20  952  402 (S36E18 L=292)   244     71        0 ( 919/ 384- 976/ 434)   9.5 E21-E15 S37-S33
  

    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