Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  492 1642 (N16E54 L= 16)  1441    346        4 ( 375/1594- 641/1685)  14.6 E65-E41 N12-N18
      2  649 1540 (N13E37 L= 33)   621    196        0 ( 572/1492- 694/1574)  29.7 E42-E33 N10-N15
      3 1264 1485 (N26W01 L= 71)  1000    291        0 (1146/1382-1340/1547) -14.9 E07-W08 N21-N28
      4 1645 1472 (N39W29 L= 99)   924    145        1 (1624/1393-1675/1546)  85.6 W27-W32 N32-N45
      5  403 1441 (N02E51 L= 19)  1664    270        4 ( 280/1390- 537/1470)  13.4 E61-E40 S02-N05
      6  405 1246 (S09E44 L= 26)   527    125        3 ( 380/1183- 437/1304) -82.9 E45-E41 S13-S05
      7 1364 1212 (N13W14 L= 84)   234     62        2 (1340/1191-1393/1240) -18.4 W12-W15 N11-N14
      8  756 1155 (S06E18 L= 51)   334    113        0 ( 735/1100- 771/1211) -80.5 E19-E17 S09-S03
      9 1678 1130 (N18W36 L=106)   303     61        1 (1645/1109-1711/1154)  51.3 W34-W39 N15-N20
     10  263 1063 (S22E52 L= 17)  2268    453        5 (  76/ 995- 424/1146)  14.3 E85-E38 S28-S14
     11 1798 1120 (N22W47 L=117)   310     37        0 (1769/1103-1823/1135)   0.0 W44-W50 N20-N22
     12 1766 1047 (N16W46 L=115)   476    176        0 (1721/ 962-1788/1118) -33.7 W40-W49 N12-N19
     13  614 1010 (S18E23 L= 46)  1037    329        4 ( 455/ 975- 735/1049)  26.6 E34-E16 S21-S12
     14 1817  993 (N15W52 L=121)   352     46        2 (1796/ 968-1842/1018) -71.6 W49-W54 N13-N16
     15  232  938 (S30E55 L= 15)   639    172        1 ( 176/ 887- 299/ 984)  25.0 E62-E47 S34-S26
     16 1706  926 (N08W44 L=113)   361     56        1 (1673/ 906-1741/ 946)  38.7 W41-W46 N05-N09
     17 1883  854 (N10W64 L=134)   523     85        3 (1855/ 817-1905/ 898) -26.6 W59-W68 N09-N12
     18 1792  777 (N03W56 L=126)   497     67        2 (1770/ 737-1807/ 817) -59.0 W54-W58 N00-N05
     19 1284  671 (S19W25 L= 95)   287     87        0 (1235/ 654-1329/ 688)   9.5 W22-W28 S19-S17
     20 1630  464 (S18W60 L=130)  1444    179        4 (1573/ 397-1689/ 540) -84.3 W57-W63 S22-S12
  

    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