Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  717 1786 (N31E50 L=307)   416     63        2 ( 702/1747- 733/1817) -35.5 E54-E46 N28-N33
      2 1211 1704 (N41E11 L=346)   715    106        0 (1181/1659-1242/1746) -35.5 E15-E08 N38-N43
      3  861 1555 (N20E26 L=332)   800    218        4 ( 820/1455- 889/1652) -47.5 E32-E21 N13-N25
      4  747 1524 (N15E31 L=326)   777    287        2 ( 713/1396- 767/1638) -59.0 E35-E25 N07-N22
      5  539 1445 (N05E42 L=316)   310     97        0 ( 524/1398- 558/1484) -80.5 E42-E40 N01-N07
      6  301 1456 (N01E63 L=294)   704     95        2 ( 256/1430- 348/1478)  18.4 E67-E58 S01-N02
      7 1658 1387 (N35W31 L= 29)  1139    162        2 (1629/1310-1684/1459) -66.0 W28-W34 N29-N40
      8  967 1298 (N07E11 L=347)  1256    314        1 ( 873/1194-1086/1387)  65.0 E13-E06 N00-N15
      9  320 1197 (S14E51 L=307)   881    197        1 ( 251/1156- 397/1229)   3.8 E57-E42 S16-S12
     10 1411 1193 (N14W17 L= 14)   245     92        0 (1379/1158-1448/1227)  -9.5 W14-W20 N13-N15
     11 1204 1070 (N01W08 L=  6)  1209    289        1 (1117/1022-1289/1139)  11.3 W02-W12 S01-N06
     12  733  985 (S16E15 L=342)   918    288        2 ( 612/ 937- 853/1047)  37.6 E23-E09 S20-S09
     13  420 1001 (S23E38 L=320)   248    116        0 ( 389/ 951- 458/1039)  66.8 E39-E35 S26-S19
     14 1661  935 (N08W41 L= 38)   548    127        2 (1640/ 866-1676/ 993) -54.5 W37-W43 N04-N11
     15  294  817 (S37E48 L=309)  1462    251        2 ( 190/ 765- 423/ 869)  20.1 E64-E34 S42-S31
     16 1116  632 (S25W18 L= 15)  2531    613        7 ( 872/ 543-1387/ 764)  51.8 W05-W28 S37-S09
     17 1805  702 (N01W63 L= 61)   431     60        2 (1781/ 672-1826/ 730)  -8.1 W59-W67 N00-N02
     18 1633  548 (S12W56 L= 53)  1086    169        3 (1560/ 502-1709/ 594)  18.4 W48-W63 S14-S09
     19  406  533 (S55E37 L=320)   996    119        2 ( 354/ 506- 459/ 569)   0.0 E45-E29 S56-S51
     20 1485  422 (S24W53 L= 50)   534    121        3 (1428/ 408-1549/ 440)  32.0 W48-W57 S26-S21
     21 1384  281 (S35W59 L= 56)  1884    197        1 (1314/ 221-1460/ 348) -74.7 W55-W64 S40-S29
     22 1148  245 (S47W46 L= 44)   650     98        1 (1113/ 214-1179/ 292) -36.9 W40-W49 S50-S44
  

    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