Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  389 1489 (N31E53 L=235)   391     75        1 ( 365/1467- 423/1522) -23.2 E56-E48 N29-N33
      2 1626 1448 (N30W47 L=335)  1058    134        1 (1571/1382-1686/1500) -53.1 W42-W51 N25-N33
      3 1763 1471 (N31W66 L=353)   598     88        0 (1722/1444-1797/1495) -20.6 W60-W70 N28-N32
      4  362 1028 (N02E45 L=243)   275     69        0 ( 341/ 992- 381/1060) -45.0 E47-E43 N00-N04
      5 1693  958 (S01W46 L=334)  1134    152        5 (1643/ 897-1759/ 995)  24.0 W41-W51 S04-N01
      6  147  880 (S09E71 L=216)  1665    110        1 ( 124/ 827- 169/ 929)  49.4 E76-E67 S12-S05
      7 1820  851 (S08W60 L=348)   586    114        1 (1781/ 802-1840/ 882) -51.3 W55-W63 S11-S06
      8 1176  680 (S18W10 L=298)   328     93        0 (1155/ 632-1193/ 725) -80.5 W08-W11 S21-S15
      9  196  693 (S20E70 L=218)  1211     72        0 ( 167/ 660- 229/ 722)  15.5 E81-E62 S23-S18
     10 1731  695 (S18W53 L=341)   353     82        1 (1696/ 665-1768/ 716)  26.6 W50-W57 S19-S16
     11 1786  590 (S26W66 L=353)  1602    216        1 (1715/ 520-1840/ 682)  50.7 W59-W70 S30-S19
     12 1100  514 (S30W06 L=294)  1581    352        3 ( 926/ 464-1237/ 576)  21.8 E06-W15 S33-S25
     13 1000  263 (S51E01 L=287)   336     33        1 ( 974/ 249-1027/ 282)  21.8 E04-W01 S52-S49
  

    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