Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  968 1818 (N56W20 L=355)  1355    143        4 ( 911/1772-1023/1854)   4.1 W12-W26 N51-N59
      2 1422 1703 (N35W48 L= 23)  3375    532        8 (1235/1556-1614/1796) -58.0 W37-W54 N21-N45
      3  881 1765 (N53W08 L=344)   299     80        1 ( 836/1739- 908/1781) -45.0 W04-W10 N50-N55
      4  827 1470 (N32E04 L=332)  2448    673       15 ( 552/1358-1068/1544) -29.9 E25-W09 N21-N41
      5 1047 1519 (N31W12 L=347)   275     60        0 (1015/1502-1083/1535) -45.0 W09-W13 N29-N32
      6 1734 1444 (N12W59 L= 35)   816    123        3 (1681/1400-1774/1478) -50.2 W54-W62 N09-N15
      7  388 1311 (N30E39 L=297)  2121    446        5 ( 195/1270- 605/1361) -16.5 E65-E21 N23-N36
      8  963 1304 (N19W01 L=337)   267     69        2 ( 928/1276- 988/1335)  45.0 W00-W03 N17-N20
      9 1056 1305 (N17W07 L=343)   316     75        3 (1025/1279-1093/1331)   0.0 W05-W09 N15-N18
     10 1034 1246 (N14W05 L=340)   377    167        2 ( 978/1218-1108/1277) -29.7 W01-W09 N11-N16
     11  356 1160 (N21E42 L=294)  1588    593        3 ( 277/1050- 517/1274) -25.3 E49-E29 N14-N29
     12  767 1206 (N17E12 L=324)   700    247        1 ( 658/1178- 876/1231) -17.1 E19-E05 N13-N19
     13  240 1129 (N21E54 L=282)   505     54        1 ( 212/1102- 260/1162)  90.0 E57-E51 N19-N23
     14  443 1008 (N11E37 L=299)   422    121        1 ( 401/ 961- 482/1061) -54.5 E39-E34 N07-N14
     15 1636  870 (S19W36 L= 12)   876    321        1 (1581/ 747-1671/1022)  59.0 W31-W40 S25-S10
     16  225  791 (N01E61 L=275)   491     93        1 ( 195/ 749- 253/ 828)  18.4 E65-E56 N00-N03
     17 1354  662 (S26W14 L=350)   527    109        2 (1316/ 598-1386/ 711)  50.2 W10-W16 S29-S23
     18  334  619 (S10E56 L=280)   450     36        3 ( 307/ 598- 358/ 640)   8.1 E59-E52 S11-S09
     19  696  596 (S18E29 L=307)   275     75        0 ( 672/ 573- 727/ 631) -63.4 E30-E27 S19-S15
     20  436  562 (S15E49 L=287)   603    188        1 ( 359/ 532- 512/ 604) -28.6 E54-E43 S17-S11
     21  573  392 (S28E47 L=288)   701    148        1 ( 552/ 319- 599/ 453)  55.0 E51-E42 S34-S24
  

    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