Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  538 1701 (N24E56 L=221)  2802    391        4 ( 425/1601- 662/1783)  67.6 E61-E50 N15-N32
      2  687 1733 (N30E46 L=231)   423     85        1 ( 668/1693- 702/1772) -32.0 E51-E43 N26-N32
      3 1121 1486 (N25E07 L=271)  2032    506        5 (1014/1248-1175/1652) -50.7 E18-W01 N11-N34
      4  694 1459 (N13E31 L=247)   360     73        3 ( 667/1418- 718/1494)  90.0 E32-E29 N09-N14
      5 1865 1141 (N26W58 L=336)  3101    393        4 (1789/1018-1940/1299) -34.4 W47-W71 N19-N34
      6  335 1148 (S13E47 L=230)   384    124        0 ( 317/1095- 360/1214) -45.0 E50-E44 S15-S09
      7 1454 1121 (N12W22 L=300)   285     62        0 (1440/1088-1469/1157) -76.0 W21-W23 N10-N14
      8  161 1027 (S23E65 L=212)  2373    307        3 ( 114/ 947- 234/1128)  36.3 E74-E55 S27-S16
      9  643 1086 (S10E24 L=254)   247     94        0 ( 626/1045- 673/1120)  78.7 E24-E22 S12-S07
     10  467  994 (S19E34 L=244)   551    180        0 ( 443/ 937- 507/1063) -74.1 E35-E29 S21-S14
     11 1640  886 (N04W41 L=318)   900    204        3 (1580/ 821-1683/ 988)  79.7 W37-W43 N00-N11
     12  782  920 (S16E11 L=266)   219     74        0 ( 748/ 900- 819/ 949)  53.1 E13-E09 S17-S13
     13 1100  580 (S27W17 L=295)   497    121        1 (1042/ 555-1151/ 620)  23.2 W14-W21 S29-S24
     14  493  513 (S50E27 L=251)  1741    276        2 ( 402/ 442- 610/ 603) -12.3 E36-E13 S52-S45
     15 1717  488 (S14W68 L=346)  1189    139        3 (1649/ 463-1782/ 522)  26.6 W61-W75 S17-S10
  

    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