Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  529 1684 (N19E54 L= 15)   432     64        0 ( 506/1652- 549/1710) -20.6 E58-E50 N17-N21
      2  430 1653 (N15E61 L=  8)  1228    152        3 ( 366/1609- 501/1690)  33.7 E66-E55 N11-N18
      3  330 1634 (N13E73 L=357)  1121     67        2 ( 299/1607- 355/1666) -78.7 E78-E68 N10-N15
      4  397 1570 (N10E58 L= 11)   403    137        0 ( 354/1530- 458/1617)  60.3 E60-E55 N06-N13
      5  645 1549 (N13E38 L= 32)   435    169        0 ( 572/1519- 696/1573)  29.7 E41-E33 N10-N15
      6 1266 1486 (N26W01 L= 71)   910    292        0 (1153/1380-1341/1545) -15.9 E06-W08 N21-N28
      7 1647 1459 (N38W29 L= 99)   930    218        3 (1625/1334-1677/1545)  86.6 W27-W32 N28-N45
      8  403 1438 (N02E51 L= 19)  1539    338        2 ( 284/1389- 539/1470)  14.0 E61-E40 S02-N05
      9  407 1245 (S09E44 L= 26)   509    126        4 ( 380/1183- 438/1301) -82.9 E45-E41 S13-S05
     10 1803 1240 (N29W46 L=116)   329     60        1 (1783/1207-1817/1269) -56.3 W44-W48 N27-N31
     11 1367 1204 (N12W14 L= 84)   244     58        4 (1348/1174-1396/1235) -56.3 W12-W16 N10-N13
     12  760 1154 (S06E18 L= 52)   275    107        0 ( 740/1106- 773/1212) -71.6 E19-E16 S09-S03
     13 1681 1128 (N18W37 L=106)   311     73        1 (1648/1101-1717/1152)  45.0 W34-W39 N15-N20
     14  261 1060 (S23E53 L= 17)  2164    455        3 (  75/ 995- 434/1142)  14.3 E85-E38 S28-S14
     15 1776 1038 (N16W47 L=116)   369    122        0 (1752/ 985-1790/1103) -45.0 W43-W49 N13-N18
     16  617 1009 (S18E23 L= 46)   950    333        3 ( 453/ 973- 738/1047)  26.6 E34-E16 S21-S12
     17  235  937 (S30E54 L= 15)   688    167        2 ( 179/ 888- 306/ 981)  25.0 E61-E46 S34-S26
     18 1693  922 (N07W43 L=112)   471    102        1 (1635/ 905-1744/ 945)  32.0 W38-W46 N04-N09
     19 1882  852 (N10W64 L=133)   656     79        3 (1847/ 814-1906/ 899) -26.6 W58-W69 N08-N12
     20 1793  765 (N02W57 L=127)   343     59        2 (1770/ 735-1809/ 793)  63.4 W55-W58 N00-N04
     21 1283  670 (S19W25 L= 95)   243     91        0 (1237/ 653-1330/ 685)   9.5 W22-W28 S19-S17
     22 1629  464 (S18W60 L=129)  1303    180        4 (1578/ 400-1679/ 539) -73.3 W57-W63 S22-S12
     23 1572  522 (S17W51 L=120)   301     59        0 (1536/ 505-1599/ 537)  36.9 W48-W52 S18-S15
  

    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