Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  708 1661 (N32E39 L=196)   601    113        0 ( 655/1633- 748/1686)   7.1 E42-E34 N29-N34
      2 1046 1546 (N31E10 L=225)  1097    299        1 ( 968/1420-1145/1628) -29.1 E18-W00 N24-N35
      3  675 1493 (N20E33 L=202)   350     73        1 ( 637/1478- 718/1512)  31.0 E35-E30 N18-N21
      4  949 1274 (N12E09 L=226)   286    131        0 ( 894/1259-1022/1294)   7.1 E12-E04 N11-N12
      5 1881 1217 (N28W67 L=302)   662     67        0 (1850/1195-1917/1234)  -4.4 W61-W75 N27-N29
      6 1588 1127 (N16W34 L=270)   606     88        2 (1564/1091-1617/1169) -36.9 W32-W36 N13-N18
      7  170 1065 (S14E66 L=169)   910    102        2 ( 138/1027- 205/1106)  36.9 E71-E61 S17-S11
      8 1606  952 (N06W38 L=274)   254     45        2 (1580/ 933-1636/ 968)  26.6 W36-W40 N04-N07
      9  983  770 (S17W02 L=238)   213     18        0 ( 959/ 752-1005/ 784)  18.4 W00-W03 S18-S15
     10 1396  705 (S13W30 L=265)  1317    363        0 (1229/ 625-1520/ 753)  26.6 W21-W39 S20-S09
     11  765  672 (S28E10 L=226)   243     86        0 ( 722/ 662- 813/ 685)  18.4 E12-E06 S29-S25
     12 1445  600 (S18W37 L=272)   454    164        1 (1368/ 573-1510/ 632)  41.2 W32-W40 S21-S14
     13  669  337 (S56E14 L=221)   546     81        2 ( 628/ 321- 705/ 359)  21.8 E19-E09 S59-S53
     14 1493  280 (S38W67 L=302)   677     56        1 (1463/ 262-1527/ 301)  -3.8 W59-W74 S38-S36
  

    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