Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  939 1752 (N41E16 L=110)   460     62        0 ( 909/1715- 966/1790)  90.0 E17-E13 N38-N44
      2  691 1673 (N33E32 L= 94)   381     27        2 ( 667/1651- 716/1697)  90.0 E33-E29 N30-N34
      3 1130 1542 (N27W01 L=128)   726    225        1 (1080/1494-1223/1620) -29.1 E02-W07 N24-N32
      4  873 1445 (N18E14 L=113)   324    133        0 ( 856/1388- 909/1505) -54.5 E15-E10 N15-N22
      5 1627 1259 (N15W37 L=163)   436     85        1 (1600/1218-1655/1293)  51.3 W34-W38 N12-N17
      6 1738 1223 (N15W46 L=172)   353     96        0 (1717/1181-1767/1271) -51.3 W43-W48 N12-N17
      7 1566 1122 (N06W32 L=159)  1387    386        1 (1429/ 975-1638/1258) -39.1 W22-W38 S01-N12
      8 1945 1159 (N15W72 L=198)   785     47        3 (1932/1131-1966/1188)  33.7 W68-W77 N13-N17
      9  369  938 (S15E42 L= 84)  1594    510        2 ( 305/ 827- 439/1123) -86.8 E48-E36 S22-S04
     10 1045 1064 (S03W01 L=127)   432    164        0 ( 965/1016-1101/1090) -23.2 E03-W04 S05-S01
     11  174  890 (S19E63 L= 64)  4436    375        8 (  99/ 761- 219/1069)  52.1 E82-E56 S26-S08
     12  107 1010 (S11E72 L= 54)   796     73        2 (  75/ 985- 138/1039)  -4.4 E79-E66 S12-S09
     13 1436  956 (S05W25 L=152)   231     92        0 (1396/ 935-1484/ 973)  21.8 W23-W28 S06-S04
     14 1817  864 (S05W57 L=183)   950    144        4 (1766/ 822-1864/ 908) -26.6 W51-W62 S07-S02
     15 1302  738 (S19W20 L=147)   877    327        2 (1230/ 627-1386/ 878) -45.0 W14-W28 S25-S11
     16 1666  718 (S16W47 L=173)  3004    456       12 (1442/ 581-1839/ 802)  17.4 W31-W63 S23-S09
     17 1709  668 (S18W52 L=179)   347      8        0 (1665/ 656-1749/ 692)  15.9 W48-W55 S18-S15
     18  988  646 (S28W02 L=128)   213     65        1 ( 965/ 614-1011/ 678)  63.4 W00-W02 S30-S26
     19  327  548 (S40E55 L= 71)  1664    178        3 ( 245/ 498- 409/ 576)   7.6 E74-E44 S43-S38
     20 1644  392 (S35W64 L=191)  1233    120        2 (1602/ 367-1695/ 429)   3.4 W57-W74 S37-S33
     21 1581  299 (S42W68 L=195)   557     67        1 (1564/ 264-1602/ 331) -32.0 W63-W75 S44-S39
  

    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