Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1578 1729 (N27W64 L=177)   575    166        1 (1544/1715-1606/1751)  -7.1 W60-W68 N25-N28
      2  817 1390 (N31E02 L=111)  1209    417        1 ( 640/1356-1049/1431) -18.4 E14-W13 N25-N37
      3 1368 1374 (N15W30 L=143)   498    176        0 (1287/1360-1460/1390) -24.4 W25-W36 N12-N17
      4 1803 1314 (S02W61 L=173)  1234    157        4 (1756/1275-1847/1351) -32.0 W56-W65 S04-N01
      5 1181 1262 (N14W15 L=128)   423     64        0 (1144/1240-1227/1289) -36.9 W13-W17 N12-N16
      6 1734 1113 (S10W46 L=159)  1848    485        6 (1705/ 920-1800/1267)  59.9 W41-W57 S21-S02
      7  182  946 (N20E60 L= 52)   448     94        2 ( 157/ 922- 203/ 969) -56.3 E63-E57 N18-N21
      8 1466  853 (S16W21 L=134)   619    149        1 (1389/ 807-1528/ 897) -56.3 W16-W24 S20-S11
      9 1525  726 (S26W22 L=135)   242     52        0 (1511/ 700-1540/ 759)  56.3 W21-W23 S27-S23
     10  681  685 (S05E29 L= 84)   214     50        0 ( 656/ 667- 712/ 699) -33.7 E30-E26 S06-S03
     11 1134  445 (S32E11 L=102)   348     85        2 (1115/ 407-1150/ 483)  51.3 E12-E08 S34-S29
     12  607  355 (S23E48 L= 65)   917    218        2 ( 582/ 282- 644/ 432)  57.5 E52-E43 S29-S18
     13 1297  312 (S48E05 L=108)  2253    240        6 (1201/ 248-1380/ 375)   6.3 E15-W03 S52-S42
  

    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