Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1681 1630 (N23W63 L=251)  2084    316        2 (1598/1579-1774/1690) -42.5 W58-W73 N18-N29
      2 1298 1474 (N22W27 L=215)  2334    576        7 (1085/1427-1547/1510) -14.5 W13-W44 N17-N27
      3 1809 1467 (N11W69 L=256)   578     80        0 (1787/1451-1836/1483) -26.6 W65-W72 N09-N12
      4 1708 1314 (N05W51 L=238)   529     70        1 (1682/1269-1734/1359) -90.0 W49-W52 N01-N07
      5 1189 1289 (N14W15 L=203)   257     78        1 (1156/1269-1240/1318) -45.0 W13-W17 N11-N15
      6  265 1204 (N26E49 L=139)  1513    389        2 ( 175/1100- 361/1302) -46.8 E58-E40 N18-N34
      7  915 1212 (N14E03 L=185)   550    104        1 ( 865/1161- 968/1262) -60.3 E05-W00 N10-N18
      8 1921 1122 (S11W68 L=256)   925     94        3 (1896/1095-1947/1153)  31.0 W64-W72 S12-S08
      9 1883  991 (S17W60 L=248)  5534    680       17 (1818/ 862-1942/1137) -80.5 W51-W67 S25-S07
     10 1815  988 (S16W52 L=240)   760     91        0 (1790/ 949-1838/1031) -90.0 W49-W54 S18-S12
     11 1675  970 (S14W40 L=228)   714    192        2 (1624/ 902-1706/1027) -82.9 W36-W42 S17-S09
     12  195  937 (N11E60 L=128)   380     93        0 ( 180/ 891- 208/ 985)  80.5 E60-E58 N08-N14
     13 1538  941 (S13W30 L=217)   221     43        1 (1516/ 920-1557/ 970)  26.6 W27-W31 S14-S11
     14  411  789 (S01E43 L=145)   635    147        1 ( 391/ 723- 436/ 875)  76.0 E44-E41 S04-N04
     15  252  664 (S05E62 L=126)   598     92        1 ( 218/ 615- 282/ 704) -63.4 E65-E60 S08-S02
     16 1342  691 (S24W13 L=201)   277    100        0 (1289/ 672-1388/ 704) -33.7 W09-W15 S26-S22
     17  217  632 (S07E69 L=119)   855    208        1 ( 189/ 589- 244/ 663)  15.3 E75-E64 S09-S04
     18 1342  553 (S33W11 L=199)  1260    299        0 (1186/ 482-1435/ 655)  12.5 W00-W18 S36-S28
     19  778  525 (S23E26 L=162)   370     82        1 ( 729/ 492- 818/ 561)  14.0 E30-E22 S24-S21
     20  868  440 (S30E23 L=165)  1263    366        4 ( 765/ 324- 980/ 559)  27.6 E35-E12 S36-S24
     21  390  519 (S16E55 L=133)   388     99        2 ( 364/ 490- 418/ 535) -36.9 E57-E51 S17-S14
     22  352  476 (S18E61 L=127)  1306    166        5 ( 298/ 423- 392/ 520) -63.4 E65-E57 S22-S14
  

    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