Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  972 1707 (N51W21 L=290)   402     65        1 ( 944/1665- 990/1741)  45.0 W18-W24 N47-N53
      2 1376 1673 (N35W48 L=317)   405     82        0 (1333/1658-1419/1688) -45.0 W45-W50 N32-N37
      3 1660 1579 (N20W65 L=334)  1420    117        5 (1616/1534-1705/1624)  71.6 W61-W70 N17-N23
      4 1520 1543 (N23W49 L=319)   559    144        1 (1494/1467-1537/1609)  52.1 W45-W52 N18-N27
      5  446 1324 (N38E35 L=235)  1090    205        1 ( 361/1260- 528/1357) -27.9 E44-E27 N32-N41
      6 1065 1271 (N20W09 L=278)   286     97        1 (1026/1238-1111/1297) -59.0 W06-W10 N17-N22
      7  877 1272 (N25E03 L=267)   668    149        4 ( 798/1245- 945/1296) -20.6 E07-W01 N22-N26
      8 1443 1261 (N10W31 L=300)   214     49        0 (1423/1241-1466/1278)   0.0 W29-W32 N08-N10
      9 1054 1179 (N15W05 L=275)   223     32        0 (1030/1164-1080/1197)   0.0 W04-W07 N14-N16
     10 1678 1109 (S05W43 L=312)  1058    175        1 (1644/1023-1706/1185)  41.6 W38-W47 S09-S01
     11  733 1123 (N19E15 L=254)   202     62        0 ( 700/1108- 762/1138) -14.0 E17-E13 N18-N20
     12  428 1059 (N22E38 L=231)   952    176        2 ( 361/ 999- 494/1113) -42.0 E43-E33 N17-N26
     13 1604  623 (S33W29 L=298)  4830    695       12 (1465/ 384-1783/ 924)  40.3 W14-W48 S47-S18
     14 1108  545 (S23E07 L=262)   250     97        0 (1066/ 521-1150/ 580)   8.1 E10-E03 S23-S21
     15  522  399 (S20E53 L=217)   400     84        1 ( 504/ 353- 537/ 431)  50.2 E55-E50 S23-S17
     16 1409  371 (S46W09 L=279)   941    112        1 (1360/ 346-1460/ 402) -29.1 W05-W14 S48-S42
     17  970  337 (S34E24 L=246)   483     87        0 ( 936/ 301-1000/ 375)  29.7 E27-E20 S36-S31
     18 1281  296 (S48E04 L=266)   455     68        2 (1260/ 266-1306/ 327)  45.0 E06-W00 S50-S45
     19 1182  236 (S50E15 L=254)   673     92        3 (1138/ 212-1228/ 263) -20.6 E18-E10 S52-S47
  

    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